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SEQ  0001 


IDENTIFICATION 


PRODUCT  CODE: 

DIAGNOSTIC  CODE: 

PRODUCT  NAME: 

VERSION: 

DATS  RELEASED: 

MAINTAINED  BY: 

UPDATE  AUTHOR: 


AH-7168K-DD 
DDRPI 


DDRPIMO  RHlO/20  RP04/5/6  Reliability 
0.15 

August  28,  1985 
36-bit  diagnostic  engineerinr 
Gregory  A.  Scott 
Copyright  (C)  1975,  1981,  1985 


Digital  Equipment  Corporation,  Maynard,  Mass. 

This  software  is  furnished  under  a  license  for  use  only  on  a 
single  computer  system  and  may  be  copied  only  with  the  inclusion 
of  the  above  copyright  notice.  This  software,  or  any  other 
copies  thereof,  may  not  be  provided  or  otherwise  made  available 
to  any  otner  person  except  for  use  on  such  system  and  to  one  who 
agrees  to  these  license  terms.  Title  to  and  ownership  of  the 
software  shall  at  all  times  remain  in  Digital  Equipment 
Corporation. 

The  information  in  this  dociment  is  subject  to  change  without 
notice  and  should  not  be  construed  as  -  commitment  by  Digital 
Equipment  Corporation 

Digital  Equipment  Corporation  assumes  no  resoonsibility  for  the 
use  or  reliability  of  its  software  in  equipment  which  is  not 
suppl''ed  by  Digital  Equipment  Corporation. 
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SEQ  0002 


MAINDEC-10-DDRPI 


SECTION 

1.0 

ABSTRACT 

2.0 

SYSTEM  REQUIREMENTS 

3.0 

LOADING  PROCEDURE 

3.1     EXEC  MODE 

3.2    USER  MODE 

4.0 

OPERATING  PROCEDURE 

4.1     SWITCH  SETTINGS 

4.2     STARTING  ADDRESSES 

5.0 

OPERATOR  COMPOSED  TEST  ROUTINES 

6.0 

COMMONLY  USED  DDT  COMMANDS 
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MAlNDEC-10-DDRPI 
1.0     ABSTRACT 


either 


1) 


DDRPI  was  designed  to  run  on  any  RH10/RH20  RP04/05/06  system  and 
provide  engineering,  field  service,  and  production  with  the 
following: 

Full  speed  data  transfers  which  utilize  most  of  the 
drive's  features  (i.e.  ECC  correction,  implied  seeks 
spiral  transfers,  etc.). 

2)  A  random  parameter  data/mechanical  reliability  test 
(FRTEST)  to  provide  a  simulation  of  an  drive  in  a  system 
environment. 

3)  The  ability  to  format  an  RP04/05/06  disk  pack  in 
16  bit  (PDM1)  or  18  bit  (PDP-10)  mode. 


4)  The  ability  to  loop  (or  "freeze")  on  a  particular 
sequence  of  instructions. 

5)  The  capability  of  simultaneous  operations  to  several 
drives  across  1  or  more  MASSBUS  controllers. 

6>     Dual  port  operation  of  the  RPOA/05/06. 

7)  On-line  operation  of  the  program  using  dump  mode  I/O  to 
read  and  write.  Special  protection  is  given  to  guard 
against  accidental  data  destruction  in  user  mode.  Pack 
formatting  during  time-sharina  requires  a  pack  mounted 
net  in  the  system  structure  list! 

2.0     SYSTEM  REQUIREMENTS 

A)  A  DECsystem-10  processor  (KA10/KI10/KL10)  with  at  least 
48k  memory. 

B)  RH20  (up  to  8)  or  RH10/DF10  data  channel  (up  to  6). 

C)  1  to  64  RP04/05/06  disk  drives  of  these  types: 

n     RP04/05/06  single  port 
V  RP04/05/06  dual  port 

D)  OECtape  (M/KI/KL)  or  flopoy  (KL)  for  program  loading. 
Other  loading  methods  vi.e.  disk  or  magtape)  may  Be 
available. 
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MAINDEC-10-DDRPI 


The  following  diagnostics  should  be  run  on  the  system  before 
ODRPI: 


A) 
B) 

C) 


Processor  and  memory  tests. 

RH20  controller  diagnostic  (e.g.  DFRHB). 

RP04/05/06  basic  diagnostics  (e.g.  DFRPH,  DFRPK). 


3.0 


LOADING  PROCEDURE 


3.1 


DDRPI  runs  in  exec  mode  and  user  mode  on  both  TOPS-10  and 
TOPS-20. 

EXEC  MODE 


From  DECtape  or  KLAD  disk  pack  (on  a  KL10): 

1)  Load  'XLDCP"  -  the  console  package. 

2)  Load  SUBRTN  package  and  DDT  ('BT<CR>"  will  load 
both). 

3)  Type:  'V   DDRPI<CR>". 

The  program  will  load  and  halt. 

Note:  It  is  advisable  to  type  "PE  16"  when  starting  on  a  KLIO 
CPU.  This  will  disable  parity  errors  (memory)  Trom  causing 
"page  fail  trap"  type  errors  when  parity  errors  are  detected. 

Set  the  grogram  switches  at  this  time.  KLIO  console  switch  #1 
<octal  0D0002>  will  enable  "OPRSEL"  for  test/drive  control. 

To  start  the  diagnostic  type:  "STD<C^'>".  When  started,  the 
program  will  report  the  number  of  d'sks  on-line  and  wait  for 
operation  commands. 

From  DECtape  (on  a  KA10/KI10): 

1)  Load  in   a  DECtape  boot  loadf'". 

2)  Type  "DIAMON"  to  load  and  start  the  diagnostic 
monitor.  Then  follow  the  DIAMON  loading 
instructions. 
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MAlNDEC-10-DDRPI 
3.2    USER  MODE 


From  user  mode,  run  DIAMON  (TOPS-10)  or  D20MON  (TOPS-20)  and 
specify  DDRPI.  Some  startup  dialog  questions  will  be  asked  to 
determine  program  options  and  drives  to  use.  The  "sleep 
option"  makes  DDRPI  sleep  a  second  between  transfers  to  allow 
other  jobs  to  run.  Reporting  of  errors  into  the  system  error 
log  can  be  turned  off.  You  can  enable  or  disable  monitor 
error  recovery.  On  TOPS-10  you  are  also  asked  if  you  want  the 
job  to  be  locked  in  core  or  run  with  extra  CPU  or  disk 
priority. 

An  add i tonal  feature  has  been  added  to  limit  the  program 
startup  dialog  in  user  mode  on  TOPS-10.  "SHORT  STARTUP 
DIALOG?  (Y  OR  N)"  is  asked.  If  a  "Y"  is  typed  the  program 
will  default  to  normal  user  priority,  not  locked  in  core, 
monitor  retries  disabled,  SYStRR  reporting  on,  and  program 
sleep  option  off. 

On  TOPS-20  you  then  specify  the  MBC,  unit  number,  and  drive 
type  for  each  drive  to  use.  On  TOPS-IO  you  specify  the 
physical  device  name  to  use  (e.g.  RPAO,  RPB3). 

4.0    OPERATING  PROCEDURE 


The  RH10/KH20  -  RP0A/05/06  -  disk  reliability  test  (MAINDEC 
10-DDRPI),  is  designed  to  provide  a  flexible  system  reliability 
and  diagnostic  exercise.  The  operator  can  execute  tests 
ranging  from  basic  read  or  write  operations  up  to  complete 
diagnostic  and  reliability  sequences. 

Note:  To  print  on  logical  device  "DEV"  in  user  mode,  first 
assign  the  disk  as  "DEV"  then  in  the  program  set  switch 
"PNTCPT"  (switch  020000). 

Note:  when  the  program  reports  drive  "12"  or  '77"  or  whatever 
exists,  it  is  refering  to  the  1st  digit  as  the  mbc  unit 
number  and  the  2nd  digit  as  the  drive  unit  number  (i.e. 
drive  '75"  is  channel/controller  unit  7,  drive  unit  5). 
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MAINDEC-10-DDRPI 

A.I     OPERATIONAL  SWITCH  SETTINGS 


LEFT  HALF  SWITCHES: 

'  A/KI/user 

KL  (PDP 

-11) 

Function 

Result 

400000  (  0) 

100000 

(15) 

ABORT 

Abort  diagnostic 
immediately 

200000  (  1) 

OAOOOO 

(1A) 

RSTART 

Print  "TOTALS" 
then  restart 
diagnostic 

100000  (  2) 

020000 

(13) 

TOTALS 

Print  system 
totals 

OAOOOO  (  3) 

010000 

(12) 

NOPNT 

Inhibit  typeouts 
(except     for 
"forced" 
typeouts) 

020000  (  A) 

OOAOOO 

(11) 

PNTLPT 

Print  on  LPT  or 
"DEV"  if  in  user 
mode 

010000  (  5) 

002000 

(10) 

DING 

Ring  bell  on 
error 

OOAOOO  (  6) 

001000 

(  9) 

LOOPER 

Loop  on  prror 

002000  (  7) 

OOOAOO 

(  8) 

ERSTOP 

Halt  on  error 

001000  (  8) 

00020C 

(  7) 

PALERS 

Print  all  errors 
(if  not  set- 
print  only  1st  3 
errors) 

OOOAOO  (  9) 

000100 

(  6) 

RELIAB 

Reliability  mode 
(long  run) 

000200  (10) 

OOOOAO 

(  5) 

TXTINH 

Short  messages 

000020  (13) 

OOOOOA 

(  2) 

INHCSH 

Inhibit  cache 
(KL10) 

000010  (1A) 

000002 

(  1) 

OPRSEL 

OPR  control  of 
tests 

000002  (16) 

fCAHZSO 

50  hertz  power 
on  KA10 

SEQ  0006 
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MAINDEC-10-DDRPI 

RIGHT  HALF  SWITCHES 
400000  switch  18: 
(DELTRK) 


200000 


100000 


040000 


020000 


01000C 


004000 


002000 


switch  19: 
(VARIAB) 


switch  20: 
(ACTSEK) 


switch  21 
(FREEZE) 


switch  22 
(INHULD) 


switch  23: 
(ALLADR) 


switch  24: 
(M.LDRV) 


switch  25: 
(ONESEC) 


001000  switch  26: 
(INHRET) 


(0) 
(1) 


(0) 
(1) 


(0) 
(1) 


(0) 
(1) 


(0) 
(1) 


(0) 
(1) 


(0) 
(1) 


(0) 
(1) 

(0) 
(I) 


in 


Pack   deletion/protection 

effect 

Suspend  any  OPR  selected  pack 

deletion/protection 


Allow   opr 
parameters 


to   change   test 


Use  implied  seeks 

Force  actual  seeking  instead  of 

implied  seeks 


Allow  the  OPR  to  execute  the 
last  20  commands  repeatedly 


Inhibit  drive  unloads  on  a  hard 
error  abort 


Select  all  disk  addresses  before 
changing  drive  numbers 

Select  all  drives  on  an  MBC 
before  selecting  a  new  MBC 

Limit  transfer  size  to  1  sector 

Automatic  error  recovery  enabled 
inhibit  error  recovery  procedure 


1 
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WAINDEC-10-DDRPI 

SUITCHES  30-35 

Test 

Name 

00 

TOTAL 

01 

RONLY 

02 

UONLY 

OS 

OPDTST 

OA 


05 


06 

07 

10 
It 

12 


(switch  test  selection): 

Description 

All  tests  that  require  no  operator  intervention: 
SEKTST,  RONLY,  WONLY,  STEST,  INTTST,  NEXTST, 
PTIME,  RCTEST,  FRTEST. 

Read  only  data  test:  no  data  comparison. 

Write  only  data  test  using  ".ONES"  data. 


Operator  data  test  -  operator  has  to  select  < 
data  pattern  to  be  used  -  switch  "VARIAB"  wil 


a 

pattern  to  be  used  -  switch  "VARIAB"  will 

allow  selective  operator  testing  of  pack  areas. 


STEST 


SEKTST 


INTTST 
FRTEST 

FORMAT 
SEQGEN 

ACCEPT 


13 

NEXTST 

U 

PTIHE 

15 

RCTEST 

Surface  data  test  using  various  data  patterns. 
Various  data  patterns  will  be  written,  re^d,  and 
verified. 

Mechanical  positioning  tests:  recal  then  seek  to 
max  cylinder,  seek  cylinder  0  to  128, 
incremental  seeks,  random  seeks,  servo  noise, 
and  cylinder  difference. 

Track  interraction  data  test.  Writes  and 
verifies  worst  case  data  in  cylinder  N,  then  n-1 
and  N^2. 

Fast  random  parameter  data  transfer  test: 
randomly  selects  disk  areas  and  data  patterns  to 
keep  the  positioner  in  maximum  motion. 

Formatter/pack  verifier  (see  PAKINT). 

Sequence  generator:  allows  specification  of  up 
to  10  tests  to  be  executed  in  sequence  (e.g. 
RONLY,  WONLY,  STEST). 

Acceptance  script:  runs  SEKTST,  RONLY,  RCTEST, 
FRTEST,  NEXTST,   INTTST,  STEST,  RCTEST,  WONLY, 
RONLY,  FRTEST. 

RH20  backup  register  test:  read  after  write, 
write  after  read  test. 

Positioner  timing  tests  for  rotational  velocity, 
recalibrate  time,  and  seek  time. 

Random  command  test  usino  mixture  of  "read", 
"read  headers^  "write",  '^seek",  "search",  and 
"recal"  commands. 
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MAlNDEC-10-DDRPI 


Note:   The  foUuwing  tests  do  not  run  in  TOPS-10  user  mode: 
NEXTST,  PTIME,  and  in  7.02  and  later  monitors  SEKTST. 


Note: 

OTHER  TESTS: 


The  following  tests  do  not  run  in  TOPS-20  user  mode: 
SEKTST,  NEXTST,  PTIME,  and  FORMAT. 


Name    Description 

MAPOUT  This  routine  will  report  the  pack  "bat"  block  contents 
and  allow  the  operator  to  update  the  pack  "bat"  block 
(no  update  possible  in  user  mode).  The  operator  may 
also  use  this  service  to  el'>inate  known  'soft"  error 
spots  from  testing  or  to  include/exclude  any  "hard" 
error  spots  on  the  pack  from  testing. 

allows  the  operator  to  eliminate 
testing  or  to  use  only  specific 
testing.  This  service  is  called 


DELETE 


This  service  routine 
arfds  of  a  pack  from 
areas  of  the  pack  for 
from  •HAPOUr'^if  the 
spots  from  testing. 


operator  desires  to  remove  "soft 


PAKINT 


This  script  will  automatically  format «  nap  and  create 
the  'BAT  blocks"  for  the  selected  RP04/05/06  disk 
drives.  The  script  can  be  run  in  exec  mode  or  in  user 
mode  under  a  TOPS-10  monitor.  The  purpose  of  this 
scipt  is  to  limit  the  dialog  necessary  to  complete  this 
operation  and  hopefully  avoid  user  errors.  This  is  the 
preferred  method  to  format  packs. 


CONFIG 


"re-map"  the  ^ASSBUS 


This  routine  allows  the  operator  to  ^ 
and  report  the  results.  It  also  enables  the  operator  to 
add  or  delete  drives  from  the  test  list  without 
re-typing  the  entire  list  again.  Write  enabling  a  drive 
in  user  mode  is  accomplished  with  this  service  Tin  user 
mode,  all  drives  are  initially  program  write-protected 
at  run  time).  Typing  "H"  to  ''WHAT  DRIVE  -"  will  ai^ 
the  operator  a  list  of  acceptable  commands  to  "CONFIG 


ve 
1 1 


H 


Typing  "H"  to  the  "WHAT  TEST 
complete  list  to  the  operator. 


prompt  will  type  a 


Typing  a  number  of  a  test  instead  of  the  actual  test  name  is 
acceptable  and  proper  test  dispatching  will  take  place.  The 
test  name  will  be  typed  back  to  the  operator  before  dispatching 
is  executed.  Typing  anything  except  a  test  number  or  name 
defined  (as  above)  will  cause  an  error  message  to  be  printed. 
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MAlNOEC-10-DDRPI 


A. 2 


5.0 


While  a  test  is  running,  the  following  commands  may  be  typed: 


A 
H 
S 
R 


Reports  drives  available  for  testing. 

Causes  a  help  message  to  be  typed. 

Reports  drives  selected  for  testir.g. 

Reports  program  run  time,  number  of  disk  blocks 
(sectors)  read  and  written,  along  with  the  number  of 
position  commands  issued  and  test  being  run. 


STARTING  ADDRESSES 


30000 

(BEGIN) 

30002 

(DIAGMN) 

30003 

(SYXEXR) 

30004 

(SFSTRT) 

30005 

(PFSTRT) 

30007 

(DDTSRT) 

Stand  alone  start. 

Diagnostic  monitor  start. 

System  exerciser  start. 

Special  feature  start  re-initiali?e 
program. 

Power  fail  restart. 

DDT  start. 


the 


OPERATOR  COMPOSED  TEST  ROUTINES 


DDRPI  doesn't  support  simple  test  routines  for  use  With  DDT  as 
was  the  practice  with  previous  disk  reliability  diagnostics. 
The  structure  of  this  program  dictates  that  it  must  be 
thoroughly  understood  before  it  would  be  possible  to  code  simple 
write  read  loops  in  DDT.  The  operator  data  test  has  been 
furnished  to  support  simple  write  read  loops  to  a  specific  disk 
address. 


SEQ  0010 


6.0     COMMONLY  USED  DDT  COMMANDS 
6.1. A   TO  SET  A  BREAKPOINT 
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Up  to  8  breakpoints  can  be  set  at  any  one  time. 

ADRSB         (S  =  ALTMODE)  set  a  breakpoint  at  ADR.  When  the 

breakpoint  is  reached,  the  program  halts  and 
types  out  "$1B»ADR/  instruction" 

6.1.B   TO  PROCEED  FROM  A  BREAKPOINT  HALT 

IP  Resume  program  execution.  Halt  again  next  time 

the  breakpoint  is  reached. 

n$P  Resume  program  execution.  Do  not  halt  until  the 

nth  time  tne  breakpoint  is  encountered. 

6.1.C   TO  REMOVE  A  BREAKPOINT 


Remove  all  breakpoints. 
0$nB         Remove  breakpoint  "n". 
6.1.D   TO  START  EXECUTION  AT  AN  ADDRESS 

$6  Restart  program. 

LOCSG         Start  at  LOC. 
6.1.E   TO  EXAMINE  A  LOCATION  OR  TO  INSERT  NEW  DATA 

ADR/  xxx<CR>   An  address  followed  by  a  slash  Is  used  to 

examine  a  location.  Carriage  return  is  to  close 
the  exam'ied  location. 

ADR/  «xx<LF>    Similarly  a  line  feed  is  used  to  examine  the 
ADR'^1/  zzz  next  location. 

ADR/  XX  yy<CR>  Place  yy  in  location  specified  by  ADR. 

ADR/  XX  yy<LF>  Place  yy  in  ADR,  and  examine  next  location. 
ADR^I/  zz 


HISTORY  OF  THE  DEVELOPEMENT  OF  DDRPI  DISK  RELIABILITY  DIAGNOSTIC  ^^^  ^^^ 


PRODUCT  CODE 
PRODUCT  NAME 
RELEASE  DATE 


MD  -  1C  -  DDRPI  -  A 

RH10/RH20  RP04  RELIABILITY  DIAGNOSTIC 

JANUARY  UJ976 
AUTHOR:        C.CA.^PBELL 
MAINTAINER:     DECSYSTEM-10  DIAGNOSTIC  ENG. 

UPDATE  VERSION:  MD-IO-DDR  -B   VER:    0.2 

PRODUCT  NAME:   RHIO/P-  u  -  RP04/05/06-  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:   JUNE    1976 

UPDATE  AUTHOR:  B. WALSH 

DDRPI  WAS  UPDATED  TO  SUPPORT  TESTING  OF  THE  MEMOREX  RP05  AND  RP06 
MOVING  HEAD  DISK  DRIVES. 

THE  FOLLOWING  ROUTINES  AND  TESTS  WERE  THE  MAJOR  COMPONENTS  OF  THE 
DIAGNOSTIC  WHICH  WERE  REDESIGNED  OR  MODIFIED  TO  SUPPORT  THE  NEW  DRIVES. 

1.  SELECT  ROUTINE  -  DISK  ADDRESS  SELECTION  ROUTINE 

THIS  ROUTINE  WAS  UPDATED  TO  ACCOMODATE  THE  DOUBLE  TRACK  DENSITY 
OF  THE  RP06  DRIVE. 

2.  DSB  TABLE  DEFINITIONS  -  DRIVE  STATUS  BLOCK 

A.)  ADDED  RP05  AND  RP06  DEVICE  STATUS  BITS 

B.)  REDEFINED  ERROR  REG  TWO  AND  THREE  DATA  AREA 

3.  TOTPNT  -  STATICSTICAL  DATA  PRINT  ROUTINE 

UPDATED  TO  REFLECT  REDEFINED  DRIVE  STATUS  BLOCK  AREA 

4.  .RETRY  -  COMMAND  RETRY  SERVICE 

MODIFIED  TO  ACCOMODATE  THE  RP06  RETRY  ALOGRITHM 

5.  CONFIG  -  CONFIGURATION  ROUTINE 

MODIFIED  TO  INCLUDE  RECOGNITION  OF  THE  RP05/06  DRIVES 

6.  PKFORM  -  PACK  FORMAT  ROUTINE 

MODIFIED  TO  JETUP  .MAXCYL  CORRECTLY  FOR  ALL  DRIVES 


-^s  i. 


7.  ER2ANM  &  ER3ANM  -  ERROR  REG  ANALYSIS  ROUTINES  SEQ  0013 

ADDED  THESE  ROUTINES  TO  ANmLIZE  ERROR  COIwITIONS  FOR  THE 
RP05/06'S 

8.  FMTST  -  FORMAT  TEST 

REDESIGNED  A  CONSIDERABLE  PORTION  OF  THIS  TEST  TC  '^UPPORT 
ALL  THE  FORMATTING  FEATURES  FOR  EACH  DR.'VE 

9.  INTTST  -  TRACK  INTERACTION  TEST 

UPDATED  TO  TEST  THE  CORRECT  WRITE  CURRENT  STEP  CYLINDERS 
FOR  THE  RP06 

10.  PTIWE  -  POSITIONER  TIMING  TEST 

CHANGED  THE  DESTINATION  CYLINDER  USED  FOR  MEASURING 
AVERAGE  ACCESS  TIME  FOR  RP06'S 

11.  SETOFF  -  MANUAL  HEAD  OFFSET  SELECT  ROUTINE 
UPDATED  TO  SUPPORT  THE  RP06  OFFSET  VALUES 

12.  COMBUF  -  COMMAND  BUFFER  STORAGE  TABLE 

UPDATED  TO  ACCOMODATE  THE  DOUBLE  TRACK  DENSITY  OF  THE   RP06 

THERE  WERE  NUMEROUS  PROBLEMS  ENCOUNTERED  IN  THE  PROCESS 
OF  UPDATING  THE  DIAGNOSTIC  WHICH  WOULD  OR  DID  EFFECT 
THE  OPERATION  OF  ALL  SUPPORTED  DRIVES. THE  FOLLOWING  PROBLEMS 
IF  ENCOUNTERED  WOULD  HAVE  PRODUCED  OBVIOUS  ERROR  SYMPTOMS. 

1.  WHEN  RUNNING  1*^   A  KLIO  IF  AN  ERROR  MUUO  OR  PAGE  TRAP  FAILURE 
OCCURED  TK:  P^Oo*^AM  SOMETIMES  WOULD  GET  STUCX  IN  AN  ERROR  LOOP. 

THE  PROG^tA*  ,H.L  VOW  ATTEMPT  TO  RESTART  If  ''OSS^^LE  EXCEPT 
IF  AN  AR  P/»  <'V  cwROR  IS  ENCOUNTERED  IN  WHi.H  ZhSE  IT  WILL 
HALT. 

2.  THE  PROGAM  WOULD  OCCASIONLY  REPORT  COMMATJD  SEQUENCE  ERRORS 
AND  WOULD  ATTEMPT  TO  RESTART  AND  WOULD  MOST  OF  THE  TIME  FAIL 
TO  RESTART. 

THE  COMMAND  SEQENCE  ERRORS  WERE  OCCURRING  DUE  TO  INTERRRUPT 
SERVICE  NOT  SAVING  AND  RESTOREING  P.^OGRA"^  STATUS  CCRRECTLY 
THE  PROGRAM  WOULD  ALSO  TRY  TO  RESTART  THE  CURRENT  TEST  WHICH 
WAS  IMPOSSIBLE  AT  THE  POINT  THE  ERROR  WAS  DETECTED. 

3.  ONCE  MANUAL  SEEKS  WERE  SELECTED  IN  OPERATOR  DATA  TEST  IT 
WAS  IMPOSSIBLE  TO  DESELECT. 

THIS  K'FSULTED  FROM  OVTSFG  FLAG  NOT  BEING  INITED  CORRECTLY 


A. 


5. 
6. 
7. 
8. 
9. 

10, 


SELECTING  A  DRIVE  FOR  TEST  WHICH  HAD  A  PACK  MOUNTED  THAT  WAS 
FOUND  TO  BE  OF  AN  UNKOWN  FORMAT  BY  THE  CONFIGURATOR  WOULD  RESULT 
IN  DRIVE  FMT  ERRORS  IF  RUNNING  ANY  TEST  BUT  FORMAT. 

THE  PROGRAM  WILL  NOW  DEFAULT  TO  10  FORMAT  PARA^.ETERS  TO 
AVOID  CAUSING  FORMAT  ERRORS  IF  THE  PACK  IS  KNOWN  TO  BE 
10  FORMATED  BY  THE  USER. 

IF  AN  RAE  ERROR  OCCURRED  DURING  A  REGISTER  READ  OPERATION 
THE  PROGRAM  WOULD  REPORT  THE  REGISTER  DATA  INCORRECTLY 

THE  ATTENTION  SUMMARY  REGISTER  DATA  AND  THE  CONI  STATUS  DATA 
WAS  ADDED  TO  THE  ATTENTION  INTERRUPT  ERROR  REPORTING  ROUTINE. 

A  PROBLEM  WAS  CORRECTED  THAT  DIDN'T  ALLOW  MONITOR  RETY  OR 
SYSERR  LOGGING  TO  BE  DISABLED  WHEN  RUNNING  IN  USER  MODE. 

INTERrJUPT  SERVICE  WAS  LOOSEING  ATTENTION  INTERRUPTS  IF  AN  ATA 
OCCURRED  FROM  A  NON  EXPECTED  SOURCE. 

IF  A  STUCK  ERROR  CONDTION  WAS  PRESENT  IN  A  TEST  DRIVE 

OR  CONTROLLER  UPON  INITIAL  LOAD  AND  START  OF  THE  DIAGNOSTIC 

IT  WOULD  RESULT  IN  A  PUSH  DOWN  LIST  OVERFLOW  ERROR 

THE  PROGRAM  WOULD  HANG  UP  IF  THE  FREEZE  SWITCH  WAS  SET  WHILE 
RUNNING  FRTEST. 


SEQ  00^^ 


11 


12. 

13. 
U. 


RETRY  SERVICE  (CHANNEL  SIX  INTERRUPT  SERVICE) 

A. AS  A  RESULT  OF  CALLING  RETRY  SERVICE  THE  PROGRAM  WOULD 
SOMETIMES  HANG  OR  EXECUTE  A  BLI  ON  ITSELF. 

B.IT  FAILc.^  TO  EXECUTE  THE  RETRY  ALGORITHM  CORRECTLY 
FOR  DATA  TRANSFfcH  OPERATIONS, 

C. WOULD  SOMETIMES  RESULT  IN  COMMAND  SEQUENCE  ERRORS 

D.IF  A  NONRECOVERABLE  ERROR  OCCURED  AND  THE  TEST  DRIVE 
WAS  UNLOADED  AND  DELETED  FROM  TESTING  RETRY  SERVICE 
FAILED  TO  DELETE  THE  QUE'D  COMMANDS  FOR  THE  DRIVE  WHICH 
RESULTED  IN  COMMAf^DS  BEING  EXECUTED  TO  AN  OFF-LINE  DRIVE. 

E. FAILED  TO  RETRY  POSITION  ERRORS  CORRECTLY 

F. Failed  to  update  the  hard  error  totals  correctly 

G. FAILED  to  WAIT  LONG  ENOUGH  WHEN  EXECUTING  A  RECAL 
command  WHICH  RESULTED  IN  RETRY  COMMAND  TIME  OUT 
MESSAGE. 

FALSE  RAE  ERRORS  OCCURED  WHEN  RUNNING  SEEK  TEST  DUE 

TO  INTERRUPT  SERVICE  NUT  SAVING  THE  LAST  REGISTER  SELECTED 

BY  THE  MAINLINE  CODE  CORRECIlY. 

CPU  DETECTED  PARITY  ERRORS  WERE  NOT  BEING  REPORTED  CORRECTLY 
ON  KA'S/KI'S  OR  KL10': 

FOUND  NUMEROUS  PROBLEMS  CAUSING  FALSE  DATA  COMPARE  ERRORS  IN 


FrjEST  AND  STEST 


\ 


SEQ  0015 


n 


UPDATE  VERSION  MD-10-DDRPI-C   VER:    0.3 

PRODUCT  NAME  RH10/RH20  -  RP04/05/06  -  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:  AUGUST  1776 

UPDATE  AUTHOR:  B.WALSH 


SEQ  0016 


DDRPI  WAS  UPDATED  TO  CORRECT  THE  FOLLOWING  PROBLEMS: 
1. 


2. 


THE  PROGRAM  HUNG  UP  WHILE  RUNNING  "RCTEST"  ON  TWO  RPOA'S 
CONNECTED  TO  A  SINGLE  RHIO.THE  CPU  WAS  A  KI10  WITH  256IC 
OF  MEMORY. 

THE  RELIABILITY  PASS  COUNT  FOR  "INTTST"  WAS  TO  LARGE. 


UPDATE  VERSION:  MD-10-DDRPI-D   VER:    0.4 

PRODUCT  NAME:   RH20/RH10  -  RP04/05/06  -  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:   MAY  1977 

UPDATE  AUTHOR:  B.WALSH 


DDRPI  WAS  UPDATED  TO  CORRECT  THE  FOLLOWING  PROBLEMS: 
1. 


2. 
3. 

4. 
5. 

6. 


THE  PROGRAM  D!DN'T  SUPPORT  TESTING  OF  RH20'S  IN  USER  MODE 
UNDER  A  TOPS-10  MONITOR  FOR  1090  SYSTEMS. 

THE  PROGRAM  FAII  £D  TO  INITIALIZE  CORRECTLY  IF  BOTH  RHIO  AND 
RH20  CON  ROLLEPj  WHERE  DETECTED  WHILE  RUNNING  IN  EXEC  MODE  . 

CORRECTED  A  PROBLEM  WHICH  WOULD  CAUSE  GARBAGE  TO  BE  PRINTED 
UPON  DETECTING  AN  ERROR  IN  USER  MODE  WITH  A  TOPS-10  MONITOR 
VERSION  6.01  OR  EARLIER  . 

CORRECTED  A  PROBLEM  WHICH  CAUSED  THE  PROGRAM  TO  HANG  WHILE 
EXECUTING  A  RETRY  OF  A  "HCE"  ERROR  ON  A  DECSYSTEM  -  20  . 

FIXED  A  PROBLEM  THAT  COULD  CAUSE  THE  PROGRAM  TO  HANG  WHILE 
RUNNING  ON  A  KLIO  .  THE  HANG  CONDITION  WOULD  OCCUR  WHEN  THE 
PROGRAM  ATTEMPTED  TO  PRINT  FROM  MULTIABLE  LEVELS  . 

REDESIGNED  PTIME  FCT  KLIO  CPU'S  TO  PROVIDE  A  MORE  ACCURATE 
SEEK  MEASUREMENT  .  THE  PREVIOUS  VERSION  WOULD  RESULT  IN  GROSSLY 
INACCURATE  TIMES  I^  RH  CONTROLLER  540  WAS  NON  -  EXISTANT  . 


7. 

8. 

9. 
10. 


11. 


12. 
13. 


U. 


CORRECTED  NUMEROUS  BUGS  IN  CHAN  5  INTERRUPT  SERVICE  THAT 
OCCURED  WHEN  A  DRIVE  POWERED  DOWN  OR  WENT  OFF-LINE  DURING  A 
DATA  TRANSFER  OR  POSITIONING  COmAND  . 

REDESIGNED  CHAN  6  INTERRUPT  SERVICE  TO  REPORT  THE  RECOVERY 
OF  nULTIABLE  ERRORS  WITHIN  A  SINGLE  TRANSFER  CORRECTLY  AND 
TO  RETRY  THE  TRANSFER  COMPLETELY. 

FIXED  A  BUG  IN  THE  MAPOUT  ROUTINE  WHICH  CAUSED  THE  "BAT  BLOCKS" 
TO  BE  WRITTEN  INCORRECTLY. 

FIXED  A  PROBLEM  THAT  WOULD  OCCUR  IF  A  riSS  POSITIONING  OR 
SEEK  ERROR  OCCURED  .  CONTINOUS  ERRORS  WOULD  OCCUR  SINCE  THE 
THE  PROGRAM  FAILED  TO  EXECUTE  A  RECAL  BEFORE  RETRYING  THE 
COMMAND  . 

UPDATED  TOPS  -  20  USER  MODE  CODE  TO  SUPPORT  TESTING  OF 
MULTIABLE  STRUCTURES  UNDER  TOPS  -  20  MONITOR  VER  2  . 
ALSO  ADDED  THE  CAPABILITY  FOR  THE  DIAGNOSTIC  TO  DO  WRITE 
DATA  TRANSFERS  . 

FIXED  A  BUG  IN  THE  TOPS  20  CODE  THAT  CAUSED  THE  INHIBITING 
OF  MONITOR  RETRY  OR  SYSERR  LOGING  TO  BE  IGNORED. 

REDESIGNED  TOPS  -  10  READ  RETRY  SERVICE  TO  DISECT  A  DATA 
TRANSFER  INTO  ONE  SECTOR  TRANSFERS  WITH  MONITOR  RETRY  ENABLED. 
THIS  WAS  NECESSARY  TO  MAP  AND  RECORD  ANY  BAD  SPOTS  DETECTED  IN 
USER  MODE  CORRECTLY  . 

ADDED  A  TEST  SCRIPT  "PAKINT"  TO  PROVIDE  A  SIMPLIF:ED  METHOD 
OF  FORMATING  .   MAPPING  AND  CREATION  OF  THE  BAT  BLOCKS  FOR 
RP0A/05/06  DISK  PACKS.  THE  SCRIPT  CAN  BE  EXECUTED  IN  USER 
UNDER  TOPS  10  AND  IN  EXEC  MODE  FOR  ALL  CPU'S  . 


%l^   0017 
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SEQ  0018 


UPDATE  VERSION:  MD-10-DDRPI-F   VER    0,6 

PRODUCT  NAME:   RH20/RH10  -  RP04/05/06  -  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:   MAY  1978 

UPDATE  AUTHOR:  F.  GATULIS,  8.  SCORZELLI,  LARRY  ROGERS,  JOHN  KIRCHOFF 

THE  FOLLOWING  UPDATES  WERE  MADE  FOR  THIS  RELEASE  OF  THE  PROGRAM: 


COMENT 
1. 


2. 


3. 


4. 


5. 


6. 


7. 


VERSION  0.5  WAS  NEVER  OFFICIALLY  RELEASED 

"NEXTST"  (THE  READ  AFTER  WRITE  USING  BACKUP  COMMANDS  WITH  RH20) 
WAS  MADE  TO  WORK  CORRECTLY.  PRIOR  TO  THIS  RELEASE  IT  WAS  NOT 
ABLE  TO  DETECT  WETHER  OR  NOT  THE  BACKUP  COMMAND  TAKES  AN  EXTRA 
REVOLUTION  OF  THE  DISK.  THIS  IS  EXTREMELY  IMPORTANT  TO  KNOW 
BECAUSE  IF  THE  HARDWARE  CANNOT  ACCOMODATE  BACKUP  COMMANDS, 
THE  TOPS20  OPTMIZATION  WILL  BE  SERIOUSLY  DEGRADED.  THIS  REWRITE 
OF  '^lEXTST"  WAS  ALSO  NECESSARY  BECAUSE  WITHOUT  IT,  THE  PROGRAM 
WOULD  HANG  IF  YOU  RUN  ON  AN  RH20  THAT  HAS  ECO  #11  INSTALLED. 
(THIS  IS  THE  ECO  FOR  THE  BACK  UP  REGISTER  DONE  LOGIC).  THIS 
VERSION  OF  '^^EXTST'^  WILL  RUN  WETHER  OR  NOT  YOUR  RH20  HAS  THE 
#11  ECO  INSTALLED. 

:iODIFIED  A  COUPLE  OF  PRINT  ROUTINES.  MERELY  TOOK  OUT  SOME 
CRLF'S  TO  SHORTEN  UP  THE  PRINTOUT.  NO  EFFECT  ON  PERFORMANCE. 

FIXED  THE  FOLLOWING  BUG.  -  THERE  WERE  MANY  TIMES  A  CHANNEL 
ERROR  WOULD  OCCUR  AND  NEITHER  THE  LOGOUT  DATA  OR  THE  COMMAND 
LIST  WAS  PRINTED.  BOTH  THE  LOGOUT  AREA  AND  THE  COMMAND  LIST 
NOW  GETS  PRINTED.  THIS  MERELY  GIVES  YOU  MORE  USEFUL  DATA 
FOR  TROUBLESHOOTING. 

BILL  SCORZELLI  ADDED  ALL  THE  CHANGES  THAT  BILL  WALSH  MARKED 
UP  IN  THE  LISTING  BEFORE  HE  LEFT.  ALSO  FIXED  THE  PROBLEM 
WITH  •'PTIMES"  WHEN  USING  A  KLIO  WITH  RHIO'S. 

MADE  SEVERAL  CHANGES  TO  TRACK  DELETE/BAT  BLOCK  PROCESSING 
WHICH  HAVE  EXISTED  SINCE  REV.  1 

FIXED  A  BUG  IN  "PTIME"  TO  SOLVE  AN  UNKNOWN  INTERRUPT  PROBLEM 
DUE  TO  THE  WAY  SUBROUTINE  PACKAGE  SHUTS  OF  THE  DK20. 

FIXhD  A  BUG  IN  "SEQGEN"  THAT  WOULD  CAUSE  A  FATAL  IF  YOU 
SELECT  A  NON-EXISTANT  SCRIPT. 


♦♦**•*♦♦♦***♦♦*♦**♦•*■**♦•♦*♦♦•**♦**•*****♦**♦*••*•*•*••*•**•**•* t ♦**••*•* 


SEQ  00'' 9 


UPDATE  VERSION:  MD-10-DDRPI-G       VER  0.7 

PRODUCT  NAME:       RH20/RH10  -  RP04/05/06  -  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:       JULY  1979 

UPDATE  AUTHOR:  BILL  SCORZELLI 

THE  FOLLOWING  UPDATES  WERE  MADE  FOR  THIS  RELEASE  OF  THE  PROGRAM: 


1. 


2. 


3. 


4. 


FIXED  A  BUG  IN  ECC  CORRECTION  CODE  THAT  WOULD  CAUSE  THE 
PROGRAM  TO  MIS-CORRECT  ECC  ERRORS  IF  THEY  OCCUR  IN  THE 
LAST  11  BITS  OF  THE  DATA  FIELD.   SOME  OF  THE  ECC  ERROR 
REPORTS  WERE  ALSO  INACCURATE  AND  WERE  FIXED. 

CHANGED  THE  PROGRAM  SO  IT  WILL  NO  LONGER  DO  VECTORED 
INTERRUPTS  ON  MODEL  'B"  MACHINES  THAT  HAVE  RHIO'S. 
REASON:  MODEL  'B"  MICROCODE  DOES  NOT  HANDLE  THE  SECTION 
BITS  OF  THE  PC  CORRECTLY  AND  THE  PROGRAM  WILL  EVENTUALLY 
FATAL  OUT.  THIS  CHANGE  WAS  MADE  FROM  MANY  REQUESTS  FROM  THE 
FIELD.   THE  MODEL  'B"  MICROCODE   IS  APPARENTLY  NOT  GOING 
TO  BE  FIXED  AND  THIS  PROGRAM  IS  THE  ONLY  ONE  THAT  USES 
KI  STYLE  INTERRUPTS  ON  MODEL  'B"  MACHINES.  THE  FIX  WAS 
AT  LOCATION  "SETVEC". 

FIXED  AN  ECC  MISCORRECTION  PROBLEM  IN  16-BIT  MODE. 
PROGRAM  WAS  CORRECTING  THE  WRONG  DATA  BY  MAKING  A  4  BIT 
ERROR  IN  THE  POSITION  CALCULATION. 

CHANGED  RP06  SOFT  ERROR  LIMIT  FROM  20  TO  30.   FIXES 
AIDS  REPORT  /|fCC0000178  OR  BB-1 U7. 


***t***«*«*«***«*«*t«t**««******i^*  ********************  t********tt*tt*«r«r** 


UPDATE  VERSION:  MD-10-DDRPI-H   VER  0.10 

PRODUCT  NAME:   RH20/RH10  -  RPOA/05/06  -  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:   JULY  1980 

UPDATE  AUTHOR:  WILLIAM  KEEFE 

REASONS  FOR  UPDATE: 

1. CORRECTED  A  PROBLEM  WITH  "PTIME"  WHEN  RUNIN6  ON  AN  RHIO.  THE  LAST 
UPDATE  TO  THE  PROGRAM  TURNED  OFF  VECTORED  INTERRUPTS  ON  RHIO'S  ON  KL 
SYSTEMS.  THIS  CAUSED  A  PROBLEM  BECAUSE  THE  TIME  BASE  METER  WAS  NEVER  READ, 
INSERTED  2  INSTRUCTIONS  IN  THE  CHANNEL  4  KA  TYPE  INTERRUPT  SERVICE  TO 
READ  THE  METER  WHEN  DOING  KA  TYPE  INTERRUPTS  ON  KL  SYSTEMS. 

2. CHANGED  THE  NUMBER  OF  LINES  FOR  PRINTOUT  TO  ^DIOOOOO. 

3. CHANGED  QUESTIONS  AT  THE  BEGINNING  OF  THE  PAKINT  SCRIPT  TO  BE  FORCED 
TO  THE  CTY. 

♦♦♦♦♦THIS  CLOSES  AIDS  REPORT  #CC0000739.^^^^^ 

4. WHEN  RUNNING  ON  A  PACK  WHICH  HAD  'BAT"  BLOCK  ENTRIES.  THE  PROGRAM 
WOULD  MISALLOCATE  ITS  BUFFER  SPACE.  SOMETIMES  DESTROYING  THE  DRIVE 
PARAMTER  TABLE  OF  THE  NEXT  DRIVE  IN  THE  CONFIGURATION.  THIS  SHOWED  UP 
WHEN  RUNNING  "DEL:rE"  TEST  AND  THE  PROGRAM  WOULD  NOT  ACCEPT  ANY  NUMBER 
OTHER  THAN  ZERO  TO  THE  'WHAT  CYL  ?'  QUESTION  AS  WELL  AS  DELETING  SPECIFIC 
AREAS  ONLY  TO  HAVE  THEM  SHOW  UP  AS  FAILURES. 

♦♦♦♦♦♦♦  THIS  CLOSES  AIDS  PROBLEM  REPORTS  #BB  1216  (CC-66) 


SEQ  0020 


IttltitH'k 


I* 


»i 


*i 


*i 


i  I 


CC  0067 


(WHICH  HAvr  BEEN  OUTSTANDING  AGAINST  THIS  DIAGNOSTIC  FOR  OVER  2  YEARS) 

5. FOUND  A  BUG  IN  "SELECT"  ROUTINE.  AFTER  CHECKING  TO  SEE  IF  AN  AREA  HAD  BEEN 
DELETED.  THE  PROGRAM  WOULD  TEST  IT  IF  THE  SEQADR  SWITCH  WAS  NOT  SET.  CHANGED 
ROUTINE  TO  ALWAYS  GET  THE  NEXT  ADDRESS  FOR  TESTING  (JRST  ADRSEL).  IF  THE  AREA 
IT  LAST  CHECKED  WAS  DELETED. 

6. ADDED  AN  "AOS  0"  AT  BLKL4Ft5.  TO  CORRECT  BAT  BLK  COUNTER  PRINTOUT.  ALSO- 
DELETED  SOME  EXTRA  LINE  FEEDS.  TO  CONDENSE  THE  PRINTOUT  WHEN  REPORTING  THE 
BAT  BLK  CONTENTS. 

/.MANUFACTURING  WAS  EXPERIENCING  PROBLEMS  WHERE  DDRPI  WOULD  RUN  FOR  3-4  HRS. 
AND  THEN  H^NG.  THIS  OCCURED  MAINLY  ON  SYSTEMS  WITH  MULTIPLE  RH20'S.  ADDED  CODE 
IN  SEVERAL  .ROUTINES  TO  SAVE  AND  RESTORE  THE  AC'S  UPON  EXITING.  THE  PROGRAM  THEN 
RAN  ON  SEVERAL  2060  SYSTEMS  FOR  EXTENDED  PERIODS  OF  TIME  (48^  HOURS). 
8. CHANGED  *^^TST2"  TO  NOT  FORCE  THE  DISK  TO  SPIRAL  ITS  DATA  TRANSFERS  FROM 
ONE  SURFACE  TO  THE  NEXT.  THIS  TESTING  WAS  REDUNDENT  AS  WELL  AS  SLOWING  DOWN 
THE  PROGRAM  AND  ALSO  CAUSED  THE  ROUTINE  "DELCHK"  TO  NOT  WORK  PROPERLY.  BECAUSE 
THE  TEST  WOULD  CHANGE  THE  STARTING  SECTOR  OF  THE  TRANSFER  AFTER  HAVING  DONE 
THE  CHECK  FOR  DELETED  AREAS. 

9. THE  PROGRAM  WAS  GETTING  ERROR  MUUO'S  WHEN  THERE  WERE  5  OR  MORE  RH20*S 
ON  THE  SYSTEM.  ADDED  2  INSRUCTIONS  AT  "STCHNHV*  TO  CHECK  FOR  VALID  CHANNEL 
PARAMETERS.  TO  MAKE  SURE  THE  CHANNEL  EXISTS.  BEFORE  ISSUING  A  CONO  TO 
CLEAR  THE  CHANNELS. 


UPDATE  VERSION:  MD-10-DDRP1-I   VER  0.11 

PRODUCT  NAME:   RH20/RH10  -  RPOA/05/06  -  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:   MARCH  1981 

UPDATE  AUTHOR:  RICK  JEVON 

REASONS  FOR  UPDATE: 

CHANGED  LOCK  UUO  ARG  TO  ALLOW  USER  MODE  LOCKING  TO  WORK 
WITH  7.01  MONITOR  AND  LATER. 

UPDATE  VERSION:  MD-10-DDRPI-J   VER  0.12 

PRODUCT  NAME:   RH20/RH10  -  RP04/05/06  •  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:   DECEMBER  1981 

UPDATE  AUTHOR:  RJCK  JEVON 

REASONS  FOR  UPDATE: 

CORRECTED  PAGE  FAIL  PROBLEM  WHEN  NO  RH20  WAS  IN  RH  540. 
ADDED  CODE  TO  TEST  FOR  AND  SKIP  OVER  KLIPA. 

UPDATE  VERSION:  MD-10-DDRPI-K   VER  0.13 

PRODUCT  NAME:   RH20/RH10  -  RPOA/05/06  -  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:   JAN  1985 

UPDATE  AUTHOR:  BILL  SCOZELLI 

REASONS  FOR  UPDATE: 

UPDATED  TOPS10  USERMODE  CODE  TO  WORK  WITH  T0PS10 
VER  7.02. 


SEQ  0021 


1 


UPDATE  VERSION:  MD-10-DDRPI-L   VER  O.U 

PRODUCT  NAME:   KH20/RH10  -  RP04/05/06  -  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:   April  1985 

UPDATE  AUTHOR:  Gregory  A.  Scott 

REASONS  FOR  UPDATE: 

In  TOPS-10  user  mode,  job  was  locked  in  core  with  cache  turned 
off,  fixed  by  changing  XLOKBT  to  17  from  3,, 3  (DDRPIT).  This 
allows  cache  on,  and  lights  a  bit  so  physical  contiguity  is 
not  required.  Cache  is  not  enabled  if  RHiOs  are  used. 

If  SEKTST  selected  in  TOPS-20  user  mode,  you  got  lots  of 
messages  insisting  that  TOPS-20  doesn't  support  position 
commands.  Also,  tne  SEEK  UUO  is  a  slow  no-op  in  7.02  and 
later  TOPS-10  monitors.  So,  SEKTST  has  been  made  to  return 
immediately  in  user  mode  if  monitor  is  TOPS-10  7.02  or  greater 
or  TOPS-20. 

Reenabled  RCTEST  in  user  mode.  The  seeks  and  searches  are  a 
no-op,  but  execution  of  this  test  is  still  useful. 

Several  labels  were  added  to  make  the  CREF  listing  more  useful 
and  avoid  dangerous  GO  or  JRST  to  LABEL-n.  Only  the  "worst  ' 
ones  were  changed. 

TOPS-10  user  mode  changes:  Removed  check  for  PPN  [AGO, 570]  at 
USTRT,  fixed  confused  code  at  USTM1A'«-5.  Fixed  erroneous  help 
message  at  USTn5H,  USTn7H,  USRSTR.  Fixed  bad  error  message  at 
UCMDX?>2. 

Added  time  of  day  and  system  name/version  output  if  TOPS-20  at 
UT20A,  generally  cleaned  up  this  area. 

If  TOPS-10  user  mode  and  DSKCHR  error  "pack  not  mounted",  the 
Question  at  STRE3A  smashed  the  rest  of  the  input  line. 
instead,  just  tell  me  if  the  unit  is  offline  or  online  but 
pack  not  mounted.  If  its  online  but  pack  not  mounted,  its 
probably  because  a  scratch  pack's  HOn/BAT  blocks  have  been 
smashed,  which  is  quite  reasonable. 

Elapsed  time  output  was  wrong  in  user  mode.  Switched  to  TIMEX 
on  TOPS-20,  6ETTAB  XNSUPT  on  TOPS-10  to  print  proper  elapsed 
time. 

Removed  "support"  (and  question  concerning)  TOPS-20  version  1, 
which  had  to  do  with  the  implementation  of  the  physical  I/O 
bit  in  DSKOP.  Also  replaced  SLEEP  UUO  with  DISMSX  JSYS.  And, 
at  URDER2-7  a  GETMWD  macro  was  used  to  get  TOPS-10  monitor 
soft  error  coun*"  before  a  test  for  TOPS-20. 


SEQ  Q022 


Changed  R10SER  to  print  drive  serial  numbers  as  decimal  rather 
than  4  BCD  digits.  This  is  the  format  now  used  in  all  TOPS-20 
messages. 

In  TOPS-20  user  mode,  a  USRIO  JSYS  was  used  before  each  DSKOP 
JSYS,  slowing  everythinq  down.  Since  this  is  not  needed  under 
any  TOPS-20  monitor  it  nas  been  removed. 

Reworked  user  mode  startup  dialog  for  TOPS-20  so  that  it 
doesn't  jump  all  over  the  place.  Also  in  TOPS-20  user  mode- 
ask  for  additional  drives  to  test  when  starting  up«  and  check 
for  illegal  mixture  of  RH10  and  RH20  drives. 

Changed  the  RH10  bit  assignments  to  not  typeout  in  DDT  (e.g.  a 
'T10VE  1,3"  would  type  out  as  "CBFULL  1,3"). 

Improved  documentation.  Improved  help  text  b)f  saying  which 
tests  are  illegal  in  L^er  mode  and  !d  instruction  for  typing 
"H"  for  help. 

Print  runtime  at  end  of  TOTAL,  PAKINT,  and  ACCEPT  scripts. 

DDRPI  got  confused  under  TOPS-10  if  you  specified  a  HSC50 
based  drive.  Solution  was  to  move  controller  check  further  up 
in  the  code.  Cleaned  up  drive  type  logic  in  TOPS-10  user 
mode  around  USTRT6. 

DDRPI  was  printino  Q  ^al  block  numbers  (LBNs)  in  decimal  and 
cyl/surf/sect  numSer^  i  octal ^  but  SPEAR  was  prints  LBNs  in 
octal  and  cyl/surf/sect  in  decimal.  So  both  in  user  and  exec 
mode  print  the  LBNs  in  both,  "octal  (decimal.)".  Also  the 
user  mode  code  has  been  enhanced  to  print  the  transfer  size. 

Spurious  read/write  errors  under  TOPS-20  user  mode  code. 
:0PS-20  doesn't  let  you  use  the  maintenance  cylinders  with 
DSKOP.  so  now  we  use  ^00  cylinders  for  ^n  RP04/05  and  800  for 
an  RP06.  Also  DSKOP  doesn't  let  you  make  a  transfer  that 
spans  sectors,  so  have  RPARAfI  check  this  and  generate  another 
pattern  if  so. 

TOPS-10  user  mode  didn't  make  you  select  one  CPU  to  run  in  on 
a  multiple  CPU  system.  Now  a  question  is  asked  in  the  startup 
dialog. 

In  routine  SEOGEN,  the  only  old  script  you  could  select  was 
TOTmL,  because  of  a  flaw  in  the  way  the  table  was  searched. 


SEQ  0023 


*******«*#***«** t**t**i^t*ttt*«*****t*************t**t******t****«**t****t 


UPDATE  VERSION:  MAINOEC-10-DDRPI-M  Version  0.15 

PRODUCT  NAME:   RH20/RH10  -  RP04/05/06  -  RELIABILITY  DIAGNOSTIC 

RELEASE  DATE:   August  28,  1985 

UPDATE  AUTHOR:  Gregory  A.  Scott 

REASONS  FOR  UPDATE: 

Clairify  help  text  for  switches. 

After  a  drive  exception  the  CHNTST  routine  was  trying 

to  do  a  PEEK  UUO.  This  was  broken  by  version  0.13, 

where  the  GETMUD  macro  was  added.  It  has  been  fixed 

at  CHNTA't'l.  Also  fixed  other  occurances  of  bad  usage 

of  GETMWD  at  CCMDER-2  and  at  CMDSEU4.  TOPS-20,  TOPS-10,  and 

EXEC  ir.OQe,  QAR  889009. 

C levered  up  UT20DD  area  to  do  MSTR  JSYS  to  get  unit 
type  and  availability.  This  avoids  using  units  that 
are  mounted  and  you  no  longer  have  to  specify  the 
drive  type  when  selecting  a  drive.  TOPS-20  user  mode 
only,  QAR  889010. 


SEQ  002^ 


mmmim 


DDRPl  -  RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  MCNVER' . 'DECVER  >DOC  VER  00.25   28-AUG-85  15:56:28   PAGE  1 


SEQ  0025 


DOCUMENT 
DDRPI  -  RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  MCNVCR* . 'DECVER  > 


COPYRIGHT  1985 

DIGITAL  EQUIPMENT  CORPORATION 

MAYNARD,  MASS.  01754 


^ _ _,--- — . — — --^ 

1 
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SEQ  0026 


table  of  contents 

53  ddrpi  -  program  parameters 

573  general  massbus  device  definition  file 

598  rh20  bit  definitions 

720  rh10  bit  definitions 

848  massbuss  device  bit  assignments 

1221  *param*  console  data  suitch  assignments,  sept  18j979 

1256  ♦param*  program/subroutine  parameters,  sept  18j979 

1462  error  handling  uuo  definitions,  sept  18,1979 

1500  ♦fixed*  fixed  control  and  dispatch  stopage,  sept  18,1979 

1831  reliability  initialization  -  special  restart  &  ddt  entrance 

1882  main  reliability  initialization  section 

2157  read  data  test  -  ronly  (test  /tl) 

2204  write  data  test  -  wonly  (test  #2) 

2257  Selectable  write/read  data  test  -  opdtst  (test  #3) 

2561  surface  test  -  stest  (test  ^4) 

2743  mechanical  positioning  test  -  sektst  (test  #5) 

3132   track  interaction  test  -  inttst  (test  #6) 

3439  fajt  random  disk  address  data  transfer  test  -  frtest  (test  #7) 

3631   rormatter  &  verifier  for  either  16  or  18  bit  mode  -  format  (test  #10) 

41 5u   test  script  genefiator  and/or  executor  -  seqgen 

4385   test  execution  (no  opr  intervention)  -  total  (test  #0) 

4467  acceptance  script  list  -  accept  (test  #12) 
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TABLE  OF   CONTENTS 

4579  PAKINT     PACK  INITIALIZE  SCRIPT 

4636  READ  NEXT-WRITE  NEXT  TEST  -  NEXTST   (TEST  *13) 

4900  DISK  MECHANICAL  TIMING  TEST  -  PTIME   (TEST  #14) 

5425  PTIME  SUBROUTINES 

5651  RANDOM  COMMAND   TEST  -  RCTEST    (TEST  *15) 

5741  HARD  DATA  ERROR  SPOT   IDENTIFIER  -  MAPOUT 

6292  SYSTEM  DATA  ANALYSIS  -  TOTPNT 

6744  TEST  INPUT  PARAMETER  ROUTINES 

6800  SPECIAL  PROGRAM  SETUP  -  INIT 

8067  RH10/RH20  RP04/05/06  MASSBUS   CONFIGURATOR 

8942  ROUTINE   TO  CALIBRATE   THE  SYSTEM  CLOCK 

9023  MASSBUS  CONFIGURATION  PRINTER/REPORTER 

9757  "SCNTBL"  ENTRY  PROCESSOR  FOR  A  WRITE/READ  ENTRY 

9871  PcA'DING  DATA  COMPARE   CHECKER 

9922  WRITE/READ  TRANSFER  ALLOCATOR 

10039  DATA  TRANSFER  UUO  SUPPORTING  ROUTINES 

10083  PROGRAM  RUN  TIME  PRINTER 

10155  READ/WRITE  &  COMPARE  BUFFER  RECLAIMER 

10216  'BUFMAP"  TABLE  BIT  SETTER  FOR  MEMORY  MANAGEMENT 

102/4  "SCNTBL"  ENTRY  PROCtSSOR  FOR  MATCHING  ENTRYS 

10337  MEMORY   TEST  BUFFER  ALLOCATOR 

10447  USER  CORE  EXPANSION  ROUTINE 


SEQ  Q027 


-  -Jf-.-rM^yimlli  Wlj- 


ODRPI  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  MCNVER' .'DECVER  >DOC  VER  00.25   28-AU6-85  15:56:28   PAGE  4 

TABLE  OF  CONTENTS 

10564  DATA  COMARE  ROUTINE  -  COMP 

10751  DATA  COMPARE  ERROR  REPORTER 

10900    DISK  LOGICAL  BLOCK  CALCULATOR 

10937    LOGICAL  BLOCK  NUMBER  CONVERTER 

10973  MASSBUSS  DEVICE  SELECTION  ROUTINE  -  SELECT 

11329  TEST  SETUP  PROCEEDURE  -  SETUP 

1U41    PACK  WRITE-PROTECTION/TRACK  DELETION 

11964    DISK  COMMAND  EXErUTOR 

13929    DISK  COMMAND  UUOS  (READ/URITE.  SEEK,  &  RECAL) 

14171  COMMAND  REGENERATOR 

14360  DISK  PARAMETER  CHECKER  ft  QUE  POINTER  SETUP 

14438  COMMAND-TO-DRIVE  DSB  STORAGE  FILLER  ROUTINE 

14552  PROGRAM  MANAGEMENT  FOR  I/O  AND  CLOCK  TIMERS 

14622  AU.^ITIONAL  PROGRAM  PRINTERS 

14768  DATA  PATTERN  GENERATOR 

14861  DATA  GENERATION  SUBROUTINES  -  BASIC 

14908  DATA  GENERATION  SUBROUTINES  -  ADVANCED 

14938  DATA  GENERATION  SUBROUTINES 

15229  RANDOM  PARAMETER  vJENERATOR 

154^6  CLOCK  INTERRUPT  SERVICE 

15481  COMMON  DEVICE  INTERRUPT  HANDLER  (ThANNFL  5) 

17458  POSITIONING  AND  DATA  ERROR  RECOVERY  -  RETRY  (CHANNEL  6  INTERRUPTS) 


SEQ  002S 


1 
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TABLE  OF  CONTENTS 
*********** t******* 

188^»A  ADDITIONAL  UNIDENTIFIED  UUO  ERROR  HANDLER 

18861  USER  INTERCEPT  ERROR  HANDLING 

18948  PROGRAM  CHECKSUWING  SUBROUTINE 

19025  UTILITY  SUBROUTINES  FOR  RELIABILITY  TESTING 

19046  CPU  PARITY  ERROR  SERVICE 

19262  Help  Texts 

19384  MASSBUS  CONTROLLER  UTILITY  PACKAGE 

19450  REGISTER  LOAD  AND  READ  ROUTINES 

19988  DATA  CHANNEL  SUBROUTINES 

k>^754  REGISTER  AND  CONI  PRINT  ROUTINES 

20951  REG-CONI  PRINTER  LOOKUP  TABLES 

21499  REGISTER  BYTE  INFORMATION  PRINTERS 

21741  BIT  PRINTER  ROUTINE  -TYPBIT- 

21834  Au.^ITIONAL  PRINT  UTILITIES 

22012  *STOR*  f^ESERVED  STORAGE,  SEPT  18,1979 

22033  STORE  FILE  FOR  DISK  PACK  RELIABILITY  TEST 


SEQ  0029 
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17  COPYRIGHT  (C)  1975,  1976,  1977.  1978,  1979,  1980,  1981,  1985 

DIGITAL  EQUIPMENT  CORP.,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY 
ON  A  SINGLE  CO(>IPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS 
SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  HAY  NOT  BE  PRO- 
VIDED OR  OTHERWISE  HADE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS.  TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MITMENT BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
OF  ITS  SOFTWARE  IN  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY 
DEC. 


PAGE  6 


SEQ  0030 


AUTHORS : 
UPDATE  AUTHOR: 
MAINTAINER: 


C.  CAMPBELL  ,  B.WALSH 
Gregory  A.  Scott 
36-BIT  DIAGNOSTICS 


53 


ASSEMBLE  AS  FOLLOWS* 

DDRPIT.MACDDRPII.MAC.PARAM.KLM, FIXED. KLM,DDRPI2. MAC, DDRPJ3. MAC, 

DDRPI4.MAC,ST0R.KLM,DDRPI5.MAC 

DDRPI.CTL  IS  THE  BATCH  CONTROL  FILE  FOR  THE  ASSEMBLY 

Du.-'PI  -  PROGRAM  PARAMETERS 

****tt«t***«*t******t«t**tttt***tt***t***tt*****t**t ************* 


47 


♦  ♦  ♦  *  MACRO  CALLS  *  *  *  * 
S      PRINTS  A  LINE  OF  ASTERISKS 


XLIST 
BOX 


PRINTS  A  LINE  OF  DASHES 


<TXTA>-<TXTB> 

1. PAGES  THE  LISTING 

2. PRINTS  TXTA  ENCLOSED  BY  ASTERISKS 

3. PRINTS  TXTB  AS  TEST  DOCUMENTATION 
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111     DEFINE  MACROS 

1U  BOX  MACRO:   TEXTAJEXTB 

122     TEXTA 

126     TEXTB 

136     TEXTA 

146     RBASE:  Random  number  generator  macro 

161  FATAL  BLOCK  PRINTER 

178  RANDOM  NUMBER  GENERATOR  DEFINITIONS 

193  DEVICE  RELATED  ASSEMBLY  SWITCHES 

202     NEW  SUBROUTINE  PACKAGE  ASSEMBLY  SWITCHES 

217     SOME  PROGRAM  ADDRESS  OPTIONS  AND  PARAMETERS 

240     SOME  ACCUMULATOR  DEFINITION 

264     PROGRAM  UUO  DEFINITIONS 

301     CSB  DEFINITIONS  -  CONTROLLED  STATUS  BUFFER  FOR  RH10 

335     DSB  DEFINITIONS  -  DRIVE  STATUS  BUFFER 

DRIVE  HARDWARE  REGISTERS 


573 


SEQ  0031 


GENERAL  MASSBUS  DEVICE  DEFINITION  FILE 


579 


THE  FOLLOWING  SWITCHES  DEFINE  THE  ASSEMBLY  OF  THIS  FILE. 
THEY  MUST  ALL  BE  DEFINED  IN  THE  PROGRAMS  TITLE  FILE.  ONLY 
ONE  TYPE  DEVICE  MAY  BE  DEFINED  AT  A  TIME. 


RS04== 
RPOX== 
TU16== 


9 


IFN-ASSEMBLE  RS04  DEFINITIONS 
IFN-ASSEMBLE  RPOX  DEFINITIONS 
IFN-ASSEMBLE  TU16  DEFINITIONS 


591 


MASSBUSS  DEVICE  DEFINITION  FILE  CONDITIONAL  ASSEMBLY  SWITCHES 
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SEQ  0032 


720 


RH20  BIT  DEFINITIONS 


601  DEVICE  CODE  FOR  THE  RH20 

615  RH20  CONO  BIT  ASSIGNMENTS 

630  RH20  CONI  BIT  ASSIGNMENTS 

651  DATAO-DATAI  FOR  THE  DRIVE  REGISTERS  (00-37) 

666  DATAO-DATAI  FOR     RH20  SECONDARY  BLOCK  ADDRESS  REGISTER   (70) 

675  DATAO-DATAI  FOR  RH20  PRIMARY  BLOCK  ADDRESS  REGISTER  (72) 

683  DATAO-DATAI  FOR  RH20  SECONDARY  TRANSFER  CONTROL  REGISTER  (71) 

695  DATAO-DATAI  FOR  RH20  PRIMARY  TRANSFER  REGISTER  (73) 

705  DATAO-DATAI  FOR  THE  RH20  INTERRUPT  VECTOR  REGISTER   (74) 

712  RH20    REGISTER  ASSIGNMENTS 

RH10  BIT  DEFINITIONS 

723  DEVICE  CODE  FOR  THE  RH10 

734  RH10  CONO  BIT  ASSIGNMENTS 

752  RH10  CONI  BIT  ASSIGNMENTS 

781  RH10  DATAO-DATAI  00  -  37  BIT  ASSIGNMENTS   (DRIVE  INTERFACE  BUFFER) 

794  RH10  REGISTER  ASSIGNMENTS 

804  RH10  DATAO-DATAI   54  BIT  ASSIGNMENTS   (REGISTER  ACCESS  ERROR  STATUS) 

817  RH10  DATAO-DATAI  44  BIT  ASSIGNMENTS   (INTERRUPT  ADDRESS  REG) 

825  RH10  DATAO-DATAI   50  BIT  ASSIGNMENTS   (DATA  BUFFER  REG) 

837  RHIO  DATAO-DATAI  40  BIT  ASSIGNMENTS   (CONTROL  REGISTER) 


■mmHi 
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SEQ  0033 


1221 


***t**«ti^********************** *************** ttt«t #*•••****••••• 

MASSBUSS  DEVICE  BIT  ASSIGNMENTS 

***************************************************************** 


851  MASSBUSS  DEVICE  REGISTER  P'T  ASSIGNMENTS   (REGISTERS  00-17) 

875  MASSBUSS  DEVICE  CONTROL  REGISTER  BIT  ASSIGNMENTS  (DRCR  REG-00) 

915  MASSBUSS  DEVICE  STATUS  REGISTER  BIT  ASSIGNMENTS  (DRSR  REG-01) 

955  BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  ERROR  REGISTER  #1    (DRERl   REG-02) 

99A  BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  MAINT  REGISTER   (DRMR  REG-03) 

1023  BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  ATTENTION  SUMMARY  REGISTER  (DRAS  REG-OA) 

1039  BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICES  DESIRED  TRACK  SECTOR  REGISTER  (DRDTS  REG-05) 

1117  BIT  ASSIGNMENTS  FOR  THE  MASSBUSS  DEVICE  DRIVE  OFFSET  REGISTER   (DROFF  REG-11) 

1139  BIT  ASSIGNMENTS  FOR  THE  MASSBUSS  DEVICE  DESIRED  CYLINDER  REGISTER   (DRDCY  RC6-12) 

11A5  BIT  ASSIGNMENTS  FOR  THE  MASSBUSS  DEVICE  CURRENT  CYLINDER  REGISTER  (DRCCY  REG-13) 

1155  BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  ERROR  REGISTER  #2  (DRER2  REG-K) 

1188  BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICES  ERROR  REGISTER  *3  (DRER3  REG-15) 

120A  BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  ECC  POSITION  REGISTER  (DREC1   REG-16) 

1213        BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  ECC  PATTERN  REG  (DREC2  RE6-17) 

***************************************************************** 
*PARAM*  CONSOLE  DATA  SWITCH  ASSIGNMENTS,  SEPT  18 J979 

**«t*t**t«*t****«**********************************i************* 

1226        DATA  SWITCHES   (READ  FROM  CONSOLE  IN  EXEC  MODE  OR  TYPED  IN  IN  USER  MODE) 
LEFT  HALF  SWITCHES  ARE  PRE-ASSIGNED  FOR  SUBROUTINE  PACKAGE  USE 
AND  CONTROL  LOOPING,  PRINTING   (TTY  OR  OTHER  DEVICE)   AND  MISC.   FUNCTIONS 


•-■4»^aw|wt^»<>iMi«>i<fcUiiw>iii*ii*<rlaiiiiiiariiMiiwa>>ii 
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1256        tPARAM*  PROGRAM/ SUBROUTINE  PARAMETERS,   SEPT  18J979 

1259        SPECIAL  SUBPROGRAM  LINKAGES 

1270         SPECIAL  SUBROUTINE  FATAL  HALTS 

USED  TO  REPORT  ERRORS  THAT  CAUSE  THE  SUBROUTINES  TO  BE  UNUSABLE 

1A62        ERROR  HANDLING  UUO  DEFINITIONS.  SEPT  18J979 

1500        ♦FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,  SEPT  18J979 

**«tt**t***************W**«r********ttt *************************** 

1831         RELIABILITY  INITIALIZATION  -  SPECIAL  RESTART  ft  DDT  ENTRANCE 

18A1         ENTDDT  -  DDT  ENTRY 

1854         SPCST  —  SPECIAL  FEATURE  START 

1882         MAIN  RELIABILITY  INITIALIZATION  SECTION 

1997  TTYSEL  —  TELETYPE  INPUT  TEST  SELECTION 

2ui2  STRTSW  —  RUN  SELECTED  TEST 

2092  SCRIPT  —  TEST  COMMAND  LIST 

2120  TSTGO  —  TEST  COMMAND  DISPATCH 

2157  READ  DATA  TEST  -  RONLY   (TEST  #1) 

2162  RONLY  —  READ  ONLY  TEST 

2166 

"RONLY"  IS  A  TEST  DESIGNED  TO  READ  ALL  AF.      >  OF  A  DISK 
PACK.     NO  DATA  COMPARISON  CAN  BE  MADE  ON  InE  DATA  READ 
BECAUSE  THE  TYPE  OF  DATA  STORED  ON  THE  PACK  IS  NOT 
KNOWN.     NO  'MHIW'  DATA  TRANSFERS  WILL  BE  ISSUED  DURING 
THIS  TEST   (I.E.  NO  DAMAGE  TO  THE  DATA  ON  THE  PACK  SHOULD 
OCCUR).     ANY  DECTECTED  DATA  ERRORS  WILL  BE  REPORTED  AND 
AN  ERROR  RECOVERY  WILL  BE  ISSUED.     ERRORS  CORRECTED  BY 
USING  THE  ECC  LOGIC  WILL  BE  REPORTED  WITH  BOTH  THE 
ORRIGINAL  DATA  AND  THE  CORRECT  DATA  GIVEN. 


ml^ttmmmmmiimti 


n 
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WONLY  —  WRITE  ONLY 


2257 


2561 


SEQ  0035 


WRITE  DATA  TEST  -  WONLY   (TEST  02) 


2209 

2213 

THIS  IS  A  DATA  TRANSFER  'lIRITE  ONLY"  TEST.     THIS  TEST 
WILL  WRITE  DATA  ON  ALL  UNPROTECTED  DISK  PACK  AREAS  AND 
DESTROY  ANY  PREVIOUS  DATA  ON  THE  PACK!     EITHER  HARDWARE 
OR  SOFTWARE   (BY  AN  OPERATOR  COMMAND)  WRITE  PROTECTION 
WILL  INHIBIT  A  DRIVE  FROM  BEING  SELECTED  TO  RUN  THIS 
TEST.     ANY  TYPE  OF  DATA  THAT  HAPPENS  TO  RESIDE  IN 
MEMORY  WILL  BE  USED  FOR  THIS  TEST... UNLESS  THE  OPERATOR 
REQUESTS  A  SPECIFIC  DATA  PATTERN  TO  BE  USED.     SETTING 
CONSOLE  SWITCH  'VARIAB"  WILL  ENABLE  THE  OPERATOR  TO 
SPECIFY  THE  DATA  PATTERN  iO  BE  USED. 

SELECTABLE  WRITE/READ  DATA  TEST  -  OPDTST  (TEST  #3) 

H1t1t1t1t*1t*1t*tt1ttt**titt1ft1t1Hitt1tHt*ti*1tt1ttt1ttt*1t1tt1t1ttt1titt*t1t1f1t1l1Hi1t1t1i1t1t 


2262 
2266 


OPDTST  —  OPERATOR  SELECTABLE  DATA  TEST 


THIS  TEST  ALLOWS  THE  OPERATOR  TO  SPECIFY  THE  TYPE  OF  DATA 
TO  BE  USED  FOR  WRITING  AND  READING  DATA  TO/FROM  THE  DRIVE 
PACK.     •'OPDTST"  WILL  SELECT  ALL  UN-PROTECTED  PACK  AREAS 
FOR  TESTING.  DATA  WILL  BE  WRITTEN.  READ.  AND  VERIFIED 
FOR  CORRECTNESS  ON  ALL  SELECTABLE  AREAS  ON  ALL  DRIVES. 

OPRVT  —  OPERATOR  VARIABLES  DATA  TEST 

THIS  SECTION  ALLOWS  THE  OPERATOR  TO  SELECT  TRANSFER  PARAMETERS 
SUCH  AS  DISK  ADDRESS.  DATA  PATTERN  TO  BE  USED.  ^ASS  ITERATION 
COUNT.  AND  DATA  TRAN^^R  SIZE. 

SURFACE  TEST  -  STEST  (TEST  #4) 


2:>}S 
2312 


2566 
2570 


STEST  —  SURFACE  TEST 


"STEST"  WILL  SELECT  ALL  UN-PROTECTED  PACK  AREAS  AND  WILL 
USE  SEVERAL  DIFFERENT  DATA  PATTERNS  TO  VERIFY  THAT  THE 
DISK  PACK  CAN  HOLD  DATA  OF  DIFFERENT  TYPES  -  RELIABLY. 
THE  DATA  WILL  BE  WRITTEN.  READ.  AND  VERIFIED  FOR  CORRECTNESS. 
DATA  PATTERNS  TO  BE  USED  FOR  THIS  TEST  ARE: 


i! 


FLOATING  ONES 
FLOATING  ZEROS 
ALTERNATE  BITS  PATTERN 


——tmlmmiimmt' 
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I 


RANDOM  DATA 

BINARY  UP-COUNT 

DISK  WORST  CASE  DATA 

CHANNEL  PATTERN  (DF10  TYPE  CHANNEL) 

CHANNEL  PARITY  (DF10) 


2736 


NODRIVE  —  ROUTINE  TO  REMOVE  AN  UN-TESTABLE  SELECTED  DRIVE 

Fr<OH  THE  TEST  LIST  THEN  RETURN  TO  THE  SELECT  ROUTINE 
CALLED. 


2743    MECHANICAL  POSITIONING  TEST  -  SEKTST  (TEST  05) 

***«****t*********t***********************t***«t*t *************** 


2748 
2752 


SEKTST  —  MECHANICAL  POSITIONING  TEST 


MECHANICAL  MOTION  RELIABILITY  TESTS 


1) 
2) 
3) 


ISSUE  A  RECALIBRATE  THEN  SEEK  TO  THE  MAX 
CYLINDER.  REPEAT  100.  TIMES 

SEEK  BETWEEN  CYLINDER  000  AND  CYLINDER  128. 
REPEAT  100.  TIMES 

ALL  1  CYLINDER  FORWARD  SEEKS  STARTING  AT  CYLINDER 
000  AND  ENDING  AT  MAX  CYLINDER.  FOLLOW  WITH  A 
REVERSE  1  CYLINDER  SEEK  TEST  STARTING  AT  THE  MAX 
CYLINDER  AND  ENDING  AT  CYLINDER  000. 
REPEAT  10.  TIMES 


4) 


5) 
6) 


7) 


INCREMENTAL  SEEKS  STARTING  AT  CYLINDER  000  (IE 
0  TO  1.  0  TO  2,  0  TO  3.  ETC.).  FOLLOW  WITH  AN 
INCREMENTAL  REVERSE  SEEK  SEQUENCE  STARTING  AT 
MAX  CYLINDER. 

RANDOM  SEEK  TEST  -  SEEK  TO  500.  RANDOM  CYLINDERS 
ON  THE  TEST  DRIVE. 

SERVO  HOISE   TEST.  SEEK  TO  A  REFERENCE  CYLINDER 
THEN  SEEK  TO  CYLINDERS  N^4,  N^l,  N^3,  N^2.  AND 
N^5.  REPEAT  THE  SEQUENCE  UNTIL  ALL  CYLINDERS 
HAVE  BEEN  REFERENCED. 

CYLINDER  DIFFERENCE  TEST  -  USING  CYLINDER  0  AS  A 
REFERENCE  AND  WITH  '>iCl"   SET  ISSUE  A  READ  HEADERS 
AND  DATA  COMMAND  TO  CYLINDER  N.  VERIFY  THE 
CYLINDER  POSITION  BY  CHECKING  THE  HEADER  DATA. 
REPEAT  UNTIL  ALL  CYLINDERS  HAVE  BEEN  CHECKED  BOTH 
IN  THE  FORWARD  AND  REVERSE  DIRECTIONS. 


SEQ  0036 
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SEQ  0037 

3132    TRACK  INTERACTION  TEST  -  INTTST  (TEST  #6) 

3137     INTTST  —  TRACK/DATA  INTERACTION  TEST 

3U1 

THIS  TEST  IS  DESIGNED  TO  TEST  FOR  TRACK  INTERACTION  FAILURES 
AT  THE  CYLINDERS  WHERE  THE  WRITE  CURRENT  IS  STEPPED. THE 
WRITE  CURRENT  IS  STEPPED  EVERY  100  OCTAL  CYLINDERS  FROM 
CYLINDER  ZERO  FOR  RP04/05'S  AND  EVERY  200  FOR  RP06*S. 

FIRST  SEEK  TO  THE  REFERENCE  CYLINDER  N  AND  WRITE  A  WORST 
CASE  DATA  PATTERN  ON  ALL  TRACKS  AT  REF  CYL,  REF  CYL-1,  AND 
REF  CYL^I.  THEN  READ/VERIFY  THE  DATA  ON  THOSE  TRACKS. 
THE  REFERENCE  CYLINDER  IS  THE  CYLINDER  WHERE  THE  WRITE 
CURRENT  IS  STEPPED. 

NEXT,  WRITE  A  PARITY  PATTERN  ON  ALL  TRACKS  OF  THE  REF  CYL 
AND  READ/VERIFY  THE  DATA.  60  BACK  AND  RE-VERIFY  THE  DATA 
ON  REF  CYL-1  AND  REF  CYL^I.  REPEAT  TEN  TIMES. 

REPEAT  THE  SEQUENCE  UNTIL  ALL  CURRENT  CHANGE  CYLINDERS 
HAVE  BEEN  REFERENCED. 

NEXT,  GET  A  REFERENCE  CYLINDER  AND  WRITE  A  PARITY  PATTERN 
ON  EITHER  SIDE  OF  IT  AND  VERIFY  THE  DATA.  RE-VERIFY  THAT 
THE  DATA  ON  THE  REFERENCE  CYLINDER  HAS  NOT  CHANGED.  REPEAT 
THE  SEQUENCE  UNTIL  ALL  CURRENT  CHANGE  CYLINDERS 
HAVE  BEEN  REFERENCED. 

PACK  DELETION/PROTECTION  IS  INHIBITED  DURING  THIS  TEST! 

3273    INTTKS  —  THIS  ROUTINE  WILL  UPDATE  THE  SURFACE  SELECTED  # 

3293    HISIDE  —  ROUTINE  TO  SELECT  A  REF  CYL^I  BY  ADDING  2  TO  THE 

SELECTED  CYL  #  IN  THE  DSKAD  ADDRESS 

3307    INSIDE  —  ROUTINE  TO  SELECT  A  REF  CYL  BY  ADDING  -1  TO  THE 

DSKAD  ADDRESS  CYLINDER  # 

3321    INTREF  —  ROUTINE  TO  SELECT  A  REF  CYL  FROM  THE  DEFINED  TABLE 

"INTTAB"  WHERE  REF  CYL  =  LH  OF  ENTRY  ^1 
RTN  ^1  IF  "DSKAD*^"  IS  BELOW  REF  CYLINDER 
RTN  ♦?  IF  AT  THE  END  OF  THE  TABLE 
RTN  ♦J  IF  "DSKAD"  POINTS  TO  THE  REF  CYL 

3379    INTADR  —  ROUTINE  TO  TEST  FOR  A  SELECTED  RANGE  OF  ADDRESSES 

SPECIFIED  BY  "INTTAB"  TABLE 

RTN  ♦I  IF  NOT  IN  RANGE  rDSKAD"  TOO  LOW  OR  HIGH) 
RTN  ♦J  IF  AT  THE  END  OF  THE  TABLE 
RTN  ♦J  IF  "DSKAD"  IS  IN  RANGE 
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3A21         LOSIDE  —  ROUTINE  TO  SELECT  A  REF  CYL-1   FROM  THE  "INTTAB" 

DEFINED  TABLE 

RTN  ^1    IF  AT  END  OF  TABLE 

RTN  +2   IF  REF   CYL-1  IS  FOUND 


PAGE  U 


3A39 


3631 


41 50 


SEQ  0038 


FAST  RANDOM  DISK  ADDRESS  DATA  TRANSFER  TEST  -  FRTEST   (TEST  »?) 


34AA 
3AA8 


FRTEST  —  FAST  RANDOM  PARAMETER  TRANSFER  TEST 

THIS  TEST  IS  DESIGNED  TO  RANDOMLY  SELECT  DISK  AREAS  FOR  RANDOM 
SELECTED  DATA  PATTERNS  TO  KEEP  THE  POSITIONER  IN  MAXIMUM  MOTION. 
DATA  TRANSFER  SIZE  CAN  BE  LIMITED  TO  ONE  SECTOR  IF  PROGRAM  SUITCH 
'^ONESEC"  IS  SET.   SETTING  THIS  SUITCH  WILL  KEEP  THE  POSITIONER  MOVING. 

FORMATTER  I  VERIFIER  FOR  EITHER  16  OR  18  BIT  MODE  -  FORMAT   (TEST  #10) 
*«*««t*******«**t *********************** t **«***«%«*«*******•«**** 


3626 
36A0 


FORMAT  —     DISK  PACK  FORMATTER/ VERIFIER 

THIS  ROUTINE  PROVIDES  FACILITIES  FOR  FORMATTING/VERIFYING 

DISK  PACKS  IN  EITHER  16  BIT  (PDP-11  MODE)  OR  18  BIT   (PDPD-10  MODE) 

FORMAT, 

OPTIONS  ALL  THE  OPERATOR  TO  PROCESS  ENTIRE  DISK  PACKS  OR  JUST  A 
SECTION  OF  A  DISK  PACK.   FORMATTING/VERIFYING  IS  DONE  ON  A  TRACK 
BY  TRACK  BASIS   (IE.  AN  INDIVIDUAL  SECTOR  CAN'T  BE  PROCESSED,    THE 
ENTIRE  TRACK  MUST  BE  PROCESSED). 

TEST  SCRIPT  GENERATOR  AND/OR  EXECUTOR  -  SEOGEN 


A155 
A159 


SEQGEN  —  THIS  IS  A  TEST  SCRIPT  GENERATOR 


SEQGEN  IS  CAPABLE  OF  CREATING  A  TEST  SCRIPT  CONTAINING 
UP  TO  10  TESTS  FROM  THE  TEST  LIST  OR  EXECL'TING  AN 
EXISTING  TEST  SCRIPT  THAT  WAS  PREVIOUSLV  GENERATED  FROM 
*^'SEOGEN"  OR  PRE-LOADED  BY  THE  PROGRAM. 
THE  PHE-LOADED  SCRIPTS  ARE: 

TOTAL       -  ALL  TESTS 

ACCEPT     -  DP!VE  ACCEPTANCE  TESTING 

MECH         -  ALL  MECHANICAL  TESTL   (NO  DATA) 

TIMING     -  ALL   TIMING  TESTS 

RUNLST     -  RUN  THE  SCRIPT  GENERATED  LIST 


^'-«Mr -.WlrMNWIM^IWMHiM^^ 
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4385  TEST  EXECUTION  (NO  OPR  INTERVENTION)  -  TOTAL   (TEST  #0) 

•♦♦»**♦♦**♦*♦*♦**•**•♦*♦•****«*•♦•**••**♦***•♦ v****t ************* 


SEQ  0039 


4A67 


**i^«*«t •**••**•••*•**•***•*****«* t *************••••••*•*•***••*•* 


ACCEPTANCE  SCRIPT  LIST  -  ACCEPT     TEST  #12) 


♦♦•♦♦••^♦♦•♦•••••♦♦♦•♦♦•♦•••••••♦♦•••♦••♦♦••••♦♦••♦•••***t ***•*•* 


*«i^*tt**********«*«-*************************t**t  ***********  ****** 
4579         PAKINT     PACK  INITIALIZE  SCRIPT 


4636 


4584 
4588 


PAKINT  —  PACK  INITIALIZE  SCRIPT 


THIS  SCRIPT  WILL  AUTOMATICALLY  FORMAT  -  MAP  -  AND 
CREATE  THE  BAT  BLOCKS  FOR  ALL  RP04/05/05  DISK  DRIVES 
SELETED  FOR  TEST. THE  SCRIPT  CAN  BE  EXECUTED  IN  EXEC 
MODE  OR  IN  USER  MODE  UNDER  A  TOPS-10  MONITOR 

**«t***********t****t ********* t ******** t ******* tt ****** ********** 

READ  NEXT-WRITE  NEXT  TEST  -  NEXTST   (TEST  0W 
***************************************************************** 


4900 


4641 
4645 


NEXTST  —     READ/WRITE  NEXT  TEST 


THE     READ  NEXT-WRITE  NEXT  TEST   IS  DESIGNED  TO  TEST 

THE  DRIVE'S  ABILITY  TO  SWITCH  BETWEEN  A  READ  AND  WRITE 

OPERATION  IN  THE  SECTOR  GAP  TIME. 

THE  READS  ARE  FROM  SURF.^CE  0  AND  THE  WRITES  ARE  TO  SURFACE  1 

IMPLYING  THAT  A  HEADSWITCH  IS  ALSO  REQUIRED  IN  THE  GAP. 

****************************************************************■*- 

DISK  MECHANICAL  TIMING  TEST  -  PTIME   (TEST  #14) 

***************************************************************** 


4905 
4909 


PTIME  —  DISK  MECHANICAL   TIMING  TEST 


PTIME  WILL  MEASURE   THE   TIMES  OF   RECAi^,   SEEKS  AND  DISK 

ROTATION.      IF   'VARIAB"  (SWITCH  19)    I     SET,   THE  OPERATOR 

MAY  SELC    SEEKS  TO  BE   TIMED. 

NOTE : 

THIS  TEST  HAS  BEEN  DESIGNED  TO  PERFORM  A  RELATIVE 

MEASUREMENT  OF   SEEK  TIMES  FROM  DRIVE   TO  DRIVE  OR  FROM  A 

PREVIOUS  RUN  OF   THE  DRIVE   SELECTED  FOR  TEST. IT   IS 

NOT  DESIGNED   TO  MEASURE   THE  DRIVE'S  PERFORMANCE  AGAINST 

THE  SEEK   TIME   SPECIFICATION. 


L   . 


mummtmmimm 
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4943    PTIMO  —  MECHANICAL  TIMING  TEST  -  PART  0. 

MEASURE  ROTATIONAL  VELOCITY  100(10)  TIMES.  PRINT  HIGH,  LOW,  RANGE, 
AND  AVERAGE  TIMES  IN  MILLISECONDS. 

5039    PTIM1  —  MECHANICAL  TIMING  TEST  -  PART  1 

DO  100  RECALS  AND  PRINT  THE  HIGH,  LOW,  RANGE,  AND  AVERAGE 
TIMES  IN  MILLISECONDS 

5071    PTIM2  —  MECHANICAL  TIMING  TEST  -  PART  2 

TIME  ALL  SINGLE  CYLINDER  FORWARD  SEEKS.  PRINT  HIGH,  LOW,  RANGE,  AND 
AVERAGE  TIMES  IN  MILLISECONDS. 

5113    PTIM3  —  MECHANICAL  TIMING  TEST  -  PART  3 

TIME  ALL  SINGLE  CYLINDER  REVERSE  SEEKS.  PRINT  HIGH,  LOW,  RANGE, 
AND  AVERAGE  TIMES  IN  MILLISECONDS. 

5150    PTIM4  —  MECHANICAL  TIMING  TEST  -  PART  A. 

TIME  INCREMENTAL  (OSCILLATING)  FORWARD  SEEKS.  PRINT  HIGH,  LOW, 
RANGE,  AND  AVERAGE  TIMES  IN  MILLISECONDS. 

5189    PTIM5  —  MECHANICAL  TIMING  TEST  -  PART  3 

TIME  INCREMENTAL  (OSCILLATING)  REVERSE  SEEKS.  PRINT  HIGH,  LOW, 
RANGE,  AND  AVERAGE  TIMES  IN  MILLISECONDS. 

5225    PTIM6  —  MECHANICAL  TIMING  TEST  -  PART  6. 

TIME  500(10)  RANDOM  SEEKS  WITH  RANDOM  STALLS  BETWEEN  OPERATIONS. 
PRINT  HIGH,  LOW,  RANGE,  AND  AVERAGE  TIMES  IN  MILLISECONDS. 

5268    PTIM7  —  MECHANICAL  TIMING  TEST  -  PART  7. 

TIME  THE  AVERAGE  SEEK  TIME  BY  SEEKING  TO  A  REFERENCE 
CYLINDER  FOR  THE  PARTICULAR  DRIVE  TYPE  100  TIMES 
AND  PRINT  HIGH, LOW, RANGE  AND  AVERAGE  TIMES  IN 
MILLISECONDS. THE  REFERENCE  CYLINDER  FOR  RP04/05'S 
IS  136  DECIMAL  AND  CYLINDER  255  FOR  RP06'S. 

5311    PTIM8  —  MECHANICAL  TIMING  TEST  -  PART  8. 

TIME  MAXIMUM  SEEK  TIME  (SEEK  FROM  CYLINDER  0  TO  410.  OR  814.). 
100  REPETITONS  -  PRINT  HIGH,  LOW,  RANGE,  AND  AVERAGE  TIMES 
IN  MILLISECONDS. 

5349    PTIMOP  —  ROUTINE  TO  ALLOW  POSITION  TIMING  BETWEEN  ANY  TWO 

OPERATOR  SELECTED  CYLINDERS. 


PA6C  16 


SEQ  0040 


?8 
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SEQ  0041 


PTINE  SUBROUTINES 


5651 


5427    PTHCLR  CLEARS  THE  HIGH,  LOW  AND  AVERAGE  COUNTERS  USED  BY  PTIME 

5437    PTMSAV  SAVES  THE  VALUE  DERIVED  FROM  THE  TIMING  ROUTINE 

5449    PTinER  —  ROUTINE  TO  MEASURE  EVENT  TIME  FOR  A  GIVEN  POSITION  COMMAND 

IN  AC1  WHEN  THE  ROUTINE  IS  CALLED.  RETURNS  UH  THE 
MEASURED  TIME  IN  "SAVTIM^*. 

5548    PWAIT  -  THIS  ROUTINE  WILL  STALL  THE  EXECUTION  OF  THE  PROGRAM 

UNTIL  THE  10  IN  PROGRESS  HAS  BEEN  COMPLETED  OR  1  SECOND  HAS 
ELAPSED  SINCE  THE  10  WAS  ISSUED  -  THE  OPERATION  HAS  TIMED  OUT. 

5597    PTMPNT  PRINTS  OUT  HIGH,  LOW,  RANGE,  AND  AVERAGE  TIMES 

5624    PTMCNV  CONVERTS  THE  COUNT  IN  ACO  TO  MILLISECONDS  AND  PRINTS  IT 

RANDOM  COMMAND  TEST  -  RCTEST  (TEST  #15) 
********************************************** ttt***tt«********t* 


5656 
5660 


RCTEST  —  random  command  test 


This  test  is  designed  to  cause  an  overlap  of  position 
and  data  transfer  commands  to  selected  drives.  The 
commands  to  be  issued  are: 


READ 

READ  HEADERS 

WRITE   - 

SEEK 

SEARCH  - 


no  data  compare 

any  data  to  be  used 

seek  to  selected  random  address 

search  to  selected  ranJom  disk  address 


Ther?  will  be  twice  as  many  reads  and  writes  og  other  commands. 
All  data  transfers  are  limited  to  2  sectors  in  length. 


■m0mmMi^>immfi»ituBi0i^^ 
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SEQ  0042 


HARD  DATA  ERROR  SPOT  IDENTIFIER  -  «APOUT 
t*«************«***«*****t**********************tt *************** 


5746 
5750 


58?9 
5980 
6056 
6066 
6073 
6101 

6122 

6139 


HAPOUT  —  "BAT  BLOCK"  MANIPULATOR  ROUTINE 

THIS  ROUTINE  WILL  INTERROGATE  THE  PACK*  'BAT  BLOCK"  STORAGE  AREA  FOR 
ALL  SELECTED  DRIVES.  A  COPY  OF  THIS  AREA  WILL  BE  KEPT  IN  THE  DRIVE  "DSB 
AREA  TO  SAFEGUARD  AGAINST  ACCIDENTAL  DESTRUCTION  WHILE  TESTING  THE 
DRIVE. 

UPON  SYSTEM  CONFIGURATION,  THE  PACK  'BAT  BLOCK"  AREA  WILL  AUTOMATICALLY 
BE  READ  AND  STORED.  HARD  DATA  ERROR  SPOTS  ON  THE  PACK  WILL  BE  DELETED 
FROM  TESTING. 

ENTERING  THIS  i^OUTINE  BY  OPERATOR  REQUEST  (I.E.  "WHAT  TEST")  WILL  GIVE 
THE  OPERATOR  THE  FOLLOWING  OPTIONS: 

1)  RE-WRITE  THE  'BAT  BLOCK"  BACK  ONTO  THE  PACK  -  WITH  AN  UPDATED 
•BAT  BLOCK". 

2)  REMOVE  KNOWN  "SOFT"  ERROR  SPOTS  FROM  TESTING  TO  ELIMINATE  CONSISTANT 
RECOVERABLE  ERROR  SPOTS. 

3)  REPORT  CONTENTENTS  OF  'BAT  BLOCK"  TO  OPERATOR 

NOTE:  A  PACK  FORMATTED  IN  16  BIT  FORMAT  (PDP-11  MODE)  WILL  NOT  HAVE 
A  'BAT  BLOCK"  AREA  AND  CANNOT  CONTAIN  A  'BAT  BLOCK"  AREA! 

BLKLST  —  ROUTINE  TO  PRINT  CONTENTS  OF  'BAT  BLOCK" 

HRDOUT  —  ROUTINE  TO  REMOVE  AREmS  INDICATED  BY  BAT  BLOCKS  FROM  TL  . ING 

HARDIN  —  ROUTINE  TO  REMOVE  BAD  SPOTS  FROM  TRACK  DELETION  TABLE 

SFTOUT  •-  ROUTINE  TO  DELETE  "SOFT"  DATA  SPOTS  FROM  TESTING 

DELDSB  ~  ROUTINE  TO  LOOK  FOR  A  DRIVE  DELETION  TABLE  AND  ALLOCATE  SPACE 

GENBAT  —  ROUTINE  TO  GENERATE  A  BAT  BLK  AREA  IN  THE  SELECTED  DRIVE'S 
DSB  AREA. 

SAMENT  —  ROUTINE  TO  SCAN  THE  BAT  BLOCK  TABLE  FOR  AN  ENTRY  THAT 
POINTS  TO  THE  SAME  SPOT  AS  IS  SELECTED  TO  BE  CELETED 

BATENT  —  ROUTINE  TO  GENERATE  A  BAT  BLK  ENTRY  WORD  AND  SAVE 
IT  IN  THE  DRIVE  BAT  BLK  AREA 


•  i 
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6191         WRTBAT  —  ROUTINE  TO  WRITE  THE  STORED  BAT  BLK  AREA  BACK  ONTO 

THE  DRIVE  WITH  ALL  NEW  BAT  BLK  ENTRYS  MADE 

****************************************** t****t**«tt***t •**«*•** 

6292  SYSTEM  DATA  ANALYSIS  -  TOTPNT 

6295         TOTPNT  —  ROUTINE  TO  REPORT  THE  SUMMARY   INFORMATION  OF 

SYSTEM  DATA  TRANSFERS  COMMANDS.  POSITIONING 
COMMANDS.  AND  ERROR  DATA. 

6A27         TOTSP  —  ROUTINE  TO  PRINT  SYSTEM  TOTALS 

ENTERED  WITH  ACO  POINTING  TO  THE  DRIVE  DSB  ENTRY  ADDRESS 
TO  BE  TOTALED  AND  PRINTED 

6458         TOTCP  —  ROUTINE   TO  REPORT  TOTAL  MBC  DETECTED  ERRORS 

6481         TOTEP  —  ROUTINE   TO  PRINT  DRIVE  ERROR  REGISTER  BREAKDOWN 

6572         TOTDAT  —  ROUTINE  TO  REPORT  DRIVE  DATA  SUMMARY  TOTALS 

6651         TOTBIT  —  ROUTINE  TO  CONVERT  A  NUMBER   IN  ACO  TO  BITS 

THEN  PRINT  THE  ANSWER  IN  SCIENTIFIC  NOTATION. 

6700         PDNUM  —  ROUTINE   TO  PRINT  A  DECIMAL  NUMBER   IN  SCIENTIFIC  NOTATION 

6716         PDCHAR  —  ROUTINE  TO  CONVERT  AND  PRINT  A  NUMBER  TO  DECIMAL  VALUE 

AND  COUNT  THE  'tXPONENT"  VALUE    (NUMBER  OF  DECIMAL  CHARACTERS  PRINTED 

**4r  *«*«*«*** t* *********** t***«*****************tt*******t******** 

67^4         TEST   INPUT  PARAMETER  ROUTINES 

«*<r**#t***t *********************** t **♦******««♦**«*«****** t*****t 

67^;7         ASKPAT  —  ROUTINE  TO  ASK  THE  OPERATOR  FOR  TYPE  OF   DATA  TO  BE 

USED  FOR  EITHER  WRITING  OR  READING 

6783         REMOVE  —  ROUTINE  TO  ELIMINATE  A  DRIVE   ^ROM  THE  TEST  LIST  AS 

SELECTED  BY  THE  OPERATOR 
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SEQ  0043 
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SEQ  OOU 


SPECIAL  PROGRAM  SETUP  -  INIT 
***************************************************************** 


8067 


680A         GETMUD  -  GET  MONITOR  UORD 

6888         INIT  —  ROUTINE  TO  INIT  CSB'S,  DSB'S,   SPECIAL  INTERRUPT  STACK, 

THE  SYSTEM  C.OCK   (REAL  TIME  OR  POWER-LINE),  ETC. 

6905  INTSET  INITIALIZES  THE   INTERRUPT  LOCATIONS  FOR  DRIVE   INTERRUPTS 

6930  CLINIT  INITIALIZES  THE  TIME  CLOCK  -  IN  EXEC  MODE 

695A  NEXT  CLEAR  THE  DSB  AND  CSB  POINTER  TABLES 

7033  INTUSR  —  ROUTINE  TO  INIT  THE  PROGRAM  FOR  USER  MODE  OPERATION 

7195         USTRT  —  ROUTINE  TO  ASK  FOR  A  STRUCTURE  NAME  AND  TEST   TO  SEE 

IF   IT  CAN  BE  USED 

7356  USRHPQ  —  ROUTINE  TO  SET  HIGH  PRIORITY  QUEUE  FOR  JOB 

7365  USRHDQ  —  ROUTINE  TO  SET  DISK  HIGH  PRIORITY  QUEUE 

737A  USRLOK  —  ROUTINE  TO  LOCK  THIS  JOB   IN  CORE 

7950  BATSET  —  ROUTINE  TO  SETUP  THE  DSB  "BAT"  AREA  WHEN  IN  USER  MODE 

7977  CLRFRE  —  ROUTINE  TO  CLEAR  ALL  BUFMAP  BIT  OF  USABLE  MEMORY  AREAS 

8042         CDRDSB  —  ROUTINE  TO  CLEAR  THE  COMMAND  AREA  OF  ALL  SELECTED  DRIVES 

***************************************************************** 

RH10/RH20  RPOA/05/06  MASSBUS  CONFIGURATOR 

***************************************************************** 

8069         CONFIG  —  THIS  ROUTINE  WILL  DETERMINE   IF  EITHER  AN  RHIO  OR  AN 

RH20  EXISTS  AND/OR  IF  ANY  RPOA/05/06'S  EXIST  ON  THE  MASSBUS.   IF 
BOTH  TYPE  MASSBUS  CONTROLLERS  EXIST,   THE  OPERATOR  WILL  BE 
REQUIRED  TO  INDICATE  WHICH  MASSBUS  CONTROLLER  IS  TO  BE 
USED  BY  THE  PROGRAM.     NO  ATTEMPT  WILL  BE  MADE  TO  RUN  WITH 
BOTH  TYPE  CONTROLLERS  AT  THE  SAME  TIME! 

8377        CONDRV  —  THIS  ROUTINE  DETERMINES  THE  EXISTANCE  OF  DRIVES  ON 

THE  SELECTED  MASSBUS  CONTROLLER.     THIS  ROUTINE  WILL  POLL 
ALL  DRIVES  AND  SETUP  THE  DSB  TABLE  POINTERS 
AND  GENERATE  A  DRIVE  DSB  AREA  -  IF  NEEDED. 

8A72         DRVDSB  —  ROUTINE   TO  LOOK  FOR  AVAILABLE  DRIVES  AND  TO  SETUP 

A  DRIVE  DSB  AREA 


■iiHi»Mii«iiMaMlii««iH 
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8668        PKFORW  —  ROUTINE  TO  DETERMINE  THE     DISK  PACK  FORMAT 

AND  EXIT  WITH  THE  PROPER  "DSBTBL"  STATUS  BIT  SET 
INDICATING  PACK  FORMAT. 

8861         MBCCLR  -  ROUTINE  TO  CLEAR  THE  MASSBUS  CONTROLLER   (EITHER  RHIO  OR  RH20) 

8873        LDVECT  —  ROUTINE  TO  LOAD  THE  INTERRUPT  VECTOR  ADDR  IF  NECESSARY 

889A         WAITMS  —  ROUTINE  TO  'l/AIT"  FOR  (UP  TO)   A  SPECIFIED  AMOUNT  OF   TI^ 

ACO  CONTAINS  THE  TIME   IN  MILLI-SECONDS 


PAGE  21 


89A2 


9023 


ROUTINE  TO  CALIBRATE  THE  SYSTEM  CLOCK 

8945         SETTIM  —  '^OCK  CALIBRATION  FOR  A  KA10,  KI10,  OR  KL10  POWER 

LINE  CLOCK.     USES  'TITROP"  FOR  KLIO 

*1^*t«t*«****«**t*t**«***««**t**«**«*********«rt««rt  **************** 

MAS^^BUS  CONFIGURATION  PRINTER/REPORTER 


9026 

9175 
9235 


9671 


CONPRT  —  THIS  ROUTINE  WILL  REPORT  THE  MASSBUS  CONFIGURATION 

TO  THE  USER  AND  ASK  '\IHAT  DRIVE"  IS  TO  BE  USED  FOR  TESTING. 

SHTPRT  —  HERE  STARTS  THE  SHORT   (SUMMARY)   CONFIGURATION  PRINTER 

TTIDRV  —  ROUTINE  TO  DETERMINE  WHAT  DRIVE  OR  DRIVES 

ARE  TO  BE  TESTED.     THE  OPERATOR  IS  REQUIRED  TO  SELECT 
DRIVE(S)   TO  BE  TESTED  BY  TYPING  A  TWO  DIGIT  OCTAL 
NUMBER   IN  RESPONSE  TO  THE  "WHAT  DRIVE"  QUESTION.     NO 
OPR  RESPONSE  WILL  TAKE  AN  "ALL  DRIVES"  DEFAULT   IN  EXEC 
MODE  AND  WILL  NOT  DEFAULT  TO  ANY  DRIVES  FOR  ONLINE 
(TIMESHARING)   OPERATION. 

SETOFF  -  ROUTINE  TO  ALLOW  THE  OPR  TO  SET  AN  OFFSET  VALUE 

FOR  ALL  READ  COMMANDS   ISSUED  TO  THE  DRIVES  UNDER  TEST. 


9757 


***************************************************************** 

"SCNTBL"  ENTRY  PROCESSOR  FOR  A  WRITE/READ  ENTRY 
**************^******************************************* ******* 

9760         FNDENT  —  ROUTINE  TO  FIND  AN  AVAILABLE  "SCNTBL"  ENTRY  SLOT  AND  AN 

AVAILABLE  MEMORY  BUFFER  SLOT  FOR  A  'VRITE"  OR  "READ"  BUFFER   (WRITE 
OR  READ  TRANSFER).   EXITS  WITH  A  "SCNTBL"  ENTRY  BUILT  AND  ENTERED 
INTO  SELECTED  DRIVES  DSB  AREA.   ALLOCATED  MEMORY  SPACE   IS  THEN 
MAPPED  OUT  FROM  USE  UNTIL  FREED  FROM  RECLAIM  ROUTINE. 


SEQ  0045 


<«ifti|itiiiWimi  :' 


H^M-  ■.-*-*.<g..*»ti  lii^iWMw  1^  ■>,  ttftbm'mimmmitmtmmm^ 
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9871         PENDING  DATA  COMPARE  CHECKER 

987A         CMPCHK  —  ROUTINE  TO  CHECK  FOR  AND  START  ANY  PENDING  DATA 

COMPARES  FROM  READ  DATA  TRANSFERS 

9922         WRITE/READ  TRANSFER  ALLOCATOR 


SEQ  0046 


9925         WRTALC  —  ROUTINE  TO  SETUP  AND  ALLOCATE  MEMORY  BUFFER  SPACE  FOR  A 

WRITE  DATA  TRANSFER.  RETURNS  WITH  SELECTED  DRIVES  DSB  AREA  SETUP 

WITH  A  COPY  OF  THE  GENERATED  "SCNTBL"  ENTRY  AND  WITH  THE  MEMORY 

BUFFER  MAP  BITS  SET  INDICATING  USED  MEMORY.   ANY  PENDING  DATA 

COMPARES  WILL  HAVE  BEEN  PROCESSED.   ENTERED  WITH  ACO  CONTINING 

(LH)  BIT  0  =  1   AND  PATTERN  NUMBER  IN  BITS  13  TO  17,    (RH)   CONTAINS  TRANSFER 

SIZE 

9994         RDALC  —  ROUTINE  TO  SETUP  MEMORY  FOR  A  READ  DATA  TRANSFER 

RETURNS  WITH  DSB  AREA   (SELECTED  DRIVE)   SETUP  WITH  TRANSFER 
SIZE,  BUFFER  ADDRESS  OF  READ,   TYPE  OF  DATA  EXPECTED  (IF 
KNOWN),   "BUFMAP"  -  MEMORY  MAP  -  BIT  SET  TO  INDICATE  USED  CORE 
AREA,  '"SCNTBL"  ENTRY  BUILT  AND  COPIED  IN  DSB  AREA,  AND   IT  WILL 
INITIATE  ANY  "PENDING^*  DATA  COMPARES  NEEDED  FROM  PREVIOUS  DATA 
TRANSFERS.   ACO  CONTAINS   (LH)   PATTERN  NUMBER  I   (RH)   TRANSFER 
SIZE  UPON  ENTRY. 

10039       DATA  TRANSFER  UUO  SUPPORTING  ROUTINES 

10042       SETNUL  —  ROUTINE  TO  SET  A  NULL  PATTERN   IN  A  MEMORY  READ  BUFFER 

SO  THE   COMPARE  CAN  DETECT  AN  ERROR  WHEN  USING  STRANGE  DATA 

10065       BUFSCN  —  ROUTINE  TO  SELECT  A  "SCNTBL"  ENTRY  PAIR 

RETURNS  WITH  "SCNADD"  POINTING  TO  STARTING  ADDRESS  OF  NEXT  "SCNTBL" 
ENTRY   (DATA  TRANSFER  OPERATION).    THE  PREVIOUS  CONTENTS  OF  "SCNADD" 
WILL  BE  DESTROYED. 


V 


L 


M«MNHMM«mMMi 
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10083 


10155 


10216 


1027A 


SEQ  0047 


1 1 


PROGRAM  RUN  TIME  PRINTER 

10086   RUNTIM  —  THE  PROGRAM  RUN  TIME  PRINTER  PRINTS  THE  CURRENT  PROGRAM 

RUN  TIME  TO  THE  NEAREST  SECOND. 
FORMAT  IS  DD:HH:MM:SS 

READ/URITE  £  COMPARE  BUFFER  RECLAIMER 

*«*« tt**«t *«••••*•*******•**•***•****••***•* t ••••••«••*•*•«****** 

10158   RECLAM  —  ROUTINE  TO  CLEAR  THE  SCNTBL  ENTRY  POINTED  TO  BY  "SCNADD 

AND  TO  CLEAR  THE  MEMORY  BUFFER  IN  USE  BIT  MAP  ASSOCIATED 
WITH  SCNTBL  ENTRY. 

•BUFMAP"  TABLE  BIT  SETTER  FOR  MEMORY  MANAGEMENT 

10221    SETMAP  —  ROUTINE  TO  ENTER  USED  CORE  BITS  INTO  "BUFMAP" 

10225 

"SCNADD"  POINTS  TO  THE  SCNTBL  ENTRY  PAIR  WORDS  TO  BE  USED 
IN  DETERMINING  WHAT  MEMORY  'IJSED"  BITS  ARE  TO  BE  SET  IN 
•BUFMAP"  MEMORY  TABLE  AND  THUS  DEEMED  UNUSABLE  BY  OTHER 
SUBROUTINES  WITHIN  THE  PROGRAM  UNTIL  FREED  AGAIN  WHEN 
THE  "RECLAM"  ROUTINE  IS  CALLED. 

******* ****t************«*****************«^t*ttt*t«*******t *«*•** 

"SrWTBL"  ENTRY  PROCESSOR  FOR  MATCHING  ENTRYS 
***************************************************************** 

10277   BUFMCH  —  ROUTINE  TO  CHECK  SCNTBL  ENTRY  (POINTED  TO  BY  SCNADD) 

FOR  A  "VRITE"-  'T^EAD"  OR  COMPARE  ENTRY.  ROUTINE  RETURNS  *1  IF  NO 
MATCH  FOUND  OR  IF  SIZE  FIELD  OF  SCNTBL  ENTRY  IS  TOO  SMALL. 
A  RETURN  ^2  (NORMAL  RETURN)  MEANS  THE  ENTRY  WAS  A  MATCHED 
ENTRY,  THE  SAME  PATTERN  WAS  TO  BE  USED,  AND  THE  SIZE  OF  THE  BUFFER 
INDICATED  BY  THE  ENTRY  WAS  LARGE  ENOUGH  TO  BE  USED. 


IfWWMIHiHIia 


HWM 


■MaiMaMMtHIMMMMltM>MIMHMI»i 
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SEQ  OO^S 


**«*t***«**«********t*t ************** t**t*t**tttt««t******4r*t**** 

MEMORY  TEST  BUFFER  ALLOCATOR 


103A0       FNDHOL  —  ROUTINE  TO  FIND  A  MEMORY  BUFFER  SLOT  FOR  DATA  TRANSFER 

BASED  ON  CONTENTS  OF  BUFMAP  TABLE.   UPON  ENTRY,   SCNADD   IS 
POINTING  TO  A  USABLE  SCNTBL  ENTRY  SLOT.   ".SIZE"  HAS  BEEN 
LOADED  TO  DESIRED  TRANSFER  SIZE.   THE  ROUTINE  EXITS  WITH 
".BUFF"  LOADED  TO  START  ADDRESS  OF   THE  MEMORY  BUFFER  AND 
".BUFEND"  LOADED  WITH  THE  LAST  ADDRESS  TO  BE  USED  BY  THE   TRANSFER. 

*l^**t******t**«r*«*******t  ***********************  ***************** 

10447       USER  CORE  EXPANSION  ROUTINE 

***************************************************************** 

10450       EXPAND  —  ROUTINE  TO  EXPAND  USER  CORE   TO   '    LOW  FOR  MORE   TEST 

BUFFERS 

***************************************************************** 

10564       DATA  COMARE  ROUTINE  -  COMP 

***************************************************************** 

10566       COMP  —  ROUTINE   TO  COMPARE  DATA  READ  FROM  DEVICE   TO  DATA  EXISTING  IN 

A  MEMORY  BUFFER  (IF   IT  EXISTS  ALREADY  USE   IT,   OR  ELSE  GENERATE   THE 
DATA).   ENTERED  WITH  "SCNADD"  POINTING  TO  A  SCNTBL  ENTRY  THAT  REQUIRES 
A  DATA  COMARE  OPERATION.   CONTENTS  OF  'IBCN"  AND  "DRIVE"  WILL  BE 
SAVED  AND  RESTORED  WHEN  DONE.    FORCED  GENERATION  OF  DATA  WILL  COME 
A  NEW  "SCNTBL"  ENTRY  TO  APPEAR  AND  THE  APPROPIATE  USED  MEMORY  AREA 
WILL  BE  '^PPED*^'  OUT. 

"COMP"  WILL  EXIT  WITH  THE  "SCNTBL"  ENTRY   (FOR  THE  READ)    CLEARED  AND 
THE  MEMORY  AREA  WILL  BE  FREED  FOR  USE  AGAIN. 

10723       MCHCMP  —  ROUTINE  TO  COMPARE  TO  BUFFER  OF  DATA 

BUFFER  SIZE  DETERMINED  BY  ".SIZE".   THE  READ  BUFFER  ADDRESS 
IS   IN  ".BUFF*^'  AND  THE  COMPARE  BUFFER  ADDRESS  CAN  BE  EXTRACTED 
FROM  SCNTBL  ENTRY  POINTED   TO  BY  SCNADD".   ^'.PATN"  CONTAINS 
TYPE  OF   DATA. 


>t$mmii>imm>'»ii>iit(>>>immmmm 
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10751       DATA  COMPARE  ERROR  REPORTER 

**t t** t **«t***************************t ****** tt***t ************** 

1075A       CMPER  —  ROUTINE  TO  REPORT  ERRORS  DETECTED  BY  THE  DATA  COMPARE 

ROUTINE.     PRINTING  WILL  BE  DELAYED  UNTIL  ALL  I/O  HAS 
FINISHED.      INFORMATION  REPORTED   IS:  MEMORY  ADDRESS 

OF  DATA  COMPARED,   EXPECTED  DATA  ON  THE  COMPARE,  ACTUAL 
DATA  CONTAINED  AT  THE  ERROR  ADDRESS,  BITS  IN  DIFFERENCE 
FROM  THE  COMPARE.   DRIVE  NUMBER  OF  FAILING  UNIT,  AND  DISK 
ADDRESS   (CYLINDER.   SURFACE,  AND  SECTOR  ARE  REPORTED  AS  A 
LOGICAL  BLOCK  NUMBER).     PRINTOUTS  ARE  LIMITED  TO  3 
DETECTED  ERRORS  UNLESS  "PRINT-ALL-ERRORS"  SWITCH  IS 
SET  IN  THE  PROGRAM  SWITCHES. 

**t************************************************************** 

10900         DISK  LOGICAL  BLOCK  CALCULATOR 

****«t *********************************************************** 


SEQ  0049 


10903       LOGBLK  —  THIS  ROUTINE  WILL  GENERATE  A  LOGICAL  BLOCK  NUMBER 

USING  A  DISK  ADDRESS   (IN  ACO)   EXISTING  IN  THE  FORM: 

CYL     SURFACE  SECTOR 
AND  RETURN  WITH  THE  LOGICAL  BLOCK  NUMBER  IN  ACO. 


10937 


10973 


***************************************************************** 

LOGICAL  BLOCK  NUMBER  CONVERTER 

***************************************************************** 


109A2 
10946 


BLKADR  —  CONVERT  A  LOGICAL  BLOCK  NUMBER  TO  DISK  ADDRESS 


THIS  ROUTINE  WILL  GENERATE  A  DISK  ADDRESS  FROM  A  LOGICAL 
BLOCK  NUMBER  IN  ACO.     THE  FORMAT  OF   THE  DISK  ADDRESS 
GENERATED  UPON  ROUTINE  EXIT   IS: 


CYLINDER,, SURFACE  -  SECTOR 

****************************************************************** 

MASSBUSS  DEVICE  SELECTION  ROUTINE  -  SELECT 
***************************************************************** 


10979 
10993 


SELECT  —  CONTROLLER,  DEVICE,   AND  DISK  ADDRESS  SELECTION 

THIS  ROUTINE  WILL   SCAN  THE  DRIVE   "DSBTBL"  TABLE  LOOKING  FOR  AN 
OPERATOR  SELECTED  ONLINE  DRIVE   TO  BE  USED  FOR  TESTING.    IT  ALSO 
GENERATES  AN  "AREA"  TO  BE  USED   (I.E.   SELECTS  A  CYLINDER, 
SURFACE,   AND  SECTOR).    TWO  PROGRAM  FLAGS  ARE  USED  TO  DETERMINE 
THE  METHOD  OF  DEVICE/DISK  AREA  SELECTION. 

SEQADR     =  -1         SELECT  ALL   ADDRESSES  ON  PRESENT  DRIVE  BEFORE 

SELECTING  A  NEW  DRIVE 
=     0         ALLOW  ALL  DRIVES   TO  BE   SELECTED  BEFORE   GENERATING 
A  NEW  DISK   AREA 


III      llllllll    ,.rM-J.i_».Hi»«|Blwliwl>-|lll|liw;r.i  jli.  i.n    Uliiii      »ii!Li 
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SEQDRV  =  -1    EACH  TI«E  A  NEW  DRIVE  IS  REQUESTED,  SELECT 

DRIVE  ♦!  (I.E.   00,  01,  02-  ETC.) 
=  0    BU«P  THE  DRIVE  COUNT  BY  10  TO  CHANGE 

•lASSBUS  CONTROLLERS  (I.E.  00,  10,  20,  ETC.) 

TO  INITIALIZE  THE  SELECT  ROUTINE,  "DRIVE"  IS  SET  TO  A  -1. 
CALLING  SEQUENCE  IS: 


SEQ  0050 


60  SELECT 

RETURN  ♦I (FATAL) 

RETURN  ♦j 

RETURN  ♦B 


DRIVE  IS  UNUSABLE 

SELECTION  IS  FINISHED 

DRIVE  AND  AREA  SELECTED  AND  READY  FOR  USE 


11329 


**********t*****t***********t*****************t***«>^  ************* 

TEST  SETUP  PROCEEDURE  -  SETUP 

ft*t**********t******t************ *******************  v.  ************ 


1133A 
11338 


11441 


SETUP  —  ROUTINE  TO  INITIALIZE  A  TEST 


THIS  ROUTINE  WILL  INITIALIZE  A  TEST  WITH  THE  SUPPLIED 
ARGUMENTS  FOLLOWING  THE  '^^ETUP"  CALL.  THE  FIRST  CALL 
PARAI>^TER  CONTAINS  THE  ITERATION  CONTROL  COUNT  FOR 
BOTH  THE  RELIABILITY  MODE  OF  OPERATION  AND  THE  NORMAL 
NODE  (ALL  SWITCHES  =  0).  LEFT  SIDE  =  RELIABILITY  NODE 
ITERATION  COUNT  AND  RIGHT  SIDE  -  NORMAL  ITERATION  COUNT 

THE  NEXT  PARAMETER  CONTAINS  THE  MAXIMUM  AMOUNT  OF  MULTI- 
SELECTABLE  TRACKS  TO  BE  USED  FOR  A  DATA  TRANSFER  ON  THE 
LEFT  SIDE  OF  THE  WORD  AND  THE  "SWITCH"  OVERRIDE  CONTROL 
FOR  "SELECT"  ROUTINE  ON  THE  RIGHT.  CONSOLE  SWITCHES 
"ALLADR*^"  SELECTED  CAN  BE  PROGRAM  SET  BY  BIT  23  AND 
"ALLDRV"  IS  OVERRIDDEN  WITH  BIT  24. 


PACK  WRITE-PROTECTION/TRACK  DELETION 
t**************************************************************** 


11446 
11450 


DELETE  —  TRACK  DELETION  ROUTINE 


ROUTINE  TO  CONTROL  DELETION  OF  CYLINDERS  AND  SURFACES 
FOR  WRITE-PROCTECTING  A  SPECIFIC  PACK  AREA  DUE  TO  BAD 
SPOTS  ON  THE  SURFACE,  SUSPECTING  FAULTY  WRITE/READ  HEAD 
FOR  A  SUrtFACE.  OR  TO  LIMIT  TESTING  TO  (OR  FROM)  SPECIFIC 
PACK  AREAS. ..THUS  WRITE  PROCTECTING  THOSE  AREAS. 


r 
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11867   TRKDEL  —  ROUTINE  TO  PROCESS  THE  TRACK  DELETE  BIT 

11903   "'  HK  —  ROUTINE  TO  CHECK  THE  CONTENTS  OF  THE  DELETE  TRACK  NAP 

AND  DETERMINE  IF  THE  DATA  TRANSFER  WILL  FIT  (ACO  CONTAINS  THE  LOGICAL 
BLOCK  NUMBER  OF  THE  DISK  STARTING  ADDRESS). 
CALL  IS: 

60     DELCHK 

RETURN  +1  IF  TRANSFER  WON'T  FIT 

RETURN  ^2  IF  PARAMETERS  ARE  OK 

***************************************************************** 

1196A    DISK  COMMAND  EXECUTOR 

1  i.  **«*****t************************t***«  ******  t  ********  t***t****t 


PAGE  21 


SEQ  0051 


11969 
11973 


12116 
12494 


CMDXCT  —  ROUTINE  TO  EXECUTE  QUEUED  DRIVE  COMMANDS 

THE  DISK  COMMAND  EXECUTOR  WILL  INITIATE  ALL  DISK  DATA 
TRANSFER  OPERATIONS  (I.E.  READ. READ-HEADS. WRITE.WRITE-HEADERS) 
AND  POSITION  COMMANDS  (I.E.  SEEK  AND  RECAD.  EVERY 
TIME  THIS  ROUTINE  IS  CALLED,  IT  WILL  START  AT  THE  BEGINNING 
OF  THE  COMMAND  QUE  LOOKING  FOR  A  COMMAND  TO  PROCESS.  COMMAND 
EXECUTION  STOPS  WHEN  A  DRIVE  CANNOT  ACCEPT  ANOTHER  COMMAND  OR 
NO  COMMANDS  ARE  LEFT  TO  BE  PROCESSED. 

CMDSEl  —  ROUTINE  TO  REPORT  THE  PROGRAM  IS  OUT  OF  SYNCH... 

DSEL  -  ROUTINE  TO  DESELECT  A  DRIVE  THAT  HAS  GONE  OFF-LINE 
OR  A  CBTO  ERROR  WAS  DETECTED. 


13S80   TOTBLK  —  ROUTINE  TO  CALCULATE  THE  TOTAL  NUMBER  OF  'BLOCKS" 

(OR  SECTORS)  TRANSFERED  BY  THE  MASSBUS  SYSTEM. 

13622   GETQUE  —  ROUTINE  TO  EXTRACT  A  SAVED  COMMAND  FROM  THE  "SAVO"  AREA 

136"'2   SETCMD  —  ROUTINE  TO  SET  THE  "GENERATED  IN  DSB"  BIT  FOR  THE  COMMAND 

IN  THE  "COMBUF*^*  WORDS 

13693   SAVQUE  —  ROUTINE  TO  SAVE  A  CODED  COMMAND  IN  ACl  TO  AC5  IN  THE 

COMMAND  '^'SAVO'^'  AREA  FOR  LATER  EXTRACTION 

13728   FILDSB  —  ROUTINE  TO  FILL  THE  DSB  COMMAND  AREA  FROM  THE  "SAVQ"  STORAGE 

13780   CMDPNT  —  RP  'TJNe  tO  LIST  THE  CONTENTS  OF  THE  DRIVE  COMMAND 

BU'' 

13830   PNTCMD  —  f  JUNE  TO  REPORT  WHAT  THE  CODED  COMMAND  WAS  TO  THE  OPR 
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SEQ   0052 


t«**t*t***t*t**********************************tttt ************** 

DISK  COnnAND  UUOS  (READ/URITE.  SEEK,  i   RECAL) 


1393A 
13938 


CMDUUO  —  TRANSFER  AND  POSITIONING  COMMAND  HANDLER 

THIS  IS  A  COniiON  DRIVE  OPERATION  UUO  HANDLER  FOR 

READ/READ  HEADERS  &  DATA,  URITE/yRITE  HEADERS  S  DATA,  SEEK, 

AND  RECAL  UUOS  ISSUED  TO  THE  DISK. 

CALLING  FORMAT  f^OR  READ  OR  WRITE  DATA  TRANSFERS: 

OR 


READ  PATTERN 
ERROR  RETURN 
NORMAL  RETURN 


CALLING  FORMAT  FOR  SEbK  AND  RECAL  IS: 

OR 


SEEK  CYLINDER 
ERROR  RETURN 
NORMAL  RETURN 


WRITE  PATTERN 
ERROR  RETURN 
NORMAL  RETURN 


RECAL 

ERROR  RETURN 

NORMAL  RETURN 


THE  UUO  IS  CALLED  WITH  SEVERAL  PARAMETERS  KNOWN  AND  SETUP 
PREVIOUS  TO  THE  CALL: 

1)  •'DRIVE'^'  contains  the  desired  drive*  (00  TO  77)   OF  THE 
OPERATION  TO  BE  PERFORMED. 


2) 


3) 


THE  DISK  AREA  FOR  THE  OPERATION  (I.E.  CYLINDER, 
SURFACE,  AND  SECTOR)  WILL  BE  IN  ".CYLIN",  ".SURF", 
AND  ".SECT". 

IF  A  DATA  TRANSFER  COMMAND,  ".SIZE"  WILL  CONTAIN 
THE  AMOUNT  OF  WORDS  TO  BE  TRANSFERED  AND  ".PATN"  THE 
PATTERN  NUMBER  OF  THE  DATA  SELECTED. 


14171 


#*****t****«****tt**** /«*****#* ************ *t***tt*«********tt*** 

COMMAND  REGENERATOR 

***************************************************************** 

Ud02   RUNQUE  —  HERE  TO  EXECUTE  THE  CONTENTS  OF  "COMBUF"  STORED  COMMANDS  AGAIN 

K338   QFIN  —  ROUTINE  TO  WAIT  UNTIL  ALL  COMMANDS  IN  THE  QUE  ARE  EXECUTED 

BEFORE  RETURNING  TO  PROGRAM  CONTROL. 
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SEQ  0053 


UA38 


14552 


DISK  PARAMETER  CHECKER  &  QUE  POINTER  SETUP 
****************************************************************** 


14363   VALCK  —  ROUTINE  TO  CHECK  DISK  PARAMETERS  AND  TO  SETUP  POINTERS 

INTO  "COMBUF"  AND  "COMQ"  AREAS 

*♦****♦••*****••****♦•****•***••****•*****•********♦♦•************ 

COMMAND-TO-DRIVE  DSB  STORAGE  FILLER  ROUTINE 
******************************************************************* 


14443 
14447 


FILLQ  —  DSB  AND  COMQ  ENTRY  GENERATOR 


UPON  ENTRY,  ACI  THRU  AC5  CONTAINS  A  COMMAND  TO  BE  STORED 
IN  A  DRIVE  DSB  AREA  AND  AN  ENTRY  TO  BE  MADE  INTO  "COMQ". 


"DRIVE"  IS  POINTING  TO  THE  SELECTED  DRIVE. 
CMDQPT"  POINTS  TO  A  FREE  SLOT  IN  "COMQ"  QUE  LIST. 
COMBPT"  POINTS  TO  THE  COMMAND  ENTRY  IN  "COMBUF"  BUFFER 


1 1 


IS 


FORMAT  OF  NEEDED  INFORMATION  IN  ACI  TO  AC5  FOR  A  DATA  TRANSFER 


ACI 
AC2 
AC3 
AC4 
AC5 


ADDRESS  OF  "SCNTBL"  ENTRY 

"SCNTBL"  ENTRY  WORD  #1 

"SCNTBL"  ENTRY  WORD  02 

EMPTY  (WILL  CONTAIN  COMQ  ENTRY  ADDRESS  UPON  EXIT) 

DISK  ADDRESS  IN  THIS  FORMAT:  CCYL,, SURF-SECT] 


FORMAT  FOR  A  SEEK  OR  RECAL  IS: 

ACI  0,,-1 

AC2  EMPTY 

AC3  EMPTY 

AC4  EMPTY  -  FILLED  BY  THIS  ROUTINE 

AC5  DISK  ADDRESS  FOR  A  "SEEK"  OR  -1  FOR  A  "RECAL" 

♦*♦»»*♦**♦♦♦♦**♦♦************♦*♦**♦***»*♦***♦»*♦♦*♦**♦*********** 

PROGRAM  MANAGEMENT  FOR  I/O  AND  CLOCK  TIMERS 
**♦♦♦♦******♦**♦***♦**************♦♦*♦♦*♦*******♦♦♦************** 

14555   lOWAIT  —  ROUTINE  TO  WAIT  FOR  ALL  DRIVES  TO  FINISH  CURRENT 

DATA  TRANSFERS  AND  POSITIONING  COMMANDS.   THIS  IS 
USEFUL  WHEN  PRINTING  DATA  AND  NO  INTERRUPTS  FROM 
A  DRIVE  IS  DESIRED  OR  WHEN  A  DATA  TRANSFER  OR  POSITION 
COMMAND  HAS  TO  BE  "RETRYED". 

14578    lOTERM  -  10  TERMINATION  ROUTINE 
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14582 

WAIT  UNTIL  ALL  10  THAT  IS  IN  PROGRESS  HAS  BEEf^  PROCESSED  3Y 

INTERRUPT  SERVICE  BEFORE  EXITING. THE  ROUTINE  WILL  CLEAR  THE 

PI  ASSIN6MENT  FOR  ALL  THE  EXISTING  RH'S.   SINCE  THIS  PROGRAM 

PRINTS  AT  HULTIABLE  LEVELS  MAINLINE  AND  INTERRUPT  SERVICE  THIS 

ROUTINE  WILL  PROVIDE  A  MEANS  TO  CONRTROLL  THE  INTERRRUPTS 

AND  PREVENT  INTERLACING  OF  ERROR  MESSAGES  .  THIS  IS 

IMPORTANT  ON  KLIO'S  SINCE  ITS  POSSIBLE  TO  HANG  IN  THE  SUBRT  PK6  . 


28-AU6-85  15:56:28      PAGE  30 


SEQ  0054 


14622 


14768 


14861 


ADDITIONAL  PROGRAM  PRINTERS 

14625       PINITP  "  ROUTINE  TO  REPORT  DISK  ADDRESS  AND  BUFFER  ADDRESS  USED 

AS  WELL  AS  THE  TRANSFER  SIZE  IN  USE. 

14707       TELTST  —  ROUTINE  TO  REPORT  THE  TEST  NAME  OF  TEST  EXECUTED 

14744       TELPAT  —  ROUTINE   TO  REPORT  THE  PATTERN  NAME  IN  USE 

14758       SWPNT  —  ROUTINE  TO  PRINT  THE  CONTENTS  OF  THE  PROGRAM  SWITCHES 

USED  WHILE  RUNNING. 

DATA  PATTERN  GENERATOR 


14771       GENDAT  —  ROUTINE  TO  GENERATE  A  DATA  PATTERN  SPECIFIED  BY  ".PATN 

FOR  A  BUFFER  OF  '\S1IE"  IN  A  MEMORY  ADDRESS  SPECIFIED  BY 
".BU'-F". 


1 1 


iHdIO       GENWD  —  ROUTINE  TO  GENERATE  1  WORD  OF  DATA  AND  EXIT  WITH 

"AC"  LOADED  WITH  THE  DATA.   ".PATN"  HAS   TO  BE  LOADED  WITH  A  VALID  NUMBER 


**«*t ♦***********««*******«*#« t ******* tt ****** t«*t *************** 

DATA  GENERATION  SUBROUTINES  -  BASIC 

***************************************************************** 

148^4  .ONES  —  GENERATE  ALL  ONSS 

14870  .ZEROS  —  GENERATE  ALL  ZEROS 

14876  .ALTB  —  GENERATE  ALTERNATE  BITS 

14882  .CALTB  —  GENERATE  COMPLEMENT  ALTERNATE  BITS 

14888  .FLZRO  —  GENERATE  FLOATING  ZERO  THROUGH  ONES 

14900  .FLONE  —  GENERATE  A  FLOATING  ONE   THROUGH  ZEROES 


ttmimitMmimmimmimmmi  j.  ii  nn  n 
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SEQ  0055 


DATA  GENERATION  SUBROUTINES  -  ADVANCED 


14911       .COUNT  —  GEN  A  HEXADECIMAL  CNT  OF  0  TO  -1 

14924       .RAND  —  GENERATE  RANDOM  NUMBEKS  OF  SORTS 

t*«*«v*<^«* ******************************************************* 

14938       DATA  GENERATION  SUBROUTINES 

14941  ♦. WORST  —  GENERATE  WORST  CASE  DATA  PATTERNS 

14978  .DA  —  GEN  ADDRESS  IN  CORE  THAT  CORRESPOND  TO  THE  DISK  ADDRESS 

15037  .CDA  —  GEN  COMPLEMENT  DISK  ADDRESSES 

15045  .CHPAT  —  SUBROUTINE  TO  GENERATE  AN  UP  COUNT  FOR  THE  DF10 

15065  .CHPAR  —  SUBROUTINE  TO  GENERATE  ALTERNATE  PARITY  WORDS 

15084  .DFDAT  —  DF10  DATA  PATTERNS  GENERATED  FOR  W102'S 

15105  .DFPTY  —  DF10  PARITY  LOGIC  DATA  PATTERNS 

15119  .HED10  -  .HED11   —  HEADER  AND  DATA  GEfJERATION  ROUTINES 

15209  .ADR  —  GENERATE  ADDRESS  RIGHT 

15220  .CADR  —  GENERATE  COMPLEMENT  ADDRESS  RIGHT 

15229       RANDOM  PARAMETER  GENERATOR 


15234 
15238 


RPARAM  —  ROUTINE   TO  GENERATE  RANDOM  013^  PARAWETERS 


THIS  RCUIINE  WILL  GENERATE  .  vwOM  DRIVE  PARAMETERS  AS  NEEDED 
BY  ENTERING  WITH  AC1  CONTAINING  THE  PROPER  DESIRED  PARAMETER 
DEFINITIONS.   PARAMETER  DF^NITIONS  ARE: 


SV6AS  =  4Q00( 

RR6AS  -  200( 

NWBAS  =  1i 

RSEC  =  041 

RsuR  =  qii 

RCYl  =  Q1( 

RSIZ  =  QQ4( 

RSIZA  =  5Q2( 

RSIZL  =  601( 

RTIM  =  0004( 


S'i<4   RANDOM  BASE  0 

RESTORE  RANDOM  BASE  0 

GENERATE  A  NEW  RANDOM  BASE  # 

GEN  A  RANDOM  SECTOR  # 

GEN  A  RANDOM  SURFACE  # 

GEN  A  RANDOM  CYLINDER  # 

GEN  A  RANDOM  TRANSFER  SIZE 

GEN  A  RANDOM  TRANSFER  ALTERNATE 

GEN  A  RANDOM  TRANSFER  LIMIT   TO  EVEN  0  B.OCK 

GEN  A  RANDOM  STALL   TIME 


■r«i«ii<*iiiM»  m  turn  ii#i» 
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SEQ  0056 


CLOCK  INTERRUPT  SERVICE 


15481 


15429      KAIO  OR  KI10  CHANNEL  1   SERVICE 
COnnON  DEVICE   INTERRUPT  HANDLER   (CHANNEL  5) 


15486 
15490 


15649 
15913 
16509 
16527 
16563 
16577 
16611 
16629 
16636 
16645 
16680 

16785 
16798 


INTERRUPT  PROCESSING  ON  CHANNEL  5 

ALL  DISK  INTERRUPTS   INITIALLY  SERVICED  ON  PI  LEVEL  4  REQUEST 
A  SOFTWARE   INTERRUPT  TO  LEVEL  5  FOR  FURTHER  PROCESSING.   CHANNEL 
5   INTERRUPTS  HANDLE  ALL  NOR^L  AND  ERROR  PROCESSING  FOR  THE 
DISK.   CHANNEL  5  SERVICE  IS  CO«HON  FOR  AL..  TYPES  OF  PDP-10 
PROCESSORS  AND  MASSBUS  CONTROLLERS.  UPON  DATA  TRANSFER  ERROR 
DETECTION.   LEVEL  5  SERVICE  WILL  REQUEST  A  DATA  RECOVERY  PROCEDURE 
USING  ECC  CORRECTION  AND  OFFSETTING  (IF  NECESSARY)   ON  INTERRUPT 
LEVEL  6. 

DSKDON  —  ROUTINE  TO  PROCESS  ALL     "DONE"  INTERRUPTS 

DSKATN  —  ROUTINE   TO  PROCESS  DISK  ATTENTION  INTERRUPTS 

DSKOV  —  ROUTINE   TO  PROCESS  ALL  RHIO  CONTROL  BUS  OVERRUNS 

JUNK  —  ROUHNE   TO  PRINT  ADDITIONAL  THINGS 

DONHDR  —  ROUTINE   TO  PRINT  THE  DONE   INTERRUPT  HEADER  MESSAGE 

ATAHDR  —  ROUTINE   TO  PRINT  THE  HEADER  NESSAGC  FOR  ATTENTION  INTERRUPTS 

ATACLR  —  ROUTINE   TO  CLEAR  THE  ATTENTION  BIT  IN  "DATTN5"  FOR  THE  DRIVE 

PSTAR  —  ROUTINE   TO  OUTPUT  A  STRING  OF   STARS 

PAKAK  -  ROUTINE   TO  ISSUE  A  PACK  ACKNOWLEDGE  COW1AN0 

DRVCLR  -  ROUTINE   TO  ISSUE  A  DRIVE  CLEAR 

STATUS  —  ROUTINE   TO  DETERMINE  THE  DRIVE  ERROR  AND  TO  REPORT   IT 
FROM  THE   STATUS  GATHERED  BY   THE   "SNAPSHOT'^*  OPERATION. 

PWRFAL  -  HERE   TO  PROCESS  A  POWER  FAILURE   IN  AN  RHIO  CONTROLLER 

DFERR  -  HERE  FOR  AN  RHIO  CHANNEL  ERROR 


mmtimmmmi'Mmm 
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16809       ECCTST  —  ROUTINE  TO  DETERMINE  AN  ECC  FAILURE  AND  PRINT  MESSAGE 

16875       E2ANAL  —  ROUTINE  TRANSLATES  ER2  DATA  TO  POSSIBLE  FAULTY  MODULES 
ON  ENTRY  ER2  DATA  IS  EXPECTED  IN  AC1. 

16959       E3ANAL  —  ROUTINE  TRANSLATES  ER3  DATA  TO  POSSIBLE  FAULTY  MODULES 
ON  ENTRY,   ER3  DATA  IS  EXPECTED  IN  AC1. 

1701A  SDBPE  -  HERE  FOR  A  DATA  BUS  PARITY  ERROR 

17027  SEXCEP  -  ROUTINE  TO  PROCESS  DRIVE  EXCEPTION 

1704A  SDTE  -  HERE  FOR  DRIVE  TIMING  ERROR 

1705A  SUNSF  -  HERE  FOR  DRIVE  UNSAFE 

17066  UPDERR  -  HERE  TO  UPDATE  ALL  THE  ERROR  COUNTERS   IN  THE  DRIVES'   DSB  AREA 

17110       HLTSW  —  ROUTINE   TO  SEE  IF  HALT  ON  ERROR  SWITCH  IS  SET  AND  TO 

HALT  IF   IT  IS 

17120       CLRALL  —  ROUTINE  TO  CLEAR  ALL  PENDING  DRIVE  COMMANDS  FROM  THE 

EXECUTE  QUEUE  BY  SETTING  THE  COMMAND  "EXECUTED"  BIT   IN  THE 
QUEUE  ENTRY  POINTER  WORD 

17152       STPCMD  —  ROUTINE  TO  TEMP.   CLEAR  ANY  PENDING  COMMANDS  TO  THE 

SELECTED  DRIVE  BY  SETTING  THE  "EXECUTED"  BIT  IN  THE 
COMMAND  QUEUE  ALONG  WITH  A  "CMD  STOPPED"  FLAG  IN  THE 
QUEUE  ENTRY. 

17183       STCMD  —  ROUTINE   TO  RESET  THE  COMMAND  STOPPED  BY  THE  "STPCMD" 

ROUTINE.    THIS  ROUTINE   IS  USED  TP  RESET   THE  COMMAND  QUEUE 
AFTER  A  RETRY  SEQUENCE   IS  FINISHED. 

17212       CLRCMD  —  ROUTINE  TO  CLEAR  THE  COMMAND  FROM  THE  DRIVE'S  DSB 

AREA  WHEN  THE   INTERRUPT  SERVICE   IS  DONE  WITH  IT. 

17305       RETCMD  WILL  SAVE  THE  MBC  2ND  COMMAND  AND  REQUEST  A  SOFTWARE   INTERRUPT 

ON  CHANNEL  6  FOR  THE  ERROR  RECOVERY  PROCEDURE 

17336       CHNTST  —  ROUTINE  TO  TEST  FOR  A  CHANNEL  ERROR  AND  REPORT   IF  ONE 

IS  FOUND 

17360       SNAPS  —  ROUTINE  TO  RETRIEVE  THE   17  DRIVE  REGISTERS'   DATA  INTO 

A  COMMON  AREA  CALLED  "SNAP"  BUFFER 

MBCN  POINTS  TO  THE   CORRECT  CONTROLLER  AND  "DRIVE"  POINTS 
TO  THE  CORRECT  DRIVE  WITHIN  THE   CON'.ROLLER. 

17427       DRREG  —  ROUTINE   TO  READ  THE  DRIVE  REGISTER  SELECTED  BY  CALLING 

"RDREG"  ROUTINE.     WILL   TAKE   THE  "FATAL"  ERROR  RETURN  IF 
IT  GETS  STUCK   IN  AN  RAE  ERROR  LOOP. 


PAGE  33 


SEQ  0057 
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17458       POSITIONING  AND  DATA  ERROR  RECOVERY  -  RETRY  (CHANNEL  6  INTERRUPTS) 


SEQ  0058 


17463 
17467 


17485 
17489 


RETRY  —  ERROR  RECOVERY 

ALL  NON-FATAL  DRIVE  ERRORS  DETECTED  DURING  THE  NORMAL  PROCESSING 
OF  DRIVE  INTERRUPTS  ON  CHANNEL  5  WILL  REQUEST  AN  ERROR 
RECOVERY  PROCEDURE  CALLED  "RETRY".  ONCE  A  DRIVE  IS  PROCESSING  A 
RECOVERY  REQUEST,  ALL  OTHER  SYSTEM  DATA  ^9ANSFERS  AND  POSITIONING  COMMANDS 
ARE  INHIBITED.  UPON  EITHER  A  SUCCESSFUL  OR  UN-SUCCESSFUL  ERROR  RECOVERY, 
NORMAL  PROGRAM  COMMAND  EXECUTION  IS  AUTOMATICALLY  ENABLED  AND  NORMAL 
PROGRAM  OPERATION  CONTINUES  UNTIL  ANOTHER  RECOVERABLE  ERROR  IS  DETECTED 
BY  INTERRUPT  SERVICE.   ALL  ERROR  RECOVERY  IS  INITIATED  AT  INTERRUPT  LEVEL 
AND  IS  AUTOMATIC. 

RECOVERY  ALGORITHM 

ERROR  RECOVERY  FOR  POSITIONING,   READ  HEADERS/DATA,  AND  WRITING: 
POSITIONING 


READ  HEADERS/DATA 
AND  WRITE 


ISSUE  A  RECALIBRATE  COMMAND  TO  THE  DRIVE  THEN 
TRY  TO  POSITION  AGAIN.   RETRY  LIMIT   IS  SET  TO  3. 
THIS  RECOVERY  IS  USED  FOR:  RECAL,SEEK,  &  SEARCH 

RE-ISSUE   THE  READ  COMMAND  AND  CHECK  FOR  ERRORS. 
RETRY  LIMIT  IS  SET  TO  3. 


17505 


ERROR  RECOVEKY  FOR  READ  DATA  COMMAND: 

TRY   TO  RECOVER  THE  WHOLE  DATA  TRANSFER  BY  SPLITTING  IT   INTO 
INDIVIDUAL  SECTOR  READ/RECOVER  TRANSFERS.   APPLY  THE  FOLLOWING 
ALGORITHIM  TO  EACH  SECTOR  OF   THE  TRANSFER  TO  BE  RECOVERED: 


1) 


2) 


5) 


4> 


ISSUE  UP  TO  16  RE-READS  OF  THE  SECTOR  AT  TRACK  CENTERLINE 
(NO  OFFSET)  AND  APPLY  ECC  CORRECTION  FOR  DATA  RECOVERY  IF 
NEEDED. 

IF  RECOVERY  IS  UN-SUCCESSFUL  AT   THIS  TIME,    ISSUE  UP  TO 

2  RE-READS  AT  HOG  MICRO-INCHES  OFFSET  FOR  RP04/05'S  OR  ^200  FOR 

RP06'S  AND  APPLY  ECC  CORRECTION  IF  NECESSARY. 

ISSUE  UP  TO  2  RE-READS  AT  -400  MICRO-INCHES  OFFSET  FOR  RP04/05'S  OR 

-200  FOR  RP06'S  AND  APPLY  ECC  CORRECTION  IF  NECESSARY. 

ISSUE  UP  TO  2  RE-READS  AT  ^-800  MICRO-INCHES  OFFSET  FOR  RP04/05'S  OR 

+  400  FOR  RP06'S  AND  APPLY  ECC   CORRECTION. 


MNMMMIMaMMIlH^ 
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5) 

6) 
7) 


ISSUE  UP  TO  2  RE-READS  AT  -800  MICRO-INCHES  OFFSET  FOR  RP0A/05*S  OR 

-400  FOR  RP06'S  AND  APPLY  ECC  CORRECTION. 

ISSUE  UP  TO  2  RE-READS  AT  +1200  MICRO-INCHES  OFFSET  FOR  RP04/05*S 
OR  -^600  FOR  RP06'S  AND  APPLY  ECC  CORRECTION. 

ISSUE  UP  TO  2  RE-READS  AT  -1200  MICRO-INCHES  OFFSET  FOR  RP0A/05*S 
OR  -600  FOR  RP06*S  AND  APPLY  ECC  CORRECTION. 


SEQ  0059 


FAILURE  TO  RECOVER  ANY  SECTOR  OF  DATA  WITHIN  THE  COMPLETE 
TRANSFER  AFTER  ALL  7  STEPS  OF  RECOVERY  HAVE  BEEN  APPLIED,   WILL 
RESULT   IN  THE  PROGRAM  ELIMINATING  THAT  PACK  AREA  FROM  FURTHER 
USE  AND  WILL  PRINT  "UN-SUCCESSFUL  RECOVERY..."  MESSAGE. 

IF   THE  "SOFT"  OR  "HARD"  ERROR  LIMIT  FOR  A  DRIVE  IS  EXCEEDED  DURING 
ERROR  RECOVERY,  AN  APPROPRIATE  ERROR  MESSAGE  WILL  BE  ISSUED  AND 
THE  DRIVE  WILL  BE  ELIMINATED  FROM  THE  TESTING  SEQUENCE. 

RETPOS  —  ROUTINE  TO  RECOVER  FROM  A  POSITION  ERROR 

RETDAT  —  ROUTINE   TO  RECOVER  FROM  A  DATA  TRANSFER  ERROR 

RETFAL  -  HERE  WHEN  THE  DATA  OR  POSITION  RECOVERY  PROCEDURE  EITHER  FAILED  OR 

XCTRET  —  ROUTINE  TO  CONVERT  A  STORED  DRIVE  COMMAND  FROM 
A  DRIVES  PRIMARY  DSB  AREA  INTO  AN  ACTUAL  DRIVE 
COMMAND  FOR  ERROR  RECOVERY  OF   THAT  COMMAND 

ECCCOR  —  ROUTINE   TO  PERFORM  ACTUAL  ECC  CORRECTION  OF  DATA  FOR  EITHER  16  BIT 
OR  18  BIT  FORMAT  OF  DATA  READ  FROM  "DISECT"  ROUTINE.   THIS  ROUTINE  WILL 
REPORT  THE  CORRECTION  MADE  TO  THE  DATA  IN  THE  BUFFER  IN  THE  FOLLOWING  FORMAT: 

##  ECC  CORRECTION  RECOVERY  #* 

ECC  POSITION  =  XXXX  ECC  PATTERN  =  XXXX 

BUFFER  ADDR  XXXXXXXX  XXXXXXXX 

DATA  BEFORE  ECC  XXXXXX  XXXXXX  XXXXXX  XXXXXX 

DATA  AFTER  ECC     XXXXXX  XXXXXX  XXXXXX  XXXXXX 


18781       CORPNT  —  ROUTINE   TO  REPORT  RESULTS  OF   THE  ECC   CORRECTION  USED 


1769A 
17966 
184A2 
18640 

18652 


NtaiiiMNinilMlilli 
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1884A 


SEQ  0060 


18948 


19025 


ADDITIONAL  UNIDENTIFIED  UUO  ERROR  HANDLER 


188A7       UUOERR  —  "SUBRTN"  DETECTED  UUO  ERRORS  WILL  REPORT  TO  THE  USER 

A  LIMITED  AMOUNT  OF  INFORMATION.  THIS  ROUTINE  WILL  UP- 
DATE THE  PROGRAM  'TATAL"  ERROR  COUNT,  CHECKSUM  THE  PROGRAM 
AREA  FOR  ILLEGAL  PROGRAM  MODIFICATION,  REPORT  THE  RUN 
TIME  OF  THE  UUO  ERROR,  AND  REPORT  THE  TEST  SELECTED  WHEN 
THE  UUO  ERROR  WAS  DETECTED. 

18861       USER  INTERCEPT  ERROR  HANDLING 


PROGRAM  CHECKSUMMING  SUBROUTINE 


18953 
18957 


.CKSUM  —  CHECKSUM  CALCULATOR  AND  CHECKER 

THE  PROGRAM  CHECKSUMMING  ROUTINE  EXCLUSIVE  OR'S  THE  ENTIRE  PURE 

AREA  OF  THE  PROGRAM  FROM  ADDRESS  ''ENTDDT"  TO  ADDRESS  "tNDSLD". 

THE  COMPUTED  CHECKSUM  IS  RETURNED  IN  ACO  AND  IS  COMPARED  TO  THE  VALUE  STORED 

IN  LOCATION  "CKSUM".   IF  THEY  ARE  UNEQUAL,  AN  ERROR  RETURN  IS  TAKEN  - 

EQUALITY  CAUSES  A  SKIP  RETURN. 

THE  FORMAT  OF  THE  CALL  IS  : 


CHKSUM 

ERROR  RETURN 
NORMAL  RETURN 

18983       CHSMER  -  CHECKSUM  ERROR  REPORTER 


.•SUBROUTINE  CALL  (PUSHJ) 
.•COMPUTED  CHECKSUM  DIFFERS  FROM  (CKSUM) 

IS  SAME  AS  (CKSUM) 


1 1 


i  • 


t*t«tt*-t********«*«t****t  ************  t**<r*****ttt*«t**«***t  ***•*• 

UTILITY  SUBROUTINES  FOR  RELIABILITY  TESTING 

19028   STFATL  —  ROUTINE  TO  CHECK  FOR  PGM  PARITY  ERROR  CHECKSUM  ERRORS 

THEN  RESTART  THE  PGM  IF  POSSIBLE. 
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19046       CPU  PARITY  ERROR  SERVICE 


19051 
19055 


PARITY  —  ROTUINE   TO  HANDLE  CPU  PARITY  DETECTED  ERRORS 


19262 


THIS  ROUTINE  WILL  ATTEMPT  TO  REPORT  WHERE  THE  PARITY 

OCCURRED  AND  ATTEMPT  TO  CONTINUE   IF  POSSIBLE. 

KL10  TYPE  CPU'S: 

THE  MBOX  ERROR  ADDRESS  REG  WILL  BE  READ  AND  DETERMINED 

WHETHER  THE  ADDRESS  IS  IN  THE  PROGRAM  AREA  OR  NOT. 

KA/KI'S* 

THE  PROGRAM  AREA  AND  DATA  BUFFER  AREA  WILL  BE  SCANNED 

IN  AN  ATTEMPT  TO  IDENTIFY  THE  FAILING  ADDRESS  OR 

ADDRESSES. 

FOR  ALL  TYPES  OF  CPU'S  THE  FOLLOWING  ACTION  WILL   TAKE 
PLACE : 

PARITY  ERROR  IN  PROGRAM  AREA  -  FATAL  ERROR  HALT 
PARITY  ERROR  NOT  IN  PROGRAM  AREA  -ATTEMPT   TO  CONTINUE. 

******* t ** t t* ************** t***t *************** tt***t ****** ****** 

Help  Texts 
***************************************************************** 


SEQ  0061 


***************************************************************** 

1938A       MASSBUS  CONTROLLER  UTILITY  PACKAGE 

********************************************* ***tt*************** 

19391       THE  CODE   IN  THIS  FILE   IS  ASSEMBLED  BASED  ON  SEVERAL  SWITCHES  THAT 
APPEAR   IN  THE  PROGRAMS   TITLE  FILE.    THEY  ARE: 


RS04==1 
RP0X==1 
TU16==1 


ASSEMBLE  CODE  FOR  THE  RS04 
ASSEMBLE  CODE  FOR  THE  RPOX 
ASSEMBLE  CODE  FOR  THE   TU16 


WHEN  SETTING  UP  THE  SWITCHES,   DO  NOT  SELECT  MORE   THAN 
ONE  DRIVE   TYPE  AT  A  TIME. 

TWO  UUO'S  MUST  ALSO  BE   DEFINED   IN  THE   TITLE   FILE   AS  FOLLOWS: 
OPDEF        TEXT         fxXB8]  .-PRINTS  A  LINE  OF    TEXT 

OPDEF        TEXTF        LYYBS]  .-PRINTS   TEXT   IN  FORCED  MODE 

LUUOXX=  TEXT. 
LUUOYYr   TEXTF. 

THE  "BOX"  AND  "S"  MACROS  MUST  BE   DEFINED  BEFORE   USING  THIS  FILE. 
•BOX"  LOOKS  LIKE    THIS: 

DEFINE  BOX   (TEXTA.TEXTB)^ 

LALL 

LIST 

PAGE 

s  ■  .  .   


L. 
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;*  TEXTA 


PAGE  38 


SEO  0062 


S 

COMMENT 


19431 
19435 


$ 

TEXTB 
S 

XLIST 
XALL 
LIST 
> 


NOTES  ON  I/O  ROUTINE  DESIGN 


1.  ALL  CODE  IN  THIS  FILE  IS  RE-ENTRANT 

2.  THE  ROUTINES  EXPECT  TO  FIND  THE  DRIVE  NUMBER  IN  AN  AC  LABLED 

"DRIVE*^*  BITS  33-35  . 

3.  THE  ROUTINES  WILL  EXPECT  TO  FIND  THE  CONTROLLER  DEVICE  CODE 

IN  AN  AC  LABLED  'TOCN"  (MASS6USS  CONTROLLER  NUMBER) 
BITS  3-9 

4.  NO  AC'S  ARE  MODIFIED  UNLESS  THEY  RETURN  DATA. 

*************** t**«t*t***«********t****tt*t***t**t*t************* 
19450   REGISTER  LOAD  AND  READ  ROUTINES 


19456 
19460 


MASSBUS  DEVICE  REGISTER  LOAD  ROUTINES 


SPECIFICATION: 

DEVICE  REGISTERS  ARE  LOADED  BY  SETTING  UP  ACI 
WITH  SOME  APPROPRIATE  ARGUMENT  AND  THEN  CALLING  THE  CORRECT 
ROUTINE  WITH  A  PUSHJ.  THE  ROUTINES  HAVE  A  NORMAL  RETURN  AND  AN  ERROR 
RETURN. 

EG.     MOVE    ACKFOO 
GO     LDREG 
RTN1 
RTN2 


;GET  SOME  ARGUMENT 
;(REG  f)  RANGES  FROM  00-37  OCTAL 
;RAE  DETECTED  AFTER  THE  LOAD 
;LOAD  WAS  SUCCESSFUL 


ACI* 

SPECIFY  REGISTER  NUMBER  IN  BITS  0-5 
SPECIFY  REGISTER  DATA  IN  BITS  20-35 
SPECIFY  PARITY  MODE  BIT  18 

0  MEANS  ODD 

1  MEANS  EVEN 

.■>ECIFY  SOFTWARE  OPTION  BITS  13-H 
BIT  13=0       CLtAR  RAE'S 
BIT  13=1       DON'T  CLEAR  RAE'S 
BIT  14=0       REPORT  RAE'S 
BIT  14=1       DON'T  REPORT  RAE'S 
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SEO  0063 


19593 
19597 


19715 
19719 


STATUS: 

IF  NO  ERRORS  ARE  DETECTED.  ACl  IS  RETURNED  AS  IT  WAS 

SPECIFIED  EXCEPT  FOR  THE  REGISTER  AND  DRIVE  FIELDS  WHICH  WILL  HAVE 

BEEN  SUPPLIED  BY  THE  ROUTINE. 

ACl  ON  RETURN  FROM  AN  RHlO  ERROR  HOLDS  THE  PRESENT  VALUE 

OF  THE  DIB.  ACl  ON  RETURN  FROM  AN  RH20  ERROR  HOLDS  THE  DATAO  ARGUMENT 


T^Al 


CAUSED  THE  RAE. 


MASSBUS  DEVICE  REGISTER  READ  ROUTINES 

SPECIFICATION: 

DEVICE  REGISTERS  ARE  READ  INTO  ACl  BY  SETTING  UP  SOME  ARGUMENT 

IN  ACl  AND  THEN  CALLING  THE  CORRECT  ROUTINE  WITH  A  PUSHJ  . 

THE  ROUTINES  HAVE  A  NORMAL  RETURN  AND  2  ERROR  RETURNS. 
EG.     HOVE    AC1,F00        ;SOME  ARGUMENT 

GO     RDREG  :(REG  #)  RANGES  FROM  00-37  OCTAL 

RTNl  ;RAE  DUE  TO  CTRL  BUSS  TIMEOUT 

RTN2  ;RAE  OTHER  THAN  CTRL  GUSS  TIMEOUT 

RTN3  :READ  WAS  SUCCESSFUL 

ACl: 

SPECIFY  REGISTER  NUMBER  IN  BITS  0-5 

SPECIFY  PARITY  MODE  BIT  18 

0  MEANS  ODD  PARITY 

1  MEANS  EVEN  PARITY 
SPECIFY  SOFTWARE  OPTION  BITS  13-U 

BIT  13=0  CLEAR  RAE'S 

BIT  13=1  DON'T  CLEAR  RAE'S 

BIT  14=0  REPORT  RAE'S 

BIT  U=l  DON'T  REPORT  RAE'S 

STATUS: 

UPON  COMPLETING  A  REGISTER  READ,  ALL  36  BITS  OF  THE  DIB  REG  (RHIO)  OR 

PREP  REG  (RH20)  ARE  RETURNED  IN  ACl.  THE  ERROR  RETURNS  ARE  TAKEN  IF  AN  RAE  IS 

DETECTED  BY  THE  CONTROLLER  DURING  THE  READ  OPERATION.  THE  CONDITIONS 

THAT  CAUSE  THE  RAE  ARE  DIFFERENT  FOR  THE  RHlO  THAN  RH20  AND  MAY  BE 

ANALYZED  BASED  ON  THE  STATUS  FROM  ACl. 

ROUTINES  FOR  WRITING  RHlO  INTERNAL  REGISTERS 

THERE  ARE  4  INTERNAL  REGS  THAT  CAN  BE  WRITTEN  INTO  WITH  A 
CALL  10  THE  PROPER  SUBROUTINE. 


ENTRY  POINTS  ARE: 

LDCR 

LOIAR 

LDDBUF 

LDRAE 


;LOAD  THR  CONTROL  REG 

.•LOAD  THE  INTERRUPT  ADDRESS  ^IQ 

.•LOAD  THE  DATA  BUFFER  REGISTER 

;LOAD  THE  RAE  REG 


ARGUMENTS  ARE  PASSED  IN  ACl.  BITS  ARE  DEFINED  EXACTLY 

AS  IN  THE  RHlO  SPEC.  THE  ROUTINES  RETURN  TO  CALL*1  ALWAYS. 
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SEQ  006A 


EG.  HOVE         ACKARG 

GO  LDRAE 

RETURN 


GET  THE  DATA 

yANT  TO  LOAD  THE  RAE  REG 

RETURNS  HERE 


19765    ROUTINES  FOR  READING  RHIO  INTERNAL  REGISTERS 

19769 

THERE  ARE  6  INTERNAL  RH10  REGISTERS  THAT  CAN  BE  READ 

INTO  AC1  WITH  A  CALL  TH  THE  PROPER  SUBROUTINE.  THE   ROUTINES 

RETURN  TO  CALL^I  ALWAYS. 


THE  ENTRY  POINTS  ARE: 

RDDIB 

RDRAE 

RDIAR 

RDD6UF 

RDCR 

RDCBUF 


READ  THE  DIB  REGISTER 

READ  THE  RAE  REGISTER 

READ  THE  INTERRUPT  REGISTER 

READ  THE  DATA  BUFFER  REGISTER 

READ  THE  TRANSFER  REGISTER 

READ  THE  CHANNEL  BUFFER  REGISTER 


NOTE:  -  -  THE  CHANNEL  BUFFER  REG  IS  36  DATA  BITS  WIDE 

UNLIKE  THE  OTHER  REGISTERS  IN  THE  RHIO.  BECAUSE 
OF  THIS  PROPERTY,  THE  REGISTER  NUMBER  IS  NOT 
RETURNED  AS  PART  OF  THE  DATA. 

EG.     60     RDIAR  ;READ  THE  CURRENT  INTERRUPT  ADR 

RETURN  .-RETURN  HERE 

19819    ROUTINES  FOR  WRITING  RH20  INTERNAL  REGISTERS 

19823 

THERE  ARE  5  INTERNAL  REGISTERS  IN  THE  RH20  THAT  ARE 
WRITEABLE  WITH  A  CALL  TO  V\E   PROPFR  SUBROUTINE. 

THE  ENTRY  POINTS  ARE: 

LDSBAR  ;LOAD  THE  SECONDARY  BLOCK  ADDR  P'^GISTER 


LDSTCR 
LDIVRG 
LDDCR 
LDWTRG 


LOAD  THE  SECONDARY  TRANSFER  C?firROL  REGISTER 

LOAD  THE  INTERRUPT  VECTOR  REGISTER 

LOAD  THE  DIAGNOSTIC  CONTROL  REGISTER 

LOAD  THE  WRITE  REGISTER 


ARGUMENTS  ARE  PASSED  IN  AC1  AND  THE  BITS  ARE  DEFINED  EXACTLY 
AS  SEEN  IN  THE  RH20  SPEC. THE  ROUTINES  RETURN  TO  CALL^I  ALWAYS. 

EG.     HOVE    AC1,ARG        ;SOHE  ARGUMENT 

GO     LDIVRG         ;LOAD  THE  INTERRUPT  VECTOR  REG 
RETURN  .-RETURN  HERE 

19872    ROUTINES  FOR  READING  THE  RH20  INTERNAL  REGISTERS 


L 
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19876 


SEQ  0065 


THERE  ARE  6  INTERNAL  REGISTERS  WITHIN  THE  RH20  THAT  CAN  BE 
READ  BY  MEANS  OF  A  CALL  TO  THE  PROPER  SUBROUTINE. 
THE  REGISTERS  ARE  READ  INTO  AC1  ANDTHE  ROUTINES  RETURN  TO 
CALL^I  ALWAYS. 


THE  ENTRY  POINTS  ARE: 

RDSBAR 

RDSTCR 

RDP6AR 

RDPTCR 

RDIVRG 

RDRDR6 


READ  THE  SECONDARY  CLOCK  ADDR  REG 
READ  THE  SECONDARY  XFER  CTRL  REG 
READ  THE  PRII1ARY  BLOCK  ADDR  REG 
READ  THE  PRIMARY  XFER  CTRL  REG 
READ  THE  INTERRUPT  VECTOR  REG 
READ  THE  READ  REGISTER 


THE  BITS  ARE  DEFINED  EXACTLY  AS  IN  THE  RH20  SPEC 
EG. 


60     RDIVRG 
RETURN 


;READ  CURRENT  INTERRUPT  ADDRESS 
;ADDRESS  IS  IN  AC1 


19923 
19927 


CONTROLLER  C0N0,C0NI,C0NS0,C0NS2  (I/O)  ROUTIKlS 

SPECIFICATIONS* 

THESE  ROUTINES'aRE  USED  TO  PERFORM  THE  VARIOUS  CONDITIONS  OPERATIONS 

TO  MASSBUS  CONTROLLERS.  AC1  IS  USED  FOR  ARGUMENT  PASSING. 

.CONI   IS  THE  ONLY  ROUTINE  OF  THE  4  THAT  WILL  ALTER  AC1. 

THE  CONO  ROUTINE  IS  DESIGNED  TO  ALLOW  THE  USER  TO  ATTEMPT  TO 

SET  BITS  IN  THE  SAME  CALL  AS  DOING  AN  RHCLR.  THIS  ROUTINE  WILL 

EXECUTE  THAT  TYPE  OF  OPERATION  CORRECTLY. 


EG. 


MOVE 

GO 

RETURN 

&i 

RETURN 


ACI.FOO 
.CONO 


.CONI 


MOVE    ACKFOO 
60     .CONSZ 
RETURN-1 
RETURN-2 

MOVE    AC1,F00 
60     .CONSO 
RETURN-1 
RETURN-2 


SOME  CONDITIONS  FOR  A  CONO 

THE  CALL 

CONO  HAS  BEEN  COMPLETED 

WANT  TO  DO  A  CONI 
CONI  DATA  IS  IN  AC1 

A  MASK  FOR  A  CONSZ 

THE  CALL  (NO  STATUS  IS  RETURNED) 

NOT  ALL  BITS  ZERO 

ALL  BITS  ARE  ZERO 

A  MASK  FOR  A  CONSO 

THE  CALL  (NO  CONDITIONS  ARE  RETURNED) 

NO  BITS  ARE  ONE 

AT  LEAST  ONE  BIT  IS  A  ONE 
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SEQ  0066 


19988   DATA  CHANNEL  SUBROUTINES 


19994 
19998 


ROUTINES  TO  INTERFACE  WITH  A  CHANNEL 


THERE  ARE  4  ROUTINES  AVAILABLE  FOR  INTERFACING  WITH 
A  DATA  CHANNEL  WHOSE  CHARACTERISTIC  DIFFERENCES 
BECOME  TRANSPARENT  TO  THE  USER. 


NAME 

CHINIT 
GENCCW 
L06PNT 
CCWPNT 


FUNCTION 

INITIALIZE.  RE-SYNC  HARDWARE  AND  SOFTWARE 
GENERATE  A  LIST  OF  CCW'S  IN  CORE 
PRINT  CHANNEL  LOGOUT  DATA 
PRINT  A  CCW  LIST  FROM  MEMORY 


20017 
20021 


NOTES  ON  INITIAL  CONTROL  WORD  ADDR. 


WITH  EACH  CONTROLLER  JS   AN  ASSOCIATED  CHANNEL  M. 

THE  CHANNEL  ROUTINES  DEFAULT  TO  THE  FOLLOWING 

INITIAL  CONTROL  WORD  ADDRESSES  FOR  EACH  OF  THE  CHANNELS. 


TYPE 

DEV.  CODE 

RH10 

270  RMO 

RH10 

274  RMl 

RHIO 

360  RM2 

RH10 

364  RM3 

RHIO 

370  RM4 

RHIO 

374  RM5 

RH20 

540  RHO 

RH20 

544  RHI 

RH20 

550  RH2 

RH20 

554  RH3 

RH20 

560  RH4 

RH20 

564  RH5 

RH20 

570  RH6 

RH20 

574  RH7 

CHAN  # 


? 


ICW-ADR 

700 

704 
710 
714 
720 
724 

EPT^OO 
EPT+04 
EPT+10 
EPT^K 
EPTi20 
EPT*24 
EPT^30 
EPT+34 


20050 
20054 


CHANNEL  INITIALIZATION  ROUTINE 


SPECIFICATION: 
THIS  ROUTINE  SYNCHRONIZES  THE  SOFTWARE  AND  HARDWARE  CHAN  LOGIC. 


EG, 


AC1: 


MOVE 

GO 

RETURN 


1,AR61 
CHINIT 


; SETUP  AC1 

;CALL  THE  ROUTINE 


L 
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SPECIFY  (ACDR  START  ADDR  Of  CHANNEL  COMMAND  BUFFER 
SPECIFY  (ACDL  SIZE  OF   THE  CHANNEL  COMMAND  BUFFER 
NOTE  -  -  FOR  FIGURING  OUT  THE  SIZE  OF  THE  COMMAND  WORD 

BUFFER  IT  SHOULD  BE  NOTED  THAT  THE  GENCCW  ROUTINE 

WILL  TRANSFER  A  MAXIMUM  OF  8192.  WORDS  PER  CCW 

USING  AN  RH10  WHILE  WE  CAN  TRANSFER  ONLY  1920. 

WORDS  PER  CCW  USING  AN  RH20. 


SEQ  0067 


r 

it 
C 


20116 
20167 
20171 


SETCHN  —  ROUTINE   TO  RESET  THE  DATA  CHANNELS  TO  INITAL  CONDITIONS 
CHANNEL  COMMAND  WORD  GENERATOR 


SPECIFICATION: 

THIS  ROUTINE  TAKES  A  PDP-10  WORD  COUNT  AND  A  CORE 
ADDRESS  AND  TRANSLATES   IT  TO  A  LIST  OF   CCWS  IN  A 
COMMAND  RING  BUFFER  DEFINED  AT   INIT  TIME.    IT  RETURNS 
THE  STARTING  ADDRESS  OF   THE  LIST  WITHIN  THE  RING, AND 
THE  #  OF  CCWS  FOR  THIS  TRANSFER. 


EG. 


MOVE 

MOVE 

MOVE 

GO 

RETURN 


AC3,ARG3 
AC2,ARG2 
AC1 ,ARG1 
GENCCW 


;A  ZERO  FILL  SPECIFIER 
:POS  OR  NEG  WORD  COUNT 
;AN  ADDR  UP  TO  22  BITS 
;8UILD  THE  COMMAND  LIST 
.•RETURNS  HERE 


AC1  * 

CONTAINS  A  22  BIT  ADDRESS  SPECIFYING  WHERE  TRANSFER  IS  TO  START. 

AC2* 

POS'OR  NEG  WORD  COUNT  FOR  M  OF  WORDS  TO  GO  TO  OR  FROM  THE  DEVICE.     A  NEG  WORD 
COUNT  ON  THE  RH20  WILL  CAUSE  THE  ROUTINE   TO  ASSUME   THAT  READ  REVERSE   IS  DESIRED 
AND  THE  APPROPRIATE  COMMAND  LIST  WILL  BE  GENERATED.   FOR  RHIO'S  A  NEGATIVE  WORD 
COUNT  OR  POSITIVE  WORD  COUNT  ARE  HANDLED  THE  SAME. 

AC3* 

THIS  AC  IS  IGNORED   IF  AN  RHIO  IS  USED.      IF  RUNNING  AN  RH20,   A  POSITIVE, 
NGN-ZERO,  WORD  COUNT  WILL   CAUSE   THE  ROUTINE  TO  ASSUME   THAT  ZERO  FILL  COMMAND 
WORDS  ARE  DESIRED  IN  THE  L/ST  AND  THE  APPROPRIATE  ZERO  FILL  WORD  WILL  BE 
GENERATED.    IT  FURTHERMORE  REQUIRES  THAT   THE  VALUE   IN  AC3  IS  cQUAL   TO   THE  NUMBER 
OF  WORDS  IN  ONE  SECTOR  OF   THE  DISK. 

RETURN: 

ON  RETURN  AC1   WILL  CONTAIN  THE   FOLLOl^ING:- 

(ACDL  '  0  Of   COMMAND  WORDS  GENERATED  BY  THE  ROUTINE 

(ACDR  =  PCiriTS  TO  THE   FIRST  WORD   IN  THE  LIST. 

20310         RH20  CCW  STORE  ROUTINE 


m^im,mrnim  i  nOh  ■■  mmin*mlK*^ 


t,tm*  nmaiimmuiiw 
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203U 

1.  PUTS  C(ACl)  IN  CCW  BUFFER 

2.  DOES  BUFFER  MANAGEMENT 

3.  COUNTS  EACH  CCW  ENTERED 


PAGE  44 


SEQ   0068 


r 

1 

c 
c 


20754 


20411 
20415 

20437 
20441 


THE  CCW  IS  RETURNED  AN  AC1  AS  RECEIVED  EXCEPT  FOR 
THE  "OP-DATA"  BIT  (BIT-0)  WHICH  IS  SET 

RH10/DF10  CWST  ROUTINE 


PUTS  THE  C(AC1)  IN  THE  CCW  LIST  AND  UPDATES  THE 
BUFFER  POINTER  ALONG  WITH  COUNTING  THE  iENTRY. 

CHANNEL  LOGOUT  PRINTER 


ROUTINE  PRINTS  THE  STATUS  OF  THE  CHANNEL  AT  LOGOUT  TIME. 


20576 
20580 


EG.     GO     LOGPNT 
RETURN 

CHANNEL  COMMAND  LIST  PRINTER 


; PRINT 
:AND  RETURN 


RUNS  THROUGH  CORE  PRINTING  THE  COMMAND  LIST  FOR  A  PARTICULAR 
TRANSFER. 

EG. 


MOVE 

AC1,ARG 

;#COMMAND  WDS,,ADDR  OF  FIRST 

Go 

CCWPNT 

; PRINT 

RETURN 

;AND  RETURN 

ACI  • 

SPECIFY  (ACDR  ADDRESS  OF  FIRST  COMMAND  WORD 

SPECIFY  (ACDL  #  OF  WORDS  IN  THE  LIST 

(THESE  PARAMS  WERE  RETURNED  WHEN  GENCCW  WAS  CALLED) 

REGISTER  AND  CONI  PRINT  ROUTINES 


20759 
20763 


CONI  PRINTER  AND  REGISTER  BIT  PRINT  ROUTINES 


THERE  ARE  TWO  MODES  OF  PROGRAM  PRINTOUT:  NORMAL  (LONG) 
AND  SHORT  (TEXT  INHIBIT  SWITCH  IS  SET).  THE  NORMAL  MODE 
INTERPRETS  THE  REGISTER  BITS  IN  ENGLISH  (SIXBIT  FORMAT) 
WHILE  THE  SHORT  PRINTOUT  MODE  PRINTS  REGISTER  AND 
CONI  DATA  IN  HALFWORD  OCTAL  MODE. 


TO  USE  THE  CONI  PRINTER: 

MOVE  AC1.ARG 

60  CONIPT 
RETURN 


.•FETCH  CONI  DATA 
.•PRINT  IT 


i 
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SEQ  0069 


r 

D 
D 


TO  USE   THE  REGISTER  PRINTER: 
MOVE         AC1-ARG 
60  REGPNT 

RETURN 


;36  BIT  DATAI  WORD 
;PRINT   IT 


20951 


THE  REGISTER  PRINTER  GETS  THE  REGISTER  NUMBER  AND  DRIVE 
NUMBER  FROM  THE  LEFT  HALF  OF   THE  DATAI   WORD. 

TO  USE  THE  CHANNEL  BUFFER  PRINTER  FOR  THE  RHIO   (REG  74): 
MOVE         ACKDATA  ; 36  BIT  CHAN  BUFF   DATA 

RETURN 
GO  CBUFPT  .-PRINT   IT. 

REG-CONI  PRINTER  LOOKUP  TABLES 
***************************************************************** 


20956 
20960 


VARIOUS  TABLES  NEEDED  BY  PRINT  ROUTINES 


21499 


THERE  ARE  SEVERAL  TYPE   TABLES  HERE  AND  MOST  ARE  SELF 
EXPLANHORY.   THERE   IS  ONE  TYPE  THAT  NEEDS  CLARIFICATION. 
SOME  OF   THE  SIXBIT  TABLES  HAVE  OCTAL  WORDS  AS  THEIR  FIRST 
TWO  ENTRIES  FOLLOWED  BY  THE  NORMAL  LIST  OF   SIXBIT  NAMES. 
THESE   TABLES  ARE  SET  UP  FOR  USE  WITH  THE  '^YPBIT"  SUBROUTINE 
AND  THE  FIRST  TWO  OCTAL  WORDS  ARE  riAbKS  FOR  '"TYPBIT". 
WORD-1:   HAS  A  ONE  IN  EACH  OF   THE   36  BIT  PUCITIONS  FOR  WHICH 

THERE   IS  A  CORRESPONDING  SIXBIT  NAME. 
WORD-2:   HAS  A  ONE   IN  EACH  BIT  POSITION  THAT  SHOULD  NEVER 

BE  NON-ZERO. 

*«#*«*******♦***«*♦* *♦*%******•*****« t *********** t*«**tt *««****♦* 

REGISTER  BYTE   INFORMATION  PRINTERS 


21504 
21508 


REGISTER  BYTE  PRINT  ROUTINES 


THESE  ARE  THE  ROUTINES  THAT  PRINT  THE  DATA  FROM 
VARIOUS  REGISTERS  WHEN  THE  DATA  IS  ORGANIZED  IN 
BYTES. 


HMteMMMMMW 


lilW^lltlMWWaiBrWDiiMl.riH.  ami     iinilili     lili.irllli   ii»»— WWiiiH.llfli i  Mil 


tlilliL m  lt< 


L 


r 
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SEQ  0070 


21834 


BIT  PRINTED  ROUTINE     -TYPBIT- 


D 
D 


21746 
21750 


TYPBIT  -  -  TABLE  BIT  PRINTER 


THIS  ROUTINE   IS  USED  TO  TRANSLATE  ONES  IN  A  36  BIT 
DATA  WORD  TO  A  SERIES  OF   EQUIV.   SIXBIT  MESSAGES  TAKEN 
FROM  A  TABLE.    THE  DESCRIPTION  OF   THE  TABLE  LAYOUT  IS  FOUND 
AT  THE  START  OF   THE   TABLE  SECTION.   THIS  ROUTINE  MERELY 
TRANSLATES  ONE   TO  SIXBIT  MESSAGES  AND  ALSO  TYPES  ERROR 
MESSAGES   IF   IT  FINDS  ONES  IN  BIT  POSITIONS  WHERE  THEY  ARE 
NOT  EXPECTED. 

EG. 


MOVE 

AC1,ARG1 

;36  BITS  OF  DATA 

MOVE 

AC2,ARG2 

.•POINTER  TO  DESCRIPTOR  TABLE 

GO 

TYPBIT 

;CALL  THE  ROUTINE 

RETURN 

; RETURNS  ^1   ALWAYS 

**************************************** **«**t**«tt****tt ******** 

ADDITIONAL  PRINT  UTILITIES 
***************************************************************** 


21839 
21843 


SOME  ADDITIONAL  PRINT  UTILITIES 


ROUTINES  WHOSE  NAMES  ARE  PROCEEDED  WITH  A  PERIOD 
PRINT  ONLY  SINGLE  CHARACTERS.    THOSE  PROCEEDED  WITH  AN 
•V  PRINT  MULTIPLE   TIMES.    THE  NUMBER  OF   TIMES  IS 
SPECIFIED  BY  ACO  IN  THE   SUBROUTINE  CALL. 

THE  FOLLOWING  ARE  AVAIL: 


GO 

.CRLF       PRIN'S  A  CRLF    (TYPICAL   CALL) 

GO 

.SPACE 

GO 

.TAB 

GO 

.DASH 

GO 

.PERIOD 

GO 

.QUEST 

GO 

MZERO 

GO 

.EQUAL 

GO 

.MINUS 

21912 

PSDN 

-  -  PRINTS  SIGNED  DECIMAL  NUMBERS 

21916 

PSDN  PRINTS  THE  CONTENTS  OF   ACO  AS  A  SIGNED  DECIMAL 
NUMBER  FOLLOWED  BY  A  PERIOD.   LEADING  ZEROS  ARE 
SURPRESSED. 


ii*>i.iaiiiiiwi*i  II  lii^liriii  1  *Wi  11 


L 
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21938        POCT  -  -  OCTAL  NUMBER  PRINTER 

21942  V 

POCT  PRINTS  THE  CONTENTS  OF  ACO  AS  AN  OCTAL  NUMBER. 
LEADING  ZEROS  ARE  SURPRESSED. 
FUNCTIONS  OF  AC'S  FOR  THE  ROUTINE: 
AC  FUNCTION 

HOLDS  PRINT  CHAR 

DIGIT  COUNTER 

A  FLAG 

OCTAL  DIGIT  BYTE  POINTER 


28-AUG-85  15:56:28      PAGE  47 


22012 


22033 


21982 
21986 


HERE  ARE  2  TEXT  UUO  UTILITIES 


THESE  UUO'S  USE  THE  UUO  E-FIELD  AS  A  POINTER  TO  TEXT 
IN  ASCIZ  FORMAT.   THEY  MERELY  PRINT  THE  TEXT  IN  THE 
NORMAL  OR  FORCED  PRINTOUT  MODE. 

THE  UUO'S  MUST  BE  DEFINED  IN  THE  PROGRAMS  TITLE  FILE. 
EG.  OPDEF       TEXT         [30B8J     .-PRINT  NORMAL 

OPDEF       TEXTF       C31B83     ; PRINT  FORCED 


LUU030=  TEXT. 
LUU031=  TEXTF. 


; SERVICE  ROUTINE 


♦STOR*  RESERVED  STORAGE.  SEPT  18.1979 

STORE  FILE  FOR     DISK  PACK  RELIABILITY  TEST 

22038       JSR  LINKAGES  FOR  THE  CLOCK  SERVICES 

22051       USER  MODE  BLOCK  STORAGE  AREA 

22069       THE  NEXT  BLOCKS  WERE  ADDED  FOR  THE  7.02  MONITOR  RELEASE. 

22084       STORAGE  AND  COMMAND  AREA  FOR  ERROR  RECOVERY  -  RETRY  ROUTINE 

22130       COMMAND  UUO  BUFFER 

22144       SfACK  FOR  THE   INTERRUPT  SERVICE 

22150       STORAGE  FOR  SNAPS   (DRIVE  REGISTER  READ  ROUTINE) 


SEQ  0071 


r 

D 
D 


mlHWpW— !«#»ilMMMM I* -n^*^ .^.^■■^^■^^,  ^^,.»»,^--wW». 


■  iilb..>»wi>wn'iiii  >iiiiiifw  **i«»wii«wi«<i»jii*wi>iliiiiM«Mi»i'i<<ai>iW>»*iii*  wiiiiai^jifijrtwipi ■»»■>»*«■ 


L 
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SEQ  Q072 


22159 
22163 

22261 
22265 


22278 
2235A 
22A53 
22508 
22607 


CONTROLLER  DEPENDANT  STORAGE  AND  VARIABLES 

HERE  ARE  VARIABLES  FOR  THE  RHIO  AND  RH20  THAT  CONTROL 
VARIOUS  PROGRAM  FUNCTIONS  (CHANNEL  ROUTINES,  ETC.) 

INTERUPT  SERVICE  FOR  CHANNEL  4 

ALL  DRIVE  INTERUPTS  WILL  BE  HANDELED  INITIALLY  ON  INTERRUPT 
CHANNEL  #4.  CHANNEL  4  WILL  SAVE  THE  CONTROLLER  "CONI", 
THE  CONTROLLER  DEVICE  CODE  ft.   ATTENTION  SUMMARY  REGISTER 
CONTENTS,  AND  THE  INFORMATION  IN  THE  CONTROLLERS*  CONTROL 
REGISTER(S).  FURTHER  INTERRUPT  PROCESSING  WILL  BE  DONE 
ON  INTERRUPT  LEVEL  5  BY  REQUESTING  A  SOFTWARE  INTERRUPT 
FOR  LEVEL  5  WHILE  IN  LEVEL  4. 

SERVICE  FOR  DRIVE/KIIO  CHANNEL  4  VECTORING 

SERVICE  FOR  KLlO  CHANNEL  4  VECTORING 

SERVICE  FOR  KAIO  CHANNEL  4  INTERRUPT  SERVICING 

CODE  COMMON  TO  ALL  CHANNEL  4  INTERRUPT  SERVICES 

INTERRUPT  LINK  FOR  CHANNEL  5  AND  6 


r 

D 
D 


L 


DDRPl  • 
DDRPIT 


]8 
39 
AO 

t\ 

43 
4A 
45 
46 
47 
48 
49 
50 
51 
52 


RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  2538(1242)  15:51  28-Aug-85  Page  1 
MAC     28-Aug-85  15:06        GENERAL  MASSBUS  DEVICE  DEFINITION  FILE 

;2:<6SC0TT.DDRPI>DDRPIT.MAC.38  28-Aug-85  14:35:35,  Edit  by  6SC0TT 
;Add  SEARCH  MONSYM,  removei  OPDEFs  of  random  JSYSes 
;Z:<GSC0TT.DDRPI>DDRPIT.MAC.32  28-Aug-85  10:10:49,  Edit  by  6SC0TT 
.-Remove  "S"  macro,  start  version  15 


SEQ  0073 


D 
D 


000000 
00001 5 


MCNVER= 
DECVER= 


=0 
=15 


;E.VER  15 


TITLE 


X 


000137 

000137  000000  000015 


SALL 
DEFINE 
DDRPI  - 
NAME 


NAME  (MCNVER,DECVER)< 
RH10/RH20  -  RP04/05/06 
\MCNVER,\DECVER 


-  RELIABILITY  TEST  VERSION  MCNVER* . 'DECVER  > 


COMMENT  X 


COPYRIGHT  (C)  1975,  1976,  1977,  1978,  1979,  1980,  1981,  1985 
DIGITAL  EQUIPMENT  CORP.,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  FOR  USE  ONLY 
ON  A  SINGLE  COMPUTER  SYSTEM  AND  MAY  BE  COPIED  ONLY  WITH 
THE  INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.   THIS 
SOFTWARE,  OR  ANY  OTHER  COPIES  THEREOF,  MAY  NOT  BE  PRO- 
VIDED OR  OTHERWISE  MADE  AVAILABLE  TO  ANY  OTHER  PERSON 
EXCEPT  FOR  USE  ON  SUCH  SYSTEM  AND  TO  ONE  WHO  AGREES  TO 
THESE  LICENSE  TERMS.  TITLE  TO  AND  OWNERSHIP  OF  THE 
SOFTWARE  SHALL  AT  ALL  TIMES  REMAIN  IN  DEC. 

THE  INFORMATION  IN  THIS  DOCUMENT  IS  SUBJECT  TO  CHANGE 
WITHOUT  NOTICE  AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COM- 
MITMENT BY  DIGITAL  EQUIPMENT  CORPORATION. 

DEC  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY 
OF  ITS  SOFTWARE  IN  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY 
DEC. 


AUTHORS: 
UPDATE  AUTHOR: 
MAINTAINER: 


C.  CAMPBELL  ,  B.WALSH 
Gregory  A.  Scott 
36-BIT  DIAGNOSTICS 


ASSEMBLE  AS  FOLLOWS: 

DDRPIT. MAC, DDRPI 1. MAC, PARAM.KLM,FIXED.<LM,DDRPI2.MAC,DDRPI3. MAC, 

DDRPI4.MAC,ST0R.KLM,DDRPI5.MAC 

DDRPI. CTL  IS  THE  BATCH  CONTROL  FILE  FOR  THE  ASSEMBLY 


LOC     137 
MCNVER,,DECVER 

NOSYM 

SEARCH  MONSYM,MACSYM 


-•MmivMk 


0m 


r 
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SUBTTL  DDRPI  -  PROGRAM  PARAMETERS 


SEQ  007A 


r 

M 


000000 
000001 

000001 

000001 


TT==0 
TEXT==1 

C0DE==1 


;SETS  TEST  COUNT  TO  ZERO 

;IF  1  PRINT  TEST  DOCUMENTATION  AS  A  COMMENT 
;IF  0  INHIBIT  ""S'  DOCUMENTATION 

;IF  1  LIST  PDP-10  CODE 

;IF  0  XLIST  THE  PDP-10  CODE 


$LPAPER==1 
COMMENT  S 

*  •  ♦  •  MACRO  CALLS  t  ♦  •  • 
S      PRINTS  A  LINE  OF  ASTERISKS 


;If  defined  XLIST  literal  pool 


PRINTS  A  LINE  OF  DASHES 


XLIST 
BOX 


DEFINE 

LALL 

LIST 


SALL 
> 


<TXTA>,<TXT8> 

1. PAGES  THE  LISTING 

2. PRINTS  TXTA  ENCLOSED  BY  ASTERISKS 

3. PRINTS  TXTB  AS  TEST  DOCUMENTATION 


$ 

TINT 


(LI.SI,MT,SA,SB),< 


GO  SETUP 
XUD  LI, SI 
<MT>B1 7 ! <SA>823 1<SB>B2A 


;INIT  THE  TEST  yiTH  PARAMETERS 
;RELIAB  HERAT  =  LI,  NORM.  =  SI 
;MAX  #  TRACKS  IN  A  XFR  =  MT 
;SyiTCH  OVERIDES  -  "ALLADR"  =  SA 
"ALLDRV  =  SB 


,.mSim>'>»0ft?'W'rkilMa 
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:LIST  OF  SAVED  PROGRAM  SYMBOLS 


SEQ  0075 


r 

M. 


INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 


BEGENO.BEGIN.BLICADR.BUSIZ-BUFMAP-C,CONT,CADTBL,SCLP,CBASE 

CHIC  ALT, CHNSEL.CLENU^.CLRCH0-CM00PT.CMDXPT,CMDXKC0MBUF,C0MQ,CS8P 

CS6TBL,DATARG.DATTN,6aTTN5.0RCNT.DRIVE,DRMAX,DRRE6.DSBCMD 

DS8P.DS8TBL.D§KAD.ENTDDT.FREBUF,FREC0R,LDREG.10CKCK,L06BLK 

MAPN4y..MAXfY.MAxSuR-MBCCLRJBCN.MEML0W-MEM5I7>'^XBUF 

NOBAIC-6nCE-P.^ASCNT>KPNTCHO.PNTDRV-PNTE^'41,/'»JCT,PP,PPLIST,PSDN 

OFIN,ftECLAH,AEGPNT.ftEPt.RETFL6.RETO,RHlO-RkiC,RHMAX,RUNTIM 

SAV0-SAV0UE.SCNA0D.SCNT6l,SCRIPT-SELECT.SETUP.SHREG,SNAP 

SNAP§-START,SA,STaAtA-STATUS. SURF AC, TST60.TESTPC, TICKS, TIMCNT 

TIMOUT,TSTSAV,UBLK,USER,yAIT,yAITIT,XCTCM0,.BAT 

.BUFF , .BSYCT. .CONI , .CONO, . CONSO, .C0NS2, .CYLIN, .MAXCY, .MXBLK 

.MXSEC. OF  SET,. PATN,.PIPCT-. PRIM,. SCNAD,. SECT,. SEwAD,.  SIZE 

.SURF,.yAIT,PATCH,AC1,.OFST1,AC2,AC3,Ac4,AC5,AC 


L 
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109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

125 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 
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;•  DEFINE  MACROS 

;•  BOX  MACRO:    TEXTA.TEXTB 

DEFINE     BOX   (TEXTA,TEXTB)< 
IFN  TEXT< 

LALL 
LIST 

;♦  TEXTA 

COMMENT  S 
TEXTS 

S 

XLIST 

SALL 
> 


SEO  0076 


M 
Rl 


IFE 

LALL 

LIST 


TEXT< 


;*   TEXTA 

XLIST 

SALL 
> 

IFN  CODE   <LIST 

> 

> 


Wi)M<r*:*«Bjl  •■««■*  ii .1  H  .wwWtti  W^W 


L_ 
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H4 

U5 

1A6 

}U7 

H8 

H9 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

•  63 

16A 

165 

166 

167 

168 

169 

170 

171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 

188 

189 
190 
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4f  ♦♦♦«»»»♦♦♦»»»»»»»♦♦»  t  ♦♦♦♦♦♦»»♦*♦♦*.>*♦*»*♦♦♦♦*♦♦***♦**♦♦♦♦*»*»*  *♦♦*♦♦♦ 

*  RBASE:  Random  number  generator  macro 


SEO  0077 


Mi 

Rl 


400000 
200000 
100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 


; CREATE  A  RANDOM  OEf 


DEFINE  RBASE   (ARG,DEF)«< 

PUT  AC1 

MOVS  ARC 

MULI  6065 

DIV  1177777 .  Jlllt^U 

SKIPN  ACl 

MOVEI  AC1J 

EXCH  AC0,AC1 

MOVEM  ARG 

GET  AC1> 

4f*t******************** ********************************************** 

♦FATAL  BLOCK  PRINTER 

4f************************ ******************************************** 

DEFINE  FATL  <LALL 
4f*************************************w*************** *************** 

^fff^  A  TTTTT     A  L  ! 

f  A  A      T      A  A  L  ! 

F  AA  AA     T  AA  AA  L  ! 

^^^  f<kf<f<h           r  AAAAA  L  ! 

r  A   A     T  A   A  L  ! 

f  A   A     T  A   A  L 

F      A   A     T     A   A   LLLLL   ! 
f*************************************************-^****************** 

FATAL 

SALL> 
4f* **************************************************** *************** 

♦RANDOM  NUMBER  GENERATOR  DEFINITIONS 

f* **************************************************** *************** 


SVBAS==  400000 
RRBAS==  200000 
NUBAS==  lOOiOO 
RSEC==  040000 
RSUR==  020000 
RCYL==  010000 
RSIZ==  004000 
RSIZA==  602000 
RSIZL==  001000 
RTIM==  000400 


.-SAVE  RANDOM  BASE  NUMBER 

.•RESTORE  RANDOM  BASE 

.•GENERATE  A  NEW  RANDOM  BASE 

.•RANDOM  SECTOR 

.•RANDOM  SURFACE 

.•RANDOM  CYLINDER 

.•RANDOM  TRANSFER  SI2E 

.•RANDOM  XFR  SIZE  ALTERNATING  (LARG/ SMALL) 

.•RANDOM  XFR  SIZE  LIMIT  TO  EVEN  #  0.  SECTORS 

.•RANDOM  STALL  TIME 


■«MHM 


~.ij^  -XNA-^MWtH.  .lntH»f 


r~ 
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SEQ  0078 


Ml 

Rl 


191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

20A 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

111 

22S 

229 

230 

231 

233 
234 
235 
236 
237 


254200 
254200 
254200 
254200 
254200 

511243 

444462 
605664 


000001 

RPOX==  1 

000000 

RS04==  0 

000000 

TU16==  0 

•  /If********* 

;*  NEW  SUBR 

;^********* 

00000 1 

KL10==  1 

000001 

KL10P0==1 

000001 

KI10==  1 

000001 

KA10==  1 

000001 

USRASB==  1 

000001 

EXCASB==  1 

000000 

ITERAT==  0 

000001 

MEMMAP==  1 

000200 

DEBU6==  200 

030607 
030000 
030000 
030007 
030000 
030007 
030000 
030000 
030000 
030000 
030000 

726335 
000000 
605100 
000000 
000000 
000000 


•^**** ***************************************************** **♦*♦♦»♦♦♦♦ 

•♦DEVICE  RELATED  ASSEMBLY  SWITCHES 

;#*******************************♦***♦*****♦♦♦***•*♦»*♦♦♦*♦**♦**♦»**** 

.•ASSEMBLE  FOR  THE  RP04/05/06 
;D0NT  ASSEMBLE  ANY  RS04  CODE 
;DONT  ASSEMBLE  ANY  TU16  CODE 


*************************************************************** 

SUBROUTINE  PACKAGE  ASSEMBLY  SWITCHES 
*************************************************************** 

;ASSEMBLE  FOR  KLlO 

;GET  THE  NEW  DEFINITIONS  FOR  KL 

;ASSEMBLE  FOR  KI10 

.•ASSEMBLE  FOR  KAIO 

.•ASSEMBLE  FOR  USER  MODE 

;ASSEMBLE  FOR  EXEC  MODE 

;#  OF  PROGRAM  ITERATIONS 

.•ASSEMBLE  THE  MEMORY  MAPPER 

;A  200  LOCATION  PATCH  AREA 

•4f* **************************************************** *************** 

;♦  SOME  PROGRAM  ADDRESS  OPTIONS  AND  PARAMETERS 

•  if*  *******************************i»'********»*********  ***************** 

.•SPECIAL  FEATURE  START 
.•POWER  FAIL  RESTART 
.•REENTER  STARTING  ADDRESS 
;DDT  START 

.•CONTROL  C   TPAMSFER  ADDRESS 
.•ALTMODE   TRAN       R  ADDRESS 


SADR1==  SPCST 

SADR2==  BEGIN 

SADR3==  BEGIN 

SADR4==  SRTDDT 

SADR5==  BEGIN 

SADR6==  SRTDDT 

SADR7==:  HALT  BEGIN 

SADR8=-  HALT  BEGIN 

SADR9==  HALT  BEGIN 

SADR10==HALT  BEGIN 

SADR11==HALT  BEGIN 

PAREA1==       511243. 

.726335 

PAREA2==       0 
PAREA3==       SIXBIT 

/DDRPI/ 

PAREA4==       SIXBIT 

/PHI/ 

PAREA5==       Q 

PAREA6==       0 

.•RANDOM  BASE 

.•SYSTEM  EXERCISER  SWITCHES 

;USER  MODE  OUTPUT  FILE  NAME 

.•USER  MODE   OUTPUT  FILE  EXT 


iaMi|w 


[•«i:im>'  iiiii 


DDRPl  - 
DDRPIT 

238 
239 
2A0 
2A1 
2A2 
243 
2A4 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 


Rh10/RH20  -  RP04/05/06  • 
MAC     28-Aug-85  15:06 


RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  7 
DDRPI  -  PROGRAM  PARAMETERS 

;*  SOME  ACCUMULATOR  DEFINITION 

•STACK  AC 

;2ND  REPEAT  LOOP  COUNTtR 

;1ST  REPEAT  LOOP  COUNTER 

.•SPECIAL  STACK  FOR  INTERRUPTS 

; HOLDS  THE  CURRENT  DRIVE  NUMBER 

;HOLDS  THE  CURRENT  CONTROLLER  NUMBER 

.•POINTER  TO  DEVICE  STATUS  BLOCK 

.•POINTER  TO  CONTROLLER  STATUS  BLOCK 

.•CLOCK  SERVICE  FLAG  FOR  TIMING 

.•GENERAL  WORK  AC 


SEQ  0079 


M 


000017 

P= 

T? 

000016 

REPT1= 

16 

00001 5 

REPT= 

15 

000014 

PP= 

14 

000013 

DRIVE= 

13 

000012 

MBCN= 

12 

00001 1 

DSBP= 

11 

000010 

CSBP= 

10 

000007 

CLKFLG= 

7 

000006 

AC= 

6 

000000 

ACO= 

0 

000001 

AC1  = 

1 

000002 

AC2= 

2 

000003 

AC3=. 

3 

000004 

AC4= 

4 

000005 

AC5= 

5 

000006 

AC6= 

6 

000007 

AC7= 

7 

L 


■~i 


n 


A2A000 
C30000 
031000 
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262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 
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*  PROGRAM  UUO  DEFINITIONS 

4f*»*t  ♦♦*♦♦♦♦*♦*♦♦♦♦♦*♦*♦♦♦♦♦♦♦♦♦*♦*•♦*♦♦*♦♦**♦♦♦♦♦♦♦♦*♦♦*♦♦♦♦*♦♦♦♦♦♦'« 


SEQ  0080 


r 

M 


001000 
001040 
001100 
001140 

001200 
001240 
001300 
001340 
001400 
001440 


260740 
260740 
2cJ740 
367640 
260740 
260740 
700000 


000000 
000000 
000000 


066222 
066227 

000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 

052077 


000000 
035721 
061320 
000000 
056006 
053714 
000000 


047000  000033 


OPDEF  NOOP  CSETA] 
OPDEF  TEXT  C30B83 
OPDEF   TEXTF   [31B82 


OPDEF 
OPDEF 
OPDEF 
OPDEF 


LUU030: 
LUU031= 

READ 
READHD 
WRITE 
URTHD 


TEXT. 
TEXTF. 


OPDEF 

SEEK 

OPDEF 

RECAL 

OPDEF 

SRCH 

OPDEF 

CENTER 

OPDEF 

DPRELS 

OPDEF 

ULOAD 

LUU01= 

OPDEF 

60 

OPDEF 

TIMER 

OPDEF 

CHKSUM 

OPDEF 

REPTLP 

OPDEF 

PS  TAR 

OPDEF 

PARAMS 

OPDEF 

APR  ID 

[168  0 J 
C1B8  U 
[168  2 J 
[168  3 J 

[168  4  J 
[168  5  J 
[168  6J 
[168  7.1 
[168  i6j 
[168  11J 

=  CMDUUO 


[PUSH J  P.] 
[60  PTIH^R] 
[60  .CKSUM] 
.S0J6  REPT.] 
:60  PSTAR.J 
:60  RPARAM3 
[700000,, 0] 


OPDEF   PEEK.   [CALLI  33] 


;A  USABLE  NO  OP 

.•PRINTS  ASCIZ  NOT  FORCED 

.•PRINTS  ASCIZ  FORCED 


;READ  TRANSFER  UUO 

;READ  HEADERS  AND  DATA  XFR 

.•WRITE  TRANSFER 

.•WRITE  HEADERS  AND  DATA  XFR 

;  SEEK  COMMAND  UUO 

;  RECALI6RATE  COMMAND 

;  SEARCH  COMMAND 

;  RETURN-TO-CENTERLINE 

:  RELEASE  COMMAND 

;  PACK  UNLOAD  COMMAND 

.-LINK  TO  ROUTINE  THAT  WILL  PROCESS 
;THE  DATA  OR  POSITION  UUO 


;CALL  THE  POSITION  TmN6  ROUTINE 
.•CALL  TO  PR06RAM  CHECKSUMMIN6  ROUTINE 
; REPEAT  LOOP  COUNTER 
.•PRINT  A  LINE  OF  "STARS" 
:6ENERATE  SOME  RANDOM  PARAMETERS 
;KL10  INSTRUCTION  TO  LOOK  FOR  CACHE 

;TOPS-10  PEEK  UUO 


MMiii 


L 
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299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3K 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 
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./If  *♦♦«♦♦♦♦♦*♦**»»♦♦♦»♦♦♦♦♦**♦♦♦♦*♦♦*♦•♦♦♦»♦*♦*♦♦♦»♦*♦»♦*♦♦♦  »*♦***♦♦♦•* 

;♦  CSB  DEFINITIONS  -  CONTROLLER  STATUS  BUFFER  FOR  RHIO 

LAST  CONI  FROM  RH20 
LAST  ATTENTION  REGISTER  READ 
INTERRUPT  VECTOR  ADDRESS 
PRIMARY  BLOCK  ADDRESS  REGISTER 

TRANSFER  CONTRO!  REGISTER 
CHANNEL  COMMAND  LIST  POINTER 
COMMAND  -  ••COMQ"  ENTRY  ADDRESS 
••SCNTBL"  ENTRY  ADDRESS 
SECONDARY  BLOCK  ADDRESS  REGISTER 

TRANSFER  CONTROL  REGISTER 
CHANNEL  COMMAND  LIST  POINTER 
COMMAND  -  'tOMQ"  ENTRY  ADDRESS 
"SCNTBL"  ENTRY  ADDRESS 


SEQ  0081 


r" 
I 

iM 
M 


000000 

.RHCONI==0 

000001 

.ATN==  .RHCONI'^1 

000002 

.IVAR==  .ATN^I 

000003 

.PBAR==  .IVAR^I 

000004 

.PTCR==  .PBAR+1 

000005 

.FCLP==  .PTCR+1 

000006 

.PCMD==  .PCLP^l 

000007 

.PSCN=^-  .PCMD^I 

000010 

.SBAR==  .PSCN+1 

00001 1 

.STCR==  .SBAR^I 

000012 

.SCLP==  .STCR^l 

000013 

.SCMD==  .SCLP+1 

000014 

.SSCN==  .SCMD^l 

00001 5 

.RETWD==  .SSCN*1 

000016 

.BSYCT==  .RETWD^I 

000017 

.PIPCT==  .BSYCT^I 

000020 

.MBCN==  .PIPCTtI 

000021 

.CHNER==  .MBCN^•1 

000022 

.MBCER==  .CHNER+1 

000023 

.OVR==  .MBCER-1 

000024 

.DBPE==  .OVR+1 

000025 

.RAE==  .DBPE*1 

000026 

.DRE==  .RAE^I 

000027 

.CBASE==  .DRE^I 

000030 

.CMDLST==  .CBASE+1 

000044 

.CSBEND==  .CMDLST**D12 

000044 

CSBSIZ==.CSBEND-.RHC0N1 

I* 


t*  • 


RECOVERY  WORD/COUNTER  FOR  "RETRY' 

CONTROLLER  BUSY  COUNTER  (FOR  INTERRUPT  SERVICE) 

COUNT  OF  EXPECTED  POSITION  INTERRUPTS/MBC 

COPY  OF  THE  CONTROLLERS  JUSTIFIED  MBC  # 

CHANNEL  ERROR  COUNTER 

MBC  ERROR  COUNTER 

OVERRUN  ERROR  COUNTER 

DATA  BUS  PARITY  ERROR  COUNTER 

REGISTER  ACCESS  ERROR  COUNTER 

DRIVE  RESPONSE  ERROR  COUNTER 

POINTER  TO  CHANNEL  ICU  ADDRESS 
CHANNEL  COMMAND  LIST  BUFFER  AREA 
CSBQ  POINTER 


IHllMIMMMwlWHMiwNWiafllMI^^ 


i 


L 


I 
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333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 
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•4ft*************************«****«**************************** ******** 

;*  DSB  DEFINITIONS  -  DRIVE  STATUS  BUFFER 
:*     DRIVE  HARDWARE  REGISTERS 

;f ******************************************************* ************* 

DRIVE  CONTROL  REGISTER 

DRIVE  STATUS  REGISTER 

DRIVE  ERROR  REG  0^ 

DRIVE  HAINT.  REGISTER 

DRIVE  ATTENTION  SUMMARY  REG 

DRIVE  DESIRED  TRACK  &  SECTOR  REG 

DRIVE  "DRIVE  TYPE"  REGISTER 

DRIVE  LOOK-AHEAD  REGISTER 

DRIVE  SERIAL  NUMBER  REGISTER 

DRIVE  C  SET  REGISTER 

DRIVE  C   RED  CYLINDER  ADDRESS  REG 

DRIVE  Cuf^HENT  CYLINDER  ADDRESS  REG 

DRIVE  ERROR  REG  02 

DRIVE  ERROR  REG  #3 

DRIVE  ECC  POSITION  REGISTER 

DRIVE  ECC  PATTERN  REGISTER 


SEQ  0082 


r 

iM 
iM 


000000 

.DCR== 

0 

000001 

.DSR== 

.DCR^I 

000002 

.DER1== 

.DSR*1 

000003 

.DMR== 

.DERU1 

000004 

.DAS== 

.DMR^I 

000005 

.DDTS== 

.DAS+1 

000006 

.DDT== 

.DDTS^I 

000007 

.DLA== 

.DDT*1 

000010 

.DSN=^ 

.DLA^I 

00001 1 

.DOFF== 

.DSN^I 

000012 

.DDCA== 

.DOFF^I 

000013 

.DCCA== 

.DDCA^I 

000014 

.DER2== 

.DCCA*1 

00001 5 

.DER3== 

.DER2*1 

000016 

.DEC1== 

.DER3*1 

000017 

.DEC2== 

.DECU1 

000020 


.PKSN==  .DEC2*1 


;PACK  FORMATTlO  ON  SERIAL  #  STORAGE 


•4f********************** ************************************** ******** 

•DRIVE  OPERATION  CONTROL  AREA 

;f********************* *********************************************** 


000021 

.CNUM==  .PKSN^I                    ; 

000022 

.DNAME==  .CNUM^I                   ; 

000023 

.PKID==  .DNAME^I                   ; 

000024 

.SELAD==  .PKID^I 

000025 

.MINCY==  .SELAD^I                   ; 

000026 

.MAXCY==  .MINCY^I                   ; 

000027 

.TKSIZ==  .MAXCYtl                   ; 

000030 

.MXSEC==  .TKSIZ^I                   ; 

0000311 

.MXBLK==  .MXSEC^I                   ; 

000032 

.MTCYL==  .MXBLK^I                   ; 

000033 

.INUSE==  .MTCYL+1 

000034 

.SDCE==  .INUSE^I                   ; 

000035 

.SCNAD==  .SDCE^I                   ; 

000036 

.SCN1==  .SCNAD^I 

000037 

.SCN2==  .SCNU1                    ; 

000040 

.XCTQ==  .SCN2^1                    ; 

000041 

.DSKAD==  .XCTQ^I                    ; 

000042 
000047 

.PRIM==  .DSKAD^I 

.HLDO==  .PRIM+<.PRJ«-.SCNAD> 

COPY  OF  HBC  UNIT  NUMBER  FOR  USER  MODE 

STORAGE  FOR  SIXBIT  PACK  ID 

STORAGE  FOR  DISK  PACK  ID  IN  SIXBIT 

STARTING  SELECTED  ADDRESS  OF  DISK  (BY  "SELECT") 

MIN  CYLINDER  #  TO  BE  USED  BY  THE  DRIVE 

AMOUNT  OF  DATA  THAT  CAN  EXIST  ON  1  TRACK 
AMOUNT  OF  SECTORS  PER  TRACK 
MAXIMUM  #  OF  LOGICAL  BLOCKS  ON  THIS  DISK 
LOGICAL  BLK  #  OF  THE  MAINT  CYL  AREA 
DRIVE  ^'IN  USE"  COUNTER  INT  SER  DOWNCOUNTS 
AND  MAIN  LINE  COMMAND  EXECUTOR  UPCOUNTS 
AMOUNT  OF  DATA  COMPARE  ERRORS  DETECTED  BY 
"THIS"  TRANSFER 

"SCNTBL"  ADDRESS  POINTER  (SECONDARY) 

"SCNTBL"  ENTRY  WORD  #1 

"SCNTBL"  ENTRY  WORD  #2 

OPERATION  POINTER  INTO  THE  "COMQ"  AREA 

STARTING  DISK  ADDRESS  FOR  OPERATION 

PRIMARY  COMMAND  UUO  STORAGE  AREA 

HOLDING  COMMAND  AREA 


M«MM)iNMM«MM«IMMMNH«M 


■I*,  mil  *  »I«|-I«'lii1  W^  -tr-iH-.^ 


. .,  J ' 


L 


"1  r— 
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384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 


000054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 
000072 
000073 
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DDRPI  -  PROGRAM  PARAMETERS 

•DRIVE  ERROR  REGISTER  #1  ERROR  COUNTERS 

;DATA  CHECK  ERROR 

.•DRIVE  UNSAFE 

.•OPERATION  INCOMPLETE 

.•DRIVE  TIMING  ERROR 

.•WRITE  LOCK  ERROR 

.•INVALID  ADDRESS  ERROR 

.•ADDRESS  OVERFLOW  ERROR 

.•HEADER  CRC  ERROR 

.•HEADER  COMPARE  ERROR 

:ECC  HARD  ERROR 

.•WRITE  CLOCK  FAILURE 

.•FORMAT  ERROR 

.•PARITY  ERROR  DETECTED 

.•REGISTER  MODIFY  REFUSED 

.•ILLEGAL  REGISTER  ACCESSED 

.•ILLEGAL  FUNCTION  CODE  ISSUED  TO  DRIVE 

•4f*tt***« *♦*«****** *****t ********** *********tt**************t***«**«** 
;DRIVE  ERROR  REGISTER  #2  ERROR  COUNTERS 

RP04/RP05-06  DEFINITIONS 
ACU/SPARE 
SPARE 
PLU 

30VU/SPARE 
IXE 
NHS 
MHS 
WRU 

FEN/ABS 
TUF 
TDF 

MSE/RAW 
CSU 
WSU 
CSF 
;WCU 


SEQ  0083 


IM 
M 


.DCK== 

.HLDQ+<.PRIM-.SCNAD> 

.UNSF== 

.DCK*1 

.OPI== 

.UNSFil 

.DTE== 

.OPItI 

.WLE== 

.DTEM 

.IAE== 

.WLE*1 

.AOE== 

.lAEtl 

.HCRC== 

.AOE^I 

.HCE== 

.HCRC^I 

.ECH== 

.HCE^I 

.WCF== 

.ECH^I 

.FER== 

.WCF^I 

.PE== 

.FER^I 

• nMR~~ 

.PE^1 

.ILR== 

.RMRM 

.ILF== 

.ILR^I 

000074 

.ER20==.ILF*1 

000075 

.ER21==.ER20^1 

000076 

.ER22==.ER2U1 

000077 

.ER23==.ER22^1 

000100 

.ER24==.ER23^1 

000101 

.ER25==.ER24*1 

000102 

.ER26==.ER25i1 

000103; 

.ER27==.ER26^1 

000104 

.ER28==.ER27*1 

000105 

.ER29==.ER28M 

000106 

.ER210==.ER29^1 

000107 

.ER211==.ER210^1 

000110 

.ER212==.ER21U1 

000111 

.ER213==.ER212^1 

000112 

.ER214==.ER213*1 

000113 

.ER215==.ER214+1 

L 


DDRPI  -  RH10/RH20  -  RPOA/05/06  • 
DDRPIT     MAC  28-Aug-85  15:06 

427 
428 
429 
430 
431 
432 

433  000114 

434  0001 1 5 

435  000116 

436  000117 

437  000120 

438  000121 

439  000122 

440  000123 

441  000124 

442  000125 

443  000126 

444  000127 

445  000130 

446  000131 

447  000132 

448  000133 
449 

450 
451 
452 
453 

454  000134 

455  000135 

456  000136 

457  000  >  37 

458  000140 

459  000141 

460  000142 

461  000143 
462 

463 
464 
465 
466 

467  000144 

468  000145 

469  000146 

470  000147 

471  000150 
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DDRPI  -  PROGRAM  PARAMETERS 


DRIVE  ERROR  REGISTER  #3  ERROR  COUNTERS 
/If******************************************************************** 


.ER30==.ER215+1 

.ER31==.ER30^1 

.ER32==.ER3U1 

.ER33==.ER32^1 

.ER34==.ER33^1 

.ER35==.ER34+1 

.ER36==.ER35+1 

.ER37==.ER36+1 

.ER38==.ER37^1 

.ER39==.ER38^1 

.ER310==.ER39^1 

.ER311==.ER310+1 

.ER312==.ER31U1 

.ER313==.ER312^1 

.ER314==.ER313+1 

.ER315==.ER314^1 

•4f******************************************************************** 
•OTHER  DRIVE  ERROR  COUNTERS 

;4f********************** ********************************************** 


SEQ  0084 


RP04/RP05-06  DEFINITIONS 

OCYL 

SKI 

SPARE 

SPARE 

SPARE 

SPARE 

•SPARE 

SPARE 

•SPARE 

•ACL 

•DCL 

•DIS/SPARE 

•UWR/SPARE 

•SPARE 

•VUF/WAO 

;PSU/DCU 

.COMP==  .ER315+1 

.HRD==  .COMP+1 

.HWRT==  .HRD+1 

.SRD==  .HWRT^I 

.SWRT==  .SRD^I 

.HPOS==  .SWRT^I 

.SPOS==  .HPOS+1 

.OPT==  .SPOS^I 


;DATA  COMPARE  ERRORS  DETECTED 

;HARD  DATA  READ  FAILURES 

;HARD  DATA  WRITE  FAILURES 

;SOFT  DATA  READ  FAILURES 

.•SOFT  DATA  WRITE  FAILURES 

;HARD  POSITIONER  FAILURES 
;SOFT 
.-OPTIMIZATION  FAILURES 


•#**********************♦********************************************♦ 
•DRIVE  TOTALS  COUNTERS 

;4f***** ******************************** A***************** ************* 


.WDXFR==   .OPT^I 
.WDRD==  .WDXFR^I 
.WDWRT==   .WDRD+1 
.ACTSK==   .WDWRT+1 
.RECAL==   .ACTSKtl 


.-WORDS  TRANSFERED 
.-WORDS  READ 
.-WORDS  WRITTEN 
.-ACTUAL  SEEKS   ISSUED 
.-RECALS   ISSUED 


mm»  \mimmUMmi0mimmmiimmmi 


mmttf  <■!»■■»<«»»■• 


I 


000151 
000152 
000353 
000353 
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472 

A73 

A74 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 
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ODRPI  -  PROGRAM  PARAMETERS 

•POINTERS  &  DRIVE  BUFFER  AREAS 


000015  000012 

mill   000003 

000001 
000017 

000010 
00001 1 
000016 
00001 7 
000020 
000021 
000022 
000023 

000100 
000040 
000020 
000010 
000004 
000002 
000001 


000101 
000013 
400000 
400000 
200000 
040000 


SEQ  0085 


r 

Dl 
Dl 


.DELPT==  .RECAL+1 
.BAT==  .DELPT^I 
.DSBEND==  .BAT+*D129 
DSBSIZ==  .DSBEND-.DCR 


POINTER  TO  DRIVE  DELETED  TRACK  BUFFER 
COPY  OF  THE  DRIVE  (PACK)  BAT  BLK  AREA 
LAST  LOCATION  IN  THE  DSB 


•BIT  DEFINITIONS  FOR  USER  MODE  CODE 

;6ETTAB  -  System  uptime  in  liffies 
;Set  diskproirity .on  all  channels 


XNSUPT==15,J2 

XDSKBT==-1,,3 

XHPQBT==1 

XL0KBT==17 

UNIHCT== 

10 

UNISCT== 

11 

UNIBRC== 

16 

UNIBWC== 

17 

UNIDRC== 

20 

UNIDWC== 

21 

UNIMRC== 

22 

UNIMWC== 

23 

ER.EIJ== 

100 

ER.TLX== 

40 

ER.OEX== 

20 

ER.FUL== 

10 

ER.0FL== 

4 

ER.ICC== 

1 

ER.IDV== 

f 

;TOPS-20  symbol 

s 

.PRI0U= 

=101 

.SYSVE= 

=13 

.FHSLF= 

=400000 

SCXWHL= 

=400000 

SCXOPR= 

=200000 

SCXMNT= 

=040000 

XLIST 

IFN     RPOX,<LIST 

;Run  in  high  priority  queue  1 

;Lock  all  of  this  job,  cache  non  contig 


UDB  DRIVE  HARD  ERROR  COUNTER 
UDB  DRIVE  SOFT  ERROR  COUNTER 
UDB  BUFFERED  READ  NUMBER 
UDB  BUFFERED  WRITE  NUMBER 
UDB  DUMP  READ  COUNTER 
UDB  DUMP  WRITE  COUNTER 
UDB  MONITOR  READ  COUNTER 
UDB  MONITOR  WRITE  COUNTER 

ERROR  IN  JOB 

TIME  LIMIT  EXCEEDED 

USER  QUOTA  EXCEEDED 

FILE  STR  FULL 

UNIT  OFF  LINE 

TYPED  ••^C*^' 

OPR  INTERVENTION  NEEDED 


.•Primary  output  (terminal) 
; System  name  and  version  (6ETABX) 
.-Fork  handle  for  self  (ERSTRX) 
:Wheel  capability  (RPCAPX) 
.'Operator  capabilit  ""--• 


(RPCAPX) 
.•Maintenance  capability 


(RPCAPX) 


J 


L 
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518 
519 
520 
521 
522 

523  AOOOGO  000000 

524  200000  000000 

525  100000  000000 

526  040000  000000 

527  020000  000000 

528  010000  000000 

529  004000  000000 

530  002000  000000 

531  001000  000000 

532  000400  000000 

533  000200  000000 

534  000100  000000 

535  000040  000000 

536  000020  000000 

537  000010  000000 

538  000004  000000 

539  000002  000000 

540  000001  000000 
541 
542 
543 
544 
545 

546  000023 

547  000025 

548  000022 

549  000200 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 

563  010000 

564 

565  004000 

566 

567  002000 

568  001000 
569 
570  000005 
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DSBTBL  STATUS  DEFINITIONS 

4f********************** ♦*♦♦•**♦♦**♦**♦♦*♦**♦♦♦♦♦♦♦♦♦♦*♦♦♦•♦♦•*♦♦♦♦♦♦♦ 


r 


000010  000000 
400000 
200000 
100000 

040000 
020000 


SEQ  0086 


Dl 
Dl 


OPR==  180 
ADRD0N==1B1 
0NLN==1B2 
PWR==  183 
F11==  184 
VIRG==  185 
WRTL==  186 
SyRTL==  187 
DUAL==  188 
FMT==  189 
RP05==1810 
RP06==1811 
P0SER==  1812 
XFRER==  1813 
UNKN==  1814 
TU16==  1815 
RS04==  1816 
RP04==  1817 


DRIVE  IS  OPERATOR  SELECTED  FOR  TESTING 

ALL  ADDRS  SELECTED 

DRIVE  IS  READY 

INDICATOR  FLAG  FOR  DRIVE  POWER  ON 

PACK  IS  IN  PDP-11  FORMAT  (16  BIT) 

PACK  IS  VIRGIN  OR  UNKNOWN  FORMAT 

DRIVE  IS  WRITE  LOCKED 

DRIVE  IS  "SOFTWARE"  WRITE  LOCKED 

DRIVE  IS  DUAL  PORT 

DRIVE  INITIALIZED  FOR  FORMATTING 

IDICATES  DRIVE  IS  AN  RP05 

INDICATES  DRIVE  IS  AN  RP06 

POSITION  ERROR  DETECTED  BY  INTERRUPT  SERV. 

SET  IF  INTERRUPT  DETECTS  TRANSFER  ERROR 

BIT  SET  IF  DRIVE  IS  AN  UNKNOWN  TYPE 

BIT  SET  IF  DRIVE  IS  A  TU16 

BIT  SET  IF  DRIVE  IS  AN  RS04 

BIT  SET  IF  DRIVE  IS  AN  RP04 


KNOWN  PARAMETERS 

4f********* **************************** *****t**#**************tt****** 


SECT10==  •D19 

SECT11==  *D21 

SURFACE=^*D18 

BLKSI2=='*D128 

> 

LIST 

.•PROGRAM  SWITCH  DEFINITIONS 

TTYCON==  1814 
DELTRK==  1818 
VARIAB==  1819 
ACTSEK==  1820 

^^EE2B==  1821 
INHULD==  1822 

ALLADR==  1823 

ALLDRV==  1824 

ONESEC==  1825 
INHRET==  1826 

FELIM==  5 


;20.  SECTORS  PER  PDP-10  FORMATTED  PACK 
;22   SECTORS  ON  A  PDP-11  FORMATTED  PACK 
;19.  SURFACES  ON  A  PACK 
:128.  words  in  a  block 


PROGRAM  TTY  INPUT  FOR  CONTROL 
DELETION  FOR  THE  PROGRAM  IS  INHIBITED 
ALLOW  OPR  TO  CHANGE  SOME  TEST  PARAMETERS 
ALLOW  OPR  TO  SELECT  ACTUAL  SEEKS  INSTEAD  OF 

IMPLIED  SEEKS  FOR  READ  AND  WRITES 
FREEZE  THE  COMMANDS  EXECUTED 
INHIBIT  DRIVE  UNLOAD  COMMAND 
•TATAL"  ERRORS  OR  ERROR  LIMITS  ARE  EXCEEDED 
SELECT  ALL  DRIVE  ADDRESSES  BEFORE  CHANGING 
DRIVE  NUMBERS  IF  =  1 

SELECT  ALL  UNITS  ON  ^N  MBC  BEFORE  CHANGING 
MBC'S  IF  =  1 

LIMIT  TRANSFER  SIZE  TO  1  SECTOR 
INHIBIT  ERROR  :^ECOVERY  "RETRY" 

PROGRAM  "ALLOWS"  5  FATAL  TYPE  ERRORS 


•«Mh*MMMMM 
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DECFLO  VER  00.12  12-APR-78  08:47  PAGE  A 


SEQ  0067 


Di 
DI 


FLOW  CHART 
**************** 


MASSBUS  CONTROLLER  REGISTER  BIT  ASSIGNMENTS 


**************** 


COPYRIGHT  1978 

DIGITAL  EQUIPMENT  CORPORATION 

MAYNARD,  MASS.  01754 


MN«WMHM*MMW 


r 


HASSBUS  CONTROLLER  REGISTER  BIT  ASSIGNMENTS 


TABLE  OF  CONTENTS 


OECFLO  VER  00.12  12-APR-78  08:47  PAGE  B 


SEO  0088 


DI 


PAGE  01     RH20  REGISTERS  70  TO  74 

PAGE  02     RHIO  CONO.  CONI  ft  CONTROL  REGISTER  FORMATS 

PAGE  03     RHIO  INTERRUPT  ADDRESS.  DATA  BUFFER.  REGISTER  ACCESS  ERROR  ft  CHANNEL  BUFFER  REGISTER  FORMATS 


[_ 


«ASSBUS  CONTROLLER  REGISTER  BIT  ASSIGNMENTS 
RH20  REGISTERS  70  TO  74 


DECFLO  VER     00.12  12-APR-78  03:47     PAGE  01 


SEQ  0089 


00  01  02  03  04  05  06  07  08  09  10  11   12 


PTCR   (73) 
STCR  (71) 
C#73  IS 
READ  ONLY] 


I 

I 

I  RH20  TRANSFER 

I  CONTROL  REG. 

I       (73  OR  71) 

I 

I 

I ♦ 


13  14  15  16  17     18  19  20  21  22  21  24  25  26  21  28  29  30  31  32  33  34  35 

.. .*.-.. — -♦ — - — -♦ * — ♦ 


00  01  02  03  04  05 


PBAR   (72) 
SBAR   (70) 


I 
I 

I  RH20  BLOCK 
I  ADDRESS  REG. 
a2  OR  70) 


I ♦ 

00  01  02  03  04  05 


IVAR   (74) 


I • 

I 

I  RH20  INTERRUPT 

I  VECTOR  ADDR. 

I  REGISTER     (74) 


R 

C 

L     L 

R     P 

A 


S 

0 
R 
E 


06  07  08  09  10  11   12  13  14 


L 
R 


* 


t 
t 


06  07  08  09  10  11   12  13  14 


L 
R 


t 
t 


DRIVE 
NUMBER 
0  TO  7 


15  16  17 


DRIVE 
NUMBER 
0  TO  7 


15  16  17 


* 

D* 
X* 
E* 

S» 

* 


TRANSFER  BLOCK  COUNT 

(NEGATIVE) 

FROM  0  BLOCKS   (1777) 

TO  1777  BLOCKS   (0) 


MASSBUS  FUNCT. 
CODE  00  TO  11 

RD     =  71 
WRT  r  61 


18  19  20  21  22  23  24  25  26  21  28  29  30  31  32  33  34  35 


MASSBUS  DRIVE  REGISTER  #05   (DESIRED  ADDR.) 

NOTE:   LOAD  THE  BLOCK  ADDR  REG  BEFORE  LOADING 
THE  TRANSFER  CONTROL  REGISTER   (RHST). 


18  19  20  21  22  23  24  25  26  27  28  29  30  31   32  33  34  35 


»  INTERRUPT  VECTOR  ADDRESS 

•  FOR  THE  RH20   (9  BITS) 

•  000  TO  111 

''%  ■ . 


•**• 


18  19  20  21   22  23  24  25  26  21  28  29*30  31   32*33  34  35 


RH20  MASSBUS  CONTROLLER  ASSIGNMENTS: 


RH20  MBC  # 

CHANNEL  ADDRESS 

540  =  0 

EPT  ♦OO 

544  =  1 

EPT  404 

550  =  2 
554  =  ^ 

EPT  ♦lO 

EPT  ♦U 

560  =  H 

EPT  t^O 

564  =  5 

EPT  ♦24 

570  =  6 

EPT  ^30 

574  =  7 

EPT  ^34 

RH20 
CONO 
BITS 


R 
A 


R     X 
H     E 


M     R 


A 
D     T 


t 


*  E     C     C*  B     C     S*  T 

♦  C     L     L*  E     L     C*  N 
\     R  P 


L 
R 


R     E 

N 


D 
S     0     PIA 
T     N*   CHANNEL 
0     C*  0  TO  7 
P     L 

R 


RH20 
CONI 

BITS 


I' 

I 

I 

I 

I 

I 

I 

I- 


18  19  20  ?1   22  23  24  25  26  21  28  29  30  31   32  33  34  35 


D 
B 
P 

E 


E 


L  S 
X  U  U 
C  C*  C 
E  E»  E 
P     R     R 


M 

B 

X     R*   A     H     R*   S 

E     E*  E     L     ^*  S 


D     R 


M 
6 


0     M 
V     A 


T 


U     E 
N     N 


S  A  P  D 

A     C  T  C  0  PIA 

T     R*  T  R  N*  CHANNEL 

T     F*  N  F  E*  0  TO  7 


N 


U     E 
L     N 


U 
L 


RAE    (4000).   ATTN   (200).   I  DONE    (10)    CAUSE    INTERRUPTS 


mm^iil0fimmi0¥mmmmtm 


L. 


MASSBUS  CONTROLLER  REGISTER  BIT  ASSIGNMENTS 
RH10  CONO.  CONI  &  CONTROL  REGISTER  FORMATS 


DECFLO  VER  00.12  12-APR-78  08:^7     PAGE  02 


SEQ  0090 


RH10 
STATUS 


CONI 


0  1 

♦A  tC  ♦ 

*R  ♦B  * 

♦F  ♦F  ♦ 

♦U  ♦U  * 

#L  *L  ♦ 

♦L  ^L  * 
»—♦—♦• 


3  4  5  6 

*C  ♦C  ♦C  *D 

♦C  *H  *H  »F 

♦I  *N  »N  *2 

♦N  M  ♦P  *2 

♦H  ♦C  ♦L  ♦B 

♦  *T  »S  ♦ 


9  10 

R  ♦I  S  * 

H  ♦L  D  * 

E  ♦F  »R  * 

X  *C  *A  ♦ 

P  ♦   E  ♦ 
♦     ♦ 


RHIO 
CONO 


18  19  20  21  22  23  24  25 

28  29  30  31   32  33  34  35 

*D    E     C     y    0     D     I     R 

C     R     A     S     D  •                 • 

"^BXHRVRLH 

B     A     T     T     0  *     PiA       ♦ 

*p  »c   *N  ♦T   *R   »E  *C   ♦C   ♦     * 

♦0  *E   *T  *0  ♦N  ♦                 ♦ 

♦C  ♦L   ♦C   »C   ♦C   *C   »C   ♦L   *     ♦ 

♦C   ♦E   ♦N  *P  *C   ♦                 • 

•LRLWLLLR 

L     N     E           L   ♦                 ♦ 

*R           R           R     R     R 

R           N           R  ♦                 * 

BITS  CAUSE  INTERRUPTS  > 
15  16  17  18  19  20  21  22   23  24  25 


#  #  #    # 

28  29  30  31  32  33  34  35 


*C  C  N 

*D  U  X 

♦P  *P  *M 

♦E  ^E  ♦ 

t 

* 


»D  E  C  C  0  D  I  P 

*B  X  H  U  V  R  L  S 

*P  ♦C  »N  *W  *R  *E  *C  ♦F  ♦ 

♦E  *E  *E  OR  *R  *  ♦  ♦A  * 

»   P  R  T  U  I 

♦  N  L 


C  R  A  B  D  • 
B  A  T  U  0  • 

♦  *0  *E  ♦T  ♦S  ♦N  ♦ 

*  ♦V  ♦  ♦N  ♦Y  *E   * 

.  '■  ■  #■ 
t 


PIA 


* 
* 

* 


RHIO 

CONTROL 

REGISTER 


0 

5     6     7     8 

^        17     18  19 

21                                    28  29  30                         35 

DATAO  * 

♦LR*           * 

♦M  *                  < 

^  DRIVE     **G     D 

♦                                                ♦W  ♦FUNCTION  CODE   •GO* 

♦M  *                  < 

►  SELECT  ttE     X 

*   INITIAL   CONTROL  WORD     ^T   ♦                              ♦     • 

RHCR 

t     tc  *D  * 

♦0  ♦                  < 

>                 ttV  ♦E  ♦ 

♦                ADDRESS                 *E  ♦         RD=71           ♦     ♦ 

t     *B  ♦B  * 

♦D   ♦                  < 

►     0-7       *»D  *S  * 

♦                                                tV  ♦       WRT=61            •     • 

40 

t     »T  *T   ♦ 

»E   » 

^                 ** 

»                                                *M  •                              *     • 

?ATAI    i 

*     »0  ♦O  * 

i                        ♦♦ 

*• 


1 


r 


'■~i' 
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RH10  INTERRUPT  ADDRESS,  DATA  BUFFER,  REGISTER  ACCESS  ERROR  S  CHANNEL  BUFFER  REGISTER  FORMATS 


SEQ  0091 


r 

DC 
DC 


DATAO  ♦ 
RH10  ♦ 

INTERRUPT  ♦ 

ADDRESS  REGISTER  * 

DATAI   * 


RHIA 
44 


5     6 
.-*—•• 

*LR* 

*     * 


16  17 
.•—*—**• 

*KI** 
*AN** 
*  Jut 


27 


35 


♦I 
*I 
♦N 
*T 

* 


t 
# 

t 
* 
* 
* 


INTERRUPT  ADDRESS 
0-777 


ft 
* 


RHIO 

DATA  BUFFER 

REGISTER 


DATAO 


DATAI 


0                          5     6     7    8                              14  15  16  17     18  35 

*LR*DS*DE*  ♦     ♦     *     •D  **  * 

»— *BC*BB*  ♦— ♦— ♦— *B  tt  DATA  BUFFER                                                     ♦ 

RHDB                 *     ♦  L*  L*  *DO*DE*DO*P  **  ♦ 

50                  *     *  K*     ♦  *BD*BV*BD*A  *♦  18  BITS                                                       • 

*  ♦--♦—»  t  5*  N*  D*R  **  ^ 

*  »     ♦     *  ♦     ♦  B*  B*     **  * 


DATAO 
RHIO 

register  access 
error  register 

data: 


0 

5     6 

28  ?V  30  31   32  33  34  35 

♦ 

♦LR* 

tDDDDDDDD* 

♦ 

*RRRRRRRR* 

* 

RHRA 

♦7  *6  ^5  *4  ^3  *2  ♦I   *0  * 

* 

54 

♦R  *R  *R  »R  *R  *R  *R  *R  ♦ 

» 

*AAAAAAAA« 

* 

^««»S«*B  «»■•»«*<*«*««»  ''ft  «»»»«•»»»««•>»»»• 

•E     E     E     E     E     E     E     E  * 

55 


•**• 


CHANNEL  BUFFER 
REGISTER 


RHCB 
74 


DATAI 


♦  ♦ 


CHANNEL 
36 


BUFFER 

Brs 


tt 

•  ♦♦« 


mmmm^ummi 


IMMMIIMMMiNMitHiWiM 


iilHii,  ifin'iiM 
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SEQ  0092 


FLOW  CHART 

MASSBUS  CONTROLLER  AND  DRIVE  REGISTER  ASSIGNMENTS 

♦♦♦•••♦*•♦•♦♦♦♦* 


r" 


;c 


COPYRIGHT  1980 

DIGITAL  EQUIPMENT  CORPORATION 

MAYNARD.  MASS.  01754 


.....J 


_J 


„J 


L 


MASSBUS  CONTROLLER  AND  DRIVE  REGISTER  ASSIGNMENTS 

TABLE  OF   CONTENTS 

PAGE  01  MASSBUS  CONTROL  REGISTERS 

PAGE  02  MASSBUS  REGISTERS  00  TO  07 

PAGE  03  MASSBUS  REGISTERS  10  TO  17 


DECFLO  VER     00.12  28-JUL-80  11:13     PAGE  B 


SEQ  0093 


D 
D 


^mmm^Hmmmmmm 


L 


r 


NASSBUS  CONTROLLER  AND  DRIVE  REGISTER  ASSIGNMENTS 
SASSBUS  CONTROL  REGISTERS 


DECFLO  VER     00.12  28-JUL-80  11:13    PAGE  01 


SEQ  009A 


r 
I 

D 

D 


RH20/RP0A 
INTERFACE 
BUFFEr? 


RH10/RP0A 
INTERFACE 
BUFFER 


00  01  02  03  04  05  06  07  08  09  10  11   12  13  14  15  16  17    18  19  20  21  22  21  24  25  26  27  28  29  30  31  32  33  34  35 


I 

I  DRIVE  REGISTER 
I       SELECT  ♦  L  P* 

00  TO  37  *  R  E* 


D 

R 
\ 
E 
S 


* 

T 
R 
A 


* 


* 
* 


DRIVE 
NUMBER  ♦♦ 
0  TO  7 


i^t 


G 
E 
V 
C 


C* 
B* 
P* 
A* 

R* 

* 


DRIVE  REGISTER  DATA 

16  BITS   a77777) 


j«.««.«..«««..«-..«»-«— ——»———— t——— —————— **———— —-™——— —————— —————— -———— 


00  01  02  03  04  05  06  07  08  09  10  11   12  13  14  15  16  17    ^8  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35 


DRIVE  REGISTER 
SELECT 
00  TO  37 


rLR 


C     C     C*  D  DI 

T     B     B*  L  IL 

0     T     P     T  BC 
DOE 


* 


* 


DRIVE 
NUMBER  ♦* 
0  TO  7 


*t 


G 
E 
V 
C 


C* 
B* 
P* 
A* 

R* 

* 


DRIVE  REGISTER  DATA 

16  BITS   n77777) 


..................t--------»--------»--------»--------»*-----------------------~--------«- •--•----•-•-•-•----- ------J 
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HASSBUS  CONTROLLER  AND  DRIVE  REGISTER  ASSIGNMENTS 
MASSBUS  REGISTERS  00  TO  07 
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SEQ  0095 


NOTE:RPOASTATUS/RP05-06  STATUS 
SP=SPARE 


I 
I- 


DRIVE  CONTROL  REGISTER  (DRCR)  #00 

20  21  22  23   24  25  26  27   28  29  30  31  32  33  3A  35 


D 
R 
A 
V 
t 


♦ 

i 

t 


FUNCTION 
CODES 
00  TO  76 


•I 

I 

I 

GI 

01 

I 

I 

-I 


DRIVE  ERROR  REGISTER  #1  (DRER)  #02 

20  21  22   23  24  25  26  27  2B   29  30  31  32  33  34  35 


1 

I 
I 
I 
I 
I 
I- 


•I 


D  U 
C*  N 
K*  S 


0 
P 
I 


D  U 
T*  L 
E*  E 


I 
A 
E 


A  H  H 

0*  C  C 

E»  R  E 

C 


E  U 
C*  C 
H»  F 


F  P  R 
E  A*  H 
R  R*  R 


DRIVE  ATTENTION  SUMMARY  REGISTER  (DRAS)  #04 
20  21  22   23  24  25  26  27   28  29  30  31  32  33  34  35 


...t— >— 

....*.... 

♦— 

D 

D     D 

D 

D     D     D 

— 1 
DI 

' 

R 

R     R 

R 

R     R     R 

RI 

t 

,"    ♦  .   / 

♦ 

V 

V*  V 

V 

V*  V     V 

VI 

• 

.■■-;-♦^■- 

♦ 

* 

* 

I 

— — ♦— — 

7 

6     5 

4 

3    2     1 

01 

I 

—I 

I- 

I 

I 

I 

I 

f 


DRIVE  'DRIVE-TYPE*  REGISTER  (DRDT)  #06 

20  21  22   23  24  25  26  27   28  29  30  31  32  33  34  35 


N 
8* 

A* 


T 
A 
P 
E 


M 
0 
H 


D 

R 

Q* 

S* 

T 


DRIVE  TYPE 
RP04  =  20 
RS04  =  02 


I 

f 

I 
I 
I 
I 


DRIVE  STATUS  REGISTER  (DRSR)  #01 

20  21  22   23  24  25  26  27   28  29  30  31  32  33  34  35 
j..t 1 

I 

I  A     E  P  M     U  L 

I   T*  R  I  0*  R  S 

I  A*  R  P  L*  L  T 


I 


D  D  G  D  D  DI 
PDDVELRIFFI 
G*  P  R  V*  1  6  V*  G  2  51 
M*  R     Y       ♦  /     4     /♦  B     0     /I 

S     /     S     /     /     SI 

P     S     P     S     S     PI 
.-♦ » p ♦.p— p 1 


DRIVE  MAINTENANCE  REGISTER  (DRMR)  #03 
20  21  22   23  24  25  26  27   28  29  30  31  32  33  34  35 


I 
I 


H 
C 
D 


S 
B* 

Y* 
T 


2 
R 

0 
D 
E 
T 


D 

A 

F 
E 
N 


E 

C 

C* 

* 

E 

N 


U 
R 
T 


R 
D 


S  M 
C*  I 
L*  N 
K  D 


M 
C 
L 
K 


—I 

I 

DI 

HI 

DI 

I 

I 

—  I 


DRIVE  DESIRED  DISK  ADDRESS  REGISTER  (DRDA)  #05 
20  21  22   23  24  25  26  27   28  29  30  31  32  33  34  35 

I 
I 
I 
I 
I 

I 

1 


k 

I 
1 

i 

I- 


SURFACE 
ADDRESS 


I 

I 
I 
I 


* 
* 


I  SECTOR 
I  ADDRESS 
I 


DRIVE  LOOK-AHEAD  REGISTER  (DRLA)  #07 
20  21  22   23  24  25  26  27   28  29  30  31  32  33  34  35 


I- 
I 
I 
I 

i 


SURFACE 
FIELD 
00  TO  37 


I 
I 
I 
i 


SECTOR 
FIELD 
00  TO  37 


I 
I 

T 
i 

I 


SECTOR 
FRACTION 
00  TO  77 


—  I 
1 
I 
I 
I 
I 
I 

—  I 


MMMIM 


•MMMM 


J 
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MASSBUS  REGISTERS  10  TO  17 
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SEQ  0096 


i 


DRIVE  SERIAL  NUMBER  REGISTER  (DRSN)  #10  ,,  , 
20  21  II   23  24  25  26  21   28  29  30  31  32  33  34  35 


I- 

I 

I 


DRIVE  SERIAL  NUMBER  IS  REPRESENTED  BY  A 

4  DIGIT  BCD  NUMBER 
*       *       *       #       # 

t       ♦       »       #       » 


'I 

t 


DRIVE  DESIRED  CYLINDER  ADDRESS  (DRCA)  #12 

20  21  22  23  24  25  26  21   28  29  30  31  32  33  34  35 


* 
t 


t 


DRIVE  DESIRED 
♦  CYLINDER  ADDRESS 


\ 
I 


DRIVE 
20  21 

ERROR  REGISTER  #2  (DRE2)  #14 

22   23  24  25  26  21  28  29  30  31  32  33 

34 

35 

I  A 
I  C 
I  U* 
I  /♦ 
I  S 
I  P 

3  1         F       M 
PONNMWETTSCW 
L  V*  D  H  H*  R  N  U*  D  E  S*  S 
U  /♦  X  S  S»  U  /  F*  F  /  U*  U 
S  E         A       R 
PR         B       A 
♦ ♦ s — ♦ — w ♦ — 

C 
S 

F 

J 

1 

u 
c 
u 

: 

DRIVE  ECC  POSITION  REGISTER  (DREC1)  #16 

20  21  22  21  24  25  26  21  28  29  30  31  32  33  34  35 


DRIVE  OFFSET  REGISTER  (DROF)  #11 
20  21  22   23  24  25  26  21   28  29  30  31  32  33  34  35 


I 
I 

I  S 
I  N* 
I  6* 
I 
I 


F 

M  E 
T^C 
2*1 
2 


H 
C 
I 


M 
I  I 
I  N 
I  U 
I  S 


—I 

I 

OFFSET  VALUE  FOR   I 

POSITIONER  OFFSET  I 

UP  TO  1200  UINCHES  I 

000  TO  177 


—I 


DRIVE  CURRENT  CYLINDER  ADDRESS  (DRCO  #13 
20  21  22   23  24  25  26  21   28  29  30  31  32  33  34 


35 


* 


DRIVE  CURRENT 
CYLINDER  POSITIONER 
ADDRESS 


I 
I 
I 
I 


DRIVE  ERROR  REGISTER  #3  (DRE3)  #15 
20  21  22   23  24  25  26  21   28  29  30  31  32  33  34  35 


0 
F 


S 

I  F*  K 
I  C*  I 
I  Y 
L 


I 


S 
P 
/ 
0 
P 
E 


A  D 
C*  C 
L*  I 


D 
I 
S 
A 

f 


U 

w* 

E* 


V 
U 
F 


—  I 

I 

PI 

SI 

UI 


[ 


—I 


DRIVE  ECC  PATTERN  REGISTER  (DREC2)  #17 
20  21  22   23  24  25  26  21   28  29  30  31  32  33  34  35 


I 

I 

f 


# 


t 


m» 


i 


L 


ODRPl  -  RH10/RH20  -  RPOA/05/06  • 
DDRPI1     MAC  28-Aug-85  11:39 

573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 

594  000001 

595  000000 

596  000000 

597  000001 


RELIABILITY  TEST  VERSION  0.15     MACRO  X53B(1242)   15:51  28-Aug-85  Page  1 
GENERAL  MASSBUS  DEVICE  DEFINITION  FILE 

SUBTTL     GENERAL  MASSBUS  DEVICE  DEFINITION  FILE 
;ED  VER  3 

COMMENT/ 

THE  FOLLOWING  SWITCHES  DEFINE  THE  ASSEMBLY  OF   THIS  FILE. 
THEY  MUST  ALL  BE  DEFINED  IN  THE  PROGRAMS  TITLE  FILE.   ONLY 
ONE   TYPE  DEVICE  MAY  BE  DEFINED  AT  A  TIME. 


SEQ  0097 


D 
D 


IFN-ASSEMBLE  RS04  DEFINITIONS 
IFN-ASSEMBLE  RPOX  DEFINITIONS 
IFN-ASSEMBLE  TU16  DEFINITIONS 


RS04==     ? 

RPOX==     ? 

TU16==     ? 

/ 


•♦MASSBUSS  DEVICE  DEFINITION  FILE  CONDITIONAL  ASSEMBLY  SWITCHES 


MHDISK==  RPOX 

FHDISK==  RS04 

MAGTAP==  TU16 

DISK==     MHDISK.'FHDISK 


.•ASSEMBLE  MOVING  HEAD  DISK  DEF'S 
.•ASSEMBLE  FIXED  HEAD  DISK  DEF'S 
.•ASSEMBLE  MAG-TAPE  DEF'S 
.•ASSEMBLE  GENERAL  DISK  DEF'S 


mtmimmmtlitimtm*' 


.:i>l       I    -I'nw^MI— WWlMW 
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598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 


627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 


RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  2 
RH20  BIT  DEFINITIONS 

SUBTTL  RH20  BIT  DEFINITIONS 
♦DEVICE  CODE  FOR  THE  RH20 


SEQ  0098 


000540 
000544 
000550 
000554 
000560 
000564 
000570 
000574 


004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000007 


400000 
200000 
100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000007 


RHO== 
RH1== 
RH2== 
RH3== 
RH4== 
RH5== 
RH6== 
RH7== 


540 
544 
550 
554 
560 
564 
570 
574 


;*RH20  CONO  BIT  ASSIGNMENTS 


RAECLR= 

RHCLR== 

XECLR== 

MBE== 

RCLPA== 

DSCR== 

ATTNEN= 

STOP== 

DONCLR= 

PIA== 


=1824 
1B25 
1B26 
1B27 
1628 
1B29 

=1B30 
1B31 

=1B32 
7835 


REGISTER  ACCESS  ERROR  CLEAR 
MASSBUSS  CONTROLLER  CLEAR 
TRANSFER  ERROR  CLEAR 
MASSBUSS  CONTROLLER  ENABLE 
RESET  THE  COrWAND  LIST  POINTER 
DELETE  SECONDARY  COMMAND  REGISTER 
ATTENTION  INTERRUPT  (ENABLE) 
STOP  THE  TRANSFER 
CLEAR  COMMAND  DONE 
PI  CHANNEL  MASK  BITS 


*RH20  CONI  BIT  ASSIGNMENTS 

/If  ♦♦<et  **♦♦**♦**♦♦****♦**♦*♦************»**♦*******«*******»♦**  ******** 


DPE==  1818 
DREX==  1819 
LWCER==  1820 
SWCER==  1821 
MBXER==  1822 
DRESSE==1823 
RAEER==  1824 
M8XHLT==1825 
D0VRER==1826 
MASSEN==1827 
DRATTN==1828 
SCRFUL==1829 
ATTNEN==1830 
PCRFUL==1831 
CMDDN==  1832 
PIA==   7835 


DATA  PARITY  ERROR 

DRIVE  EXCEPTION 

LONG  WORD  COUNT  ERROR 

SHORT  WORD  COUNT  ERROR 

M-BOX  ERROR 

DRIVE  RESPONSE  ERROR 

REGISTER  ACCESS  ERROR 

THE  M-BOX  IS  HALTED 

DATA  OVERRUN  ERROR 

MASSBUSS  ENABLED 

DRIVE  NEEDS  ATTENTION 

SECONDARY  COMMAND  REG  IS  FULL 

THE  ATTENTION  INTERRUPT  IS  ENABLED 

PRIMARY  COMMAND  REGISTER  IS  FULL 

COMMAND  IS  DONE 


L 
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SEQ  0099 


6A9 

650 

651 

652 

653 

65A 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 


004000 
001000 
000400 

000200 
000007 


000000 
000000 
000000 

000000 
000000 
400000 
200000 

1  mil 


004000    000000 
000007    000000 

Mini 


000007  000000 

1  mil 


004000    000000 

002000    000000 

000200    000000 

000007    000000 

200000 

1 77700 

000077 


Dl 
Dl 


;*DATA0-DATAI   FOR  THE  DRIVE  REGISTERS   (00-37) 


LR==  1B6 
PE==  1B8 
DRAES==  1B9 

TRA==  1B10 
DRSEL==  7B17 
EP==  1B18 
PAR==  1B19 
RDAT==  177777B35 


LOAD  REGISTER  BIT 
PARITY  ERROR  DETECTED 
DISABLE  REG  ACCESS  ERROR  STOP 

ASYNC  TRANSFER  IN  PROGRESS 

A  MASK  FOR  DRIVE  SELECT  BITS 

WRITE  AS  EVEN  PARITY 

PARITY  RECEIVED  ON  LAST  REGISTER  READ 

MASK  FOR  THE  16  DATA  BITS  IN  THE  REG, 


.^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦♦•♦♦♦******************************** 

•♦DATAO-DATAI  FOR  RH20  SECONDARY  BLOCK  ADDRESS  REGISTER  (70) 

;4f**************** ********************************** t ***************** 


LR==    1B6 
DRSEL==  7B17 
RDAT==  177777B35 


LOAD  REGISTER 

DRIVE  SELECT  MASK 

MASK  FOR  THE  16  DATA  BITS 


•  4f  ****•«* t **** ***t ***** t ****** ***tt *************** ***•*****•««*«*•**** 
;*DATAO-DATAI  FOR  RH20  PRIMARY  BLOCK  ADDRESS  REGISTER  ill) 

;/>************************************************♦******************* 


DRSEL==  7B17 
RDAT==     M1111B15 


;MASK  FOR  DRIVE  SELECT  BITS 
.-MASK  FOR  THE  REGISTERS  DATA  BITS 


•f******************************************************************** 

•♦DATAO-DATAI  FOR  RH20  SECONDARY  TRANSFER  CONTROL  REGISTER  (71) 
•if******************************************************************** 


LR== 

RCLP== 

STORE== 

DRSEL== 

DTES== 

BLKCNT= 

FNCTN== 


1B6 
1B7 
1B10 
7B17 
1B19 
=1777B29 
77835 


LOAD  REGISTER  BIT 
RESET  THE  COMMAND  LIST  POINTER 
STORE  THE  M-BOX  ERROR  STATUS 
MASK  FOR  THE  DRIVE  SELECT 
DISABLE  TRANSFER  ERROR  STOP 
MASK  FOR  THE  BLOCK  COUNT 
MASK  FOR  THE  FUNCTION 


L_, 


L 


"•■"1 
I. 


ODRPI  - 
0DRPI1 

693 
69A 
695 
696 
697 
698 
699 
700 
701 
702 
703 
70A 
705 
706 
707 
708 
709 
710 
711 
712 
713 
7K 
715 
716 
717 
718 
719 
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RH20  BIT  DEFINITIONS 

•  4f  »»♦»»»»»*♦»♦*»***»*»♦♦♦♦♦♦**♦*»*♦*♦*»♦♦**♦♦♦»♦*•*♦*♦***** *********** 

;-*DATAO-DATAI  FOR  RH20  PRIMARY  TRANSFER  REGISTER  (73) 
•If******************************************************************** 


000007  000000 
200000 
177700 
000077 


000777 


740000 
730000 
720000 
710000 
700000 


000000 
000000 
000000 
000000 
000000 


DRSEL==  7B17 
DTES==     1B19 
BLKCNT==1777B29 
FNCTN==  77B35 


;MASK  FOR  THE  DRIVE  SELECT  BITS 
.•INHIBIT  TRANSFER  ERROR  STOP 
;NASK     FOR  THE  BLOCK  COUNT 
;MASK  FOR   THE  FUNCTION  BITS 


•#******«*******************«***************************************** 

•♦DATAO-DATAI  FOR  THE  RH20  INTERRUPT  VECTOR  REGISTER  (74) 

•  /lft*******t*********************************************t********«-**** 


IADDR==  777B35 


;NASK  FOR  THE  INTERRUPT  ADDRESS 


•  4f************i»******************************************************* 

)*RH?0  REGISTER  ASSIGNMENTS 

j^ftW*" ************************ **w ************************************* 


RHIVR==  74B5 
RHPTCR==7385 
RHPBAR==72B5 
RHSTCR==71B5 
RHS8AR==70B5 


.•INTERRUPT  VECTOR  INDEX  REGISTER 
.•PRIMARY  TRANSFER  CONTROL  REGISTER 
.•PRIMARY  BLOCK  ADDRESS  REGISTER 
.•SECONDARY   TRANSFER  CONTROL  REGISTER 
.•SECONDARY  BLOCK  ADDRESS  REGISTER 


SEO  0100 


Dl 
Dl 


L.^ 


< 


r 


000270 
00027A 
000360 
000364 
000370 
000374 
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720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 
749 
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RHIO  8IT  DEFINITIONS 

SU8TTL     RHIO  BIT  DEFINITIONS 

•  ft*********************t*«t*******4^*t**i»******««*******t  ************* 

•♦DEVICE  CODE  FOR  THE  RH10 

•  if****t***** 4  ********************************************************* 


R«0== 

270 

Rm== 

274 

RR2== 

360 

R«3== 

364 

RN4== 

370 

RR5== 

374 

400000 

DBPCLR= 

=1B18 

200000 

EXCLR== 

1B19 

100000 

CHNCLR= 

=1B20 

040000 

WRTCW== 

1B21 

020000 

0VRCLR= 

=1B22 

010000 

DRECLR= 

=1B23 

004000 

ILCCLR= 

=1B24 

002000 

RHCLR== 

IBJS 

000200 

C80CLR= 

=1B28 

000100 

hAEEN== 

1B29 

000040 

ATTNEN= 

=1B30 

000020 

ST0P== 

1B31 

000010 

D0NCLR= 

=1B32 

•  /lf******«***************  ****************************************  ****** 

)*RH10  CONO  BIT  ASSIGNMENTS 

•if*******************  ********************************************  if**** 

CLEAR  DPE 

CLEAR  EXCEPTION 

CLEAR  CHANNEL  ERROR 

WRITE  CONTROL  WORD 

CLEAR  OVERRUN 

CLEAR  DRIVE  RESPONSE  ERROR 

SUPPRESS  ILL.   COMMAND 

CLEAR  THE  RHlO 

CLEAR  CONTROL  BUS  OVERRUN 

RAE  INTERRUPT  ENABLE 

ATTN  INTERRUPT  ENABLE 

STOP  TRANSFER  AND  CLEAR   THE  RHiO 

CLEAR  THE  DONE   INTERRUPT 


SEQ  0101 


Dl 
Pi 


■-  >M<j'*i!#«»''WiM'f'"rli'»^i.'**H'*''«ij**"- 


iWaMH 


DDRPI  - 
DORPH 

7:0 
75; 

753 
75A 
755 
756 
757 
758 
759 
760 
761 
762 
763 
76A 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
111 

778 
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RH10  BIT  DEFINITIONS 


SEO  0102 


r 

■  i* 
I 

Dl 
P 


400000 
200000 
040000 
020000 
010000 
004000 
000400 
000200 
000004 
000002 
000001 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
400000 
200000 
100000 
040000 
020000 
010000 
004000 
202000 
000200 
000100 
000040 
000020 
000010 


•tRHiO  CONI  BIT  ASSIGNMENTS 


ARFULL= 

CBFULL= 

CCINH== 

CHNACT= 

CHNPLS= 

DF22B== 

ILFC== 

SDRAE== 

CDPE== 

CyPE== 

NXM== 

DPE== 

EXCEP== 

CHNER== 

cywRT== 

OVRRUN= 

DRE== 

ILC== 

PSFAIL= 

CBOV== 

RAE== 

ATTN== 

BUSY== 

DONE== 


=1B0 

=1B1 
1B3 

=1B4 

=185 
186 
1B9 
1810 
1815 
1816 
1817 
1818 
1819 
1620 
1821 

=1822 
1823 
1824 

=1825 
1828 
1829 
1830 
1831 
1832 


**t ************** *********************** 

;RH10  AR  FULL 

;RH10  CB  FULL 

:DF10  CHANNEL  INHIBIT 

;DF10  CHANNEL  ACTIVE 

;DF10  CHANNEL  PULSE 

;DF10  IN  12   BIT  MODE 

.-ILLEGAL  FUNCTION  CODE 

.•SELECTED  DRIVE  REGISTER  ACCESS  ERROR 

.•CHANNEL  DATA  PARITY  ERROR 

.•CONTROL  WORD  PARITY  ERROR 

;NON-EXISTANT  MEMORY 

.•DATA  PARITY  ERROR 

.•EXCEPTION 

.•CHANNEL  ERROR  (CDPE.  CyPE.  OR  NXM) 

.•CONTROL  WORD  WRITTEN 

.•DISK  OVERRUN 

.•DRIVE  RESPONSE  ERROR 

.•ILLEGAL  COMMAND  (ILFC^SDRAE) 

.POWER  SUPPLY  FAIL 

.•CONTROL  BUS  OVERRUN  INTERRUPT 

.•REGISTER  ACCESS  ERROR  INTERRUPT 

.•ATTENTION  INTERRUPT 

;BUSY 

.•DISK  DONE  INTERRUPT 


L 


L 


OOAOOO 
OOAOOO 
002000 
001000 
000400 
000200 


000000 
000000 
000000 
000000 
000000 
000000 
400000 
200000 
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779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

611 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 


400000 
500000 
440000 
540000 
740000 


000000 
000000 
000000 
000000 
000000 


000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


000002    000000 

000001    ooocoo 

000777 
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SEQ  0103 


r 

Dl 
Pi 


!-*RHlO  OATAO-DATAI   00  -  37  BIT  ASSIGNMENTS   (DRIVE   INTERFACE  BUFFER) 


LR==  1B6 
CT0D==  1B6 
CBTO==  1B7 
CBPE==  1B8 
DLT==  1B9 
DIBILC==1B10 
GEVC==  1B18 
CBPAR==  1B19 


LOAD  REGISTER  (COMMON  TO  ALL  REGISTERS) 

CONTROLLER  TO  DRIVE 

CONTROL  BUS  TIME  OUT 

CONTROL  BUS  PARITY  ERROR 

DATA  LATE  ERROR 

ILLEGAL  R/W  COMMAND  LOADED  INTO  DIB  REGISTER 

GENERATE  EVEN  PARITY  CONTROL  BUS 

CONTROL  BUS  PARITY  BIT 


)*RH10  REGISTER  ASSIGNMENTS 


RHCR==  40B5 

RHD8==  50B5 

RHIA==  44B5 

RHRA:==:  54B5 

RHCB==  74B5 


CONTROL  REGISTER 

DATA  BUFFER 

INTERRUPT  ADDRESS  REGISTER 

REGISTER  ACCESS  ERROR  REGISTER 

CHANNEL  BUFFER 


)»RH10  DATAO-DATAI   54  BIT  ASSIGNMENTS   (REGISTER  ACCESS  ERROR  STATUS) 
;/lf«*****t********t*t*****tt************  ******************************* 


DR7RAE==1B28 
DR6RAE==1B29 
DR5RAE==1B30 
DR4RAE==1B31 
DR3RAE==1B3r 
DR2RAE==ia33 
DR1RAE=^1B34 
DRORAE=-1B35 


REGISTER  ACCESS  ERROR  ON  DRIVE  #7 

REGISTER  ACCESS  ERROR  ON  DRIVE  #6 

REGISTER  ACCESS  ERROR  ON  DRIVE  #5 

REGISTER  ACCESS  ERROR  ON  DRIVE  #4 

REGISTER  ACCESS  ERROR  ON  DRIVE  #3 

REGISTER  ACCESS  ERROR  ON  DRIVE  #2 

REGISTER  ACCESS  ERROR  ON  DRIVE  #1 

REGISTER  ACCESS  ERROR  ON  DRIVE  #0 


•4f*********************<«r*******************************  *************** 

;»RH10  DATAO-DATAI   44  BIT  ASSIGNMENTS   (INTERRUPT  ADDRESS  REG) 
•if******************************************************************** 


KIINT==  1B16 
KAINT==  1B17 
KIADD==  777 


1   WHEN  IN  KI    INTERRUr:  MODE 
1   WHEN  RHIO  IS   IN  KA  INTERRUPT  MODE 
9  BIT  MASK  FOR  KI10   INTERRUPT 


mam\  wwiinnin  m  iniiwiiin  iiiuniii-wwwiwiMMi 


ijuiiili'nii.  iiiBii 


iitfmiimm0>mim0M 


IM»«MMM««M«i«MMMaMM 


L 


L_ 


r 


DDRPl  - 
DDRP11 

823 
82A 
825 
826 
827 
828 
829 
830 
831 
832 
833 
83A 
835 
836 
837 
838 
839 
8A0 
8A1 
8A2 
8A3 
8AA 
8A5 
8A6 
8A7 
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RH10  BIT  DEFINITIONS 


tRHiO  DATAO-DATAI  50  BIT  ASSIGNMENTS  (DATA  BUFFER  REG) 


SEQ   01 OA 


r 

Dl 
P- 


002000 
001000 
000010 
OOOOOA 
000002 
000001 


000000 
000000 

oooooc 

000000 
000000 
000000 
777777 


002000  000000 
001000  000000 
000100  000000 
AOOOOO 
200000 
077600 
000100 
000076 


DBSCLK= 
DBEBL== 
DB0DD== 
DBEVNB= 
DBODDB= 
DBPAR== 
DBMSK== 


=1B7 

1B8 

1B1A 
^•1B15 
=1B16 

1B17 

777777 


;DIAG  SYNC  CLKOCK 

;DIA6  END-OF-BLOCK 

; STATE  OF  PAR  NETWORK  OUTPUT 

;RH10  AR  CONTROL  EVEN  BYTE 

;RH10  AR  CONTROL  ODD  BYTE 

;DATA  BUS  PARITY  BIT 

;18  BIT  MASK  FOR  DATA  TRANSFER 


4ft  *********************  •<••***«***  ************************************ 

*RH10  DATAO-DATAI  AO  BIT  ASSIGNMENTS  (CONTROL  REGISTER) 


CRCBTO= 

DBTO== 

MMODE== 

6EVD== 

DXES== 

ICWMSK= 

WTEVM== 

FCMSK== 


=1B7 

1B8 

1B11 

1B18 

1B19 
=377B28 

1B29 

37B3A 


; CONTROL  BUS  TIME  OUT  ERROR 

;DATA  BUS  TIME  OUT  ERROR 

.•MAINTENANCE  MODE 

.-GENERATE  EVEN  PARITY  DATA  BUS 

.•DISABLE  TRANSFER  ERROR  STOP  (DBPR.  EXCEP.  CDPE) 

.•INITIAL  CONTROL  WORD  ADDRESS  MASK  -  8  BITS 

.•WRITE  EVEN  PARITY  MEMORY 

.•FUNCTION  CODE  MASK  -  5  BITS  (30-3A) 


L 


DDRPl  -  RH10/RH20  -  RP04/05/06  • 
DORP 11  MAC     28-Aug-85  11:39 

848 
8A9 
850 
851 
852 
853 

85A  000000 

855  010000  000000 

856  020000  000000 

857  030000  000000 

858  040000  000000 

859  050000  000000 

860  050000  000000 

861  060000  000000 

862  070000  000000 

863  100000  000000 

864  110000  000000 

865  120000  000000 

866  130000  000000 

867  140000  000000 

868  14C000  000000 

869  150000  000000 

870  160000  000000 

871  170000  000000 
872 

873 
874 
875 
876 
877 
878 
879 

880  000001 

881  000076 

882  004000 
883 
884 
885 
886 
887 
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SUBTTL  MASSBUSS  DEVICE  BIT  ASSIGNMENTS 
♦MASSBUSS  DEVICE  REGISTER  BIT  ASSIGNMENTS  (REGISTERS  00-17) 


SEQ  0105 


DRCR== 

DRSR== 

DRER1== 

DRMR== 

DRAS== 

DRDTS== 

DRFC== 

DRDT== 

DRLA== 

DRSN== 

DROFF=: 

DRDCA- 

DRCCA=: 

DRER2== 

DRTC== 

DRER3=: 

DREC1== 

DREC2== 


0B5 

1B5 

2B5 

3B5 

4B5 

5B5 

5B5 

6B5 

7B5 

10B5 

11B5 

12B5 

13B5 

14B5 

14B5 

15B5 

16B5 

17B5 


3 


CONTROL  REGISTER 

STATUS  REGISTER 

ERROR  REGISTER  *1  OF 

MAINTAINABILITY  REGISTER 

ATTENTION  SUMMARY  'TPSEUDO"  REGISTER 

DESIRED  TRACK  AND  SECTOR  REGISTER 

FRAME  COUNTER  REGISTER 

DRIVE  TYPE  REGISTER 

TRACK/SECTOR  LOOK  AHEAD  REGISTER 

SERIAL  NUMBER  REGISTER 

OFFSET  REGISTER 

DESIRED  CYLINDER  ADDRESS  REGISTER 

CURRENT  CYLINDER  ADDRESS  REGISTER 

ERROR  REGISTER  02   OF  3 

TAPE  CONTROL  REGISTER 

ERROR  REGISTER  #3  OF  3 

ECC  POSITION  REGISTER 

ECC  PATTERN  REGISTER 


•#*♦*••••♦•♦**••**♦*•*•♦•♦•♦•**•♦•*****•*****♦*******♦****♦*♦♦♦******* 
;*MASSBUSS  DEVICE  CONTROL  REGISTER  BIT  ASSIGNMENTS  (DRCR  REG-00) 

; /If*  **♦••••♦♦*•***♦•*♦*•♦♦♦♦♦**************♦•*♦*♦*♦♦♦***♦**♦**  **♦**♦**♦ 


.•COMMON  BIT  ASSIGNMENTS 

G0==         1B35 
FNCTN==  37834 
DVA==       1B24 


THE  GO  BITS 

THE  FIVE  FUNCTION  BITS 

DRIVE  AVAILABLE  IN  DUAL-PORT  OPERATIONS 


XLIST 
LIST 
XLIST 
IFN 


MHDISK,<LIST 


.J 


„.J 


.J 
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888 

889 

890 

891 

892 

893 

894 

S95 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 
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SEQ  0106 


.-MOVING  HEAD  DISK  FUNCTION  SET 
.•(FUNCTIONS  INCLUDE  THE  'W  BIT) 


000001 

N00P==     1 

000003 

UNL0AD==3 

000005 

SEEK==     5 

000007 

RECAL==  7 

000011 

CLEAR==  11 

000013 

RELSE==  13 

000015 

0FFSET==15 

000017 

RTNCTR==17 

000021 

READIN==21 

000023; 

PAKACK==23 

000031 

SEARCH==31 

000051 

WTCHD==  51 

000053 

WTCHHD==53 

000061 

WTD==       61 

000063 

UTHD==     63 
RDD==       71 

000071 

000073 

RDHD==     73 
> 

LIST 

XLIST 

LIST 

A  NO-OP 

KcAD  UNLOAD 

SEEK  TO  CYLINDER 

RECALIBRATE  THE  POSITIONER 

DRIVE  CLEAR 

RELEASE  FROM  PRESENT  PORT 

OFFSET  HEADS  FROM  TRACK  CENTERLINE 

RETURN  TO  CENTERLINE 

READ IN  PRESET  COMMAND 

PACK  ACKNOWLEDGE  COMMAND 

DO  A  BLOCK  SEARCH 

WRITE  CHECK  DATA 

WRITE  CHECK  HEADER  AND  DATA 

WRITE  DATA 

WRITE  HEADER  AND  DATA 

READ  DATA 

READ  HEADER  AND  DATA 


/    '|i:T.li     -     .-i-"  \|— "     -■"■■'■■■"■'''-'  .-  In  ».  .   .-  .-)...     I      I      I   '  irii-Hii    m.i.t  ..r-'ii-      .-.iiimn    iiaiUl..    n        I   I      Mil 


DDRPl  - 
DDRPI1 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

92A 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

943 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 
967 
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100000 
040000 
020000 
010000 
004000 
001000 
000400 
000200 


002000 


000100 
000040 
000020 
000010 
000004 
000002 
OOCjOI 
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•♦MASSBUSS  DEVICE  STATUS  REGISTER  BIT  ASSIGNMENTS  (DRSR  REG-01) 
•!•♦*♦♦»**♦♦♦♦*♦♦♦♦♦*♦*♦♦ t •♦♦*♦»♦**♦***•****♦*•**♦♦*****♦*♦*♦♦**♦♦♦♦♦♦♦ 


r 


SEQ  0107 


: COMMON  BIT  ASSIGNMENTS 


ATA== 

1820 

CERR== 

1821 

PIP== 

1822 

MOL== 

1823 

WRTL0K= 

=1824 

PGM== 

1826 

DPR== 

1827 

DRY== 

1828 
XLIST 

FN 

DISK,<LIST 

;COMM^ 

0  ALL 

DISKS 

LBT=:= 

1825 

> 

LIST 
XLIST 

IFN 

RPOX,<LIST 
AN  RPOX 

; PARTICULAR  TO 

VV== 

1829 

DE1== 

1830 

DL64== 

1851 

6REV== 

1832 

DIGB== 

1833 

DFWD20= 

=1834 

DFWD5== 

> 

1835 

LIST 

XLIST 

LIST 

.•ATTENTION  ACTIVE  (CAUSES  ATTN  SUMMARY) 

.•COMPOSITE  ERROR  (MUST  CHECK  ERROR  REGS) 

.•POSITIONING  IS  IN  PROGRES 

.•MEDIUM  IS  ON  LINE 

.•DRIVE  HAS  BEEN  MANUALLY  WRITE  PROTECTED 

;DRIVE  NOT  BUSY  ON  EITHER  PORT 

.•DRIVE  PRESENT  (ALWAYS=  1  IF  SINGLE  PORT) 

;DRIVE  READY  TO  ACCEPT  ANOTHER  COMMAND 


;IAST  BLOCK  TRANSFERRED 


.•VALID  VOLUME 

.•DIFFERENCE  EQUALS  1 

.•DIFFERENCE  LESS  THAN  64 

.-GOING  IN  REVERSE 

.•DRIVE  TO  THE  INNER  GUARD  BAND 

.•POSITIONING  FWD  AT  20'VSEC 

;POSIYIONING  FWD  AT  5"/SEC 


•♦BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  TRROR  REGISTER  #1  (DRER1  REG-02) 

•if* »♦♦♦♦*♦»»♦*»♦♦»♦*♦♦♦♦♦♦♦♦♦♦♦»»»»♦♦♦ n ♦♦♦♦♦♦♦♦»♦♦♦♦#♦♦ ♦*♦♦♦♦♦♦♦♦♦♦♦♦* 


.•COMMON  FOR  ALL  DEVICES 


100000 

DCK== 

1820 

040000 

UNSF== 

1P21 

020000 

0PI== 

1822 
1823 

010000 

DTE== 

000010 

PE^= 

1832 

000004 

RMR== 

1833 

000002 

iLR== 

1834 

000001 

ILF== 

1835 

;CRC  ERROR  -DATA  CHECK- 

.•DRIVE  UNSAFE  FOR  OPERATION 

.•ATTEMPTED  OPERATION  INCOMPLETE 

.•DRIVE  TIMING  E:^R0R 

.•SYNCHRONOUS.  DATA  BUSS  PARITY  ERROR 

.•REGISTER  MODIFICATION  HAS  BEEN  REFUSED 

.•TRIED  TO  ACCESS  A  NON-IMPLEMENTED  REGISTER 

.•TRIED  TO  ISSUE  A  NON  IMPLEMENTED  COMMAND 


WW 


n 
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r 


SEQ  0108 


968 
969 


XLIST 
IFN 


RPOX,<LIST 


■WHMCMJtMMi 


HPW 


'i 


OOAOOO 
002000 
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970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 

1018 
1019 
1020 
1021 
1022 
1023 
1024 
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SEQ  0109 


; SPECIALS  FOR  THE  RPOX 


000020 

FMTER== 

1B31 

000040 

WCLKF== 

1B30 

000100 

ECHARD= 

=1B29 

000200 

HCE== 

1B28 

00040C 

HCRCER= 

=1B27 

001000 

A0E== 
> 

1B26 

;READIN  PACK  IN  WRONG  FORMAT 

;WRITE  CLOCK  STOPPED  COMMING  FROM  CONTROLLER 

:ERR0R  UNCORRECTABLE  BY  ECC  LOGIC 

.•HEADER  COMPARE  ERROR 

.•HEADER  CRC  ERROR  DETECTED 

;ATTEMT  TO  ACCESS  NON-EXISTANT  CYLINDER 


LIST 

XLIST 

IFN     DISK.<LIST 
.•VALID  FOR  ALL  DISKS 


yLE== 
IAE== 
> 


LIST 


1B24 
1B25 

LIST 

XLIST 


.•TRIED  TO  WRITE  A  WRITE-LOCKED  MEDIUM 
.•ATTEMPT  TO  ACCESS  NON-EXISTANT  TRACK/SECTOR 


•♦BIT  ASSIGNMENTS  FOR  HASSBUSS  DEVICE  MAINT  REGISTER  (DRMR  REG-03) 

;/>♦♦»♦♦*♦♦♦*♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦***♦♦****♦♦♦**♦♦♦*»♦♦*♦♦***»♦*♦♦*****♦*♦♦♦ 

.•PUT  DRIVE  IN  MAINT  MODE 


000001 

DMD==   1B35 

XLIST 

LIST 

XLIST 

IFN     RPOX. <L I  ST 

002000 

HCD==   11^5 

001000 

SBD==   1B26 

000400 

ZD==    1B27 

000200 

DATENV==1B28 

000100 

ECCENV==1B29 

000040 

MWRT==  1B30 

000020 

MRD==   1B31 

000010 

MSCLK==  1B32 

000004 

MIND==  1B33 

000002 

MCLK==  1B34 
LIST 

XLIST 

LIST 

;HIGH  COUNT  DETECT 
;SYNC  BYTE  DETECT 
;ZERO  DETECT 
;DATA  ENVELOPE 
;ECC  ENVELOPE 
;MAINT  WRITE 
;MAINT  READ 
;MAINT  SECTOR  CLOCK 
.-MAIN!  INDEX  PULSE 
.-MAINT  CLOCK 


•♦BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  ATTENTION  SUMMARY  REGISTER  (DRAS  REG-04) 


mm 


MiMM 


r 
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1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

10A0 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 


000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 


017400 
000037 


100000 
040000 
020000 
010000 
004000 
002000 

000002 
000003 

020020 
024020 
020021 
024021 
020022 
024022 

000011 


RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  12-1 
MASSBUSS  DEVICE  BIT  ASSIGNMENTS 


r 


SEQ  0110 


DROAT=: 
DR1AT- 
DR2AT=: 
DR3AT=: 
DR4AT- 
DR5AT=: 
DR6AT=: 
DR7AT=: 


1B28 

1B29 

1B30 

1B31 

1832 

1833 

1B34 

1B35 

XLIST 

I  FN 

DISK,<LIST 

DRIVE-0  NEEDS 

DRIVE-1 

DRIVE-2 

DRIVE 

DRIVE 

DRIVE 

DRIVE 

DRIVE 


NEEDS 

2  NEEDS 

3  NEEDS 

4  NEEDS 

5  NEEDS 

6  NEEDS 

7  NEEDS 


ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 
ATTENTION 


♦BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICES  DESIRED  TRACK  SECTOR  REGISTER  (DRDTS  REG-05) 


h 


RPDTF: 
RPDSF= 
> 


XLIST 
LIST 

LIST 

XLIST 

LIST 

XLIST 
IFN 
37B27 
37B35 

LIST 


RPOX,<LIST 


.•DESIRED  TRACK  FIELD 
.•DESIRED  SECTOR  FIELD 


4f  ♦♦♦♦♦•*♦♦♦♦♦♦♦•*»*♦♦♦♦ ♦••♦♦♦♦»*♦♦**♦*♦**♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦**♦♦♦♦♦♦*♦*♦ 

BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  DRIVE  TYPE  REGISTER  (DRDT  REG-06) 
/|f***t  ****************  »**t  •♦♦*♦»**  **♦*»*%••*♦**♦**♦♦♦♦***•**♦♦******** 


DTNBA=:= 
DTTAPE= 
DTMOVH: 
DT7TRK: 
DTDRR== 
DTSLVP: 

RS04N=: 
RS04I=: 

RP04SP: 
RP04DP: 
RP05SP: 
RPg5DP: 
RP06SP: 
RP06DP= 


1B20 

:1B21 
:1B22 
:1B23 

1B24 
^1B25 

2B35 
3B35 

:2002J 

=24020 

:20021 

=24021 
=20022 
=24022 


TU16D==  11B35 


NOT  BLOCK  ADDRESSED  BIT 
TAPE  DRIVE  BIT 
MOVING  HEAD  DEVICE 
7  TRACK  DRIVE 
DUAL  PORT  DEVICE 
SLAVE  PRESENT 

RS04  NON-INTERLEAVED 
RS04  INTERLEAVED 

RP04  SINGLE  PORT 
RP04  DUAL  PORTED 
SINGLE  PORT  RP05 
DUAL  PORT  RP05 
SINGLE  PORT  RPD6 
DUAL  PORT  RP06 

ITS  A  TU16 


J 


003700 
000037 
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1080 

1081 

1082 

1083 

108A 

1085 

1086 

1087 

10«8 

108V 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 
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MASSBUSS  DEVICE  BIT  ASSIGNMENTS 


r 


SEQ  0111 


170000 
007400 
000360 
000017 


010000 
004000 
002000 
100000 

000377 

004000 
00004 

m 

0Q4( 
020( 


XLIST 
IFN 


DISK,<LIST 


;PRESENT  SECTOR  FIELD 
.•PRESENT  SECTOR  FRACTION  FIELD 


BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICES  TRACK/SECT  LOOK  AHEAD  REGISTER  (DRLA  RE6-07) 

XLIST 
LIST 

XLIST 

IFN     RPOX.<LIST 
:RPOX  LOOK  AHEAD  BITS 
ftPPSF==  37B29 
RPPSFF==37B35 
> 

LIST 
> 

LIST 

LIST 

4f********«*************«**t*t ************************* tt ****** **♦•*•• 

BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  SERIAL  NUMBER  REGISTER  (DRSN  REG-10) 

:  THE  REGISTER  STORES  EACH  DIGIT  AS  A  'BCD"  NUMBER 
6l6Il==  17B23  .-THOUSANDS  DIGIT 

DI6I2==  17B27  .-HUNDREDS  DIGIT 

DI6I3==  17B31  .-TENS  DIGIT 

DIGI4==  17B35  .-UNITS  DIGIT 


XLIST 
IFN 


MHDISK.<LIST 


•♦BIT  ASSIGNMENTS  FOR  THE  MASSBUSS  DEVICE  DRIVE  OFFSET  REGISTER  (DROFF  REG-11) 


FMT22== 
ECI== 
HCI== 
SGNCHG^ 

OFSMSK= 
OF25M== 
OF50M== 
OFIQQM: 
0F2QQM: 
0F4Q5M: 
OF800M: 
0FDIR== 


RP0X.<LIST 


:377B35 
1B35 


IBj 
IB 
IB 

=ib; 

IB: 

ib; 


'4 

13 
\2 
1 


.-PLACE  DRIVE  IN  22   SECTOR  MODE 
.-INHIBIT  HARDWARE  ERROR  CORRECTION 
.-INHIBIT  HEADER  COMPARE 
;SIGN  CHANGE  BIT 

.-MASK  FOR  OFFSET  INFO«^MATION  BITS 
.-OFFSET  25  MICRO-INCHES 
.•OFFSET  50  MICRO-INCHES 
.-OFFSET  100  MIC:^0-INCHES 
.-OFFSET  200  MICRO-INCHES 
.-OFFSET  400  MICRO-n^CHES 
.-OFFSET  800  MICRO-INCHES 
.-REVERSE  DIRECTION  OF  OFFSET 


L 


001777 


001  111 
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1135 

1136 

1137 

1138 

1139 

1U0 

1H1 

11A2 

1143 

1U4 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1188 
1189 
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MASSBUSS  DEVICE  BIT  ASSIGNMENTS 

> 

LIST 

•♦BIT  ASSIGNMENTS  FOR  THE  MASSBUSS  DEVICE  DESIRED  CYLINDER  REGISTER  (DRDCY  RE6-12) 


SEQ  0112 


CYLADR1==1777B35 


.•CYLINDER  FIELD  OF  REGISTER 


•♦BIT  ASSIGNMENTS  FOR  THE  MASSBUSS  DEVICE  CURRENT  CYLINDER  REGISTER  (DRCCY  REG-13) 


CYLADR1==1777B35 
> 

XLIST 

IFN     MHDISK,<LIST 


.•CYLINDER  FIELD 


^♦BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  ERROR  REGISTER  #2  (DRER2  REG-14) 


XLIST 

IFN   rpox.<l:st 

;F0R  THE  RPOX 

100000 

ACUNSF==1B20 

040000 

SPARE==  1B21 

020000 

PLLU==  1822 
V30UNS==1B23 

010000 

004000 

INDXER==1B24 

002000 

NHDSEL==1825 

001000 

MHDSEL==1B26 

000400 

yRTRU==  1827 

000200 

FAILSE==1828 

000100 

TRANSU==1B29 

000040 

TRADF==  1B30 

000020 

M0TSER==1B31 

000010 

WCLUNS==1B32 

000004 

WSUNS==  1833 

000002 

csfail==ib:;4 

000001 

WCUNS==  1835 
> 

LIST 
> 

LIST 

XLIST 

LIST 

XLIST 

IFN     MHDJSK.<LIST 

AC  UNSAFE 

A  SPARE  BIT  -  NOT  YET  IMPLEMENTED 

PHASE  LOCK  LOOP  DETECTED  UNSAFE 

30  VOLT  SUPPLY  IS  UNSAFE 

DETECTED  EXTRA  OR  MISSING  INDEX  PULSE 

HEAD  SELECTION  DID  NOT  OCCUR 

MULTIPLE  HEADS  WERE  SELECTED  SIMULTANEOUSLY 

TRIED  TO  WRITE  WHEN  NOT  ON  A  CYLINDER 

FAILSAFE  ENABLED  (48  VOLT  SUPPLY  HAS  FAILED) 

DRIVE  HAS  DETECTED  LOSS  OF  WRITE  TRANSITIONS 

DRIVE  DETECTS  WRITE  TRANSITIONS  WITH  NO  WRITE 

DRIVE  DEFECTS  MOTOR  SEQUENCE  ERROR 

WRITE  CURRENT  LEVEL  IS  UNSAFE 

CURRENT  SELECT  IS  UNSAFE 

CURRENT  SINK  FAILURE  HAS  BEEN  DETECTED 

DETECTED  WRITE  CURRENT  WITH  NO  WRITE  COMMAND 


11 


•♦BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICES  ERROR  REGISTER  #3  (DRER3  REG-15) 


lMlliilli»<l 


MMM 


r 
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1190 

1191 

1192 

1193 

119A 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

120A 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12U 

1215 

1216 

1217 

1218 

''219 

1220 
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SEQ  0113 


XLIST 

FN    RP0X,<LIST 

100000 

0FFCYL==1B20 

OAOOOO 

SKINC==  1821 

000100 

ACLOW==  1829 

OOOOAO 

DCLOU==  1830 

000020 

0ISABL==1B31 

000010 

UOTRR==  1832 

000002 

VELUNS==1B34 

000001 

RVUNS==  1835 
> 

INVALID  "OFF  CYLINDER"  CONDITION  EXISTS 

SEEK  DID  NOT  COMPLETE  WITHIN  85  MS 

AC  LOU 

DC  LOW 

DISABLE  THE  DEVICE 

UNSAFE  OTHER  THAN  READ  WRITE 

POSITIONER  VELOCITY  IS  UNSAFE 

ROTATIONAL  VELOSITY  DOWN  BY  20X  OR  MORE 


;*BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  ECC  POSITION  REGISTER  (DRECl  RE6-16) 

XLIST 

IFN     RPOX,<LIST 
> 

LIST 

•♦BIT  ASSIGNMENTS  FOR  MASSBUSS  DEVICE  ECC  PATTERN  REG  (DREC2  REG-17) 


> 
> 


XLIST 

IFN     RP0X,<LIST 

LIST 


L 
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1221 
1222 
1223 
122A 
1225 
1226 
1227 
1228 
1229 
1230 

1231  400000 

1232  200000 

1233  100000 
123A 

1235  040000 

1236  020000 

1237  010000 
1238 

1239  004000 

1240  002000 

1241  001000 
1242 

1243  000400 

1244  000200 

1245  •  000100 
1246 

1247  000040 

1248  000020 

1249  000010 
1250 

1251  000004 

1252 

1253  000002 

1254 
1255 
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SUBTTL  ♦PARAM*  CONSOLE  DATA  SWITCH  ASSIGNMENTS,  SEPT  18,1979 

DEFINE  S,<;  ♦♦**♦♦♦******************************************************♦♦*♦♦♦♦*> 

[•♦DATA  SWITCHES  (READ  FROM  CONSOLE  IN  EXEC  MODE  OR  TYPED  IN  IN  USER  MODE) 
.-♦LEFT  HALF  SWITCHES  ARE  PRE-ASSI6NED  FOR  SUBROUTINE  PACKAGE  USE 
.-♦AND  CONTROL  LOOPING,  PRINTING  (TTY  OR  OTHER  DEVICE)  AND  MISC.  FUNCTIONS 
•  *****#*************«*******************♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦********* 


SEQ  0114 


ABORT==  400000 
RSTART==200000 
T0TALS==1 00000 

NOPNT==  040000 
PNTLPT==020000 
DING==  010000 

LOOPER==004000 
ERSTOP==002000 
PALERS==001000 

RELIAB==000400 
TXTINH==000200 
INHPA6==000100 

MODDVC=-000040 
INHCSH==000020 
OPRSEL==000010 

CHAIN==  000004 

KAHZ50==000002 


:AB0RT  PROGRAM  ON  PASS  COMPLETION 
.RESTART  TEST,  PRINT  TOTALS 
; PRINT  TOTALS,  CONTINUE 

.•INHIBIT  ALL  PRINT/TYPE  OUT  (EXCEPT  FORCED) 
;PRINT  ALL  DATA  ON  LPT  (LOGICAL  DEVICE,  USER  MODE) 
;RING  BELL  ON  ERROR 

;ENTER  EXERCISE/CHECK  LOOP  ON  ERROR 
.-HALT  ON  TEST  ERROR 
; PRINT  ALL  ERRORS 

;RELIABILITY  MODE 
.•INHIBIT  ERROR  TEXT 
.•INHIBIT  PAGING 

.•MODIFY  DEVICE  CODE 
; INHIBIT  CACHE 
.•OPERATOR  SELECTION 

.•CHAIN  CONTRO  SWITCH 

;KA10  50  HERTZ  POWER 

.•SWITCH  17  RESERVED  HI 


L 


r 
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1256 
1257 
1258 
1259 
1260 
1261 

1262  027772 

1263  027775 

1264  027774 

1265  027775 

1266  027776 

1267  027777 

1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
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•PARA«*  PROGRAH/SUBRDUTINE  PARAMETERS,  SEPT  18J979 

SUBTTL     ♦PARAH*  PROGRAM/ SUBROUTINE  PARAMETERS,   SEPT  18,1979 

•   »»♦»»♦»♦♦*♦»»»♦•»♦»#♦♦♦♦♦♦*♦♦»♦ t **♦#♦♦•♦•♦*♦♦*♦*♦♦♦♦♦*♦♦♦♦♦•• ♦♦*♦•♦*♦♦ 

•♦SPECIAL  SUBPROGRAM  LINKAGES 


SEO  0115 


FSELNK= 

FRDLNK^ 

LDLNK- 

ODTLNK= 

MODLNK:= 

SUBLNIC= 


27772 
27771 
2777^ 
27775 
27776 
27777 


;FILE  SELECT  LINK 

;FILE  READ  LINK 

.LOAD  LINKAGE  ADDRESS 

:DDT  LINKAGE  ADDRESS 

.•OPERATIONAL  MODE  CHECK  LINKAGE  ADDRESS 

.•SUBROUTINE  LINKAGE  ADDRESS 


********************************************************************** 

♦SPECIAL  SUBROUTINE  FATAL  HALTS 

♦USED  TO  REPORT  ERRORS  THAT  CAUSE   THE  SUBROUTINES  TO  BE  UNUSABLE 

ADDRESS       TAG     REASON 

.•PROGRAM  NOT  CODED  FOR  EXEC  MODE  OPERATION 

.•FATAL  PUSH  LIST  POINTER  ERROR 

.•INITIAL  PUSH  LIST  POINTER  ERROR 

.•MUUO  WITH  LUilO  HANDLER  WIPED  OUT 

:DTE20  INTERRUPT  WITHOUT  DOORBELL 

;DTE20  CLOCK  INTERRUPT  WITHOUT  FLAG  SET 

.-CPU  INITIALIZATION  ERROR 

:END  OF   PROGRAM  ERROR 

.•INTERRUPT  WITH  I UUO  HANDLER  WIPED  OUT 


1010 

NOEXEC 

1011 

PLERR 

1012 

PLERRl 

1013 

MUOERR 

1014 

DTEBER 

1015 

DTECER 

1016 

CPIERR 

1017 

EOPERR 

1020 

LUOERR 

[:-i-.Jtt.  •"r'.""'  '  -  ]-Y ''yrj  "j-jt  v  :tr^^^' •"""" — .^-.i— -x^ --i  ■  nvf  ..■^..■.'.  i...ii,ri_r  .imn  i.i^ji_«iit^«..iiiiirii  ■-- nii 


L 


r 
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SEO  0116 


1288 

128V 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

130A 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 


260740 
263740 
261740 
262740 
254000 
254200 
254100 
254500 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


265000  030011 


037(  0  000004 
037  '0  000004 


037000 
037040 
037100 
037140 
037200 
037240 
037300 
037340 
037400 
037440 
037500 


000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 
000003 
0DOOO3 
000003 


•OPERATOR  DEFINITIONS  (NON-UUO'S) 


OPDEF 

GO 

[PUSHJ 

OPDEF 

RTN 

:popj 

OPDEF 

PUT 

:push 

OPDEF 

GET 

:pop 

OPDEF 

PJRST 

:jrst 

OPDEF 

HALT 

:jrst 

OPDEF 

JRSTF 

:jrst 

OPDEF 

JEN 

cjrst 

4J 
l2j 


SUBROUTINE  CALL 
SUBROUTINE  RETURN 
PUT  DATA  ON  PUSH  LIST 
GET  DATA  FROM  PUSH  LIST 
JRST  TO  ROUTINE  THAT  RTN'S 
DEFINITION  FOR  DDT 
DEFINITION  FOR  DDT 
DEFINITION  FOR  DDT 


•SUBROUTINE  INITIALIZATION  CALL 

•  *******t*t*********tt************** ********************* ************** 


OPDEF       PGMINT     CJSP         0,Su    -IT] 


.•SUBROUTINE   INITIALIZATION 


•  ********* **********f********************«*******************^********v 

•HALTING  UUO'S  (A  MORE  GRACEFUL  HALT  THAN  SIMPLY  USING  THE  HALT  INSTRUCTION) 

•  ********************************************************************** 

• 

OPDEF   FATAL   C37B8115B1214J  ;FATAL  PROGRAMMING  HALT 
OPDEF   ERRHLT  C37B8I14B12I4]  .-PROGRAM  ERROR  HALT 

•  ********************************************************************** 

; TERMINAL  INPUT  UUO'S 

.•ALWAYS  COME  FROM  THE  CONSOLE  TERMINAL  IN  EXEC  MODE  OR  THE 

.•CONTROLLING  TERMINAL  (REAL  TERMINAL  OR  PTY)  IN  USER  MODE. 

•  ********************************************************************** 


OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 


TTICHR 

TTIYES 

TTINO 

TTIOCT 

TTIDEC 

TTICNV 

TTLOOK 

TTALTM 

TTSIXB 

TTYINP 

TTICLR 


C37B8I0B1213] 
C37B811812!3] 
C3788!2B12!3] 
^37B8!3B12!3] 
:378814B1213] 
17B8!5B12!3] 
1768 16612! 33 
;7B8!7B1213] 
J7B8!10B12!3] 
:37B8!11B12!3] 
:37B8:12B12!3] 


TTY.  INPUT  ANY  CHARACTER 

TTY.  NORMAL  RETURN  Y 

TTY.  NORMAL  RETURN  N 

TTY.  INPUi  OCTAL  WORD 

TTY.  INPUT  DECIMAL  WORD 

TTY.  INPUT  CONVERTABLE  WORD 

TTY.  KEYBOARD  CHECK 

TTY.  ALT-MODE  CHECK 

TTY.  INPUT  SIXBIT  WORD 

TTY.  IMAGE  MODE  INPUT 

TTY.  CLEAR  INPUT 


mfmmm 


L. 


DDRPl  - 
PARAM 

1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
13A0 
13A1 
13A2 
13A3 
13A4 
13A5 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
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SEQ  0117 


.-TERMINAL  OUTPUT  UUO'S. 


037000 
037000 
037740 
037740 
037600 
037640 
037000 
037040 
037100 
037200 
037000 
037040 
037500 
037500 
037040 
037040 
037100 
037100 
037140 
037140 
037200 
037200 
037240 
037240 
037300 
037300 
03734C 
0:'340 
0:>'440 
037440 
037400 
037400 
037600 
037600 
037540 
037540 
037700 
037740 
037640 
037640 
037700 
037700 


000000 
000001 
000000 
000001 
000003 
000003 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000000 
000001 
000000 
000001 
000000 
C00001 
000000 
000001 
000000 
000001 
000000 
000001 
OOuOOO 
000001 
000000 
000001 
000000 
000001 
000000 
000001 

oooooc 

000001 
000003 
000003 
000000 
000001 
000000 
000001 


OPDEF 

PNTA 

OPDEF 

PNTAF 

OPDEF 

PNTAL 

OPDEP 

PNTALF 

OPDEF 

PSIXL 

OPDEF 

PSIXLF 

OPDEF 

PNTMSG 

OPDEF 

PNTMSF 

OPDEF 

PSIXM 

OPDEF 

PSIXMF 

OPDEF 

PNTCI 

OPDEF 

PNTCIF 

OPDEF 

PNTCHR 

OPDcF 

PNTCHr 

OPDEF 

PNT1 

OPDEF 

PNT1F 

OPDEF 

PNT2 

OPDEF 

PNT2F 

OPDEF 

PNT3 

OPDEF 

pnt:if 

OPDEF 

PNT4 

OPDEF 

PNT4F 

OPDEF 

PNT5 

oprj 

PNT5F 

OPDEF 

PNT6 

OPDEF 

PNT6F 

OPDEF 

PNT7 

OPDEF 

PNT7F 

OPDEF 

PNT11 

OPDEF 

PNT11F 

OPDEF 

PNTADR 

OPDEF 

PNTADF 

OPDEF 

P;^TOCT 

OPDEF 

PNTOTF 

OPDEF 

PNTHW 

OPDEF 

PNTHWF 

OPDEF 

PNTOCS 

OPDEF 

PNTOCF 

OPDEF 

PNTDEC 

OPDEF 

PNTDCF 

OPDEF 

P^!'DS 

OPDEF 

NTDSF 

081 2! 03 

0B12113 

17B12103 

17B12!l5 

14B12133 

15B12133 


0612 
1B12 
2B12 
4B12 
OBI  2 
1812 


03 
03 
03 
03 
03 
03 


12812103 
12812113 


1812 

1812 

2812 

2812 

3812 

3812 

4812 

4812 

5812 

5812 

6812 

6812 

7812 

7812 

11812 

11812 

10812 

10812 

14812 

14812 

13812 

13812 

16812 

1781" 

1581 

1581 

1681 

16812 


03 
13 
03 
13 
03 
13 
03 
13 
03 
13 
03 
13 
03 
1 


03 
13 
03 
13 
03 

I] 

1" 

3: 
3: 

03 

J 

n 


PRINT  ASCII  WORD 

PRINT  ASCII  WORD  FORCED 

PRINT  ASCIZ  LINE 

PRINT  ASCIZ  LINE  FORCED 

?RINT  SIXBIT'Z  LINE 

PRINT  SIXBIT'Z  LINE  FORCED 

PRINT  MESSAGE  IMMEDIATE 

PRINT  MESSAGE  IMMEDIATE  FORCEO 

PRINT  SIXBIT'Z  MSG  IMMEDIATE 

PRINT  SIXBIT'Z  MSG  IMM  FORCED 

PRINT  CHARACTER  IMMEDIATE 

PRINT  CHARACTER  IMMEDIATE  FORCED 

PPINT  CHARUTER 

PRINT  CHARACTER  FORCED 

PRINT  ONE  OCTAL  DISIT 

PRINT  1  OCTAL  DIGIT  FORCED 

PRINT  TWO  OCTAL  DIGITS 

PRINT  2  OCTAL  DIGITS  FORCED 

PRINT  THREE  OCTAL  DIGITS 

^?^NT  THREE  OCTAL  DIGITS  FORCED 

PRINT  FOUR  OCTAL  DIGITS 

PRINT  FOUR  OCTAL  DIGITS  FORCED 

PRINT  FIVE  OCTAL  DIGITS 

PRINT  FIVE  OCTAL  DIGITS  FORCED 

PRINT  SIX  OCTAL  DIGITS 

PRINT  SIX  OCTAL  DIG»'*^  FORCED 

PRINT  7  OCTAL  DIGITS 

PRINT  7  OCTAL  DIGITS  FORCED 

PRINT  11  OCTAL  DIGITS 

PRINT  11  OCTAL  DIGITS  FORCED. 

PRINT  PHYSICAL  ADDRESS 

PRINT  PHYSICAL  ADDRESS  FORCED 

PRINT  FULL  WORD  OCTAL 

PRINT  FULL  WORD  OCTAL  FORCED 

PRINT  OCTAL  HALF  WORDS,  6  SP  6 

PRINT  OCTAL  HALF  WORDS,  6  SP  6  FORCED 

PRINT  OCTAL,  SUPPRESS  LEADING  0*S 

PRINT  OCTAL,  SUPPRESS  LEADING  O'S  FORCED 

PRINT  DECIMAL,  SUPf.ESS  LEADING  O'S 

PPINT  DECIMAL,  SUPRESS  LEADING  O'S  FORCED 

Pf^INT  DECIMAL,  SPACES  FOR  LD  O'S 

PRINT  DECIMAL,  SPACES  FOR  LD  O'S  FORCED 
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*PARA«*  PROGRAM/SUBROUTINE  PARAMETERS,  SEPT  18 J 979 


SEQ  0118 


1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 


037200 
037000 
037040 
037240 
037100 
037140 
037000 
037040 
037000 
037040 
037000 
037040 
037040 


000002 
000002 
000002 
000002 
000002 
000002 
030242 
030242 
000040 
000040 
030243 
030243 
000007 


037040  000026 


037400  000002 


037540 
037200 


037040 
037100 
037140 


000004 
000004 


000004 
000004 
000004 


OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 


PNTNM 

PNTSIX 

PNTSXF 

DROPDV 

PNTCW 

PNTCWF 

PCRL 

PCRLF 

PSP 

PSPF 

PCRL2 

PCRL2F 

PBELL 


:37e8 

;37B8 
.3788 
£3788 
C3788 
C3788 
C3788 
C3788 
C3788 
C3788 
C3788 
C3788 
C37B8 


4812 
0B12 
1912 
5B12 
2B12 
3B12 
0612 
1612 
0612 
1612 
0612 
1612 
1612 


1]   ; PRINT  PROGRAM  NAME 

23   ; PRINT  SIX6IT  WORD 

23   .-PRINT  SIX6IT  WORD  FORCED 

21  ;ClOSE  LOGICAL  FILE,  USER  MODE 

22  .-PRINT  DF10  CONTROL  WORD 

21       .-PRINT  DF10  CONTROL  WORD  FORCED 

CRLFJ  .-PRINT  CARRIAGE  RETURN/LINE  FEED 

CRLF]  ;PRINT  CARRIAGE  RETURN/LINE  FEED  FORCED 

40J  ;f»RINT  SPACE 

40]  ;PRINT  SPACE  FORCED 

CRLF25  .-PRINT  CARRIAGE  RETURN/LINE  FEED  (TWICE) 

CRLF2]  ;PRINT  CARRIAGE  RETURN/LINE  FEED  (TWICE)  FORCED 

71       .-PRINT  TTY  6ELL 


OPDEF   PFORCE  C37B8!  16121263  .-PRINT  FORCE.  CONTROL  0  OVERRIDE 


DEFINE  PMSG 
PSIXM 


(ARG).< 
[SIXBIT\ARG'.\3> 


DEFINE  PMSGF   (ARG).< 

PSIXMF  CSIXBIT\ARG'.\3> 

.-SIXBTZ  —  MACRO  TO  GENERATE  SIXBIT  DATA  FOR  PRINTING 
CONSERVES  CORE  OVER  ASCIZ 

DEFINE  SIXBTZ  (ARG).<  CSIXBIT\ARG'.\3> 

CONSOLE  SWITCH  INPUT  UUO. 

READS  CONSOLE  SWITCHES  IF  IN  EXEC  MODE  OR  ASKS  FOR  THEM  IF 
USER  MODE. 

OPDEF   SWITCH  [3788 11 061 2! 23  ;INPUT  CONSOLE  SWITCHES 

.•CLOCK  INITIALIZATION  UUO  -  TO  SET  DESIRED  CLOCK  OPERATION 

.-EITHER  IGNORE  CLOCK.  ONLY  LET  IT  TICK  OR  CAUSE  INTERRUPT  TO  OCCUR. 

OPDEF   CLOKOP  C37B8 1 13812143  .-CLOCK  OPERATION  UUO  -  PDP-11  CLOCK 
OPDEF   MTROP   C37B814612143   .-CLOCK  OPERATION  UUO  -  DK20  METER 

;KL10  ONLY  CACHE  OPERATION  UUO'S 

OPDEF   CINVAL  [378811612143   .-CACHE  INVALIDATE 

OPDEF   CFLUSH  [378812812143   ; CACHE  FLUSH 

OPDEF   CWRTBI  [378813812143   .-CACHE  WRITE-BACK  &  INVALIDATE 


— j 


J 


037500  OOOOOA 
037700  OOOOOA 


037000 
037500 
037440 
037540 
037640 
037600 
037740 


OOOOOA 
000002 
000002 
000002 
000002 
000002 
000002 
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1419 

1A20 

1A21 

1A22 

1A23 

1A2A 

iA25 

1A26 

1A27 

1A28 

1A29 

1A30 

1A31 

1A32 

1A33 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1A59 

1A60 

1A61 
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; END  OF  PASS/PROGRAM  UUOS 

.-PERFORMS  THE  END  OF  PASS  FUNCTIONS.  INCREMENT  PASS  COUNT, 
.•DECREMENT  ITERATION  COUNT,  CHECK  IF  FINISHED  WITH  THIS  PROGRAM  ETC. 

OPDEF   ENDUUO  C37B8!12B12!A]  ;UUO  TO  DISPLAY  LIGHTS 
OPDEF   EOPUUO  C37B8!16B12!A]  ; END  OF  PROGRAM  UUO 

.'MEMORY  MANAGEMENT  UUO'S 

;UUO'S  TO  PERFORM  VARIOUS  MEMORY  FUNCTIONS.  MAPPING.  ZEROING,  PAGING, 

.•ADDRESS  CONVERSION,  ETC... 


SEQ  0119 


0373A0 
037300 


0372A0 
037300 
0373A0 
037A00 


000002 
000002 

030000 
030000 


OOOOOA 
OOOOOA 
OOOOOA 
OOOOOA 


037700  000002 


OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 
OPDEF 


MAPMEM 
MEMZRO 
MEMSEG 
MAPADR 
MAPCNK 
MAPSET 
HAPPNT 


C37B8 ! OBI 2 ! A]  ;MAP  MEMORY 

C37B8 ! 1 2B1 2 ! 2 J  ; ZERO  MEMORY 

C37B8!11B12!2]  .-SETUP  MEMORY  SEGMENT 

C37B8!13B12!2]  ; VIRTUAL  TO  PHYSICAL  ADR  CONVERT 

C37B8!15B12!2]  ; MAP  MEMORY  CHUNK 

C37B8!1AB12!2]  ;SET  KI10  EXEC  PAGE  MAP 

C37B8!17B12!2]  .-PRINT  MEMORY  MAP 


.-DEVICE  CODE  MODIFICATION  UUO 

.-ALLOWS  THE  MODIFICATION  OF  lOT'S  TO  ONE  DEVICE  TO  BE  CHAFED  TO 

.-lOT'S  TO  A  DIFFEKlNT  DEVICE  CODE. 

OPDEF   MODPCU  C37B8!7B12!2]   .-MODIFY  PERHIPERAL  CODE,  USER 
OPDEF   MODPCP  [37B8I6B12I2]   .-MODIFY  PERHIPERAL  CODE,  PROGRAM 

IFNDEF  MODDVL,<MODDVL==BEGIN> 
IFNDEF  MODDVU,<MODDVU==BEGIN> 

.-••DIAMON"  FILE  SELECTION  AND  READ  UUOS 

OPDEF  FSELECT  C37B8!5B12!A]  .-FILE  SELECTION 

OPDEF  FREAD  C37B8!6B12!A]  .-FILE  READ  -  ASCII  DATA 

OPDEF  FRD36  C37B8I7B12IA]  .-FILE  READ  -  36  BIT  DATA 

OPDEF  FRD8  C37B8!10B12!A]  .-FILE  READ  -  8  BIT  DATA 

.-KIIO  ONLY  UUO  FOR  PRINTING  MARGIN  VALUES 

OPDEF   PNTMGN  C3788!16B12!2D  .-PRINT  MARGIN  VALUE 

XLIST 
IFNDEF  KLOLD.<LIST 


r 
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U62 

U63 

U64 

U65 

1A66 

U67 

U68        036000  000000 

H69        035000  000000 

1A70        0350A0  000000 

1471  035100  000000 

1472  034000  000000 
1473 

1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
V96 
1  V 
1  '8 
1  9 
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SU8TTL  ERROR  HANDLING  UUO  DEFINITIONS,  SEPT  18,1979 

♦♦♦♦•♦****************************#^********* ****♦**♦*♦*♦♦*♦♦♦*♦ ******* 

ERROR  HANDLER  PARAMETERS 

♦♦*♦*♦♦♦♦*****♦**♦♦♦♦♦%♦*♦♦*********♦♦♦*♦******♦********************** 


SEQ  0120 


OPDEF  ERUUO  [36B83 

OPDEF  ERLOOP  C35B8] 

OPDEF  ERLP1  C35B811B12] 

OPDEF  ERLP2  [35B812B12] 

OPDEF  REPTUO  [34B8] 


; ERROR  CALL  UUO 

;ERROR  LOOP,  CHECKS  PC, REPT,REPT1, ERROR 

; ERROR  LOOP  IF  PC'S  MATCH 

; ERROR  LOOP  IF  ANY  ERROR 

.•REPEAT  LOOP  UUO 


;THE  ERROR  HANDLER  MACROS 

;A  .••ACRO  TO  REPORT  AN  ERROR  AND  LOOP 

DEFINE  ERROR   (ADR, FORMAT, CORECT, ACTUAL, F,D,ERR)< 

SALL 
ERUUO   FORMAT, 1:t,,CSIXBIT\F'  \2 
CORECT,, ACTUAL 
CSIXBIT^D*  \],,ERR3 

XALL 
ERLOOP  ADR  :lf   ERROR,  LOOP  TO  ADR 


;A  MACRO  TO  REPORT  AN  ERROR  AND  NOT  LOOP 

OEflHE     ERRORl   (FORMAT, CORECT, ACTUAL, F,D,ERR)< 

ERUUO   FORr^AT,CT,,CSIXBIT\F'  \] 
CORF CT,, ACTUAL 
CSIXBIT\D'.\],,ERR] 


>;END  OF  KLOLD  CONDITIONAL 

XLIST 
LIST 


SALL 


X.'LL> 


DDRPl  - 
FIXED 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

15U 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 
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030000 


030000 
030001 

030002 

030003 

030004 

030005 

030006 

030007 
030007 

030010 
03001 1 
030012 

03001 3 
030014 

030015 
030016 
0300^7 


lABILITY  TEST  VERSION  0.15  MACRO  :53B(1242)  15:51  28-Aug-85  Page  1 
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SUBTTL  ♦FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,  SEPT  18,1979 

LOC     30000 

♦♦♦♦♦****t ***♦*♦*♦»»♦♦♦♦♦♦♦♦»**»♦»♦♦*♦♦*♦»*♦*♦**♦♦♦♦♦♦♦♦**♦♦**♦♦♦*♦♦♦♦ 

PROGRAM  STARTING  ADDRESSES 

THESE  ADDRESSES  CALL  VARIOUS  SPECIAL  START  ROUTINES  AND  OR  OPTIONS 
NORMAL  START  ADDRESS  IS  30000  ALL  OTHERS  ARE  SPECIAL.  INVOKED  BECAUSE 
OF  END  OF  PASS,  POWER  FAILURE,  DDT  START,  RE-ENTERING(TYPICALLY  USER 
MODE),  OR  ANY  NUMBER  OF  SPECIAL  FEATURE  TESTS. 
#♦♦♦♦♦*♦**♦♦*♦♦»*♦♦♦♦♦♦♦♦♦♦♦****»*»*»♦♦*»♦*♦♦*♦♦*♦**♦♦*♦*♦♦♦♦♦♦♦*♦♦♦*♦ 


SEQ  0121 


254  00  1  00  027776 
254  00  0  00  030651 

254  00  1  00  027774 

254  00  1  00  027774 

254  00  0  00  030607 

254  00  0  00  030000 

254  00  0  00  030000 

254  00  1  00  027775 

254  00  0  00  030765 
254  00  1  00  Q27777 
OuJOOO  000000 


25'.200 
254200 
254200 
254200 
254200 


030000 
030000 
030000 
030000 
030000 


BEGIN:  JRST 
SSTART:  JRST 

DIAGMN:  JRST 

SYSEXR:  JRST 

SFSTRT:  JRST 

PFSTRT:  JRST 

REENTR:  JRST 

SRTDDT: 
DDTSRT:  JRST 

BEGIN1:  JRST 
SBINIT:  JRST 
RETURN:  0 

STARTl:  SADR7 

START2:  SADR8 

START3:  SADR9 

START4:  SADRIO 

STARTS:  SADR11 


aMODLNK 
START 

aLDLNK 

SLDLNK 

SADR1 

SADR2 

SADR3 

SDDTLNK 

START A 
aSUBLNK 


STAND-ALONE  START 

MODE  CHECK  STARTING  ADDRESS 

DIAGNOSTIC  MONITOR  START 

SYSTEM  EXERCISER  START 

SPECIAL  FEATURE  START 

POWER  FAIL  RESTART 

REENTER  START (USUALLY  USER  MODE  ONLY) 

COMMONLY  MISTAKEN  NAME  FOR  "DDTSRT" 
DDT  START 

LOOP  START (END  OF  PASS  COMES  HERE) 

PMGINT  LINKAGE 

RETURN  ADDRESS  STORAGE 

OPTIONAL  STARTING  ADR/INSTRUCTIONS 


1 1 


L 
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SEQ  0122 


1537 

1538 

1539 

15A0 

15A1 

15A2 

15A3 

15AA 

15A5 

15A6 

15A7 

15A8 

15A9 

1550 

1551 

1552 

1553 

155A 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

156A 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

157A 

1575 

1576 


030020 
030021 
030022 
030023 
03002A 
030025 
030026 
030027 
030030 
030031 
030032 
030033 
03003A 
030035 
030036 


AAAA62 
60566A 
5112A3 
000000 
000000 
000000 
000000 
000000 
000000 
777777 
777777 
000000 
777777 
000000 
000000 


605100 
000000 
726335 
000000 
000000 
030636 
00001 5 
030000 
030000 
777777 
777777 
000000 
777777 
000000 
000000 


030037 
0300AC 
0300A1 
0300A2 
0300A3 
0300AA 
0300A5 
0300A6 
0300A7 
030050 
030051 
030052 
030053 
03005A 
030055 
030056 


000000 
000000 
000000 
777777 
000000 
000000 
OuJOOO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
777777 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


•  ♦♦♦♦♦♦♦♦»*»************t***** ♦•♦*******♦•♦**♦**•♦*♦ *»♦***♦**♦*♦♦♦*♦*♦♦ 
•PROGRAM  FIXED  PARAMETER  AREA 

PNTNAM:  PAREA3        ; SI XB IT  PROGRAM  NAME 

PNTEXT:  PAREAA         ;SIXBIT  PROGRAM  EXTENSION 

RANDBS:  PAREA1         ; RANDOM  BASE  NUMBER 

SWTEXR:  PAREA2        ;SYSTEM  EXERCISER  SWITCHES 

ITRCNT:  HERAT         .-PROGRAM  ITERATIONS 

SPNAME:  PGMNAM         ; POINTER  TO  PROGRAMS  NAME 

$PVER:  MCNVER.^DECVER  ;MCN  I   DEC  VERSION  LEVEL 

SMODVL:  MODDVL         .-DEVICE  CODE  CHANGE  LOWER  LIMIT 

SMODVU:  MODDVU         .-DEVICE  CODE  CHANGE  UPPER  .IMIT 

$EMODE:  IFNDEF  EXCASB.<0>  IFDEF  EXCASB.<-1>     ;EXEC  ALLOWED 

SUMODE:  IFNDEF  USRASB.<0>  IFDEF  USRASB.<-1>     ;USER  ALLOWED 

SDSKUP:  IFNDEF  DSKUPD.<0>  IFDEF  DS»(UPD.<-1>     ;DISK  UPDATE  MODE 

SMMAP:  IFNDEF  MEMMAP.<0>  IFDEF  MEMMAP.<-1>     .-ALLOW  MEMORY  RTNS 

PAREA7:  PAREA5         .-OPTIONAL  PARAMETER 

PAREA8:  PAREA6         .-OPTIONAL  PARAMETER 

•  ♦♦♦*♦♦♦• t *♦»»♦♦*»*♦♦♦♦ t ♦♦♦♦»*♦»♦**♦♦*»♦♦♦♦*♦♦* *♦♦*♦♦♦*♦♦♦***♦♦♦»♦♦♦*♦♦ 

•PROGRAM  VARIABLE  PARAMETER  AREA 

•  ♦♦♦♦♦*****»**»**********t**t***********************»***** *♦***♦♦♦*♦*♦♦ 


USER:  0 

KAIFLG:  0 

KLFLG:  0 

MONFLG:  -1 

MONCTL:  0 

MONTEN:  0 

CLOCKF:  0 

CONSW:  0 

PASCNT:  0 

RUNFLG:  0 

TESTPC:  0 

ERRPC :  0 

ERRTLS:  0 

TICKS:  0 

MARGIN:  0 

SONETM:  0 


;  0  =  EXEC.  -1  =  USER  MODE  FLAG 

.-PROCESSOR  TYPE.  0  =  KAIO.  -1  =  KI10 

.-PROCESSOR  TYPE.  0  =  KA/KI.  -1  =  KLIO 

.-DIAG  MONITOR  SPECIAL  USER  FLAG 

.-DIAG  MON/SYS  EXR  FLAG 

;-1=  LOADED  BY  10 

; CLOCK  TICKED  FLAG 

.-CONSC'.E  SWITCH  SETTINGS 

.-PROGRAM  PASS  COUNT 

.-PROGRAM  RUN  FLAG 

.-SUBTEST  PC 

.-ERROR  PC 

.-ERROR  TOTALS 

.•PROGRAM  RUNNING  TIME 

.-KI10  MARGIN  WORD  VALUE 

.-SUBROUTINE  INITIALIZATION  FLAG 
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r 


SEQ  0123 


1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 


030057 
030060 
030061 
030062 
030063 
030064 
030064 
030065 
030065 
030066 
030067 
030070 
030071 
030072 
030073 
030074 
030075 
030076 
030077 
030100 
030101 
030102 

030103 
030104 
030105 


030106 
030107 
030110 
030111 
030112 

030113 
030 1 14 

030115 
030116 
030117 
030120 
030121 
030122 
030123 


037  12  0  00  000004 
254  00  0  00  030010 
037  16  0  00  000004 
000000  030000 
000000  030007 

350  00  0  17  000000 


263  17 


255 
255 
255 
255 
255 
255 


00 
00 
00 
00 
00 
00 


255  00 


255 
255 
255 
255 
255 


00 
00 
00 
00 
00 


254  04 


0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  000000 
0  00  030102 


000000  000000 
000000  000000 
000000  000000 


000000 
000000 
000000 
000000 
000000 

000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 

000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 


•SPECIAL  PROGRAM  DISPATCH  ADDRESSES 


BEGEND:  ENDUUO 

$BEND1:  JRST 

SBEND2:  EOPUUO 

CNTLC:  SADR5 

ALTMGO:  SADR6 
CP0PJ1: 

UUOSKP:  AOS 
CPOPJ : 


BEGIN1 


(P) 


UUOEXT 
UUORTN 
SUORTX 
$UU0ER 
SITRHL 
SITRXI 
SUSRHL 
SRSRTX 
SRSRTY 
RESRT1 
RESRT2 
I'^ARER 
ERMORE 


RTN 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

JFCL 

HALT 


SPSHER:  0 
ITRCHl:  0 


END  OF  PASS 

KEEP  RUNNING  PROGRAM 

END  OF  PROGRAM  -  NO  RETURN 

CONTROL  C  XFER  ADDRESS 

ALTMODE  XFER  ADDRESS 

SKIP  RETURN 

SKIP  RETURN  FROM  UUO 

NON-SKIP  REGULAR  RETURN 

UUO  RETURN 

ADDITIONAL  USERS  UUO  ROUTINE 

ADDITIONAL  UUO  LINKAGE 

INITED  AS  (JRST  SUOERX) 

ADDITIONAL  INTERRUPT  LINKAGE 


ADDITIONAL  POWER  FAIL  LINKAGE 

INITED  AS  (JRST  RESRTX) 

ADDITIONAL  PARITY  ERROR  LINKAGE 
ADDITIONAL  ERROR  HANDLER  LINKAGE 
IMPROPER  TRANSFER  HALT 

INITED  AS  (JRST  PSHERR) 

PC  &  FLAGS  OF  CURRENT  INTERRUPT 

INITED  AS  (JRST  SITRCD 


•PROCESSOR  CONTROL  STORAGE 


SAC CO:  0 

SSVPI :  0 

SSVAPR:  0 

SSVPAG:  0 

SSPAGl:  0 

SSVUUO:  0 

SSVUPC:  0 

REPTU:  0 

SCOPE:  0 
XCORFLG:0 

XCOREC:  0 

XACTFL:  0 

XACTUL:  0 

XDISCR:  0 


INTERRUPT  SAVED  ACO 

INTERRUPT  SAVED  PI 

INTERRUPT  SAVED  APR 

INTERRUPT  SAVED  PAG  (DATAI) 

INTERRUPT  SAVED  PAG  (COM) 

CURRENT  USERS  UUO 

PC  OF  CURRENT  USERS  UUO 

REPEAT  UUO  ITERATIONS 

ERROR  HANDLER  SCOPE  LOOP  FLAG 

CORRECT  FLAG 

CORRECT  DATA 

ACTUAL  FLAG 

ACTUAL  DATA 

DISCREPENCY  DATA 


i  I 


052077 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
066227 
030070 


030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
030070 
066222 
030070 
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1628 

1629 

1630 

1631 

1632 

1633  030124 

163A  030125 

1635  030126 

1636  030127 

1637  030130 

1638  030131 

1639  030132 

1640  030133 

1641  030134 

1642  030135 

1643  030136 

1644  030137 

1645  030140 

1646  030141 
1647 

1648 
1649 
1650 
1651 

1652  030142 

1653  030143 

1654  030144 

1655  030145 

1656  030146 
1657 

1658 
1659 
1660 
1661 

1662  030217 

1663  030220 

1664  030221 

1665  030222 

1666  030223 

1667  030224 

1668  030225 

1669  030226 

1670  030227 

1671  030230 

1672  030231 

1673  030232 

1674  030233 

1675  030234 

1676  030235 

1677  030236 

1678  030237 

1679  030240 

1680  030241 


000000  000000 

000000  000000 

000000  000000 

000000  000000 


RELIABILITY  TEST  VERSION  0.15  MACRO  3(538(1242)  15:51  28-Aug-85  Page  4 
♦FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,  SEPT  18,1979 

•*♦*•***•**•******•**•*••*••*••********•*•*•****•*******•*****♦*♦♦♦*♦♦ 

UUO  DISPATCH  TABLE 
♦*•**♦•♦*•*♦***•**•*•*••***•****•***••*••••*•*•••**♦♦•••••*♦***♦****** 

XLIST 
LIST 
UUODIS:  LUU01,,$UU0ER 
LUU03,,LUU02 
LUU05,,LUU04 
LUU07-,LUU06 
LUU011,,LUU010 
LUU013,,LUU012 
LUU015,,LUU014 
LUU017,,LUU016 
LUU021,,LUU020 
LUU023,,LUU022 
LUU025,,LUU024 
LUU027,,LUU026 
LUU031,,LUU030 
LUU033,,LUU032 

MEMORY  MANA6MENT  STORAGE 
*♦♦♦♦♦♦*♦♦♦♦♦**♦***♦•♦♦♦♦****•*************•***•****•******•*•*•♦***♦♦ 


SEQ  0124 


DF22F:  0 
MAPNEW:  0 
HEMTOT :  0 
MEMLOU:  0 
MEMSI2:  BLOCK  '^D41 


DFIO  CONTROL  FLAG,  0  =  18,  -1  =  22  BIT 

MEMORY  MAPPING  CONTROL  FLAG,  -1  =  4096K  MAPPING 

TOTAL  MEMORY  SIZE  IN  K  (1024.) 

LOWEST  USABLE  MEMORY 

MEMORY  SEGMENT  POINTER  TABLE 


000000 

000000 

000000 

000000 

000000 

000000 

000000 

OOOQOO 
000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

PRINT  CONTROL  STORAGE 

♦♦♦♦♦***♦♦**♦*»•**••♦♦♦♦♦•*•********♦*****•*******♦•**•*•♦♦•**•♦♦♦•**• 


PNTFLG:  0 

PNTENB:  0 

PDI SF:  0 

PNTINH:  0 

PNTSPC:  0 

OPTIME:  0 

STWCNT:  0 

SDVOFF:  0 

TTYFIL:  0 

TTYSPD:  0 

STTCHR:  0 

SCHRIN:  0 

STYPNB:  0 

SCRLF :  0 

$TABF :  0 

%fff:  0 

$VTF:  0 

USRLFF:  0 

USRCRF:  0 


PRINT  FLAG,  -1  WHILE  IN  PRINT  ROUTINE 

PRINT  ENABLE 

PRINT  DISABLED  FLAG 

INHIBIT  PRINT  INPUT  CHECKS 

PRINT  SPACE  CONTROL 

TYPE-IN  WAIT  TIME 

TIME  WAITED 

LOGICAL  DEVICE  INITED  FLAG 

TTY  EXEC  FILLERS  FLAG 

TTY  EXEC  BAUD  RATE 

ACTUAL  TYPED  IN  CHAR 

UPPER  CASED  ft  PARITY  STRIPPED  CHAR 

TYPED  IN  NUMBER 

FREE  CR/LF  FLAG 

TAB  CONVERSION  FLAG 

FORM  FEED  CONVERSION  FLAG 

VERTICAL  TAB  CONVERSION  FLAG 

USER  LF  FILLERS 

USER  CR  FILLERS 


J 


r 
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SEQ  0125 


1681 

1682 

1683 

168A 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

169A 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 


030242 
030242 
030243 

030243 
030244 
030245 
030246 
030247 
030250 
030250 
030251 
030252 
030253 
030254 
030255 

030256 
030257 

030260 
030261 
030262 
030263 
030264 


015  012  000  000  000 


015  012  015  012  000 

054  000  000  000  000 

056  000  000  000  000 
040  000  000  000  000 
Oil  000  000  000  000 

055  000  000  000  000 
053  000  000  000  000 
052  000  000  000  000 
100  000  000  000  000 

050  000  000  000  000 

051  000  000  000  000 
007  0000000000 

077  000  000  000  000 

057  000  000  000  000 
044  000  000  000  000 
000000  000012 
000000  000040 
000000  000012 


030265 

030270  60  62  51  56  64  00 

030271  60  56  64  00  00  00 
030272 


030274 

030277  60  62  51  56  64  00 

030300  60  56  64  00  00  00 

030301 


•THE  FOLLOWING  MISCELLANEOUS  PRINT  CHARACTERS  ARE  INCLUDED 
;T0  FACILITATE  PRINTING  AND  ARE  CALLED  AS  FOLLOWS: 
MOVE  I   NAME 

;0R  PNTAF 


PNTA 

;  »♦♦*♦*♦♦••♦•*♦*»** 

CRLF: 

/ 

CRLF2: 

ASCII/ 

ASCII/ 

/ 
COMMA: 

ASCII/,/ 

PERIOD: 

ASCII/./ 

SPACE: 

ASCII/  / 

TAB: 

ASCII/  / 

MINUS: 

HYPEN: 

ASCII/-/ 

PLUS: 

ASCII/V 

AST: 

ASCII/*/ 

ATSIN: 

ASCII/a/ 

LFP: 

ASCII/(/ 

RTP: 

ASCII/)/ 

BELL: 

BYTE  (7)  007 

QUEST: 

ASCII/?/ 

SLASH: 

ASCII!/! 

DOLLAR: 

ASCII/I/ 

RADIX: 

*D10 

RADLSP: 

40 

RADLSC: 

*D10 

.-DECIMAL  PRINT  RADIX 

.•DECIMAL  PRINT  LEADING  CHAR 

.•DECIMAL  PRINT  LEADING  CHAR  COUNT 

•USER  MODE  OUTPUT  FILE  INFORMATION 


$OBUF:  BLOCK  3 

SOUTNM:  SIXBIT  /PRINT/ 

SOUTEX:  SIXBIT  /PNT/ 

BLOCK  2 


.•LOGICAL  FILE  OUTPUT  BUFFER  HEADER 

.-FILE  NAME 

.•FILE  NAME  EXTENSION 


•DISK  UPDATE  MODE  FILE  INFORMATION 

$IBUF:  BLOCK  3 

SINNM:   SIXBIT  /PRINT/ 

SINEXT:  SIXBIT  /PNT/ 

BLOCK  2 


L_ 


DDRPI  - 

RH10/Rf 

FIXED 

KLM 

1729 

1730 

1731 

1732 

1733 

030303 

1734 

030304 

1735 

030504 

1736 

1737 

1738 

1739 

1740 

1741 

030505 

1742 

1743 

1744 

1745 

1746 

1747 

030506 

1748 

030507 

1749 

1750 

1751 

1752 

1753 

1754 

0305 IC 

1755 

1756 

1757 

1758 

1759 

1760 

030511 

1761 

1762 

1763 

1764 

1765 

1766 

0!10512 

1767 

030513 

1768 

030514 

1769 

1770 

1771 

1772 

1773 

1774 

030515 

18-Sep-79  17:18 


777^77    030303 
000000  000000 
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•PUSHDOWN  LIST  CONTROL  INFORMATION 

•  *»*»*♦»*»»♦♦♦♦**♦♦*♦♦♦♦*♦♦*************♦»******»*»*♦***♦♦**♦♦♦***♦***♦ 

• 

PLIST:  PLIST-PLISTE,,PLIST 

PLISTS:  BLOCK   200 

PLISTE:  0  ; END  OF  PUSHDOWN  LIST 

•POWER  LINE  CLOCK  FREQUENCY  FLAG 

•  ♦♦♦♦»♦♦**♦*»♦*»♦*♦**♦*♦♦♦♦♦♦**»***********»*******♦♦*♦**♦*♦♦********♦♦ 


000000  000000 


000000  000000 
000000  000000 


000000  000000 


000000  000000 


000000  000000 
000000  000000 
000000  000000 


000000  000000 


SEQ  0126 


CYCL60:  0 


;0  =  60,  -1  =  50  CYCLE 


•KLIO  CACHE  CONTROL  FLAGS 


CSHFL6:  0 
CSHMEM:  0 


;ALL0W  CACHE  IF  0 

.•CACHE  MEMORY  SEGMENTS  IF  0 


•NUMBER  INPUT  DIGIT  FLAG 


TTNBRF:  0 


;-l  IF  ANY  DIGIT  TYPED 


^  ***t****«*****t******«r***************** ************** ***************** 

•KLlO  ft  KIIO  "INHPAG"  SWITCH  PAGING  PREVENTION 

•  ********************************************************************** 


PVPAGI:  0 


:U   NON-ZERO,  OVERRIDE  "INHPAG"  SWITCH  ACTION 


•  ♦»♦♦♦»*♦*♦»♦»♦»»»****************************************************♦ 

•ERROR  REPORTING  ROUTINE  ADDITIONAL  USERS  CONTROL  INSTRUCTIONS 

•  ♦»♦»♦»♦♦♦»♦»♦♦»»♦»»»*♦♦#*************************************♦******♦• 


XERHIl:  0 
XERHI2:  0 
XERHI3:  0 


:U   NON-ZERO,  XCT'D  AT  START  OF  XERUUO 
:U   NON-ZERO,  XCT'D  AT  END  OF  XERUUO 
;IF  NON-ZERO,  XCT'D  AFTER  "PC"  OF  XERUUO 


•  ♦♦»»♦#***♦♦**********************************************♦•♦♦****♦**♦♦ 

;SPECIAL  USERS  UUO  INTERCEPT  INSTRUCTION 

•  »»♦♦#*****************♦**************♦***♦******♦**♦*♦♦***♦♦♦♦***♦**♦♦ 


$$UUO:  0 


;IF  NON-ZERO,  XCT'D  AT  START  OF  SUORTN 


L 


r 


DDRPl  - 
FIXED 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

178A 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

179A 

1795 

1796 

1797 

1798 

1799 

1800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

18U 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 


RH10/RH20  -  RP04/05/06  - 
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USER  NODE  MONITOR   TYPE   FLAG 


030516     000000     000000 


030517     000000    000000 


030520     000000    000000 


030521     000000    000000 


030522  000000  000000 

030523  000000  000000 


030524  000000  000000 


03052:  000000  000000 


030577 

C30577  000000  000000 


SEQ  0127 


MONTYP:  0 


;0  =  TOPSIO,  -1  =  TOPS20 


SPECIAL  USERS  NUUO  INTERCEPT  INSTRUCTION 


ssnuuo:  0 


:IF   NON-ZERO,  XCT'D  AT  START  OF  NUUOER 


********************** t*«*t ******************************************* 

SPECIAL  USERS  USER  NODE  OUTPUT  ERROR  INTERCEPT  INSTUCTION 
**t**********t*********«*t*****t»******* ************************ ******* 


$SOUTER:0 


;IF  NON-ZERO,  XCT'D  AT  END  OF  USER  NODE  ERROR 


********************************************************************** 

"SWITCH"  CALL  USAGE  CONTROL 
********************************************************************** 


SSTOGGLErO 


:IF  NON-ZERO,  USE  C(CONSU)  FOR  SWITCHES 


•  »♦♦»»♦♦♦♦»**♦»*»*»**************************************************** 

•SPECIAL  'SERS  ALT«ODE  SWITCH  CALL  INTERCEPT  INSTRUCTIONS 

•  ********  ************************************************************** 


SSTAXl:  0 
SSTAX2:  0 


;IF  NON-ZERO,  XCT'D  AT  START  OF  ALTNODE  SWITCH  CALL 
:if   NON-ZERO,  XCT'D  AT  END  OF  ALTWDE  SWITCH  CALL 


********************************************************************** 

SmO  (KS-10)  PROCESSOR  TYPE  FLAG 
********************************************************************** 


S«10: 


;IF  -1  THIS  IS  A  KS-10 


********************************************************************** 

RIGHT  HALF  SWITCHES  PROMPT  TA8LE  ADDRESS 
********************************************************************** 


SWPTAB:  0 


;0  =  NO  PROMPT,  ADR  =  ADR  OF  SIXBIT  PROMPT  TABLE 


********************************************************************** 

SPECIAL  FUTURE  EXPANSION  ROOM 
********************************************************************** 

*♦******♦**************♦****»♦*♦•♦*♦****♦*****♦***♦*♦**♦***♦♦♦*•*♦♦*♦♦ 

£^D  OF  FIXED  STORAGE 
*****************************************************************^»**** 


ENDF 


IX:  b 


OC 


30577 


;END  OF  FIXED  STORAGE 


DDRPl  - 
DDRPI2 

1828 

1829 

1830 

1831 

1832 

1833 

183A 

1835 

1836 

1837 

1838 

1839 

18A0 

18A1 

18A2 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 
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♦FIXED*  FIXED  CONTROL  AND  DISPATCH  STORAGE,  SEPT  18,7979 

;Z:<6SCOTT.DDRPI>DDRPI2.MAC.103  28-Aua-85  15:51:09,  Edit  by  6SC0TT 
.-Rename  WAIT  to  WAITMS  to  avoid  MONSYM  conflict. 

SUBTTL  RELIABILITY  INITIALIZATION  -  SPECIAL  RESTART  &  DDT  ENTRANCE 

;EDIT  VERSION  34 

.DIREC  FLBLST  ;First  line  binary  listing  only 

INTERN  6,S6,SA 
EXTERN  .JBINT 

•4f*»*»t *♦♦*♦*****♦»*♦♦♦« ♦♦«♦♦♦*♦♦*»**♦*♦♦*♦***♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦ 

;*ENTDDT  -  DDT  ENTRY 

;f****t**********t ************************************ ******* ********* 


5EQ  0128 


030600 
030601 
030602 
030603 
030604 

030605 
030606 


200  00  0  00  030051 
202  00  0  00  077741 

201  00  0  00  030605 

202  00  0  00  030051 
254  00  0  00  030007 

262  17  0  00  077620 
254  00  0  00  030007 


030607 
030607 
030610 
03061 1 
030612 
030613 
030614 
030615 
030616 
030617 
030620 
030621 
030622 
030o23 
030624 
030625 
030626 
030627 
030630 

030631 
030632 
030633 
030634 
030635 


4ui  00 
402  00 
402  00 
402  00 
402  00 
402  00 
402  00 
476  00 
476  00 
260  17 
402  00 
402  00 
402  00 
211  00 
202  00 
336  00 
254  00 
332  00 


0  00  030047 
0  00  030052 
0  00  030053 
0  00  030054 
0  00  030056 
0  00  077656 
0  00  077657 
0  00  030024 
0  00  077672 
0  00  040071 
0  :C  077610 
0  00  100670 
0  00  100671 
0  00  303240 
0  00  030220 
0  00  030037 
0  00  030656 
0  00  030516 


254  00  0  00  066254 
047  00  0  00  000000 
260  17  0  00  045171 
037  14  0  00  000004 
254  00  0  00  030656 


ENTDDT:  MOVE 
MOVEM 
MOVEI 
MOVEM 
JRST 

DDTEX2:  GET 
JRST 


TESTPC 

SAVTPC* 

DDTEX2 

TESTPC 

SRTDDT 

GARBAGir 
SRTDDT 


;GET  CURRENT  TEST  PC 
;SAVE  IT  IN  SAVE  TEST  PC 
;DDT  STARTING  ADDRESS 

;G0  TO  DDT 

;HACK  THE  PUSH  LIST 
.•ENTER  DDT 


•f*»*»»t»»*t******* ************************ *************************** 

;*SPCST  —  SPECIAL  FEATURE  START 
•^*«*****«t*********************************************************** 


SG: 
SPCST: 


SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SETOM 

SETOM 

GO 

SETZM 

SETZM 

SETZM 

MOVNI 

MOVEM 

SKIPN 

JRST 

SKIPE 

JRST 

CALLI 
GO 

ERRHLT 
JR«^T 


PASCNT 

ERRPC 

ERRTLS 

TICKS 

$ONETM 

ONCE# 

ONCEU 

ITRCNT 

PGMCPU# 

CLRBlK 

FECNT# 

RHMAX 

DRMAX 

*D 100000 

PNTENB 

USER 

STRTA 

MONTYP 

[JSVS 

JRST 

0 

DOCORE 

STRTA 


STRTAJ 


;CLR  A  ONE  TIME  FLAG 


.•CLEAR  THE  TOTALS  AND  CONTROL  VARIABLES 
.•CLEAR  THE  PROGRAM  FATAL  ERROR  COUNT 


.•RESET  THE  PRINT  LIMIT 

.-FOR  THE  SUBRTN  PACKAGE 

;IN  USER  MODE? 

;N0 

.•TOPS-10? 

.•Reset  the  orange  world 

; Start  me  up 

.•RESET   THE  UORLD! 

;Do  a  CORE  'JUO 


r 
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SEQ  0129 


1882 

1883 

188A 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

189A 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

190A 

1905 

1906 

1907 

1'X)8 

1909 

1910 

19^1 

1912 

1913 

19H 

1915 

1916 

1917 

1918 

1919 

1920 


030636  10A  104  122  120  111 


030651 

030651 

030652 

030653 

03065A 

030655 

030656 

030657 

030660 

030661 

030662 

030663 

030664 

030665 

030666 

030667 

030670 

030671 

030672 

030673 

030674 

030675 

030676 

030677 

030700 

030701 

030702 

030703 

030704 

030705 

030706 

030707 

030710 

030711 


200  00 
316  00 
254  00 
332  00 
254  00 
476  00 
476  00 
265  00 
332  00 
254  00 
037  12 
336  00 
332 
254 


00 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


037  04  0 
037  01  0 


00 
00 


254 
201 

037  17 
476  00 
336  00 
254  00 
332  00 


254 


00 
_  00 
202  00 
200  01 
202  01 
271  01 
260  17 
037  04 
200  00 
202  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


SUBTTL  I^IN  RELIABILITY  INITIALIZATION  SECTION 

P6MNAM:  ASCIZ  7DDRPI  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST 


00  030056 

6: 
START: 

MOVE 

ACO,$ONETH 

00  077656 

CAMN 

ACO^ONCE 

00  030656 

JRST 

.♦3 

00  077656 

SKIPE 

ONCE 

00  030607 

JRST 

SPCST 

00  030143 

STRTA: 

SETOH 

NAPNEU 

00  030511 

SETOM 

PVPA6I 

00  030011 

PGMINT 

00  077656 

SKIPE 

ONCE 

00  030675 

JRST 

61 

00  000002 

nenzRo 

00  030043 

SKIPN 

nONCTL 

00  077657 

SKIPE 

ONCEl 

00  030675 
00  066236 

JRST 

61 

P«SGF 

<*LIST  THE  PR06RA«  SWI 

00  000003 

TTIYES 

00  030674 

JF5T 

.♦3 

00  062617 

n.4U 

P6«0PT 

00  000000 

PNTAL 

00  077657 

SETOH 

ONCEl 

00  030037 

61: 

SKIPN 

USER 

00  030726 

JRST 

STRT1 

00  077656 

SKIPE 

ONCE 

00  030712 

JRST 

STRT 

00  100740 

MOVE  I 

INTCPT 

00  000000* 

novEM 

.JBINT 

00  030145 

MOVE 

ACl,«E«L0y 

00  030151 

NOVEM 

AC1,«E«SIZ*3 

00  010000 

ADD  I 

AC1J0000 

00  045171 

GO 

DOCORE 

00  066244 

P«S6F 

<*#♦»  UARNIN6  ♦♦♦'^NOT 

00  000044 

STRT63: 

MOVE 

.JBREL 

00  030147 

WOVEM 

NE«SIZH 

ONCE 
FLA6 


FL6 


6ET  SUBRTN  PK6 

EQUAL  PGM  ONCE 

YES  CONTINUE 

P6n  INTIAL  LOAD 

NO  SPECIAL  START 

4096  TYPE  nENORY  nAPPIN6  WANTED 

INHIBIT  ••PA6E  INHIBIT"  SWITCH 

INITIALIZE  THE  SUBROUTINE  PACKAGE 

HERE  BEFORE?? 

YES 

ZAP  ALL  FREE  CORE 

DIA6.  MONITOR  CONTROL? 

PRINTED  MESSA6E  BEFORE? 

YES 
TCH  OPTIONS?> 

Y  OR  N 

NO 

YES  -  6ET  THE  MESSA6E 

PRINT  IT 

SET  THE  PRINTED  fLA6 

IN  USER  NODE 

NO 

SKIP  IF  1ST  TIME  HERE 

NOT  FIRST  TINE 

6ET  THE  INTERCEPT  ADDR 

SAVE  IT  FOR  THE  NONITOR 

YES  -  6ET  P6N  FIRST  FREE  ADDRESS 

SAVE  0RRI6INAL  CORE  SIZE 

SETUP  TO  USE  BASIC  ANOUNT  OF  CORE 
-Do  a  CORE  UUO 
EN0U6H  CORE  TO  RUN  PR06RAN1 **♦♦**♦♦♦♦♦♦*♦♦♦ 
;6ET  THE  LAST  USER  ADDRESS  AVAIL. 
;SAVE  IT 


AA< 


•.mt^mmmmmmmm 


mm 


1 


DDRPl  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15     MACRO  );53B(12A2)   15:51  28-Aug-85  Page  3 
DDRPI2     MAC  28-Aug-85  15:51  MAIN  RELIABILITY  INITIALIZATION  SECTION 


SEQ  0130 


1921 

1922 

1923 

192A 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

19A0 

19A1 

19A2 

19A3 

194A 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

195/ 

1958 

1959 


030712 
030713 
030714 
03071 5 
030716 
030717 
030720 
030721 
030722 
030723 

03072t 
030725 

030726 

030727 

030730 

030731 

030732 

030733 

030734 

030735 

030736 

030737 

030740 

030741 

030742 

030743 

030744 

030745 

030746 

030747 

030750 

030751 

030752 

030753 

030754 

030755 


402  00  0 
402  00  0 
332  00  0 
254  00  0 
037  04  0 
200  00  0 
350  00  0 
231  00  0 
037  15  0 
0"^^  04  0 


00  100742 
00  100743 
00  030043 
00  030724 
00  066260 
00  030147 
00  000000 
00  002000 
00  000001 
00  066264 


200  00  0  00  066266 
202  00  0  00  064544 


200  17 

201  00 


c'61 
261 
261 


17 
17 
17 


20C  00 
202  00 
200  00 
202  00 
200  00 
202  00 
402  00 
332  00 
254  00 
336  00 
4/-  00 
335  00 
260  17 
402  00 
402  00 
402  00 
260  ~ 
336 


17 
00 


260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
CO 
00 
00 
00 


030303 
030103 
OOOOuO 
000000 
000000 
066267 
030100 
066270 
030072 
066271 
030067 
077651 
030037 
030752 
077656 
077672 
077672 
031107 
101161 
101162 
077720 
037762 
030037 
041522 


STRT: 


STRTO: 
STRTl: 


STRT2: 


SET2M 

SET2M 

SKIPE 

JRST 

PMSPF 

MCV 

AOS 

IDIVI 

PNTDCF 

PMS6F 

MOVE 
MOVEM 

MOVE 

MOVE  I 

PUT 

PUT 

PUT 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

SETZM 

SKIPE 

JRST 

SKIPN 

SETOM 

SKT'-E 

GO 

SETZM 

SETZM 

SETZM 

GO 

SKIPN 

GO 


INTCPT  2 
INTCPTv3 
MONCTL 
STRTO 


;CLtAR  OTHER  INTERCEPT  WORDS 


<*DDRPI   IS  RUNNING  WITH  > 


;DIA6.   MON.   CONTROL? 
;YUP 


MEMSIZ+1 

*D1024 

<K  OF   C0RE*> 

CJFCL] 
RPTUl 

P^PLIST 
SPSHER 


CJRST  PARITY] 

SPARER 

CJRST  STFATL3 

SITRXl 

CJRST  UU0ERR2 

SUORTX 

NEUDRV4f 

USER 

STRT2 

ONCE 

PGMCPU 

PGMCPU 

GETCPU 

.OF SET 

.OFSTl 

RETFLG 

INIT 

USER 

CONFIG 


;GET  THE  MEMORY  SIZE 

;CALC  K  CORE 

.•PRINT  THE  CORE  AMT  IN  USE 


;CLEAR  THE  LINK  TO  THE  LEFT  SIDE 
;BIT  PRINTER  FOR  REGISTER  DATA 


; SETUP  TO  HANDLE  PARFY  ERRORS 
.-SETUP  FOR  FATmL  PGM  ERRORS 
; SETUP  FOR  UUO  HANDLING 


.•HAVE   THE  CPU  NUMBER? 

;N0  -  GET   IT 

;RESET  THE  OFFSET  FLAGS 

;MUST  CLR  BEFORE  READING  BAT  BLOCKS 

.•INIT  THE   TEST 

.•SKIP  OVER  ir   IN  USER  MODE 

;THEN  FIND  OUT  THE  M6C  CONFIGURATION 


<mmik,  ■■  tmtnnu  i^mmmiMmmi^mmimtmm 
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SEO  CI  31 


1960 

1961 

1962 

1963 

196A 

1965 

1966 

1967 

1968 

1969 

1970 

197. 

1972 

1973 

197A 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

198A 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

199A 


030756 

030757 

030760 

030761 

030762 

030763 

03076A 

030765 

030766 

030767 

U30770 

030771 

030772 

030773 

030774 

030775 

030776 

030777 

031000 

031001 

031002 

031003 

031 OOA 

031005 

031006 

031007 

031010 

031011 

031012 

031013 

031014 

031015 

031016 

031017 

031020 


336  00  0 
254  00  0 

200  17  0 

201  00  0 


261 
261 
261 


17  0 
17  0 
17  0 


336  00  0 
7  004  20 

260  17  0 

260  17  0 

336  00  0 

260  17  0 

260  17  0 


260  17 
260  17 
402  00 
402  00 
402  00 
402  00 
402  00 
402  00 
332  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


037  04  0 
037  10  0 


332  00 
254  00 
336  00 
603  00 
254  00 
33i  00 
260  17 
254  00 
332  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


037  04  0 


00  030056     SA: 

00  030607 

00  030303 

00  030103 

00  000000 

00  000000 

00  000000 

00  030037     STARTA: 

0  00  000400 

00  061320 

00  061331 

00  100006 

00  034540 

00  041474 

00  033743 

00  040071 

00  077635 

00  077663 

00  077720 

00  077517 

00  077703 

00  077504 

00  077651 

00  066272 

00  000002 

00  030043 

00  031053 

00  030037 

00  000010 

00  031017 

00  077651 

00  041626 

00  031053 

00  077651     SAl : 

00  066301 


SK I PN 

JRST 

MOVE 

MOVE  I 

PUT 

PUT 

PUT 

SKIPN 

CONG 

CHKSUM 

GO 

SKIPN 

GO 

GO 

GO 

GO 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SKIPE 

PMS6F 

SWITCH 

SKIPE 

JRST 

SKIPN 

TLNE 

JRST 

SKIPE 

GO 

JRST 

SKIPE 

PMS6F 


SONETM 
SPCST 
P.PLIST 
SPSHER 


USER 
PI,PIOFF 

CKSMER 
TINTF6 
CLENU2 
CDRDSB 
FMBCLR 
CLRBLK 
MAPSOF 
PAKINF 
RETFLG 
BATINT 
QPFLAG 
ACPFLG 
NEUDRV 
^^^SYSTEM 

MONCTL 

STRTSW 

USER 

(TTYCON) 

SAl 

NEUDRV 

RCONFG 

STRTSW 

NEWDRV 


INITIAL  LOAD?? 

FIRST  TIME  HERE 

RESET  THE  STACK  POINTER 

SETUP  THE  STACK  ERROR  STUFF 


IN  USER  MODE? 
NO  -  KILL  PI  SYSTEM 
DO  THE  CHECKSUM 
ERROR  RETURN 

HERE  IN  MIDDLE  OF  A  TEST? 
Z  ^  CORE  BUFFERS  BACK  TO  ZERO 
C.cAR  THE  DRIVE  DSB  AREA 
CLEAR  THE  FORMAT  INIT  BIT  IN  TABLE 
CLEAR  THE  Q  AREAS 
CLEAR  MAPOUT  SOFT  ERRORS  FLAG 
CLEAR  UTILITY  SCRIPT  FLAG 
CLEAR  THE  RETRY  FLAG 
CLR  BAT  BLK  INIT  FLAG 
CLEAR  PRINT  FLAG 
CLEAR  THE  SCRlPT  FLAG 
CONFIGURATION  CHANGED? 
CONFIGURATION  HAS  CHANGED... > 

DIAG.  MON.  CONTROL? 

YES  -  USE  SPECIFIED  SWITCHES 

IF  IN  USER  MODE  ASSUME  OPR  SELECT 

TTY  TEST  CONTROL  ? 

YES 

NEED  MORE  INFO?? 

YES  -  GET  THE  MBC  CONFIG  &  PRINT 

THEN  GO  TO  TEST  SELECTED  BY  SWITCHES 

CONFIG  CHANGE? 


<'^SUGGEST  RUNNING  "CONFIG"  OR  RE-STARTING  THE  PROGRAM! 


I  AA< 


L 


. J 
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\ 


SEQ  0132 


1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

200A 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 


031021 
031022 
031023 

031024 
031025 
031026 
031027 
031030 

031031 
031032 
031033 
031034 
031035 

031036 
031037 
031040 
031041 
031042 
031043 
031044 
031045 
031046 
031047 
031050 
031051 
031052 


000016 

336  00  0  00  077661 
037  04  0  00  066313 
476  00  0  00  077661 

037  04  0  00  066321 
037  10  0  00  000003 
254  00  0  00  031101 
202  00  0  00  100010 
402  00  0  00  000001 

336  06  0  01  031133 
254  00  0  00  031036 
316  06  0  00  100010 
254  00  0  00  031062 
344  01  0  00  031031 


200  01 
260  17 
254  00 
301  13 
254  00 
200  06 
202  06 
037  00 
2uJ  00 
037  00 
037  00 
200  01 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
13 
00 
00 
00 
00 
00 
00 
00 


066324 
043451 
031077 
000016 
031077 
031133 
100010 
030242 
000006 
000002 
030242 
000013 
031062 


•♦TTYSEL  —  TELETYPE  INPUT  TEST  SELECTION 
MAXTST==TSTEND-TST60 


TTYSEL:  SKIPN 
PMS6F 
SETOM 

TTYSL1:  PMS6F 
TTSIXB 
JRST 
MOVEM 

TTYSL2:  SETZM 

STRTLP:  SKIPN 
JRST 
CAMN 
JRST 
AOJA 

STRTNM:  MOVE 
60 

JRST 
CAIL 
JRST 
MOVE 
MOVEM 
PCRL 
MOVE 
PNTSIX 
PCRL 
MOVE 
JRST 


ONETM# 

<TYPE  "H"  FOR  TEST  NAME  HELP  MESSA6E> 

ONETM 


<*WHAT  TEST  ?  -  > 

CKTST 

TSTSAV* 

AC1 

AC-SCRIPT(ACI) 

STRTNM 

AC-TSTSAV 

STRTEX 

AC1, STRTLP 

AC1, [POINT  6,TSTSAV] 

GETDRN 

STRTER 

DRIVE^MAXTST 

STRTER 

ACSCRIPTCDRIVE) 

ACTSTSAV 

AC 


AC1, DRIVE 
STRTEX 


ASK  FOR  TEST 
ERR/NO  RESPONSE 
SAVE  TEST 
CLEAR  INDEX 

GET  A  TEST  NAME  IN  AC  IF  IN  LIST 
NO  ENTRY  -  COULD  NOT  MATCH  INPUT 
LIST  AND  INPUT  MATCH? 
YES  -  THIS  ENTRY-  GO  RUN  TEST 
NO  MATCH,  LOOK  AT  NEXT 

SETUP  BYTE  POINTER 

GET  THE  TEST  NUMBER  FROM  SIXBIT 

ERROR 

LEGAL  TEST  NUMBER?? 

NOPE 

GET  THE  SIXBIT  NAME 

SAVE  IT 

GET  THE  NAME  FOR  PRINTING 
AND  PRINT  IT 

SETUP  AC1 
•AND  EXECUTE  THE  TEST 


li 


n. 


DORPI  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  6 
DDRPI2  MAC     28-Aug-85  15:51        MAIN  RELIABILITY  INITIALIZATION  SECTION 


SEQ  0133 


2030 
2031 

./If  wt  ♦»♦*♦*♦♦♦*♦♦*•*«•*♦*  tt  ♦♦♦♦*♦♦**♦***♦***♦*•**♦♦*  **«♦•**♦***«♦*♦♦♦♦** 

2032 

;*ST;^TSW  —  RUN 

SELECTED  TEST 

2035 

;4f  ♦♦*♦*♦*♦*♦*♦*♦ t ***♦♦*♦♦♦♦♦♦*♦♦* *♦*♦**♦*♦♦**♦♦♦*♦♦♦♦**♦*♦♦*♦*♦*♦♦♦*** 

031053 

405  00  0  00  000037 

STRTSW: 

AND  I 

37                  ;STRIP  INDEX  0 

2036 

031054 

301  00  0  00  000016 

CAIL 

MAXTST               ;TEST  STILL  IN  SWITCH  LIST? 

2037 

031055 

254  00  0  00  030057 

JRST 

BEGEND               ;N0  -  EXIT  PASS 

2038 

031056 

202  00  0  00  000001 

MOVEM 

AC1 

2039 

031057 

200  00  0  01  031133 

MOVE 

SCRIPT(ACI)           ;GET  THE  SIXBIT  NAME  OF  TEST 

20A0 

031060 

202  00  0  00  100010 

MOVEM 

TSTSAV               ;THEN  SAVE  IT 

20A1 
20A2 
20A3 

031061 

254  00  0  00  031063 

JRST 

STRTEX^I 

031062 

037  01  0  00  030242 

STRTEX: 

PCRLF 

20A4 

031063 

332  00  0  01  031162 

SKIPE 

TSTGO(ACI) 

20A5 

031064 

260  17  1  01  031162 

60 

aTSTGO(ACI)           ;DISPATCH  TO  TEST 

2046 

031065 

260  17  0  00  034277 

GO 

SELDRV               .-CHECK  FOR  ANY  SELECTED  DRIVES 

2047 

031066 

260  17  0  00  034536 

GO 

CLENUP               ;RESET  MEMORY  SPACE 

2048 

031067 

332  00  0  00  030037 

SKIPE 

USER                ;IN  USER  MODE?? 

2049 

0:'070 

254  00  0  00  030765 

JRST 

STARTA               ;YES 

2050 

031 U71 

037  10  0  00  000002 

SWITCH 

;READ  THE  PGM  SWITCHES 

2051 

031072 

603  00  0  00  400000 

TLNE 

ABORT                ;QUIT?? 

2052 

031073 

254  00  0  00  030057 

JRST 

BEGEND               ;YES  -  NOW! I 

2053 

031074 

603  00  0  00  000010 

TLNE 

OPRSEL               ;COMROLLED  BY  OPR?? 

2054 

031075 

254  00  0  00  030765 

JRST 

STARTA               ;YE5 

2055 
2056 
2057 

031076 

254  00  0  00  030057 

JRST 

BEGEND               ;N0 

031077 

037  04  0  00  066325 

STRTtR; 

PMSGF 

<?  TYPE  H  FOR  HELP*> 

2058 
2059 
2060 

031100 

254  00  0  00  030765 

JRST 

STARTA 

031101 

33<  00  0  00  030225 

CKTST: 

SKIPLE 

STWCNT               ;DID  TTY  TIME  OUT  ? 

2061 

031102 

254  00  0  00  031024 

JRST 

TTYSL1               ;N0,  MUST  BE  ERROR 

2062 

031103 

200  00  0  00  100010 

MOVE 

TSTSAV               ;YES,  USE  SAME  TEST 

2063 

031104 

037  00  0  00  000002 

PNTSIX 

;AS  LAST  TIME. 

2064 

031105 

200  00  0  00  100010 

MOVE 

TSTSAV 

2065 

031106 

254  00  0  00  031030 

JRST 

TTYSL2 

,-...  i 


MiUMthiadftM 


,.J 
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SEQ  0134 


2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 


031107 
031110 
031111 
031112 
031113 
0311U 
031115 
031116 
031117 
031120 

031121 
031122 
031123 
031124 

031125 
031126 
031127 

031130 
031131 
031132 


261  17 
332  00 
254  00 
332  00 
254  00 
037  04 
037  04 
402  00 
037  01 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
030041 
031130 
030040 
031121 
066331 
00000? 
OOOOCO 
030^42 
031125 


GET CPU:  PUT 
SKIPE 
JRST 
SK I PE 
JRST 
PMSGF 
TTIDEC 
SETZM 
PCRLF 
JRST 


ACO  ;SAVE  ACO 

KLFLG  ;IS  THE  CPU  A  KLIO?? 

GETKL  ;YUP  -  GET  THE  CPU  NUMBER 

KAIFLG  ;IS  IT  A  KIIO  CPU?? 

GETKI  ;YES 

<*ENTER  CPU  NUMBER  IN  DECIMAL  FOR  KA10...#> 

;GET  THE  DECIMAL  CPU  NUMBER  FROM  OPR 

;SOME  ERROR?? 


7  010  24  0  00  000000 
242  00  0  00  777746 
307  00  0  00  001000 
271  00  0  00  002000 

202  00  0  00  077672 

262  17  0  00  000000 

263  17  0  00  000000 

700  00  0  00  000000 
405  00  0  00  007777 
254  00  0  00  031125 


GETKI: 


031133 
031134 
031135 
031136 
031137 
031140 
031141 
031142 
031143 
031144 
031145 
031146 
031147 
031 1 50 
031151 
031152 
031153 
031154 
031155 
031156 
031157 
031160 
031161 


CONI 
LSH 
CAIG 
ADD  I 


GETCPX:  MOVEM 
GET 
RTN 

GETKL:  APRID 
AND  I 
JRST 


GETCPX 

PAG.ACO 
-'^dJ6 
'^D512 
*D1024 

PGMCPU 
ACO 


1111 
GETCPX 


;EXIT 


GET  THE  CPU  NUMBER 
RIGHT  JUSTIFY  THE  * 
KAIO  #  ???? 
YES  -  SHOULDN'T  BE  ???? 


:SAVE  THE  NUMBER 
.•RESTORE  ACO 


GET  THE  KLIO  CPU  NUMBER 
SAVE  JUST  THE  NUMBER 
AND  EXIT 


•4f*»* »♦*♦♦»*♦♦♦♦»♦*♦♦♦»♦♦♦*♦♦*♦*»♦*♦♦♦♦*♦♦♦*♦*♦♦♦♦♦♦*♦♦*♦♦*** ♦♦♦♦♦♦♦♦♦ 

;*SCRIPT  —  TEST  COMMAND  LIST 


64  57  64  41  54  00 

SCRIPT:  SIXBIT 

/TOTAL/ 

6^  57  56  54  71  00 

SIXBIT 

/RONLY/ 

67  57  56  54  71  00 

SIXBIT 

/yONLY/ 

57  60  44  64  tl   64 

SIXBIT 

/OPDTST/ 

63  64  45  63;  64  00 

SIXBIT 

/STEST/ 

63  45  53  64  63  64 

SIXBIT 

/SEKTST/ 

51  56  64  64  63  64 

SIXBIT 

/INTTST/ 

46  62  64  45  63  64 

SIXBIT 

/FRTEST/ 

46  57  62  55  41  64 

SIXBIT 

/FORMAT/ 

63  45  61  47  45  56 

SIXBIT 

/SEOGEN/ 

41  43  4]1  45  60  64 

SIXBIT 

/ACCEPT/ 

56  45  70  64  63  64 

SIXBIT 

/NEXTST/ 

60  64  51  55  45  00 

SIXBIT 

/PTIME/ 

62  43  64  45  6]i  64 

SIXBIT 

/RCTEST/ 

55  41  60  57  65  64 

SIXBIT 

/MAPOUT/ 

43  57  56  46  51  47 

44  45  54  45  64  45 

SIXBIT 

/CONFJG/ 

SIXBIT 

/DELETE/ 

44  44  64  00  00  00 
64  57  64  60  56  64 

SIXBIT 

/DDT/ 

SIXBIT 

/TOTPNT/ 

50  00  00  00  00  00 
62  65  56  54  63  64 

SIXBIT 

/H/ 

SIXBIT 

/RUNLST/ 

60  41  53  51  56  64 

SIXBIT 

/PAKINT/ 

000  00  0  00  000000 

I 

L.- 
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SEQ  0135 


2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 


)*TSTG0  —  TEST  COMMAND  DISPATCH 


031162 
031163 
031164 
031165 
031166 
031167 
031; 70 
031171 
031172 
031173 
031 1 74 
031175 
031176 
031177 
031200 
031201 
031202 

031203 
031204 
031 205 
031206 
031207 
031210 

031211 
031212 
031213 
031214 
031215 
031216 
031217 
031220 
031221 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oocooo 

000000 


034310 
031222 
031237 
031263 
031607 
031774 
032442 
032745 
033176 
034036 
034415 
034616 
035111 
036161 
036241 
041626 
046411 


000000  030605 
000000  037110 
000000  031211 
000000  034255 
000000  034552 
000  00  0  00  000000 


TST60:   TOTAL 
RONLY 
UONLY 
OPDTST 
STEST 
SEKTST 
INTTST 
FRTEST 
FORMAT 
SEOGEN 
ACCEPT 
NEXTST 
PTIME 
RCTEST 

TSTEND:  MAPOUT 
RCONFG 
DELETE 

DDTEX2 
TOTPNT 
RTNLST 
RUNLST 
PAKINT 
Z 


2u'  00 
037  17 
336  00 
263  17 
201  00 
332  00  0 
201  00  0 
037  17  0 
263  17  0 


0 
0 
0 
0 
0 


00  062041 
00  000000 
00  030037 
00  000000 
00  062363 
00  030516 
00  062413 
00  000000 
00  000000 


RTNLST: 


MOVE  I 

PNTAL 

SKIPN 

RTN 

MOVE  I 

SKIPE 

MOVE  I 

PNTAL 

RTN 


LSTLST 

USER 

LSTT10 
MONTYP 
LSTT20 


SECTOR  XFER  SIZE 
16/18  BIT  MODE 


0  -  ALL  TESTS 

1  -  READ  ONLY  TEST 

2  -  WRITE  ONLY 

3  -  OPERATOR  DATA  TEST 

4  -  SURFACE  TEST 

5  -  MECH  POSITION  TEST 

6  -  TRACK  INTERACTION 

7  -  FAST  RANDOM  TEST  1 

10  -  PACK  FORMATTER  FOR 

11  -  GENERATE  A  TEST  SCRIPT  LIST 

12  -  ACCEPTANCE  SCRIPT 

13  -  RH20  READ/WRITE  NEXT  TEST 

14  -  DRIVE  POSITION  TIMER  TEST 

15  -  RANDOM  DRIVE  COMMAND  TEST 

CLOSE  OUT  THE  BAD  PACK  MAP  FILE  TO  DISK 

RE-CONFIGURE  THE  MASSBUS 

ALLOW  OPR  TO  DELETE  SPECIFIC 

PACK  AREAS  FROM  TESTING 

ENTER  DDT 

PRINT  PROGRAM  TOTALS 

TEST  DESCRIPTIONS  (H) 

EXECUTE  THE  SCRIPT  GENERATED  BY  OPR 

SCRIPT  TO  FORMAT  -  MAP  -  CREATE  BAT 


BLOCKS 


.-PRINT  TEST  DESCRIPTIONS 

;Skip  if  user  mode 

;Get  TOPS-10  user  mode  list 

;Is  it  TOPS-20? 

;Yes 

;Print  that 

.-Return 


f 


.......:.-.  ,i 
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if a  0136 


2157 

2158 

2159 

2160 

2161 

2162 

2163 

21 6A 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 


031222 

031222  260  17  0  00  046276 

031223  000005  000001 

031224  000002  000000 


031225  476  00  0  00  000013 

031226  260  17  0  00  045650 

031227  254  00  0  00  031772 

031230  254  00  0  00  031234 

031231  001  00  0  00  000000 

031232  037  10  0  00  000002 

031233  254  00  0  00  031226 


031234  367  15  0  00  031225 

031235  476  00  0  00  100006 

031236  263  17  0  00  000000 


SUBTTL   READ  DATA  TEST  -  RONLY  (TEST  *1) 
XLIST 

LIST 

•  /If**********  «»*»**♦♦*♦♦•*♦♦♦♦********♦♦*♦♦****♦♦♦♦**♦♦**♦*♦  **♦**♦♦♦♦♦♦♦ 

;♦  RONLY  —  READ  ONLY  TEST 

•4f*********** ************************************** *****♦**********♦*♦♦ 


COMMENT  $ 


•■RONLY"  IS  A  TEST  DESIGNED  TO  READ  ALL  AREAS  OF  A  DISK 
PACK.  NO  DATA  COMPARISON  CAN  BE  MADE  ON  THE  DATA  READ 
BECAUSE  THE  TYPE  OF  DATA  STORED  ON  THE  PACK  IS  NOT 
KNOWN.  NO  'VRITE"  DATA  TRANSFERS  WILL  BE  ISSUED  DURING 
THIS  TEST  (I.E.  NO  DAMAGE  TO  THE  DATA  ON  THE  PACK  SHOULD 
OCCUR).  ANY  DECTECTED  DATA  ERRORS  WILL  BE  REPORTED  AND 
AN  ERROR  RECOVERY  WILL  BE  ISSUED.  ERRORS  CORRECTED  BY 
USING  THE  ECC  LOGIC  WILL  BE  REPORTED  WITH  BOTH  THE 
ORRIGINAL  DATA  AND  THE  CORRECT  DATA  GIVEN. 
$ 
XLIST 


RONLY: 
LIST 


TINT    5,1,2,0,0 

GO     SETUP 

XWD     5,1 

<2>B17'<0>823!<0>B24 


SALL 


;INIT  THE  TEST  WITH  PARAMETERS 
;RELIAB  ITERAT  =  5,  NORM.  =  1 
;MAX  M   TRACKS  IN  A  XFR  =  2 
;SWITCH  OVERIDES  -  "ALLADR"  =  0 
;      "ALLDRV*  =0 


RONLYO:  SETOM 

RONLYl:  GO 

JRST 
JRST 

READ 

SWITCH 

JRST 


DRIVE 
SELECT 
NODRIVE 
RONLY 2 


RONLYl 


;SELECT  A  DRIVE/AREA 
;DE-SELECT  THE  UNUSUABLE  DRIVE 
;ALL  DONE 

.•ISSUE  A  READ  COMMAND  TO  THE  UNIT 
;READ  THE  PGM  SWITCHES 
; SELECT  NEXT  AREA 


;HERE  WHEN  ALL  DRIVES  S  AREAS  HAVE  BEEN  SELECTED 


R0NLY2:  REPTLP  RONLYO 
SETOM   TINTFG/r 
RTN 


;LOOP  THRU  AGAIN 
;SET  THE  EXIT  FLAG 
;EXIT  THE  TEST 


...J 
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SEQ  0137 


220A 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 


031237 

031237  260  17  0  00  046276 

031240  000005  000001 

031241  000002  000000 


031242  476  00  0  00  0^7633 

031243  260  17  0  00  031256 

031244  476  00  0  00  000013 

031245  260  17  0  00  045650 

031246  254  00  0  CO  031772 

031247  254  00  0  00  031253 

031250  001  02  1  00  077562 

031251  037  10  0  00  000002 

031252  254  00  0  00  031245 

031253  367  15  0  00  031244 

031254  476  00  0  00  100006 

031255  263  17  0  00  000000 

031256  402  00  0  00  077562 

031257  200  00  0  00  030046 

031260  602  00  0  00  200000 

031261  260  17  0  OG  037634 

031262  263  17  0  00  000000 


SUBTTL   WRITE  DATA  TEST  -  WONLY  (TEST  M2) 
XLIST 

LIST 

•  /If**********  ****•****••***••**********♦*****♦♦♦*♦*******♦*****♦♦****♦** 
;*  WONLY  —  WRITE  ONLY 

;/|f****************************************************  ***************** 


COMMENT  $ 


THIS  IS  A  DATA  TRANSFER  "WRITE  ONLY"  TEST.  THIS  TEST 
WILL  WRITE  DATA  ON  ALL  UNPROTECTED  DISK  PACK  AREAS  AND 
DESTROY  ANY  PREVIOUS  DATA  ON  THE  PACK!  EITHER  HARDWARE 
OR  SOFTWARE  (BY  AN  OPERATOR  COMMAND)  WRITE  PROTECTION 
WILL  INHIBIT  A  DRIVE  FROM  BEING  SELECTED  TO  RUN  THIS 
TEST.  ANY  TYPE  OF  DATA  THAT  HAPPENS  TO  RESIDE  IN 
MEMORY  WILL  BE  USED  FOR  THIS  TEST... UNLESS  THE  OPERATOR 
REQUESTS  A  SPECIFIC  DATA  PATTERN  TO  BE  USED.  SETTING 
CONSOLE  SWITCH  "VARIAB"  WILL  ENABLE  THE  OPERATOR  TO 
SPECIFY  THE  DATA  PATTERN  TO  BE  USED. 
$ 
XLIST 


WONLY: 
LIST 


TINT    5J,2,0,0 

GO     SETUP 

XWD     5J 

<2>B17i<0>B23!<0>B24 


SALL 

SETOM 

GO 
WONLYO:  SETOM 
WONLYl:  GO 

JRST 

JRST 

WRITE 

SWITCH 

JRST 

W0NLY2:  REPTLP 
SETOM 
RTN 

W0NLY3:  SETZM 
MOVE 
TRNE 
GO 
RTN 


LOCKFG 

W0NLY3 

DRIVE 

SELECT 

NODRIVE 

W0NLY2 

SDATARG 

WONLYl 

WONLYO 
TINTFG 


DATARG 
CONSW 
VARIAB 
ASKPAT 


INIT  THE  TEST  WITH  PARAMETERS 
RELIAB  ITERAT  =  5,  NORM.  =  1 
MAX  M   TRACKS  IN  A  XFR  =  2 
SWITCH  OVERIDES  -  "ALLADR"  =  0 
"ALLDRV"  =  0 


CHECK  FOR  A  PROTECTED  DRIVE 
CHECK  FOR  OPR  PARAMETERS 

SELECT  A  DRIVE/AREA 
DE-SELECT  THE  UNUSUABLE  DRIVE 
ALL  DONE 

ISSUE  A  WRITE  COMMAND 
READ  THE  PGM  SWITCHES 
SELECT  THE  NEXT  DRIVE/AREA 

LOOP  TILL  DONE 
SET  THE  EXIT  FLAG 
ALL  DONE  -  SO  EXIT 

INIT  DATA  ARG 

GET  THE  PGM  SWITCHES 

NEED  TO  INPUT  A  PARAMETER?? 

YES  -  GET  THE  DATA  PATTERN  TYPE 


.J 


DDRPl  - 
DDRPI2 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 
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SUBTTL  SELECTABLE  WRITE/READ  DATA  TEST  -  OPDTST  (TEST  #3) 
XLIST 

LIST 

)♦  OPDTST  —  OPERATOR  SELECTABLE  DATA  TEST 

;/|f*******************************************************  ********  ****** 


SEQ  0138 


031263 

031263  260  17  0  00  046276 

031264  000005  000001 

031265  000002  000000 


031266  476  00  0  00  077633 

031267  037  10  0  qO  000002 

031270  6ui  00  0  00  200000 

031271  254  00  0  00  031306 

031272  260  17  0  00  037634 

031273  476  00  0  00  000013 

031274  260  17  0  00  045650 

031275  254  00  0  00  031772 

031276  254  00  0  00  031303 

031277  001  02  1  00  077562 

031300  001  00  1  00  077562 

031301  037  10  0  00  000002 

031302  254  00  0  00  031274 

031303  367  15  0  00  031273 

031304  476  00  0  00  100006 

031305  263  17  0  00  000000 


COMMENT  $ 


THIS  TEST  ALLOWS  THE  OPERATOR  TO  SPECIFY  THE  TYPE  OF  DATA 
TO  BE  USED  FOR  WRITING  AND  READING  DATA  TO/FROM  THE  DRIVE 
PACK.  "OPDTST"  WILL  SELECT  ALL  UN-PROTECTED  PACK  AREAS 
FOR  TESTING.  DATA  WILL  BE  WRITTEN,  READ,  AND  VERIFIED 
FOR  CORRECTNESS  ON  ALL  SELECTABLE  AREAS  ON  ALL  DRIVES. 
$ 
XLIST 


OPDTST 
LIST 


TINT    5J,2,0,0 

GO     SETUP 

XWD     5J 

<2>B17I<0>B23!<0>B24 


SALL 


;INIT  THE  TEST  WITH 
;RELIAB  ITERAT  =  5, 
;MAX  #  TRACKS  IN  A 
;SWITCH  OVERIDES 
1      "ALLDRV" 


PARAMETERS 
NORM.  =  1 
XFR  =  2 

-  "ALLADR"  =  0 

=  0 


OPRTO: 
0PRT1 : 


0PRT2: 


SETOM 

SWITCH 

TRNE 

JRST 

GO 

SETOM 
GO 

JRST 
JRST 

WRITE 
READ 
SWITCH 
JRST 

REPTLP 
SETOM 

RTN  . 


LOCKFG 

VARIA6 

OPRVT 

ASKPAT 

DRIVE 
SELECT 
NODRIVE 
0PRT2 

aDATARG 
aDATARG 

OPRTl 

OPRTO 
TINTF6 


; CHECK  FOR  PROTECTED  DRIVES 

;GET  THE  PGM  SWITCHES 

.•VARIABLES  WANTED?? 

;YES  -  ENTER  OPR  VARIABLES  DATA  TEST 

;OPR  MUST  SPECIFY  A  DATA  PATTERN 


.•SELECT  A  DRIVE/AREA 
.•DE-SELECT  THE  UNUSUABLE  DRIVE 
;ALL  DONE 

.•WRITE  DATA  ON  THE  DRIVE  SELECTED 
.•ISSUE  A  READ/VERIFY  COMMAND 
;READ  THE  SWITCKcS 
.•SELECT  THE  NEXT  DRIVE/AREA 

;LOOP  TILL  DOJNE 
;SET  THE  EXIT  FLAG 


r 


DDRPl  - 
DDRPI2 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

23U 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

23?9 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 
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r 


SEQ  0139 


031306 
031307 
031310 
031311 
031312 
031313 
031314 
031315 
031316 
031317 

031320 
031321 
031322 
031323 
031324 
031325 
031326 
031327 
031330 
031331 
031332 

031333 
031334 
031335 


037  02 
037  04 
402  00 
037  05 
254  00 
336  00 
254  00 
301  00 
254  00 
202  00 

037  04 
037  03 
254  00 
3i<  00 
254  00 
202  00 

331  00 
254  00 
550  11 

332  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
13 
00 
13 
00 
00 


066340 
066345 
077662 
000003 
031306 
000000 
031406 
013000 
031372 
100733 

066351 
000003 
031320 
100671 
031374 
000013 
100747 
031376 
100747 
077662 
031511 


037  04  0  00  066357 
037  02  0  00  000003 
254  00  0  00  031426 


XLIST 


LIST 


!•*  OPRVT  —  OPERATOR  VARIABLES  DATA  TEST 


COMMENT  $ 


OPRVT 


0VTM1 


0VTM2 


THIS  SECTION  ALLOWS  THE  OPERATOR  TO  SELECT  TRANSFER  PARAMETERS 
SUCH  AS  DISK  ADDRESS,   DATA  PATTERN  TO  BE  USED,   PASS  ITERATION 
COUNT,  AND  DATA  TRANSFER  SIZE. 

$  ■  ■     . 

XLIST 


PMS6 

PMS6F 

SETZM 

TTICNV 

JRST 

SKIPN 

JRST 

CAIL 

JRST 

MOVEM 

PMSGF 

TTIOCT 

JRST 

CAMLE 

JRST 

MOVEM 

SKI  PL 

JRST 

HRR2 

SK I PE 

JRST 

PMSGF 
TTINO 
JRST 


<*OPDTST  -  OPR  VARIABLES :*> 
<'*WHAT  TRANSFER  SIZE?  > 
OVTSFG 


OPRVT 

OVTSEK 
13000 
OVTE 
.SIZE 

<'^DRIVE  TO  USE   (00 

0VTM1 

DRMAX 

0VTE1 

DRIVE 

DSBT8L( DRIVE) 

0VTE2 

DSBP.DSBTBL (DRIVE) 

OVTSFG# 

OVTSKT 


.•CLEAR  THE  FLAG 

;GET  A  NUMBER 

.-INPUT  ERROR  OR  TIMEOUT 

.-ANY  XFR  SIZE? 

;N0  -  MAYBE  SEEK  CMDS   THOUGH 

;AND  LESS  THAN  2  TRACKS 

:ERROR  IN  SIZE 

;SAVE  THE  SELECTED  XFR  SIZE 

TO  77  ONLY)   -  > 

;6ET  THE  OCTAL  NUMBER 

.-ERROR  INPUT 

.•LEGAL  NUMBER? 

;N0  -  ASK  AGAIN 

;YES  -  SAVE  THE  DRIVE  NUMBER 

;WAS  THE  DRIVE  SELECTtD? 

:N0  -  ASK  FOR  DRIVE  #  AGAIN 

;YES  SETUP  DSB  PTR 

.•SEEK  FLAG  SET? 

;YES 


<*USE   ANY  AREA  ON  DRIVE?  > 


0VTM5A 


;YES  -  USE  LOGICAL  BLOCK  00 


ili>MMillHI11lfc»** 


mi^mm^^t^mmmt^ 


Mtmim»mim^mt.mi'*iimii<m\iims  M 


ODRPI  - 
DDRPI2 

23A6 

23A7 

23A8 

23A9 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 
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SEQ  0140 


031336 
031337 
031340 
031341 
031342 
031343 
031344 
031345 
031 346 
031347 
031350 
031351 

031352 
031353 
031354 
031355 
031356 
031357 

031 360 
031361 
031 362 
031363 
031 364 
031365 
031 366 
031367 
031370 
031371 


200  00  0 
603  00  0 
037  04  0 
607  00  0 
037  04  0 
037  05  0 
254  00  0 


313  00 
254  00 
202  00 
332  00 
254  00 

037  04 
037  05 
254  00 
303  00 
254  00 
202  00 

037  04 
037  05 
254  00 
550  11 
336  00 
254  00 
313  00 
254  00 
20?  00 
23     00 


0 
0 
0 
0 
0 


13  100747 
00  000100 
00  066364 
00  000100 
00  066371 
00  000003 
00  031336 
11  000026 
00  031400 
00  100730 
00  077662 
00  031517 


0  00  066375 
0  00  000003 
0  00  031352 
0  00  000022 
0  00  031402 
0  00  100731 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
13 
00 
00 
11 
00 
00 
00 


066401 
000003 
031360 
100747 
00001 1 
031376 
000030 
031404 
100732 
031431 


0VTM3; 


0VTM4 


0VTM5 


MOVE 

TLNE 

PMSGF 

TLNN 

PMSGF 

TTICNV 

JRST 

CAMLE 

JRST 

MOVEM 

SKIPE 

JRST 

PMSGF 

TTICNV 

JRST 

CAILE 

JRST 

MOVEM 

PMSGF 

TTICNV 

JRST 

HRRZ 

SKIPN 

JRST 

CAMLE 

JRST 

MOVEM 

JRST 


ACO,DSBTBL(DRIVE) 

AC0,(.RP06) 

<*CYLIN&ER  (0  TO  1456)  - 

AC0,(.RP06) 

<'^CYLINDER   (0  TO  632)  - 

0VTM3 

.MAXCY(DSBP) 

0VTE3 

.CYLIN 

OVTSFG 

CVTSK1 

<*SURFACE   (0  TO  22)   -  > 

0VTM4 
*D18 
0VTE4 
.SURF 

<*STARTING  SECTOR  -  > 

0VTM5 

DS8P,DSBTBL (DRIVE) 

DS8P 

0VTE2 

.MXSEC(DSBP) 

0VTE5 

.SECT 

0VTM6 


;GET  TABLE  DATA 
> 


;GET  A  NUMBER 

; ERROR  INPUT 

;CYL  #  TOO  HIGH? 

;YES  -  ASK  AGAIN 

;N0  -  SAVE   THE   CYL  NUMBER 

;SEEK  FLAG  SET? 

;YES 


;GET  THE  SURFACE  NUMBER 

; ERROR  INPUT 

;#  OK? 

;N0  -  ASK  AGAIN 

;YES  -  SAVE   THE  SURFACE  # 


;GET  THE  SECTOR  # 
; ERROR  INPUT 

;ANY  DSB  AREA?? 

*N0 

•SEE  IF   LEGAL   SECTOR 

;N0 

;YES  -  SAVE   THE  SECTOR  M 


k 


ii<i^wwljiaiiM>ai*aiii»tfcuMfc'UI*MW 


■  mnwirrmw*^  im»\t\»m*n 
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SEO  OKI 


2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 

2399 

"^'00 

^401 

2402 

2403 

2404 

2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 

2415 

2416 


031372 
031373 

031 374 
031375 

031 376 
031377 

031400 
031401 

031402 
031403 

031404 
031405 

0!'411 
031412 
031413 
031414 
031415 
031416 
031417 

031420 
031421 
031422 
031423 
031424 
031425 

031426 
031427 
031430 


037  04  0  00  066405 
254  00  0  00  031306 

037  04  0  00  066410 
254  00  0  00  031320 

037  04  0  00  066414 
254  00  0  00  031320 

037  04  0  00  066420 
254  00  0  00  031336 

037  04  0  00  066424 
254  00  0  00  031352 

037  04  0  00  066430 
254  00  0  00  031360 


336  00 
332  00 
2S4  00 
037  04 
402  00 
037  01 
254  00 
476  00 
402  00 
254  00 

0^'  04 
332  00 
037  04 
336  00 
037  04 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


030516 
077641 
031420 
066434 
077662 
000003 
031455 
077662 
100733 
031320 


0  00  066443 
0  00  030516 
0  00  066451 
0  00  030516 
0  00  066452 
0  00  031455 


402  00  0  00  10073C 
402  00  0  00  100731 
402  00  0  00  10073? 


OVTE: 

0VTE1: 

0VTE2: 

0VTE3: 

0VTE4: 

0VTE5: 

OVTSEK 


0VTSE3 


0VTM5A 


PMS6F 
JRST 

PHSGF 
JRST 

PWSGF 
JRST 

PHSGF 
JRST 

PMSGF 
JRST 

PMSGF 
JRST 

SKIPN 

SKIPE 

JRST 

PMSGF 

SETZ« 

TTIYES 

JRST 

SETOM 

SET2M 

JRST 

P«SGF 
SKIPE 
PMSGF 
SKIPN 
PWSGF 
JRST 

SETZ« 
SETZ« 
SETZW 


<*SIZE  ERROR?*> 
OPRVT 

<*DRI   c  #  TOO  LARGE •> 
OVTm 

<*DRIVE  NOT  AVAIL. ?•> 
OVTm 

<*CYLINDER  PARA«  ERROR?*> 
0VT«3 

<*SURFACE  PARAM  ERR0R?*> 
0VT«4 

<*SECTOR  PARAM  ERR0R?*> 
0VT«5 

nONTYP  ;Is  it  TOPS-20  user  mode 

HON702  ;  or  no-oped  SEEK  UUO? 

0VTSE3  ;yes 

<*ISSUE  SEEK  C«DS  BETWEEN  TWO  CYLINDERS?> 
OVTSFG  .-CLEAR  THE  SEEK  FLAG 

*  Y  OR  N 
OVTEX  -DON'T  KNOW. ..EXIT 

OVTSFG  ;YES  -  SET  THE  FLAG 

.SIZE 
0VT«1  ;GET  DRIVE  # 

<*CAN'T  ISSUE  SEEK  COMMANDS  ON  T0PS-> 


HONTYP 

<20*> 

NONTVP 

<10  7.02  OR  LATER*> 

OVTEX 

.CYLIND 

.SURF 

.SECT 


;Was  it  because  its  TOPS-20? 

;Yes 

;Was  it  because  its  7.02  or  later? 

;Yes 

;and  exit 

; START  AT   CVL   00 
.•SURFACE   00 
;AND  SECTOR  00 
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.-YES  -  DO  THE  READ  ONLY  STUFF 
;GET  THE  PATTERN  INFO 


SEO  0142 


2417 

2418 

031431 

037  04 

0  00  066455 

0VTM6: 

PMS6F 

<*READ  ONLY?  > 

2419 

031432 

037  02 

0  00  000003 

TTINO 

2420 
2421 
2422 

031433 

254  00  0  00  031500 

JRS' 

0VT4 

031434 

260  17  0  00  037634 

0VTM7: 

60 

ASKPAT 

2423 

031435 

037  04 

0  00  066460 

PMSGf 

^^ymtt   ONLY?  > 

2424 

031436 

037  02 

0  00  000003 

TTINO 

2425 

031437 

254  00 

0  00  031470 

JRST 

0VT3 

2426 

2427 

031440 

037  04 

0  00  066463 

0VTIi8: 

PMSGF 

<*WRITE  ONCE  &  READ 

2428 

031441 

037  01 

0  00  000003 

TTIYES 

2^29 
2430 
2431 
2432 
2433 

031442 

254  00  0  00  031457 

JRST 

0VT2 

; WRITE 

ONCE  AND 

READ  1000  TIMES 

031443 

260  17  0  00  031545 

0VT1: 

GO 

OPRDRV 

2434 
2435 
2436 

031444 

254  00  0  00  031455 

JRST 

OVTEX 

031445 

201  06 

0  00  000144 

MOVE  I 

AC^DIOO 

2437 

031446 

001  02 

1  00  077562 

yRITE 

aDATARG 

2438 

031447 

201  15 

0  00  001750 

MOVE  I 

REPT^'^DIOOO 

2439 

031450 

001  00 
260  17 

1  00  077562 

READ 

aDATARG 

2440 

031451 

0  00  051310 

GO 

CHKALT 

2441 

031452 

260  17 

0  00  052570 

GO 

OF  IN 

2442 

031453 

367  15 

0  00  031450 

REPTLP 

.-3 

2443 

031454 

367  06 

0  00  031446 

SOJG 

AC,0VTU3 

2444 

2445 

031455 

476  00 

0  00  10GJ06 

OVTEX: 

SETOM 

TINTFG 

2446 

031456 

263  17 

0  00  000000 

RTN 

. , , . 

2447 

2448 
2449 
2450 

;HERE 

TO  SIMPLY 

WRITE  AND  READ 

031457 

260  17 

0  00  031545 

0VT2: 

GO 

OPRDRV 

2451 
2452 
2453 

031460 

254  00 

0  00  031455 

JRST 

OVTEX 

031461 

201  15 

0  00  303240 

MOVE  I 

REPT,*D1 00000 

2454 

031462 

001  02 

1  00  077562 

WRITE 

aDATARG 

2455 

031463 

001  00 

1  00  077562 

READ 

aDATARG 

2456 

031464 

260  17  0  00  051310 

GO 

CHKALT 

2457 

031465 

260  17  0  00  052570 

GO 

QFIN 

2458 

031466 

367  15 

0  00  031462 

REPTLP 

.-4 

2459 

03U67 

254  00 

0  00  031455 

JRST 

OVTEX 

;D0  THE  WRITE  ONLY  STUFF 
1000.  TIMES?  > 

.•WRITE  &  READ  ONCE 


; SETUP  THE  DRIVE  PARAMETERS 
.•ERROR  -  EXIT 

;iOO  ITERATIONS 

.•WRITE  THE  SELECTED  DATA  PATTERN 

.•SETUP  THE  LOOP  COUNT 

.•READ/ VERIFY  THE  DATA 

;SEE  IF  OPR  WANTS  OUT 

;ONLY  1  OPERATION  AT  A  TIME 

.•LOOP  TILL  DONE 


;SET  THE  EXIT  FLAG 
.-AND  EXIT 


.•SETUP  THE  DRIVE  PARAMETERS 
.•EXIT  -  ERROR  DETECTED 

.•SETUP  THE  LOOP  COUNT 
.•WRITE  THE  DATA  ON  DRIVE 
.•READ  AND  VERIFY  THE  DATA 
;SEE  IF  OPR  WANTS  OUT 
.•ONLY  1  PASS  AT  A  TIME 
.•LOOP  TILL  DONE 
.•EXIT 


J 


r 


DDRPl  - 
DDRPI2 

2460 

2A61 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 

2492 
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r 


SEQ  0143 


031470  260  i7  0  00  031545 

031471  254  00  0  00  031455 

031472  201   15  0  00  303240 

031473  001  02  1  00  077562 

031474  260  17  0  00  051310 

031475  260  17  0  00  052570 

031476  367  15  0  00  031473 

031477  254  00  0  00  031455 


031500  402  00  0  00  077633 

031501  260  17  0  00  031545 

031502  254  00  0  00  031455 

031503  201   15  0  00  303240 

031504  001  00  0  00  000000 

031505  260  17  0  00  051310 

031506  260  17  0  00  052570 

031507  367  15  0  00  031504 
031510  254  00  0  00  031455 


031511  037  04  0  00  066471 

031512  402  00  0  00  077615 

031513  037  05  0  00  000003 

031514  ly  00  0  00  031455 

031515  313  00  0  11  000026 

031516  25'.  00  0  00  031400 


;HERE   TO  WRITE  ONLY 


0  T3: 


GO 
JRST 

MOVE  I 

WRITE 

GO 

GO 

REPTLP 

JRST 


OPRDRV 
OVTEX 

REPT.-^DI  00000 

aOATARG 

CHKALT 

QKIN 

.-3 

OVTEX 


;HERE   TO  READ  ONLY   (NO  DATA  COMPARISON) 

0VT4:       SETZM       LOCKFG 
GO  OPRDRV 

JRST         OVTEX 

MOVEI  REPT.-^DI  00000 

READ 

GO  CHKALT 

GO  QFIN 

REPTLP  .-3 

JRST  OVTEX 

;HEF.E   TO  GET  THE  SEEK  PARAMETERS 


SETUP  THE  DRIVE  PARAMETERS 
ERROR  IN  SETUP  -  EXIT 

SETUP  THE  LOOP  COUNTER 

WRITE  THE  DATA 

SEE  IF  OPR  WANTS  OUT 

ONLY  1   WRITE  AT  A  TIME 

LOOP  TILL  DONE 

EXIT 


DON'T  CARE  IF  DRIVE   IS  WRT  LOCKED! 
SETUP  THE  DRIVE  PARAMETERS 
SETUP  ERROR  -  EXIT 

SETUP  THE  LOOP  COUNTER 

READ  DATA 

SEE  IF  OPR  WANTS  OUT 

ONLY  1   READ  AT  A  TIME 

LOOP  TILL  DONE 

EXIT 


OVTSKT:   PMSGF 
SETZM 
TTICNV 
JRST 
CAMLE 
JRST 


<*MANUAL  SEEKS^'^START  CYL  #> 


FROMCY 

OVTEX 

.MAXCY(DSBP) 

OVTE"* 


CLEAR  THE  START  CYL  # 
GET  THE   CYL  # 
ERROR  -  EXIT  NOW  I 
IN  LIMIT?? 
NO  -  TELL  OPR 


.*«»-  ■iiiiiiiiii    iiiiinii 


•i«MHSfMMMiMIHIMIM«M«M« 


■■fctiiJiiWi     iHiiH^W 


Wtlfci-  iWtW  W*»M 


DDRPl  - 
DDRP12 

2A93 
2^9A 
2A95 
2A96 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
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SEQ  0144 


031531 
031532 
031533 
031534 

031535 
031536 
031537 
031540 
031541 
031542 
031543 
031544 


C 
C 


031517  332  00  0  00  077615 

031520  254  00  0  00  031526 

031521  661  00  0  00  400000 

031522  202  00  0  00  077615 

031523  037  04  0  00  066476 

031524  037  05  0  00  000003 

031525  254  00  0  00  031400 

031526  313  00  0  11  000026 

031527  254  00  0  00  031400 
031530  202  CO  0  00  077567 


037  04  0  00  066502 
037  04  0  00  000003 
254  00  0  00  031531 
202  00  0  00  000015 


550  00 
202  00 
001  04 


0 
0 
0 
200  00  0 
202  00  0 


001  04 
367  15 


254  00  0 


00  077615 
00  100730 
00  000000 
00  077567 
00  100730 

00  :ooooo 

00  031535 
00  031455 


OVTSKI: 


SKIPE 
JRST 
TLO 
MOVEM 


FROMCY 
0VTSK3 
(1B0) 
FROIiCY 


1ST  TIME  HERE? 

NO 

SET  THE  CYL  INDICATOR 

THEN  SAVE  THE  START  CYL 


0VTSK2:  PMS6F   <*DESTINATION  CYLINDER  #> 

TTICNV  ;GET  IT 

JRST    0VTE3  .-REPORT  ERROR 


0VTSK3:  CAMLE   .MAXCY(DSBP) 
JRST    0VTE3 
MOVEM   DESTCY 


0VTSK4: 


0VTSK5: 


PMS6F 

<'^ITERATIONS 

iTIDEC 

JRST 

0VTSK4 

MOVEM 

REPT 

HRR2 

FROMCY 

MOVEM 

.CYLIND 

SEEK 

MOVE 

DESTCY 

MOVEM 

..YLIND 

SEEK 

REPTLP 

0VTSK5 

JRST 

OVTEX 

=  > 


CYL  M   IN  LIMIT?? 

NO  -  TELL  OPR 

YES  -  SAVE  THE  CYL  » 


GET  THE  AMOUNT 
ASK  AGAIN 
SAVE  THE  COUNT 

;GET  THE  START  CYL 


SEEK  TO 
GET  THE 
SAVE  IT 
THEN  POSITION 
LOOP  TILL  DONE 
AND  EXIT 


START  CYL  » 
DESTINATION  CYL  M 


J 


L 
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SEQ  0145 


2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 


;OPRDRV  —  ROUTINE  TO  SETUP  THE  SELECTED  DRIVE  PARAMETERS 


031545 
031546 
031 547 
031550 
031551 
031552 
031553 
031554 
031555 
031556 
031557 
031 560 
031561 
031 562 
031563 
031 564 


200  00  0 
607  00  0 


031 567 
031570 
031571 
031 572 
031573 
031 574 
031575 
031576 
031 577 
031600 

031601 
031602 

031603 
031604 

031605 
031606 


254  00 
621  00 
202  00 
336  00 
254  00 
603  00 
254  00 
550  00 
332  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


200  01  0 
242  01  0 
550  10  0 
200  12  0 


13  100747 

OPRDRV:  MOVE 

00  100000 

TLNN 

00  031601 

JRST 

00  000060 

TL2 

13  100747 

MOVEM 

00  077633 

SKIPN 

00  031556 

JRST 

00  006000 

TLNE 

00  031603 

JRST 

13;  100747 

HRRZ 

00  030037 

SKIPE 

00  031567 

JRST 

00  000013 

MOVE 

00  11111^ 

LSH 

01  101047 

HRRZ 

10  000020 

MOVE 

031565  350  00  0  17  000000 

031566  263  17  0  00  000000 


332  00 
254  00 
200  00 
660  00 
202  00 
200  00 
202  00 
^y)  01 
254  00 
254  00 


00 
00 
00 
00 
00 
11 
00 
00 
00 
00 


030516 
031565 
100043 
000017 
100043 
000022 
100044 
100043 
031605 
031565 


037  04  0  00  066505 
254  00  0  00  031566 

037  04  0  00  06651 ] 
254  00  0  00  031566 

037  C4  0  00  066515 
254  00  0  00  031566 


0PRDX2:  AOS 

0PRDX1:  RTN 

0PRDR2:  SKIPE 
JRST 
MOVE 
TRO 
MOVEM 
MOVE 
MOVEM 
OPEN 
JRST 
JRST 

0PRDE1:  PMS6F 
JRST 

0PRDE2:  PMS6F 
JRST 

0PRDE3:  PMSGF 
JRST 


DSBTBL (DRIVE) 
(.ONLN) 
0PRDE1 

(.XFRER!. POSER) 
DSBTBL (DRIVE) 
L0CKF6 

(.WRTL!.SWRTL) 

0PRDE2 

DSBTBL (DRIVE) 

USER 

0PRDR2 

AC1, DRIVE 

AC1,-3 

CSBP,CSBTBL(AC1) 

MBCN,.MBCN(CSBP) 

(P) 


MONTYP 

0PRDX2 

PAKNAM 

17 

PAKNAM 

.DNAME(DSBP) 

PAKNAM^ 1 

1, PAKNAM 

0PRDE3 

0PRDX2 

<*DRIVE  NOT  READY?''> 
0PRDX1 

<*DRIVE  WRITE  LOCKED?''> 
0PRDX1 

<*MON.  OPEN  FAILURE?^> 
OPRDXI 


GET  THE  TABLE  STATUS 

DRIVE  ONLINE? 

YES  -  EXIT  +1 

CLEAR  THE  ERROR  FLAGS 

SAVE  THE  UPDATED  STATUS 

WRITING? 

NO 

DRIVE  WRITE  LOCKED? 

YES  -  EXIT  +1 

SETUP  THE  DSB  POINTER 

TIMESHARING? 

YES 

GET  A  COPY  OF  THE  DRIVE 

SAVE  ONLY  THE  MBC  H 

SETUP  THE  CSB  POINTER 

AND  THE  MBC  NUMBER 

♦2  RETURN 

+1  RETURN 

RUNNNING  UNDER  TOPS-20? 
YES  DONT  NEED  ANY  OPEN 


SETUP  USER  MODE  DRIVE 

GET  THE  LOG  NAME  OF  DRIVE 

SAVE  IT 

INIT  THE  DRIVE 

ERROR 


D 
D 


J      L 


-"-"-I 


^, J 
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SEQ  0U6 


C 
C 


2561 

2562 

2563 

256A 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

257A 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 


031607 

031607 
031610 
031611 


031612 
031613 
031614 
031615 
031616 
031o17 
031620 
031621 
031622 

031623 
031624 
031625 

031626 
031627 
031630 
031631 


2o J  17  0  00  046276 
000001  000001 
000000  000000 


476  00  0 
402  00  0 
200  00  0 
603  00  0 
476  00  0 
336  00  0 
254  00  0 
037  02  0 
037  01  0 


00  07763? 
00  100007 
00  030046 
00  000010 
00  100007 
00  100007 
00  031623 
00  066521 
00  000026 


260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  031632 

001  02  0  00  053356 
001  00  0  00  053356 
037  10  0  00  000002 
254  00  0  00  031623 


SUBTTL 
XLIST 


SURFACE  TEST  -  STCST  (TEST  H) 
LIST 


;*  STEST  —  SURFACE  TEST 


COMMENT  $ 


STEST 
LIST 


SALL 


STSTO 


"STEST"  UILL  SELECT  ALL  UN-PROTECTED  PACK  AREAS  AND  WILL 
USE  SEVERAL  DIFFERENT  DATA  PATTERNS  TO  VERIFY  THAT  THE 
DISK  PACK  CAN  HOLD  DATA  OF  DIFFERENT  TYPES  -  RELIABLY. 
THE  DATA  WILL  BE  WRITTEN,  READ,  AND  VERIFIED  FOR  CORRECTNESS. 
DATA  PATTERNS  TO  BE  USED  FOR  THIS  TEST  ARE: 


$ 

XLIST 


1) 
2) 
3) 
4) 
5) 
6) 
7) 
8) 


FLOATING  ONES 

FLOATING  ZEROS 

ALTERNATE  BITS  PATTERN 

RANDOM  DATA 

BINARY  UP-COJNT 

DISK  WORST  CASE  DATA 

CHANNEL  PATTERN  (DF10  TYPE  CHANNEL) 

CHANNEL  PARITY  (DF10) 


TINT    1J, 0,0,0 

GO     SETUP 

XWD     1,1 

<0>B17!<0>823!<0>B24 


SETOM 

SETZM 

MOVE 

TLNE 

SETOM 

SKIPN 

JRST 

PMSG 

PFORCE 

GO 

JRST 

JRST 

WRITE 
READ 
SWITCH 
JRST 


LOCKFG 

TRCFG 

CCNSW 

(TTYCON) 

TRfFG 

TRCFG 

STSTO 

<•*  TRACE  ♦  a  STSTO 


SELECT 

NODRIVE 

STST1 


.FLONE 
.FLONE 

STSTO 


.•PARAMETERS 

;INIT  THE  TEST  WITH  PARAMETERS 
;RELIAB  HERAT  =  1,  NORM.  =  1 
;MAX  0   TRACKS  IN  A  XFR  =  0 
.•SWITCH  OVbRIDES  -  "ALLADR"  =  0 
;      "ALLDRV  =  0 


.•CHECK  FOR  WRITE  PROTECTION 

;GET  THE  PGM  SWITCHES 
•SWITCH  SET'' 

;YES  -  PRINt  MESSAGES  (OPR  HERE) 
.•PRINT? 
'NO 
FLt  0NES> 


.•SELECT  A  DRIVE/AREA 
.•UN-TESTABLE  DRIVE  SELECTED 
;G0  TO  THE  NEXT  TEST 

; ISSUE  A  WRITE  OF  FLT  ONES  DATA 
.•READ/VERIFY  DATA 
;READ  THE  PGM  SWITCHES 
.•SELECT  NEXT  DRIVE/AREA 


L 


DDRPl  - 
0DRPI2 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

263A 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 
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SEO  0147 


0 

D 


031632 
031633 
031634 
031635 
031636 
031637 

031640 
031641 
031642 

031643 
031644 
031645 
031646 


031647 
031650 
031651 
031652 
031653 
031654 
031655 
031656 
031657 

031660 
031661 
031662 

031663 
031664 
031665 
031666 

031667 
031670 
031671 
031672 
031673 
03167', 


260  17  0  00  034536 
476  00  0  00  000013 
336  00  0  00  100007 
254  00  0  00  031640 
037  02  0  00  066526 
037  01  0  00  000026 

260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  031647 

001  02  0  00  053347 
001  00  0  00  053347 
037  10  0  00  000002 
254  00  0  00  031640 


260  17 
476  00 
037  10 
602  00 
254  00 
336  00 
254  00 
037  02 
037  01 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


0  00 


0 
0 
0 


00 
00 
00 


034536 
000013 
000002 
002000 
031667 
100007 
031660 
066534 
000026 


260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  031667 

001  02  0  00  053345 
001  00  0  00  053345 
037  10  0  00  000002 
254  00  0  00  031660 

260  17  0  00  034536 
476  00  0  00  000013 
336  00  0  00  100007 
2^4  00  0  00  031675 
037  02  0  00  066542 
037  01  0  00  000026 


STST1:     GO 

SETOM 

SKIPN 

JRST 

P«S6 

PFORCE 


STSTIA: 


60 

JRST 

JRST 

WRITE 
READ 
SWITCH 
JRST 


STST2:     60 

SET0« 

SWITCH 

TRNE 

JRST 

SKIPN 

JRST 

P«S6 

PFORCE 

STST2A:   60 

JRST 
JRST 

WRITE 
READ 
SWITCH 
JRST 


STST3: 


60 

SET0« 

SKIPN 

JRST 

P«S6 

PFORCE 


CLENUP 

DRIVE 

TRCF6 

STSTIA 

<**  TRACE   ♦  a  STST1 


SELECT 

NODRIVE 

STST2 

.FLZRO 
.FLZRO 

STSTIA 


CLENUP 
DRIVE 

ONE SEC 
STST3 
TRCF6 
STST2A 
<•♦  TRACE 


SELECT 

NODRIVE 

STST3 

.ALTS 
.ALTB 

STST2A 

CLENUP 
DRIVE 
TRCF6 
STST3A 
<^*  TRACE 


.•FINISH  THE  0  LIST 
;RE-INIT  SELECT  ROfllNE 
.-PRINT? 
*N0 
FLt  ZEROS> 


.•SELECT  A  DRIVE/AREA 
;RE«OVE  DRIVE  FROM  TEST  LIST 
.•SECTION  DONE  -  60  TO  NEXT 

.•WRITE  FLT  ZEROS  DATA 
;READ  i  VERIFY 

.•SELECT  NEXT  DRIVE/AREA 


FINISH  THE   CMD  LIST 
RE-INIT  SELECT  ROUTINE 
6ET  THE  P6M  SWITCHES 
XFR  LIMITED? 
YES  -  SKIP  THIS  SECTION 
PRINT 
.NO 
♦  a  STST2  -  ALT  BITS  DATA> 


.•SELECT  A  DRIVE/AREA 
.•UN-TESTABLE  DRIVE   SELECTED 
.•SECTION  DONE  -  DO  THE  NEXT 

.•WRITE  ALT  BIT  DATA 
;THEN  READ/VERIFY   IT 

;SELECT  NEXT  DRIVE  AREA 

.•FINISH  THE   CMD  LIST 
;RE-INIT  SELECT  ROUTINE 
;PRINT? 
;N0 
♦  a  STST3  -  RANDOM  DATA> 


L 


■■<w—iMiw»ia>iiMiiWfciw  Mmm»itt 


1 


L 


r 


-  ^  I 


DORPl  - 
DDRP12 

2658 

2659 

2660 

2661 

2662 

2663 

266A 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 

2681 

2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 


.....J 
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SEQ  0148 


D 
D 


031675 
031676 
031677 

031700 
031701 
031702 
031703 

031 704 

031 705 

031 706 
031707 
031710 
031711 

031712 
031713 
031714 

031715 
031716 
031717 
031720 

031721 
031722 
031723 
031724 
031725 
031 726 

031727 
031730 
031731 

031732 
031733 
031734 
031735 


260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  031704 

001  02  0  00  053372 
001  00  0  00  053372 
037  10  0  00  000002 
254  00  0  00  031675 


260  17 
476  00 
336  00 
254  00 
037  02 
037  01 


0  00  034536 
0  00  000013 
0  00  100007 
0  00  031712 
0  00  066550 
0  00  000026 


260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  031721 

001  02  0  00  053363 
001  00  0  00  053363 
037  10  0  00  000002 
254  00  0  00  031712 


260  17 
476  00 
336  00 
254 
0:)' 


00 
02 


037  01 


0  00  034536 
0  00  000013 
0  00  100007 
0  00  031727 
0  00  066557 
0  00  000026 


260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  031736 

001  02  0  00  053404 
001  00  0  00  053404 
037  10  0  00  000002 
254  00  0  00  031727 


STST3A:  60 
JRST 
JRST 

WRITE 
READ 
SWITCH 
JRST 

STST3B:  GO 

SETOM 

SKIPN 

JRST 

PMSG 

PFORCE 

GO 

JRST 

JRST 

WRITE 
READ 
SWITCH 
JRST 

STST3C:  GO 

SETOM 

SKIPN 

JRST 

PMSG 

PFORCE 

GO 

JRST 

JRST 

WRITE 
READ 
SWITCH 
JRST 


SELECT 

NODRIVE 

STST38 

.RAND 
.RAND 

STST3A 

CLENUP 

DRIVE 

TRCFG 

<*♦  TRACE  *  a  STST3B 


SELECT 

NODRIVE 

STST3C 

.COUNT 
.COUNT 

STST3B+6 

CLENUP 

DRIVE 

TRCFG 

.♦3 

<*»  TRACE  *  a  STST3C 


SELECT 

NODRIVE 

STST3D 

.WORST 
.WORST 

STST3C*6 


.•SELECT  DRIVE/AREA 
;UN-TESTABLE  DRIVE  SELECTED 
;G0  TO  THE  T^EXT  SECTION 

; WRITE  RANDOM  DATA 

;READ  AND  VERIFY  THE  DATA 

.•SELECT  THE  NEXT  DRIVE/AREA 


;RE-INIT  SELECT  ROUTINE 
.•PRINT? 
;N0 
BINARY  COUNT  DATA> 


.•SELECT  A  DRIVE/AREA 
.•UN-TESTABLE  DRIVE  SELECTED 
.•GO  TO  THE  NEXT  SECTION 

.•WRITE  COUNT  PATTERN 
;THEN  READ/VERIFY  IT 

.•SELECT  NEXT  DRIVE/AREA 


.•RE-INIT  SELECT  ROUTINE 
.•PRINT? 
;N0 
WORST  CASE  DATA> 


.•SELECT  DRIVE/AREA 
.•REMOVE  UN-TESTABLE  DRIVE 
;G0  TO  THE  NEXT  SECTION 

.•WRITE  WORST  CASE  DATA  PATTERN 
;READ  &  VERIFY  THE  DATA 

.•SELECT  NEXT  DRIVE/AREA 


L 


r 


^ 


DDRPI  - 
DDRP|2 

2699 

2700 

2701 

270J» 

2703 

?704 

2?0^- 

27C; 

270? 

2708 

2709 

2710 

2711 

2712 

2713 

27H 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 
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SEQ  0U9 


031736 
031737 
031740 
031741 
031742 
031743 


260  17 
476  00 
336  00 
254  00 
037  02 
037  01 


0  00  034536 
0  00  000013 
0  00  100007 
0  00  031744 
0  00  066566 
0  00  000026 


^ 


31744 
031745 
031746 

031747 
031750 
031751 
031752 

031753 
031754 
031755 
031756 
031757 
031 760 

031761 
031762 
031763 

031764 
031765 
031 766 
031767 

031770 
031771 


260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  031753 

001  02  0  00  053515 
001  00  0  00  053515 
037  10  0  00  000002 
25X  00  0  00  031744 


260  17 
476  00 
336  00 
254  00 
037  02 
037  01 


0  00  034536 
0  00  000013 
0  00  100007 
0  00  031761 
0  00  066574 
0  00  000026 


260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  031770 

001  02  0  00  053530 
001  00  0  00  053530 
OiMO  0  00  000002 
254  00  0  00  031761 

476  00  0  00  100006 
263  17  0  00  000000 


031 y72 
031773 


476  00  0  00  100006 
2^3  17  0  00  000000 


r 


STST3D:  GO 

SETOM 

SKIPN 

JRST 

PMS6 

PFORCE 

GO 

JRST 

JRST 

WRITE 
READ 
SWITCH 
JRST 

STST3E:  GO 

SETOM 

SKIPN 

JRST 

PMSG 

PFORCE 

STST3Y:  GO 

JRST 
JRST 

WRITE 
READ 
SWITCH 
JRST 

STST3X:  SETOM 
RTN 


CLENUP 
DRIVE 
TRCFG 
.-^3 


<**  TRACE  ♦  a  STST3D  -  CHAN  PATTERN> 


RE-INIT  SELECT  ROUTINE 

PRINT? 

NO 


SELECT 

NODRIVE 

STST3E 

. CHPAT 
.CHPAT 

STST3D+6 


; SELECT  A  DRIVE/AREA 
.•REMOVE  UN-TESTABLE  DRIVE 
;G0  TO  THE  NEXT  SECTION 

.•WRITE  CHANNEL  DATA  PATTERN 
.•READ  &  VERIFY  THE  DATA 

.•SELECT  NEXT  DRIVE/AREA 


CLENUP 

DRIVE 

TRCFG 

<'^*  TRACE  ♦  a  STST3E  -  CHAN  PARITY  DATA> 


;RE-INIT  SELECT  ROUTINE 
.•PRINT? 


SELECT 

NODRIVE 

STST3X 

. CHPAR 
. CHPAR 

STST3Y 

TINTFG 


.•SELECT  A  DRIVE/AREA 
.•REMOVE  UN-TESTABlE  DRIVE 
; STEST  IS  DONE 

;  'RITE  THE  CHAN  PARITY  DATA  PATTERN 
;kEAD  and  verify  THE  DATA 

.•SELECT  NEXT  DRIVE/AREA 

;SET  THE  TEST  EXIT  FLAG 
;EXIT  THE  TEST 


•♦NODRIVE  —  ROUTINE  TO  REMOVE  AN  UN-TESTABLE  SELECTED  DRIVE 
;*  FROM  THE  TEST  LIST  THEN  RETURN  TO  THE  SELECT  ROUTINE 
;♦     CALLED. 


NODRIVE:  SETOM  TINTFG 
RTN 


;SET  THE  EXIT  FLAG 
;EXIT  THIS  ROUTINE 


L 


J   i 
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2743 

274A 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

mi 

2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
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MECHANICAL  POSITIONING  TEST  -  SEKTST  (TEST  #5) 

SUBTTL   MECHANICAL  POSITIONING  TEST  -  SEKTST  (TEST  #5) 
XLIST 

LIST 

•  /If********************************************************************* 
;*  SEKTST  —  MECHANICAL  POSITIONING  TEST 

;/|f********************************************************************* 


SEQ  0150 


COMMENT  $ 


J 


MECHANICAL  MOTION  RELIABILITY  TESTS 


1) 
2) 
3) 


4) 


5) 
6) 


r) 


I 

XLIST 


ISSUE  A  RECALIBRATE  THEN  SEEK  TO  THE  MAX 
CYLINDER.  REPEAT  100.  TIMES 

SEEK  BETWEEN  CYLINDER  000  AND  CYLINDER  128. 
REPEAT  100.  TIMES 

ALL  1  CYLINDER  FORWARD  SEEKS  STARTING  AT  CYLINDER 
000  AND  ENDING  AT  MAX  CYLINDER.  FOLLOW  WITH  A 
REVERSE  1  CYLINDER  SEEK  TEST  STARTING  AT  TH-"  MAX 
CYLINDER  AND  ENDING  AT  CYLINDER  000. 
REPEAT  10.  TIMES 

INCREMENTAL  SEEKS  STARTING  AT  CYLINDER  000  (IE 
0  TO  1,  0  TO  2,  0  TO  3,  ETC.).  FOLLOW  WITH  AN 
INCREMENTAL  REVERSE  SEEK  SEQUENCE  STARTING  AT 
MAX  CYLINDER. 

RANDOM  SEEK  TEST  -  SEEK  TO  500.  RANDOM  CYLINDERS 
ON  THE  TEST  DRIVE. 

SERVO  NOISE  TEST.  SEEK  TO  A  REFERENCE  CYLINDER 
THEN  SEEK  TO  CYLINDERS  NM,  N+1,  N+3,  N^-2,  AND 
N^5.  REPEAT  THE  SEQUENCE  UNTIL  ALL  CYLINDERS 
HAVE  BEEN  REFERENCED. 

CYLINDER  DIFFERENCE  TEST  -  USING  CYLINDER  0  AS  A 
REFERENCE  AND  WITH  "HCI"  SET  ISSUE  A  READ  HEADERS 
AND  DATA  COMMAND  TO  CYLINDER  N.  VERIFY  THE 
CYLINDER  POSITION  BY  CHECKING  THE  HEADER  DATA. 
REPEAT  UNTIL  ALL  CYLINDERS  HAVE  BEEN  CHECKED  BOTH 
IN  THE  FORWARD  AND  REVERSE  DIRECTIONS. 


■J     L 


DDRPI  - 
DDRPI2 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 
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SEQ  0151 


r 


031774  336  00  0  00  030516 

031775  332  00  0  00  077641 

031776  254  00  0  00  032434 


031777  260  17  0  00  046276 

032000  000001  000001 

032001  000023  004000 


032002 
032003 
032004 
032005 
032006 
032007 
032010 
03201 1 
032012 
03201 3 
032014 
03201 5 
032016 
03201 7 
032020 
032021 
032022 
032023 

032024 
032025 
032026 
032027 
032030 

032031 
032032 
032033 


476  00  0 
402  00  0 
200  00  0 
603  00  0 


476  00 
620  00 
202  00 
336  00 
254  00 
037  04 
037  01 
201  15 
476  00 
260  17 
254  00 
254  00 
33?  00 
2y    00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  077625 
00  100007 
00  030046 
00  000010 
00  100007 
00  002000 
00  030046 
00  100007 
00  032015 
00  066603 
00  000026 
00  000144 
00  000013 
00  045650 
00  031772 
00  032031 
00  077576 
00  032031 


001  05  0  00  000000 

261  17  0  00  100730 
001  04  1  11  000026 

262  17  0  00  100730 
254  00  0  00  032017 

367  15  0  00  032016 
260  17  0  00  052570 
260  17  0  00  053015 


SEKTST: 


LIST 


SKIPN 
SKIPE 
JRST 
TINT 


MONTYP 
MON702 
SEKT10 
1J,23,0J 


GO     SETUP 

XWD     1-1 

<23>B17I<6>B23!<1>B24 


SALL 


SETOM 
SEKT1:  SETZM 
MOVE 
TLNE 
SETOM 
TRZ 
MOVEM 
SKIPN 
JRST 
PMSGF 
PFORCE 
MOVE  I 
SEKT1D:  SETOM 
SEKT1A:  GO 

JRST 
JRST 
SKIPE 
JRST 

RECAL 

PUT 

SEEK 

GET 

JRST 

SEKT1B:  REPTLP 
GO 
GO 


IDELFG 

TRCFG# 

CONSW 

(TTYCON) 

TRCFG 

ONESEC 

CONSW 

TRCFG 

.t3 

<**  TRACE  *  a  SEKT1 

REPT,*D100 

DRIVE 

SELECT 

NODRIVE 

SEKT1B 

DSKAD 

SEKT1B 


.CYLIN 

a.MAXCY(DSBP) 
.CYLIN 
SEKT1A 


SEKT1D 

OFIN 

lOTERM 


;TDPS-20? 

;  or  TOPS-10  7.02  or  newer? 

;Yes,  can't  6o   this  test 


INIT  THE  TEST  WITH  PARAMETERS 
RELIAB  ITERAT  =  1,  NORM.  =  1 
MAX  #  TRACKS  IH   A  XFR  =  23 
SWITCH  OVERIDES  -  "ALLADR"  =  0 
"ALLDRV  =  1 


;FORCE  DELETION  INHIBIT 

;GET  THE  PGM  SWITCHES 

;OPR  SELECTING  THE  TESTS? 

•YES 

•INHIBIT  SECTOR  SELECTION 

;SAVE  UPDATED  SWITCH  VALUE 

;N0 
RECAL/SEEK  MAXCYL> 


SETUP  THE  LOOP  COUNT 

SELECT  A  DRIVE 
NON-TESTABLE  DRIVE  FOUND 
ALL  SELECTED 
SELECTED  ALL  ONCE 
YES 

ISSUE  THE  RECALIBRATE  COMMAND 

SEEK  TO  THE  DRIVE'S  MAX  CYL 

LOOP  BACK 

LOOP  TILL  DONE 
FINISH  THE  Q 
TERM  ALL  10 


DDRPI  - 

RH10/R> 

DDRPI2 

WAC 

2830 

2831 

032034 

2832 

032035 

2833 

032036 

283A 

032037 

2835 

0312040 

2836 

2837 

032041 

2838 

032042 

2839 

032043 

2840 

032044 

2841 

2842 

032045 

2843 

032046 

2844 

2845 

0312047 

2846 

032050 

2847 

032051 

2848 

032052 

2849 

2850 

032053 

2851 

032054 

2852 

032055 

28531 

2854 

03:056 

2855 

032057 

2856 

032060 

2857 

032061 

2858 

032062 

2859 

2860 

032063 

2861 

032064 

2862 

032065 

2863 

032066 

2864 

2865 

032067 

2866 

032070 
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SEO  0152 


336  00  0  00  100007 
254  00  0  00  032040 
037  04  0  00  066612 
037  01  0  00  000026 
201  15  0  00  000310 

476  00  0  00  000013 
260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  032056 

332  00  0  00  077576 
254  00  0  00  032053 

402  00  0  00  100730 
001  04  0  00  000000 
001  04  0  00  000200 
254  00  0  00  032042 

367  15  0  00  032041 
260  17  0  00  052570 
260  17  0  00  053015 

336  00  0  00  100007 
254  00  0  00  032062 
037  04  0  00  066620 
037  01  0  00  000026 
201  15  0  00  000012 

4^r  00  0  00  000013 

260  17  0  00  045650 

254  00  0  00  031772 

254  00  0  00  032071 

001  04  0  00  000000 
254  00  0  00  032064 


SEKT2: 


SEKT2D; 
SEKT2A; 


SEKT2B 


SEKT3: 


SEKT3D; 
SEKT3A; 


SKIPN 
JRST 
PMSGF 
PFORCE 
MOVE  I 

SET0« 
GO 
JRST 
JRST 

SKIPE 
JRST 

SETZ« 
SEEK 
SEEK 
JRST 

REPTLP 

GO 

GO 

SKIPN 
JRST 
PMSGF 
PFORCE 

novEi 

SETOM 
GO 
JRST 
JRST 

SEEK 

JRST 


TRCF6 

.♦3 

<**  TRACE  ♦  a  SEKT2 

REPT,*D200 

DRIVE 
SELECT 
NODRIVE 
SEKT3 

DSKAD 
SEKT2B 

.CYLIND 

*D128 
SEKT2A 

SEKT2D 
OF  IN 
lOTERM 

TRCF6 

.*3 

<*♦  TRACE  ♦  a  SEKT3 

REPT,^D10 

DRIVE 
SELECT 
NODRIVE 
SEKT3B 


SEKT3A 


.-PRINT  TRACE  MS6?? 
*N0 
SE§K  000/128. > 

; SETUP  THE  LOOP  COUNT 


SELECT  A  DRIVE 
NON-TESTABLE  DRIVE  FOUND 
ALL  SELECTED 


.•ITERATION  COMPLETED? 
;YES 


SETUP  TO  SEEK  TO  CYL  000 

DO  IT 

SEEK  TO  CYL  128. 

LOOP  BACK 

LOOP  TILL  DONE 
FINISH  THE  Q 
TERMINATE  ALL  10 


.•PRINT  TRACE  MS6?? 
•NO 
1  CYL  SEEKS> 

.•SETUP  THE  LOOP  COUNTER 


SELECl  A  DRIVE 
NON-TESTABLE  DRIVE  FOUND 
ALL  FORWARD  SELECTED 


;SEEK  TO  THE  SELECTED  CYLINDER 
;LOOP  BACK 


L 
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SEQ  0153 


D 
D 


2867 

28t8 

2869 

2870 

2871 

2872 

2873 

287A 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

288A 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 

2907 

2908 


032071 
032072 
032073 
032074 

032075 
032076 
032077 
032100 
032101 
032102 

032103 
032104 
032105 

032106 
032107 
032110 
032111 
032112 
032113 
032114 
032115 

032116 
032117 

032120 
032121 
032122 
032123 

032124 
032125 
032126 
032127 
032130 
032131 
032132 
032133 
Q12^V 


476  00  0  00  000013 
260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  032103 


261  17 
200  06 
277  06 
001  04 

262  17 
254  00 


0  00  100730 
0  11  000026 
0  00  100730 
0  00  000000 
0  00  100730 
0  00  032072 


367  15  0  00  032063 
260  17  0  00  052570 
260  17  0  00  053015 


336  00 
254  00 
037  04 
037  01 
476  00 
260  17 
254  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


100007 
032112 
066626 
000026 
000013 
045650 
031772 
032124 


261  17  0  00  100730 
402  00  0  00  100730 
001  04  0  00  000000 
26?  17  0  00  100730 
Ou'  04  0  00  000000 
254  00  0  00  032113 


476  00 

260  17 
254  00 
254  00 

261  17 
001  04 

262  17 
001 
254 


04 
00 


0  00  000013 
0  00  045650 
0  00  031772 
0  00  032135 

0  00  100730 

1  11  000026 
0  00  100730 
0  00  000000 
0  00  032125 


SEKT3B:  SETOM 

SEKT3L:  60 

JRST 
JRST 

PUT 

MOVE 

SU6B 

SEEK 

GET 

JRST 

SEKT3C:  REPTLP 
GO 
GO 

SEKT4:   SKIPN 
JRST 
PMSGF 
PFORCE 
SETOM 

SEKT4A:  60 

JRST 
JRST 

PUT 

SETZM 

SEEK 

GET 

SEEK 

JRST 

SEKT4B:  SETOM 


SEKT4L: 


GO 

JRST 

JRST 

PUT 

SEEK 

GET 

SEEK 

JRST 


DRIVE 
SELECT 
NODRIVE 
SEKT3C 

.CYLIND 

AC,.MAXCY(DSBP) 
AC, .CYLIND 


.CYLIND 
SEKT3L 

SEKT3D 

OFIN 

lOTERM 

TRCFG 

.♦3 

<•♦  TRACE 

DRIVE 
SELECT 
NODRIVE 
SEKT4B 

.CYLIND 
.CYLIND 

.CYLIND 

SEKT4A 


♦  a  SEKT4  - 


SELECT  A  DRIVE 
NON-TESTABLE  DRIVE  FOUND 
ALL  SELECTED 

SAVE  THE  CURRENT  CYLINDER  M 

6ET  THE  DRIVE'S  MAX  CYL  # 

SETUP  FOR  THE  SEEK 

SEEK  TO  THE  SELECTED  CYLINDER 

RESET  THE  CYL  0 

LOOP  BACK 

LOOP  TILL  DONE 
FINISH  THE  0 
TERM  ALL  10 


;PRINT  TRACE  MS6?? 
;N0 
INCREMENTAL  SEEKS> 


SELECT  A  DRIVE 
NON-TESTABLE  DRIVE  FOUND 
ALL  SELECTED 

SAVE  THE  CYL  # 

SETUP  TO  SEEK  TO  CYL  000 

SEEK  NOW 

RESET  THE  CYL  SELECTED 

AND  SEEK  TO  SELECTED  CYL 

LOOP  BACK 


DRIVE 

SELECT 

NODRIVE 

SEKT5 

.CYLIND 

a.MAXCY(DSBP) 

.CYLIND 

SEKT4L 


.•SELECT  A  DRIVE/CYL  # 


ALL  SELECTED 

SAVE  THE  CYL  # 

SEEK  TO  DRIVE'S  MAX  CYL 

RESET  THE  SEL  CYL  # 

AND  SEEK  TO  SELECTED  CVL 

LOOP  BACK 
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SEQ  0154 


0 
D 


2909 

2910 

2911 

2912 

2913 

29K 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 


032135 
032136 
032137 
032140 
032141 
032142 
032143 
032144 
032145 
032146 
032147 

032150 
032151 
032152 
032153 
032154 
032155 
032156 
032157 

032160 
032161 
032  k"  62 
032163 
032164 
032165 
032166 
032167 
0321 7C 


260  17  0 
260  17  0 
336  00  0 
254  00  0 
037  04  0 
037  01  0 


201  15 
476  00 

260  17 
254  00 
254  00 

261  17 
204  00 
225  00 
234  00 
336  00 

201  01 
250  00 

202  00 

262  17 
405  00 
313  00 
254  00 
202  00 
001 
367 
260  17 
260  17 


04 
15 


0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  052570 
00  053015 
00  100007 
00  032143 
00  066635 
00  000026 
00  000764 
00  000013 
00  045650 
00  031772 
00  032144 

00  000001 
00  101170 
00  006065 
00  066643 
00  000001 
00  000001 
00  000001 
00  101170 
00  000001 
00  000777 
11  000026 
00  032150 
00  100730 
00  000000 
00  032145 
00  052570 
00  053015 


SEKT5:  GO 
GO 

SKIPN 
JRST 
P«SGF 
PFORCE 
NOVEI 

SEKT5D:  SETOM 

SEICT5A:   GO 
JRST 
JRST 


OFIN 

lOTERH 

TRCFG 

.♦3 

<•♦  TRAC>:  •  a  SEKT5  - 


REPK 

DRIVE 

SELECT 

NODRIVE 

SEKT5D 


D500 


FINISH  THE  0 
TERM  ALL  10 
PRINT  TRACE  MS6? 
NO 
RANDOM  SEEICS> 

; SETUP  THE  LOOP  COUNTER 


SELECT  A  DRIVE 

NON-TESTABLE  DRIVE  FOUND 

RESET  THE  DRIVE  SELECTION  ROUTINE 


SEKT5B:  RBASE   .NCVL. CYLINDER 


SEKT5C: 


AND  I 

777 

CA«LE 

.«AXCY(DSBP) 

JRST 

SEKT5B 

«0VE« 

.CYLIND 

SEEK 

PEPTLP 

SEKT5A 

GO 

OFIN 

GO 

lOTERM 

LEGAL  CYL  VALUE? 
NO  -  GET  ANOTHER 
SAVE  THE  CYL  VALUE 
SEEK  TO  THE  SELECTED 
LOOP  TILL  DONE 
FINISH  THE  Q 
TERM  ALL  10 


CYL 
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SEQ  0155 


D 
D 


2939 
2940 

032171 

336  00  0  00  100007 

SEKT6: 

SKIPN 

TRCFG 

;PRIN1 

r  TRACE  MSG? 

2941 

032172 

254  00  0  00  032175 

JRST 

.t3 

:N0 
-  SE^VO  N( 

2942 

032173 

037  04  0  00  066644 
037  01  0  00  000026 

PMS6F 

<**  TRACE  ♦  a  SEKT6  • 

)ISE> 

2943 

032174 

PFORCE 

2944 
2945 
2946 

032175 

201  15  0  00  000002 

MOVE  I 

REPT,*D2 

032176 

476  00  0  00  000013 

SEKT6D: 

SETOM 

DRIVE 

2947 

032177 

260  17  0  00  045650 

SEKT6A: 

60 

SELECT 

.•SELECT  A  DRIVE 

2948 

032200 

254  00  0  00  031772 

JRST 

NODRIVE 

;NON-T 

FESTABLE  DRIVE  FOUND 

2949 

032201 

254  00  0  00  032231 

JRST 

SEKT6C 

:ALL  DONE 

2950 

032202 

200  06  0  00  100730 

MOVE 

AC..CYLIND 

;GET  1 

FHE  CYLINDER  REFERENCE  M 

2951 

032203 

271  06  0  00  000005 

ADD  I 

AC, 5 

.SEE  J 

[F  VALUE  OK 

2952 

032204 

313  06  0  11  000026 

CAMLE 

AC,.MAXCY(DSBP) 

.•PROCEED? 

2953 

032205 

254  00  0  00  032224 

JRST 

SEKT66 

;NOPE 

2954 

032206 

261  17  0  00  100730 

PUT 

.CYLIN 

2955 

032207 

001  04  0  00  000000 

SEEK 

.SEEK 

TO  THE  REFERENCE  CYL 

2956 

032210 

370  00  0  00  000006 

SOS 

AC 

2957 

03221 1 

001  04  1  00  000006 

SEEK 

SAC 

;SEEK 

TO  N+4 

2958 

032212 

275  06  0  00  000003 

SUBI 

AC, 3 

2959 

032213 

OO:  04  1  00  000006 

SEEK 

dAC 

;SEEK 

TO  N*1 

2960 

032214 

271  06  0  00  000002 

ADD  I 

AC, 2 

2961 

032215 

001  04  1  00  000006 

SEEK 

aAC 

.•SEEK 

TO  N+3 

2962 

032216 

370  00  0  00  000006 

SOS 

AC 

2963 

032217 

001  04  1  00  000006 

SEEK 

SAC 

;SEEK 

TO  N^2 

2964 

03222C 

271  06  0  00  000003 

ADD  I 

AC, 3 

2965 

032221 

001  04  1  00  000006 

SEEK 

SAC 

;SEEK 

TO  Nt5 

2966 

032222 

262  17  0  00  100730 

GET 

.CYLIN 

2967 
2968 
2969 

032223 

254  00  0  00  032177 

JRST 

SEKT6A 

;LOOP 

BACK 

032224 

2o'  17  0  00  100730 

SEKT6B: 

PUT 

.CYLIND 

;  SAVE 

CYL  M 

2970 

032225 

402  00  0  00  100730 

SETZM 

.CYLIND 

;SEEK 

TO  0 

2971 

032226 

001  04  0  00  000000 

SEEK 

;NOW 

2972 

032227 

262  17  0  00  100730 

GET 

.CYLIND 

2973 
2974 
2975 

032230 

254  00  0  00  032177 

JRST 

SEKT6A 

.-LOOP  BACK 

032231 

367  15  0  00  032176 

SEKT6C: 

REPTLP 

SEKT6D 

2976 

032232 

260  17  0  00  052570 

GO 

QFIN 

.•FINISH  THE  Q 

2977 

032233 

260  17  0  00  053015 

GO 

lOTERM 

2978 

032234 

332  00  0  00  030037 

SKIPE 

USER 

;IN  USER  MODE? 

2979 

032235 

254  00  0  00  032433 

JRST 

SEKT9 

;YES  ■ 

-  SKIP  SOME  CODE 

L 
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SEQ  0156 


D 
D 


2980 

2981 

2982 

2983 

298A 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

30Z3 

3024 

3025 

3C26 

3027 

3028 

3029 

3030 

3031 

3032 


032236 
032237 
032240 
032241 
032242 
032243 
032244 
032245 
032246 
032247 
032250 
032251 
032252 

032253 
032254 
032255 
032256 

032257 
032260 
032261 
032262 
032263 
032264 
032265 
032266 
032267 
032270 
032271 
032272 
032273 
032274 
032275 
032276 
032277 

032300 
032301 
032502 
032303 
032304 
032305 

032306 
032307 
032310 
032311 
032312 
032313 


332  00  0 
037  04  0 


201  00 

202  00 
260  17 
310  00 
200  00 
336  00 
254  00 
037  13 
037  14 
202  00 
260  17 


0 
0 
0 

8 

0 
0 
0 
0 
0 
0 


00  100007 
00  066652 
00  000004 
00  100733 
00  044725 
00  000000 
00  100735 
v^O  030143 
00  032251 
00  000002 
00  000004 
00  077620 
00  063623 


476  00  0  00  000013 
260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  032432 


260  17 
260  17 
260  17 
550  00 
202  00 


200  01  0 

201  02  0 


20?  02 
2u!  03 
260  17 
205  01 
271  01 
200  00  0 
603  00  0 
435  01  0 
260  17  0 
310  00  0 


0 
0 
0 
0 
0 


00  051310 
00  042657 

00  063665 

01  100712 
01  100672 
00  077620 
00  000004 
00  100733 
00  000202 
00  063674 
00  110000 
00  002000 
13  100747 
00  020000 
00  010000 
00  063147 
00  000000 


261  17  0  00  100730 

262  17  0  00  077572 
205  01  0  00  120000 
270  01  0  00  100730 
260  17  0  00  063147 
310  00  0  00  000000 

201  00  0  00  000004 

202  00  0  00  100733 
260  17  0  00  0425U3 
201  00  0  00  001130 
260  17  0  00  042705 
260  17  0  00  032343 


.-CYLINDER  DIFFERENCE  TEST 


SEICT7: 


SEKT7A: 


SKIPE 

TRCFG 

PMSGF 

<**  TRACE  ♦  a  SEKT7 

MOVE  I 

4 

MOVEM 

.SIZE 

GO 

FNDHOL 

CAM 

MOVE 

.BUFF 

SKIPN 

MAPNEW 

JRST 

.-^3 

MAPADR 

ERRHLT 

MOVEM 

6AR6A6 

GO 

SETCHN 

SETOM 

dr:ve 

GO 

SELECT 

JRST 

NODRIVE 

JRST 

SEKT8 

60 

CHKALT 

60 

MBCCLR 

60 

CHNSEL 

HRRZ 

CADT8L(AC1) 

MOVEM 

SCLP(ACl) 

MOVE 

AC1.6ARBA6 

MOVE  I 

AC2,4 

MOVEM 

AC2..SIZE 

MOVE  I 

AC3.202 

60 

6ENCCU 

MOVSI 

ACI.(DROFF) 

ADD  I 

ACl.HCI 

MOVE 

DS6TBL(DRIVE) 

TLNE 

(.'^11) 

lORI 

AC1.S''^22 

60 

LDRE6 

CAM 

PUT 

.CYLIND 

6ET 

DIFF# 

MOVSI 

AC1,(DRDCA) 

ADD 

AC1..CYLIN 

60 

LDREG 

CAM 

MOVE  I 

4 

MOVEM 

.SIZE 

60 

PKREAD 

MOVE  I 

^D600 

GO 

yAITMS 

GO 

SEKT7B 

.•TRACE  FLAG  SET? 
CYLINDER  DIFFERENCE  TEST'*> 
;XFR  SIZE  =  4  WORDS 
•SAVE  IT 

•FIND  MEMORY  SPACE 
.•HERE  IF  ERROR  (SHOULDN'T  HAPPEN) 
;6ET  THE  ADDR 
;VIRT  MEMORY? 
;N0 
.•CONVERT  TO  REAL  ADR 

.•SAVE  THE  BUFFER  ADDR 
.•RESET  THE  CHANNELS 


.•SELECT  A  DRIVE/CYLINDER 
;NON-TESTABLE  DRIVE  FOUND 
;DONE 

.•LOOK  FOR  AN  ALT-MODE 
.•CLEAR  THE  MBC 
.•DETERMINE  THE  MBC  # 
.•RESET  THE  CHANNEL  POINTER 

.•PREPARE  TO  BUILD  A  CHANNEL  LIST 

;6ET  THE  XFR  SIZE 
;AND  THE  BLOCK  SIZE 
.•BUILD  A  CHANNEL  LIST 

;SET  HEADER  COMP  INHIBIT 
;6ET  THE  DRIVE  TABLE  STATUS 
.•DRIVE  IN  11  FORMAT? 
.•YES  -  SET  THE  BIT 
.•LOAD  THE  OFFSET  RE 6  NOW 


SAVE  THE  SELECTED  CYLINDER  M 
FOR  TESTIN6  THE  ACTUAL  POSITION 
PREPARE  TO  LOAD  THE  DCA  REG 
GET  THE  CYL  # 
LOAD  RE6  NOW 


;SET  THE  XFR  SIZE  TO  ;  WORDS 
;(JUST  THE  HEADER  INFO  WANTED) 
.-READ  HEADERS  AND  DATA 

;WAIT  UNTIL  DONE 
.-CHECK  FOR  XFR  ERRORS 


L 
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SEC  0157 


DC 
DC 


3033 

303A 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 


032314 
032315 
032316 
032317 

032320 
032321 
032322 
032323 
032324 
032325 
032326 
032327 
032330 
032531 

032332 
032333 
032334 
032335 

032336 
032337 
032340 
032341 
032342 

032343 
032344 
032345 

032346 
032347 
032350 
032351 
032352 
032353 
032354 
032355 
032356 
032357 
032360 
032361 

032362 
032363 
032364 
032365 
032366 
032367 
032370 


554  00  1  00  100735 
405  00  0  00  001777 
312  00  0  00  077572 
254  00  0  00  032371 


260  17 
260  17 
550  00 
202  00  0 
213  00  0 
402  00 
402  00 
205  01 
260  17 
310  00 


0  00  042657 
0  00  063665 
0  01  100712 
01  100672 
00  077572 
0  00  100730 
0  11  000024 
0  00  120000 
0  00  063147 
0  00  000000 


260  17  0  00  042503 
201  00  0  00  001130 
260  17  0  00  042705 
260  17  0  00  032343 

554  00  1  00  100735 
405  00  0  00  001777 
332  00  0  00  000000 
254  00  0  00  032371 
254  00  0  00  032414 

200  01  0  00  100667 
260  17  0  00  063547 
2o<  17  0  00  000000 


037 
260 
260 
037 
260 
260 
260 
254 
260 
260 
260 
263 


02 
17 
17 
00 
17 
17 
17 
00 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


066662 
053221 
044454 
030242 
063540 
064471 
057050 
032362 
056047 
056014 
056010 
000000 


037  00  0 
260  17  0 


037  02 
200  00 
621  00 
202  00 
263  17 


0 
0 
0 
0 
0 


00  030242 
00  054607 
00  066672 
13  100747 
00  540000 
13  100747 
00  000000 


HLRZ 
AND  I 
CAME 
JRST 

GO 

GO 

HRR2 

MOVEM 

MOVNS 

SET2M 

SETZM 

MOVSI 

GO 

CAM 

GO 

MOVEl 
GO 
60 

HLRZ 

AND] 

SKIPE 

JRST 

JRST 

SEKT7B:  MOVE 
GO 
RTN 

PMSG 


SEKT7C: 


60 

PCRL 

60 

60 

60 

JRST 

60 

m 

60 
RTN 

PCRL 

60 

PMSG 

MOVE 

TLZ 

MOVEM 

RTN 


a. BUFF 
1777 
DIFF 
SEKT7E 

MBCCLR 

CHNSEL 

CADTBL(I) 

SCLP(ACI) 

DIFF 

.CYLIND 

.SELAD(DSBP) 

AC1,(DRDCA) 

LDREG 


PKREAD 
*D600 
WAITMS 
SEKT7B 

a. BUFF 
1777 

SEKT7E 
SEKT7F 

ACURHERR 
.CONSO 


GET  THE  CYL  *  FROM  THE  HEADER  INFO 

SAVE  JUST  THE  CYL  M 

ON  THE  CORRECT  CYLINDER? 

NOPE ! ! 


; CLEAR  THE  MBC  AGAIN 


PREPARE  TO  TEST  REVERSE 
GO  TO  CYLINDER  0 
CLEAR  THE  SELECTED  ADDR 
PREPARE  TO  LOAD  THE  DCA  REG 
TO  TRACK/SECTOR  00 


;READ  HEADERS  AND  DATA 

;WAIT  UNTIL  DONE 

; CHECK  FOR  XFR  ERRORS 

;GET  THE  CYL  #  FROM  HEADER  INFO 


AT  CYL  0''' 

NO  -  ERROR  DETECTED 

TEST  NEXT  CYLINDER 

6ET  THE  MBC  ERROR  BITS 

ANY  ERROR  DETECTED  IN  THE  MBC? 

NO  -  EXIT 


<'^*-*-*-*  ERROR  DETECTED  (READ  HEADERS  &  DATAy> 
SWPNT  ;PRINT  THE  SWITCHES 

RUNTIM  ;AND  THE  PGM  RUNTIME 


.CONI 

CONIPT 

SNAPS 

SEKT7C 

STATUS 

DRVCLR 

P\KAK 


PNTDRV 

<  HAS  POWERED  DOWN^> 

DSBTBL(DRIVE) 

(.OPRI.ONLNI.PWR) 

DSBTBL(DRIVE) 


;GET  THE  MBC  STATUS 

;AND  PRINT  IT 

;GET  THE  DRIVE  STATUS 


AND  PRINT  IT 
CLEAR  THE  DRIVE 
ISSUE  PACK  ACKNOWLEDGE 
THEN  EXIT 


;PRINT  THE  DRIVE  M 

;GET  THE  TABLE  STATUS 
;RESET  THE  STATUS 
;AND  SAVE  IT 


-_J 


J     L 
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SEQ  0158 


DC 
DC 


3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

309A 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

31U 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 


032371 

032372 

032373 

032374 

032375 

032376 

032377 

032400 

032401 

032402 

032403 

032404 

032405 

032406 

032407 

032410 

032411 

032412 

032413 

032414 

032415 

032416 

032417 

032420 

032421 

032422 

032423 

032424 

032425 

032426 

032427 

032430 

032431 

032432 
032433 


032434 
032435 
032^36 
032437 
032440 
032441 


037  02 
260  17 
037  02 
200  00 
260  17 
037  02 
554  00 
405  00 
260  17 
037  02 
037  02 
200  00 
037  13 
350  00 
037  02 
200  00 
037  13 
037  00 
370  00 
260  17 
260  17 
550  00 
202  00 
554  00 
202  00 
205  01 
200  00 
603  00 
435  01 
2oJ  17 
310  00 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
1 
0 
0 
0 
1 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
01 
01 
00 
00 
00 
13 
00 
00 
00 
00 
00 
00 


066676 

054607 

066706 

077572 

066163 

06671 1 

100735 

001777 

066163 

066714 

06671 7 

100735 

000000 

100735 

066721 

100735 

000000 

030242 

100735 

042657 

063665 

100712 

100672 

077576 

100730 

110000 

100747 

020000 

010000 

063147 

000000 

051310 

032254 


476  00  0  00  100006 
263  17  0  00  000000 


037  04 
332  00 
037  04 
336  00 
037  04 
263  17 


0  00  066723 
0  00  030516 
0  00  066451 
0  00  030516 
0  00  066452 
0  00  000000 


SEKT7E:  PMSG 
GO 

PMSG 
MOVE 
60 
PMSG 
HLRZ 
AND  I 
60 
PMSG 
PMSG 
MOVE 
PNTHU 
AOS 
PMS6 
MOVE 
PNTHW 
PCRL 
SOS 

SEKT7F:  60 
60 
HRRZ 
MOVEM 
HLRZ 
MOVEM 
MOVSI 
MOVE 
TLNE 
lORI 
60 
CAM 
60 
JRST 


<*CYLINDER  DIFFERENCE  OR  POSITIONING  F/ILURE  ON  > 


PNTDRV 

<*DESIRED  CYL  =  > 

DIFF 

PSDN 

<*ACTUAL  CYL  =  > 

a.BUFF 

1777 

PSDN 

<*HEADER  DATA  IS:> 

<*HEADER]> 

a.BUFF 

.BUFF 

<*KEY  WDS]> 
a.BUFF 


.BUFF 

MBCCLR 

CHNSEL 

CADTBL(ACI) 

SCLP(ACI) 

DSfCAD 

.CYLIN 

ACI.(DROFF) 

DSBTBL (DRIVE) 

(.FID 

AC1,FMT22 

LDREG 

CHKALT 
SEKT7A 


.-PRINT  FAILING  i)RIVE  M 

;GET  IT 

;AND  PRINT  THE  ff 


.-STRIP  JUNK  DATA 
.-PRINT  THE  ACTUAL  CYL  * 


.-GET  THE  HEADER  DATA 
.-PRINT  IT 


.-PRINT  THE  KEY  WORDS 

.-CORRECT  THE  BUFFER  ADDR 
.-CLEAR  THE  MBC 


6ET  THE  CURRENT  CYL  * 

SAVE  IT 

RESET  THE  DRIVE  OFFSET  REGISTER 

GET  THE  TABLE  STATUS 

DRIVE  IN  11  FORMAT? 

YES  -  SET  THE  BIT 

LOAD  THE  REG  NOW 


.-LOOK  FOR  AN  ALT-MODE  TYPED 
.-LOOP  BACK  FOR  NEXT  CYLINDER 


SEKT8:  SETOM   TINTFG 
SEKT9:  RTN 


;EXIT  THE  TEST 

;Here  if  user  mode  TOPS-20  or  TOPS-10  7.02  and  later. 

SEKT10:  PMSGF  <SEKTST  DOES  NOT  RUN  UNDER  TOPS-> 

SKIPE  MONTYP              ;Was  it  because  Us  TOPS-20? 

PMSGF  <20*>              ;Yes         .   ,  ^^ 

SKIPN  MONTYP              .-Was  U  because  Us  7.02  or  later? 

PMSGF  <i0  7.02  OR  LATER*>     ;Yes 

RTN  .-Return 


I  ■ ■  > 


■J     L 


--T 
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SEQ  0159 


DC 
DC 


3132 

3133 

31 34 

3135 

3136 

3137 

3138 

3139 

31A0 

31A1 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 


SUBTTL   TRACK  INTERACTION  TEST  -  INTTST  (TEST  #6) 

XLIST  ^ 

LIST 

)*  INTTST  —  TRACK/DATA  INTERACTION  TEST 

•  /If***********  ****************************  ***♦♦♦***♦****♦****♦*******♦** 


COMMENT  $ 


THIS  TEST  IS  DESIGNED  TO  TEST  FOR  TRACK  INTERACTION  FAILURES 
AT  THE  CYLINDEf^S  WHERE  THE  WRITE  CURRENT  IS  STEPPED. THE 
WRITE  CURRENT  IS  STEPPED  EVERY  100  OCTAL  CYLINDERS  FROM 
CYLINDER  ZERO  FOR  RP04/05*S  AND  EVERY  200  FOR  RP06'S. 

FIRST  SEEK  TO  THE  REFERENCE  CYLINDER  N  AND  WRITE  A  WORST 
CASE  DATA  PATTERN  ON  ALL  TRACKS  AT  REF  CYL,  REF  CYL-1,  AND 
REF  CYL+1.  THEN  READ/VERIFY  THE  DATA  ON  THOSE  TRACKS. 
THE  REFERENCE  CYLINDER  IS  THE  CYLINDER  WHERE  THE  WRITE 
CURRENT  IS  STEPPED. 

NEXT,  WRITE  A  PARITY  PATTERN  ON  ALL  TRACKS  OF  THE  REF  CYL 
AND  READ/VERIFY  THE  DATA.  60  BACK  AND  RE-VERIFY  THE  DATA 
ON  REF  CYL-1  AND  REF  CYL^l.  REPEAT  TEN  TIMES. 

REPEAT  THE  SEQUENCE  UNTIL  ALL  CURRENT  CHANGE  CYLINDERS 
HAVE  BEEN  REFERENCED. 

NEXT,  GET  A  REFERENCE  CYLINDER  AND  WRITE  A  PARITY  PATTERN 
ON  EITHER  SIDE  OF  IT  AND  VERIFY  THE  DATA.  RE-VERIFY  THAT 
THE  DATA  ON  THE  REFERENCE  CYLINDER  HAS  NOT  CHANGED.  REPEAT 
THE  SEQUENCE  UNTIL  ALL  CURRENT  CHANGE  CYLINDERS 
HAVE  BEEN  REFERENCED. 

PACK  DELETION/PROTECTION  IS  INHIBITED  DURING  THIS  TEST! 

$ 

XLIST 


032442 

032442 
032*»43 
032444 


260  17  0  00  046276 
(.00005  000002 
000000  000000 


INTTST:  TINT    5,2,0,0,0 
LIST 

GO     SETUP 

XWD     5,2 

<0>B17!<0>B23I<0>B24 


SALL 


032445  476  00  0  00  077625 

032446  476  00  0  00  077633 

032447  202  15  0  00  000006 


SETOM 
SETOM 
MOVEM 


IDELF6 
LOCKFG 
REPT,AC 


;INIT  THE  TEST  WITH  PARAMETERS 
.-RELIAB  ITERAT  =  5,  NORM.  =  2 
;MAX  #  TRACKS  IN  A  XFR  =  0 
; SWITCH  OVERIDES  -  "ALLA')R"  =  0 
"ALLDRV"  =  0 


;DON'T  ALLOW  ANY  DELETION 
;LOOK  FOR  WRT  LOCKED  DRIVES 
.-SAVE  THE  ITERATION  COUNT 


i_- 


L_ 
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SEQ  0160 


r 

DC 
DC 


3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

31 9A 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

320A 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

32U 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 


032450 
032451 
032452 
032453 

032454 
032455 
032456 

032457 
032460 
032461 

032462 
032463 
032464 
032465 
032466 
032467 

032470 
032471 
032472 

032473 
032474 
032475 

032476 
032477 
032500 
032501 
032502 
032503 
032504 
032505 
032506 
032507 

032510 
032511 


476  00  0  00  000013 
260  17  0  00  045650 
254  00  0  00  031772 
254  00  0  00  032462 

260  17  0  00  032671 
254  00  0  00  032451 
254  00  0  00  032462 

001  0?  0  00  053404 
001  00  0  00  053404 
254  00  0  00  032451 


402  00 
037  10 
476  00 
260  17 
254  00 
254  00 


0  00  077630 
0  00  000002 
0  00  000013 
0  00  045650 
0  00  031772 
0  00  032510 


260  17  0  00  032613 
254  00  0  00  032476 
254  00  0  00  032465 

001  02  0  00  053530 
001  00  0  00  053530 
254  00  0  00  032465 


260  17 
254  00 
Ou'  00 
260  17 
001  00 
260  17 
254  00 
332  00 
254  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


032731 
032465 
053404 
032575 
053404 
032561 
032476 
077630 
032510 
032465 


367  15  0  00  032462 
200  15  0  00  000006 


INTT1: 
INTT1S 


INTT1A: 

INTT2: 
INTT2A: 


INTT2B; 


INTT2C 


SETO« 
GO 
JRST 
JRST 

GO 

JRST 

JRST 

WRITE 

KGAD 

JRST 

SETZM 

SWITCH 

SETOM 

GO 

JRST 

JRST 

GO 

JRST 

JRST 

WRITE 

READ 

JRST 

GO 

JRST 

READ 

GO 

READ 

GO 

JRST 

SK I PE 

JRST 

JRST 

REPTLP 
MOVE 


DRIVE 
SELECT 
NODRIVE 
INTT2 

INTADR 
INTT1S 
INTT2 

.WORST 
.WORST 
INTT1S 

iNTRFG# 

DRIVE 
SELECT 
NODRIVE 
INTT2C 

INTREF 
INTT2B 
INTT2A 

. CHPAR 
. CHPAR 
INTT2A 

LOSIDE 
INTT2A 
.WORST 
HISIDE 
.WORST 
INTTKS 
INTT2B 
INTRFG 
INTT2C 
INTT2A 

INTT2 
REPT,AC 


SELECT  A  DRP'E/ADDRESS 
NON-TESTABLE  DRIVE  FOUND 
ALL  SELECTED 

CHECK  FOR  A  VALID  ADDRESS 
NOT  VALID  -  SELECT  ANOTHER 
END  OF  THE  TABLE 

WRITE  THE  WORST  CASE  DATA  PATTERN 

READ/ VERIFY  THE  DATA 

CYL  DONE  -  GET  NEXT  DRIVE 

CLEAR  THE  REF  CYL  FLAG 
RESD  THE  PGM  SWITCHES 
SETUP  AGAIN 
SELECT  A  DRIVE 
NON-TESTABLE  DRIVE  FOUND 
ALL  DONE  -  REPEAT 

GET  A  REFERENCE  CYL 

OFF  REF  CYL  OR  TABLE  EXHAUSTED 

ADDR  SELECTED  IS  TOO  LOW 

WRITE  THE  PARITY  PATTERN 
READ/ VERIFY  THE  DATA 
LOOP  BACK 

POINT  TO  THE  REF  CYL-1 

RE-SELECT 

RE-VERIFY  THE  DATA  HERE 

POINT  TO  THE  REF  CYL^I 

RE-VERIFY  THE  DATA  HERE 

SELECT  NEXT  SURFACE 

HAVE  ONE 

TABLE  DONE? 

YES 

AND  SELECT  AGAIN 


;LOOP  TILL  DONE 

.-RESET  THE  LOOP  COUNTER 


DDRPl  - 
DDRPI2 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3258 

3259 
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SEO  0161 


DC 
DC 


032512  402  00  0  00  077630 

032513  037  10  0  00  000002 

032514  476  00  0  00  000013 

032515  260  17  0  00  045650 

032516  254  00  0  00  031772 

032517  254  00  0  00  032543 

032520  260  17  0  00  032613 

032521  254  00  0  00  032524 

032522  254  00  0  00  032515 

032523  254  00  0  00  032515 

032524  260  17  0  00  032731 

032525  254  00  0  00  032515 

032526  001  02  0  00  053404 

032527  001  00  0  00  053404 

032530  260  17  0  00  032575 

032531  001  02  0  00  053404 

032532  001  00  0  00  053404 

032533  260  17  0  00  032604 

032534  001  00  0  00  053530 

032535  350  00  0  00  100730 

032536  260  17  0  00  032561 

032537  254  00  0  00  032524 

032540  332  00  0  00  077630 

032541  254  00  0  00  032543 

032542  2d-  00  0  00  032515 

032543  367  15  0  00  032512 

032544  476  00  0  00  100006 

032545  263  17  0  00  000000 


INTT3:  SEfZM 
SWITCH 
SETOM 

INTT3A:  60 
JRST 
JRST 

60 
JRST 
JRST 
JRST 

INTT3B:  60 
JRST 

WRITE 
READ 

60 

WRITE 

READ 

60 

READ 

AOS 

60 

JRST 

SKIPE 

JRST 

JRST 


INTRF6 

DRIVE 
SELECT 
NODRIVE 
INTT3C 

INTREF 
INTT3B 
INTT3A 
INTT3A 

LOSIDE 
INTT3A 

.WORST 
.WORST 

HISIDE 
.WORST 
.WORST 

INSIDE 
. CHPAR 
.CYLIND 

INTTKS 
INTT3B 
INTRF6 
INTT3C 
INTT3A 


INTT3C:  REPTLP  INTT3 

INTTEX:  SETOM   TINTF6 
RTN 


CLEAR  THE  FLA6 

READ  THE  P6M  SWITCHES 

SELECT  A  DRIVE/ADDRESS 
NON-USUABLE  DRIVE  FOUND 
SELECTION  DONE  -  REPEAT 

SELECT  A  REF  CYL 

OFF  REF  CYL  OR  TABLE  EXHAUSTED 

ADDR  TOO  LOW 

RE-SELECT  TO  JUMP  OVER  REF  CYL 

POINT  TO  THE  REF  CYL-1 
RE-SELECT  DSK  ADDR 

RESET  THE  DATA  HERE 
THEN  RE-VERIFY 

POINT  TO  REF  CYL+1 
RESET  THE  DATA 
AND  RE-VERIFY  IT 

POINT  TO  THE  REF  CYL 
AND  SEE  IF  DATA  CHAN6ED 
UPDATE  CYL  It   FOR  NEXT  AREA 

SELECT  NEXT  SURFACE  # 

HAVE  IT  -  PROCEED 

TABLE  DONE?? 

YES 

AND  RE-SELECT  A6AIN 

LOOP  TILL  DONE 

SET  THE  EXIT  FLA6 
EXIT 


L 
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SEQ   0162 


3260 

3261 

3262 

3263 

326A 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 


032546 
032547 
032550 
032551 
032552 
032553 
032554 
032555 
032556 
032557 
032560 


032561 
032562 
032563 
032564 
032565 
032566 
032567 
032570 
032571 
032572 
032573 
032574 


032575 
032576 
032577 
032600 
032o01 
032602 
032603 


000000 
000077 
000177 
000277 
000377 
000477 
000577 
000777 
001177 
001377 
000  00 


000002 
000101 
000201 
000301 
000401 
000501 
000601 
001001 
001201 
001401 
0  00  000000 


350  01 
307  01 
254  00 
402  00 
350  00 
550  00 
242  00 
434  00 
504  00 
202  00 
20?  00 
2o<  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
17 
00 
00 
00 
00 
11 
00 
00 


100731 
000022 
032566 
100731 
000000 
100731 
000010 
100732 
100730 
000024 
077576 
000000 


261 
554 
271 
202 
506 
262 
263 


17 
01 
01 
01 
01 
17 
17 


0 
0 
0 
0 
0 
0 
0 


00  000001 
00  077576 
00  000002 
00  100730 
00  077576 
00  000001 
00  000000 


INTTAB:   0-,2 

7?., 101 


;REF   CYL-1    ,,   REF   CYL^l 


iDC 
DC 


\7K 
277, 
177. 
^77. 
577. 
777. 
117? 
1377 
Z 


01 

01 
401 
501 
601 
1001 
J  201 
J401 


♦INTTKS  —  THIS  ROUTINE  WILL  UPDATE  THE  SURFACE  SELECTED  n 

AND  EXIT  WITH  ''DSKAD"  AND  ".SURF"  UPDATED 

RTN  +1  IF  NEW  SURFACE  #  SELECTED 

RTN  ^2  IF  AT  END  OF  SELECTED  CYLINDER 
4f  ♦••♦**•*♦•♦*•****•*•♦♦♦•••••**»*••♦*•*•**••♦•**•*•**•*••*••*♦*♦**♦*♦ 


INTTKS:  AOS 
CAI6 
JRST 
SET2M 
AOS 
HRR2 
LSH 
I  OR 
HRL 
MOVEM 
MOVEM 
RTN 


AC1,.SURF 

AC1,SURFAC 

.  +3 

.SURF 

(P) 

.SURF 

'*D8 

.SECT 

.CYLIN 

.SELAD(DSBP) 

DSKAD 


.•UPDATE  THE  SURFACE  NUMBER 
;STILL  ON  THIS  CYLINDER? 

;N0 


;UPDATE  DSB  ADDRESS  FOR  DSK 
;AND  AGAIN 
;EXIT  +2 


♦HISIDE  —  ROUTINE  TO  SELECT  A  REF  CYL^l  BY  ADDING  2  TO  THE 
♦     SELECTED  CYL  #  IN  THE  DSKAD  ADDRESS 
RTN  +1  IS  THE  ONLY  RETURN 


HISIDE 


PUT 

ACl 

HLRZ 

AC1, DSKAD 

ADD  I 

ACl. 2 

MOVEM 

AC1..CYLIND 

HRLM 

ACl. DSKAD 

GET 

ACl 

RTN 

•SAVE  ACl 

•GET  THE  CYL  #  FROM  ADDR 

.•POINT  TO  REF  CYL+1 

.•UPDATE  CYL  n 

;AND  AGAIN 


-«      L 
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SEQ  0163 


DD 
DD 


1 


3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 


032604 
032605 
032606 
032607 
032610 
03261 1 
032612 


03261 3 
032614 
03261 5 

032616 
032617 
032620 
032621 
032622 
032623 
032624 
032625 
032626 
032.27 
032630 
032631 
032632 
032633 
032634 
032o35 
032636 
032637 
032640 
032641 
032642 
C32643 

032644 
032645 


261  17  0  00  000001 
554  01  0  00  077576 
370  00  0  00  000001 
202  01  0  00  100730 
506  01  0  00  077576 

262  17  0  00  000001 

263  17  0  00  000000 


261  17  0  00  000001 
261  17  0  00  000002 
402  00  0  00  000001 


200  02 
322  02 
510  02 
2?  J  02 
313  02 
254  00 
270  02 

315  02 
344  01 

316  02 
254  00 
207  00 
200  01 
607  01 
254  00 
306  02 
254  00 
306  02 
254  00 
306  02 
254  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


01 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
13 
00 
00 
00 
00 
00 
00 
00 
00 
00 


032546 
032644 
032546 
066731 
077576 
032646 
066731 
077576 
032616 
077576 
032656 
000002 
100747 
000100 
032717 
000101 
032720 
000301 
032720 
000501 
032720 
032717 


476  00  0  00  077630 
254  00  0  00  032721 


•  /If*********************************  *•**•*••**••*•*••**♦*•*♦*********♦* 
••INSIDE  —  ROUTINE  TO  SELECT  A  REF  CYL  BY  ADDING  -1  TO  THE 
;*     DSfCAD  ADDRESS  CYLINDER  M 
RTN  +1  IS  THE  ONLY  RETURN 

; /If  *•*********••***••**•%•♦**•*••••*•••***•  **••*••*•***♦******♦***♦**** 


INSIDE:   PUT  ACl 

HLRZ  ACUDSKAD 

SOS  ACl 

MOVEM  ACU.CYLIND 

HRLM  AC1,DSKAD 

GET  ACl 

RTN 


SAVE  AC1 

GET  THE  CYL  M 

POINT  TO  THE  REF  CYL 

UPDATE  THE  CYL  U 

AND  AGAIN 


♦INTREF  —  ROUTINE  TO  SELECT  A  REF  CYL  FROM  THE  DEFINED  TABLE 

*  "INTTAB"  WHERE  REF  CYL  =  LH  OF  ENTRY  +1 

♦  RTN  ^-1  IF  "DSKAD"  IS  BELOW  REF  CYLINDER 

*  RTN  +2  IF  AT  THE  END  OF  THE  TABLE 

♦  RTN  +3  IF  "DSKAD"  POINTS  TO  THE  REF  CYL 

; /If  •••#*•*••*•••**•**•***♦•♦•••**•*****•***********♦***♦**♦*♦***♦***♦** 


INTREF:  PUT  ACl 

PUT  AC2 

SETZM  ACl 

INTR1:  MOVE  AC2  JNTTAB(ACI) 

JUMPE  AC2JNTR2 

HLLZ  AC2JNTTAB(AC1) 

ADD  AC2,C1,,0] 

CAMLE  AC2,DSICAD 

JRST  INTR3 

ADD  AC2,C1,,0] 

CAMGE  AC2,DSKAD 

AOJA  AC1JNTR1 

CAMN  AC2,DSKAD 

JRST  INTR4 

MOVSS  AC2 

MOVE  ACl, DSBTBL (DRIVE) 

TLNN  AC1,(.RP06) 

JRST  INTAX3 

CAIN  AC2J01 

JRST  INTAX2 

CAIN  AC2,301 

JRST  INTAX2 

CAIN  AC2,501 

JRST  INTAX2 

JRST  INTAX3 

INTR2:  SETOM  INTRFG 

JRST  INTAX 


;SAVE  SOME  AC'S 


GET  THE  TABLE  ENTRY 

ANY  HERE? 

YES  -  GET  THE  REF  CYL-1  DATA 

POINT  TO  THE  REF  CYL 

DSK  ADDR  OK? 

NO  TOO  LOW 

YES  -  POINT  TO  REF  CYL^I 

IN  RANGE? 

NO  -  LOOK  AT  NEXT  ENTRY 

SAME  ADDRESS?? 

YES  CHECK  OK  FOR  DRIVE 

GET  CYL  VALUE  IN  RIGHT  HALF 

GET  TABLE  DATA 

RP06  ? 

NO  EXIT  ^3 

RP04/05  CURRENT  CHG  CYL 

YES  CONT  SEL  NEXT  DRIVE 

RP04/05  CURRENT  CHG  CYL 

YES  CONT  SEL  NEXT  DRIVE 

RP04/05  CURRENT  CHG  CYL 

YES  CONT  SEL  NEXT  DRIVE 

NO  -  EXIT  i3 


;SET  THE  TABLE  DONE  FLAG 
;EXIT  ^1 


J 


L 
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SEO  0164 


DC 
DD 


3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 


032656 
032657 
032660 
032661 
032662 
032663 
032664 
032665 
032666 
032667 
032670 


7  00  0 

.01  00  0  00  000022 
202  00  0  00  100731 
254  00  0  00  032720 


207  00 
200  01 
607  01 
254  00 
306  02 
254  00 
306  02 
254  00 
306  02 
254  00 
254  00 


00 
13 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000002 
100747 
000100 
032721 
000101 
032720 
000301 
032720 
000501 
032720 
032721 


INTR3: 


INTR4: 


MOVSS 

AC2 

CAIG 

AC2J 

JRST 

.-^3 

SOS 

AC2 

MOVEM 

AC2,.CYLIN 

novEi 

22 

NOVEM 

.SURF 

JRST 

INTAX2 

MOVSS 

AC2 

MOVE 

AC1,DSBTBL(DRIVE) 

TLNN 

AC1,(.RP06) 

JRST 

INTAX 

CAIN 

AC2J01 

JRST 

INTAX2 

CAIN 

AC2,301 

JRST 

INTAX2 

CAIN 

AC2,501 

JRST 

INTAX2 

JRST 

INTAX 

GET  CYL  IN  RIGHT  HALF 

FIRST  CURRENT  CYL 

YES 

NO  DECR  CYL 

SAVE  IT 

GET  MAX  SURF 

SAVE  IT 

SELECT  NEXT  DSK/ADDR 

GET  CYL  VALUE  IN  RIGHT  HALF 

GET  TABLE  DATA 

RP06  ? 

NO 

RP04/05  CURRENT  CYL 

RP04/05  CYL  SEL  NEXT  DRIVE 


;NOT  RP04/05  CYL 
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SEO  0165 


DD 
DD 


3377 

3378 

3379 

3380 

338^ 

3382 

3383 

338A 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3A00 

3A01 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 


032671 
032672 
032673 
032674 
032675 
032676 
032677 

032700 
032701 
032702 
032703 
032704 
032705 
032706 
032707 
032710 
03271  - 
032712 
03271 3 
032714 
03271 5 
032716 
032717 
032720 
032721 
032722 
032723 

032724 
032725 
032726 
032727 
032730 


261  17 

261  17 
402  00 
200  02 
322  02 
510  02 
313  02 
254  00 
514  02 
270  02 
317  02 
344  01 
200  01  0 
607  01  0 
254  00 
207  00 
306  02 
254  00 
306  02 
254  00 
306  02 
2o  00 
350  00 
350  00 

262  17 

262  17 

263  17 


0  00  000001 
0  00  000002 
0  00  000001 
0  01  032546 
0  00  032720 
0  01  032546 
0  00  077576 
0  00  032721 
0  01  032546 
0  00  066731 
0  00  077576 
0  00  032724 
13  100747 
00  000100 
0  00  032717 
0  00  000002 
0  00  000102 
0  00  032721 
0  00  000302 
0  00  032721 
0  00  000502 
0  00  032721 
0  17  777776 
0  17  777776 
0  00  000002 
0  00  000001 
0  00  000000 


554  00  0  01  032546 
370  00  0  00  000000 
313  00  0  00  100730 
202  00  0  00  100730 
254  00  0  00  032674 


iMNTADR  —  ROUTINE  TO  TEST  FOR  A  SELECTED  RANGE  OF  ADDRESSES 

;♦     SPECIFIED  BY  "INTTAB"  TABLE 

;»     RTN  ♦!  IF  NOT  IN  RANGE  rOSKAD"  TOO  LOU  OR  HIGH) 

;*     RTN  +2  IF  AT  THE  END  OF  THE  TABLE 

;♦     RTN  +3  IF  "DSKAD"  IS  IN  RANGE 


I NT ADR:  PUT 
PUT 
SETZM 
INT1:   MOVE 
JU«PE 
HLLZ 
CA«LE 
JRST 
HRL2 
ADD 
CAMG 
AOJA 
MOVE 
TLNN 
JRST 
MOVSS 
CAIN 
JRST 
CAIN 
JRST 
CAIN 
JRST 
INTAX3:  AOS 
INTAX2:  AOS 
INTAX:  GET 
GET 
RTN 


INT2: 


HLRZ 

SOS 

CAMLE 

WOVEN 

JRST 


ACl 

AC2 

ACl 

AC2JNTTAB(AC1: 

AC2JNTAX2 

AC2JNTTAB(AC1) 

AC2,DSKAD 

INTAX 

AC2JNTTAB(AC1) 

AC2,[1,,0] 

AC2,DSKAD 

AC1JNT2 

AC1,DSBTBL(DRIVE) 

AC1.(.RP06) 

INTAX3 

AC2 

AC2J02 

INTAX 

AC2,302 

INTAX 

AC2,502 

INTAX 

'2(P) 

-2(P) 

AC2 

ACl 


INTTAB(ACI) 


.CYLIND 
.CYLIND 
INT1 


;SAVE  SOME  AC'S 

; CLEAR  A  POINTER 

;GET  A  TABLE  ENTRY 

;EXIT  IF  DONE 

;GET  THE  LOW  CYL  FROM  TABLE 

:LOy  ADDR  OK? 

;N0  -  RTN  +1 

;GET  THE  HIGH  CYL  FROM  TABLE 

.-UPDATE  THE  ADDRESS 

;IS  THE  HIGH  CYL  ADDR  OK? 

;N0  -  LOOK  AT  THE  NEXT  ENTRY 

;GET  TABLE  DATA 

;RP06  ? 

;N0  TAKE  +3  RTN 

;GET  CYL  VALUE  IN  RIGHT  HALF 

;RP04/05  CURRENT  CHG  CYL 

;YES  SEL  NEXT  DRIVE 

;RP04/05  CURRENT  CHG  CYL 

;YES  SEL  NEXT  DRIVE 

;RP04/05  CURRENT  CHG  CYL 

;YES  SEL  NEXT  DRIVE 

;YES  -  FOUND  A  SPOT  RTN  *3 

.•RESET  THE  AC'S 

;EXIT 

;GET  THE  NEXT  CYL  VALUE 


.•SETUP?? 
;SAVE  IT 
.•LOOK  AT 


THIS  ENTRY  IN  TABLE 


L 


L 
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SEQ  0166 


DC 
DC 


3419 
3A20 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
^430 
5431 
f43 


4f**»»*»*****»t »♦♦*♦♦*♦♦♦♦♦»♦#»♦♦♦» t **♦•♦*♦♦♦♦♦#*♦*♦*#♦♦♦♦♦»• ♦♦♦♦♦•♦♦• 

*LOSIDE  —  ROUTINE  TO  SELECT  A  REF  CYL-1  FROM  THE  "INTTAB" 

*  DEFINED  TABLE 

*  RTN  +1  IF  AT  END  OF  TABLE 

*  RTN  +2  IF  REF  CYL-1  IS  FOUND 

4f»»» »♦»»»♦»♦ ♦»♦♦♦♦♦**♦♦♦♦♦♦♦♦*♦♦♦♦**»♦»♦♦♦♦♦♦♦♦♦♦♦♦♦♦»*♦♦*♦*♦*♦***♦*♦ 


032731 
032732 
03273: 


261  17  0 
261  17  0 
402  00  0 
550  02  0 


00  000001 
00  000002 


00  077576 
17  77777t 
00  032721 


LOSIDE:  PUT 
PUT 
SETZM 

L0SID1:  HRRZ 
JUHPE 
CAME 
AOJA 
SUBI 
MOVEM 
HRLM 
AOS 

L0SID2:  JRST 


AC1 

AC2 

AC1 

AC2JNTTAB(AC1) 

AC2.L0SID2 

AC2,.CYLIND 

AC1A0SID1 

AC2,2 

AC2,.CYLIND 

AC2.DSKAD 

-2(^) 

INTAX 


.-SAVE  SOME  AC'S 


GET  ENTRY 
NONE  THERE! 
CYL  OK? 
NO  -  LOOK  AT 
POINT  TO  THE 
UPDATE  CYL  # 
AND  AGAIN 
SET  TO  EXIT 
EXIT 


NEXT   ENTRY 
REF   CYL-1 


*2 


DDRPI  - 

RHlO/R^ 

DDRPI2 

^AC 

3A39 

3A40 

3A41 

3AA2 

3AA3 

3A44 

3A45 

3A46 

3A47 

3A48 

3449 

3450 

3451 

3452 

3453 

3454 

3455 

3456 

3457 

032745 

3^58 

3459 

032745 

3460 

032746 

3461 

032747 

3462 

3^63 

3^64 

3465 

3466 

032750 

3467 

0312751 

3468 

032752 

3469 

3470 

032753 

3471 

032754 

3472 

032755 

3473 

3474 

032756 

3475 

032757 

3476 

032760 

3477 

03:2761 

3478 

3479 

032762 

3480 

03276? 

RH10/RH20  -  RP04/05/06  - 
28-Aug-85  15:51 
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SUBTTL   FAST  RANDOM  DISK  ADDRESS  DATA  TRANSFER  TEST  -  FRTEST  (TEST  #7) 
XUST 

LliT 


SEO  0167 


260  17  0  00  046276 
015000  001500 
000000  000000 


476  CO  0  00  077633 
476  OC  0  00  077625 
476  OC  0  00  000013 

260  17  0  00  045650 
254  00  0  00  031772 
254  00  G  00  03303'. 

261  17  0  00  000013 
261  17  0  00  100730 
261  17  0  00  100731 
261  17  0  00  100732 

200  01  0  00  066732 
260  17  0  00  053714 


DD 
DD 


;# 


•  FRTEST  —  FAST  RANDOM  PARAMETER  TRANSFER  TEST 


;#* 


COMMENT  $ 


THIS  TEST  IS  DESIGNED  TO  RANDOMLY  SELECT  DISK  AREAS  ^OR  RANDOM 
SELECTED  DATA  PATTERNS  TO  KEEP  THE  POSITIONER  IN  MAXIMUM  MOTION. 
DATA  TRANSFER  SIZE  CAN  BE  LIMITED  TO  ONE  SECTOR  If   PROGRAM  Syi^CH 
••QNESEC"  IS  SET.  SETTING  THIS  SylTCH  yiLL  KEEP  THE  POSITIONER  MDVING. 

S 

XLIST 


FRTEST:  TINT 
LIST 


15000.1500.0.0,0 


GO     SETUP 

XyD     15000.1500 

<0>B17!<0>B23!<0>B24 


SALL 


SETOM 
SETOM 
SETOM 

FRTSTO:  GO 

JRST 
JRST 

PUT 
PUT 
PUT 
PUT 

MOVE 
PARAMS 


LOCKFG 
IDELF6 
DRIVE 

SELECT 

NODRIVE 

FRTST3 

DRIVE 
.CYLIN 
SURF 
.SECT 


;INIT  THE  TEST  yiTH  PARAMETERS 

:RELIAB  HERAT  =  15000.  NORM. 
;MAX  #  TRACKS  IN  A  XFR  =  0 
.-SyiTCH  OVERIDES  -  "ALLADO"  =  0 
"ALLDRV  =0 


.•CHECK  FOR  yRITE  LOCKED  DRIVES 
.-INF  DRIVE 


=  1500 


.-SAVE  PARMS  FROM  SELECT 


AC'.[NyBAS!RSEC!RSUR!RCYLlRSIZ!RSIZA] 

.•GENERATE  DISK  ADDR  &  XFR  SIZE 


'it' 


L- 


DDRPI  - 

RHIO/RH 

20  -  RPOA/05/06  -  RELIA 

BILITY  TEST  VERSI 

ON  0.15  MACRO 

D0RPI2 

MAC 

28-Aug-85  15:51 

FAST  RANDOM  DISK  ADDRESS  DATA 

3A81 
3A82 

03276^ 

261  17  0  00  000013 

PUT 

DRIVE 

3483 

032765 

262  17  0  00  0777AA 

GET 

SDRVA# 

3A8A 

032766 

261  17  0  00  000012 

PUT 

MBCN 

3A85 

0327<^-' 

262  17  0  00  077757 

GET 

SMBCA« 

3A86 

0327. 

^61  17  0  00  000010 

PUT 

CSBP 

3A87 

032771 

c:2  17  0  00  0777A2 

GET 

SCSBPA* 

3A88 

032772 

261  17  0  00  000011 

PUT 

DSBP 

3A89 

032773 

262  17  0  00  0777A6 

GET 

SDSBPA# 

3A90 

03277A 

261  17  0  00  100732 

PUT 

.SECT 

3A91 

032775 

262  17  0  00  077767 

GET 

SSECA# 

3A92 

032776 

261  17  0  00  100731 

PUT 

.Si)l^f 

3A93 

032777 

262  17  0  00  077773 

GET 

SSURA# 

3A9A 

033000 

261  17  0  00  100730 

PUT 

.CYLIND 

3A95 

033001 

26?  17  0  00  077776 

GET 

SVCYLA* 

3A96 

033002 

26^  17  0  00  100733 

PUT 

.SIZE 

3A97 

033003 

262  17  0  00  077771 

GET 

SS12A0 

3A98 

03300A 

25A  00  0  00  033007 

JRST 

Fr^STA 

3A99 

3500 

033005 

201  01  0  00  100000 
260  17  0  00  05371 A 

FRTST5:  MOVEI 

ACl.NWbAS 

3501 

033006 

PARAMS 

3502 

033007 

200  01  0  00  030022 

FRTSTA:  MOVE 

ACl.RANDeS 

3503 

033010 

A05  01  0  00  000017 

AND! 

AC1J7 

350A 

03301 1 

336  OC  f^  00  000001 

SK I PN 

AC1 

3505 

033012 

350  00  0  00  000001 

AOS 

AC1 

3506 

03301 3 

301  01  0  00  000013 

CAIL 

AC1,<SP-DPATN> 

3507 

C3301A 

25A  00  0  00  033005 

JRST 

FRTST5 

3508 

03301 5 

200  00  0  01  053302 

MOVE 

DPA TN ( AC 1) 

3509 

033016 

202  00  0  00  077562 

MOVEM 

DATARG 

3510 

033017 

20?  01  0  00  10073A 

MOVEM 

ACU.PATN 

3511 

033020 

2ui  01  0  00  077762 

MOVEM 

ACnSPATNA* 

3512 

033021 

261  17  0  00  030022 

PUT 

RANDBS 

3513 

033022 

262  17  0  00  07776A 

GET 

SRANA# 

351A 
3515 
3516 

033023 

001  02  1  00  077562 

WRITE 

aDATARG 

03302A 

262  17  0  00  ^00732 

GET 

.SECT 

3517 

033025 

262  17  0  00  .00731 

GET 

.SURF 

3518 

033026 

262  17  0  00  100730 

GET 

.CYLIN 

3519 

033027 

262  17  0  00  000013 

GET 

DRIVE 

3520 

033030 

33A  00  0  00  000000 

SKI  PA 

SEC  0168 


DC 

DC 


;SAVE   THIS  SET  OF   PARAMETERS 


:GET  RANDOM  BASE  # 

.-SELECTED  PATTERN  0  ?? 
;VES  -  MAKE  IT  PATTERN  1 
.•VALID  PATTERN  #? 
;N0  -  TRY  AGAIN 
;YES  -  GET  THE  NAME 
;SAVE  IT 

;AND  AGAIN 


.•WRITE  ON  SELECTED  AREA  "A" 
.•RESTORE  PARM  FROM  SELECT 


J 


DDRPl  - 

RH10/RH20  -  RP04/05/06  -  Rl 

DDRPI2 

MAC 

28-Aug-85  15:51 

3521 
3522 

033031 

476  00  0  00  000013 

3523 

033032 

260  17  0  00  043650 

3524 

033033 

254  00  0  00  031772 

3525 
3526 
3527 

033034 

254  00  0  00  033031 

033035 

261  17  0  00  000013 

3528 

033036 

261  17  0  00  100730 

3529 

033037 

261  17  0  00  100731 

3530 
3531 
3532 

033040 

261  17  0  00  100732 

033041 

200  01  0  00  066732 

3533 

033042 

260  17  0  00  053714 

353A 

033043 

200  00  0  00  100730 

3535 

033044 

274  00  0  00  077776 

3536 

033045 

217  00  0  00  000000 

3537 

033046 

307  00  0  00  000003 

3538 

033047 

254  CO  0  00  0313041 

3539 

033050 

261  17  0  00  000013 

3540 

033051 

262  17  0  00  077745 

3541 

033052 

261  17  0  00  000012 

3542 

033053 

262  17  0  00  077760 

3543 

03131054 

261  17  0  00  000010 

3544 

0331055 

262  17  0  00  077743 

3545 

033056 

261  17  0  00  000011 

3546 

033057 

262  17  0  00  077747 

3547 

03  3060 

261  17  0  00  100732 

3548 

033061 

262  17  0  00  077770 

3549 

033062 

261  17  0  00  100731 

3550 

033063 

26?  17  0  00  077774 

31551 

033064 

2e!  17  0  00  1007310 

3552 

033065 

262  17  0  00  077777 

3553 

033066 

261  17  0  00  100733 

3554 

033067 

262  :7  0  00  077772 

3555 

033070 

254  00  0  00  033073 

ST  VERSI 

[ABILITY  TE 

ON  0.13 

MACRO  X53B(124 

FAST  RANDOM  DISK  ADDRESS 

DATA  TRANSFER 

FRTST3: 

SETOM 

DRIVE 

FRTSTl: 

GO 

SELECT 

JRST 

NODRIVE 

JRST 

FRTST3 

PUT 

DRIVE 

PUT 

.CYLIN 

PUT 

.SURF 

PUT 

.SECT 

FRTSTA: 

MOVE 

ACUCNWBASIRSECiRSURIR 

PARAMS 

MOVE 

.CYLIND 

SUB 

SVCYLA 

MOVMS 

CAIG 

3 

JRST 

FRTSTA 

PUT 

DRIVE 

GET 

SDRVB4f 

PUT 

MBCN 

GET 

SMBCBf 

PUT 

CS8P 

GET 

SCSBPB* 

PUT 

DS8P 

GET 

SDSBPB# 

PUT 

.SECT 

GET 

SSECB# 

PUT 

.SURF 

GET 

SSURB4f 

PUT 

.CYLIND 

GET 

SVCYLB# 

PUT 

.SIZE 

GET 

SSIZB* 

JRST 

FRTST7 

L_ 


TEST  -  FRTEST  (TEST  V) 


91 


SEO  0169 


DD 
DD 


;SAVE  PARHS  FROM  SELECT 


;GET  SELECTED  :YLINDER  * 
;CALC  DIFF  FROM  1ST  XFR 

;T00  CLOSE? 

;YES  -  GET  ANOTHER  DISK  AREA 

;SAVE  THIS  SET  OF  PARAMETERS 
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;6ET  RANDOM  BASE  M 


SEQ  0170 


DDI 

dd; 


3556 

3557 

033071 

201 

01  0  00  100000 

FRTST6:  MOVEI 

AC1,NU6AS 

3558 

033072 

260 

17  0  00  053714 

PARAMS 

3559 

033073 

200  01  0  00  030022 

FRTST7:  MOVE 

AC1,RANDBS 

3560 

033074 

405 

01  0  00  000017 

AND  I 

AC1J7 

3561 

033075 

336  00  0  00  000001 

SK I PN 

AC1 

3562 

033076 

350  00  0  00  000001 

AOS 

AC1 

3563 

033077 

301 

01  0  00  000013 

CAIL 

AC1,<SP-DPATN> 

3564 

033100 

254 

00  0  00  033071 

JRST 

FRTST6 

3565 

033101 

200 

00  0  01  053302 

MOVE 

DPATN(ACI) 

3566 

033102 

202  00  0  00  077562 

MOVEM 

DATAR6 

3567 

033103 

202 

01  0  00  100734 

MOVEM 

ACU.PATN 

3568 

033(04 

202 

01  0  00  077763 

MOVEM 

AC1,SPATNB# 

3569 

033105 

261 

17  0  00  030022 

PUT 

RANDBS 

3570 

033106 

262 

17  0  00  077765 

GET 

SRANB# 

3571 
3572 
3573 

0331 07 

001 

02  -  00  077562 

WRITE 

aDATARG 

033110 

261 

17  0  00  077744 

FRTST2:  PUT 

SDRVA 

3574 

033111 

262 

17  0  00  000013 

GET 

DRIVE 

3575 

033112 

261 

17  0  00  077757 

PUT 

SMBCA 

3576 

033113 

262 

17  0  00  000012 

GET 

MBCN 

3577 

033114 

261 

17  0  00  077742 

f-UT 

SCSBPA 

3578 

033115 

262 

17  0  00  000010 

GET 

CS8P 

3579 

033116 

261 

17  0  00  077746 

PUT 

SDSBPA 

3580 

033117 

262 

17  0  00  000011 

GET 

DSBP 

3581 

033120 

261 

17  0  00  077767 

PUT 

SSECA 

3582 

033121 

262 

17  0  00  100732 

GET 

.SECT 

3583 

033122 

261 

17  0  00  077773 

PUT 

SSURA 

3584 

033123 

262 

17  0  00  100731 

GET 

.SURF 

3585 

033124 

261 

17  0  00  077776 

PUT 

SVCYLA 

3586 

033125 

2oi 

17  0  00  100730 

GET 

.CYLIND 

3587 

033126 

261 

17  0  00  077771 

PUT 

SSIZA 

3588 

033127 

262 

17  0  00  100733 

GET 

.SIZE 

3589 

033130 

261 

17  0  00  077764 

PUT 

SRANA 

3590 

033131 

262 

17  0  00  030022 

GET 

RANDBS 

3591 

033132 

261 

17  0  00  077762 

PUT 

SPATNA 

3592 

033133 

262 

17  0  00  100734 

GET 

.PATN 

3593 

033134 

200  01  0  00  100734 

MOVE 

AC1,.PATN 

3594 

033135 

200  00  0  01  053302 

MOVE 

DPATN(ACI) 

3595 

033136 

202   00  0  00  077562 

MOVEM 

DATARG 

3596 

033137 

001 

00  1  00  077562 

READ 

aDATARG 

;PATTERN  0?? 

;MAKE  IT  PATTERN  1  (PREVENTS  A  PROBLEM) 

.-VALID  PATTERN  *? 

;N0  -  TRY  AGAIN 

;YES  -  GET  NAME 

;SAVE  IT 

;AND  AGAIN 


; ISSUE  WRITE  TO  AREA  "B" 
; RESET  XFR  "A"  PARAMETERS 


GET  THE  DATA  PATTERN  # 
AND  THE  NAME  OF  THE  DATA 
SAVE  IT  FOR  THE  READ  COMMAND 
READ/VERIFY  XFR  "A"  DATA 


_.J 
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SEu  0171 


DDI 
DDI 


3597 

3598 

033140 

260  17  0  00  052570 

GO 

QFIN 

3599 

033141 

260  17  0  00  053004 

GO 

lOWAIT 

3600 

033142 

261  17  0  00  077745 

PUT 

SDRVB 

3601 

033143 

262  17  0  00  077744 

GET 

SDRVA 

3602 

033144 

261  17  0  00  077760 

PUT 

SMBCB 

3603 

033145 

262  17  0  00  077757 

GET 

SMBCA 

3604 

033146 

261  17  0  00  077743 

PUT 

SCSBPB 

3605 

033147 

262  17  0  00  077742 

GET 

SCSBPA 

3606 

033150 

261  17  0  00  077747 

PUT 

SDSBPB 

3607 

033151 

262  17  0  00  077746 

GET 

SDSBPA 

3608 

033152 

261  17  0  00  077770 

PUT 

SSECB 

3609 

033153 

262  17  0  00  077767 

GET 

SSECA 

3610 

033154 

261  17  0  00  077774 

PUT 

SSURB 

3611 

033155 

262  17  0  00  077773 

GET 

SSURA 

3612 

0331 56 

261   17  0  00  077777 

PUT 

SVCYLB 

3613 

033157 

262  17  0  00  077776 

GET 

SVCYLA 

3614 

033160 

261  17  0  00  077772 

PUT 

SSIZB 

3615 

033161 

262  17  0  00  077771 

GET 

SSIZA 

3616 

033162 

261  17  0  00  077765 

PUT 

SRANB 

3617 

033163 

262  17  0  00  077764 

GET 

SRANA 

3618 

033164 

261  17  0  00  077763 

PUT 

SPATNB 

3619 
3620 
3621 

033165 

262  17  0  00  077762 

GET 

SPATNA 

033166 

262  17  0  00  100732 

GET 

.SECT 

3622 

033167 

262  17  0  00  100731 

GET 

.SURF 

3623 

033170 

262  17  0  00  100730 

GET 

.CYLIN 

3624 
3625 
3626 

033171 

262  17  0  00  000013 

GET 

DRIVE 

033172 

037  10  0  00  000002 

SWITCH 

3627 
3628 
3629 

033173 

3oM5  0  00  033032 

REPTLP 

FRTST1 

033174 

476  00  0  00  100006 

FRTSTX:   SETOM 

TINTFG 

3630 

033175 

263  17  0  00  000000 

RTN 

; ISSUE  THE  REMAINDER  OF  QUEUED  CMDS 
;WAIT  TILL  BOTH  READS  COMPLETE 
;MOVE  XFR  'TB"  PARAMETERS 
;INTO  XFR  "A"  STORAGE 


.-RESTORE  SELECT  PARMS 


.•SELECT  NEW  XFR  'B"  PARAMETERS 
;AND  EXIT  THIS  TEST 


mfmHti-mitmtmmi 


J 


L_ 


OORPl  - 
DDRP12 

3631 

3632 

3633 

363A 

3635 

3636 

3637 

3638 

3639 

36A0 

364 1 

36A2 

36A3 

364A 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 

3662 

3663 

3664 

3665 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 

3679 

3680 

3681 

3682 

3683 

3684 

3685 
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033176 

033176 
033177 
033200 


033201 
033202 
033203 
033204 

033205 
033206 
033207 
033210 
033211 
033212 
033213 
033214 
033215 
033216 
033217 
033220 
033221 
033222 
033223 
033224 
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FORMATTER  &  VERIFIER  FOR  EITHER  16  OR  18  BIT  MODE  -  FORMAT  TTEST  *10) 

SUBTTL   FORMATTER  S  VERIFIER  FOR  EITHER  16  OR  18  BIT  MODE  -  FORMAT  (TEST  0^O) 
XLIST 

LIST 

•  /If***********  *****♦♦•*♦•*•***♦*******♦♦**♦*♦♦*♦********♦*♦****♦♦♦♦*♦*♦* 
;♦  FORMAT  —  DISK  PACK  FORMATTER/VERIFIER 

;/|f********************************************************************* 


SEQ  0172 


DDI 
DDI 


260  17  0  00  046276 
000001  000001 
000000  000000 


336  00  0  00  030516 
254  00  0  00  033205 
037  04  0  00  066733 
254  00  0  00  033727 


476  00 
402  00 
402  00 
402  00 
402  00 
402  00 
476  00 
402  00 
402  00 
402  00 
402  00 
332  00 
254  00 
037  04 
037  01 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


077633 
077705 
077612 
077513 
100020 
077606 
077734 
077560 
077660 
077573 
077607 
077663 
033225 
066741 


COMMENT  $ 


THIS  ROUTINE  PROVIDES  FACILITIES  FOR  FORMATTING/VERIFYING  ^ 
DISK  PACKS  IN  EITHER  16  BIT  (PDP-11  MODE)  OR  18  BIT  (PDPD-10  MODE) 
FORMAT. 

OPTIONS  ALL  THE  OPERATOR  TO  PROCESS  ENTIRE  DISK  PACKS  OR  JUST  A 
SECTION  OF  A  DISK  PACK.  FORMATTING/VERIFYING  IS  DONE  ON  A  TRACK 
BY  TRACK  BASIS  (IE.  AN  INDIVIDUAL  SECTOR  CAN'T  BE  PROCESSED,  THE 
ENTIRE  TRACK  MUST  BE  PROCESSED). 

$ 

XLIST 


FORMAT: 

TINT    1J, 0,0,0 

LIST 

60     SETUP 

XUD     1,1 

<0>B17!<0>B23!<0>B24 

SALL 


\ 


SKIPN 
JRST 
PMSGF 
JRST 

SETOM 

SET2M 

SETZM 

SET2M 

SETZM 

SETZM 

SETOM 

SETZM 

SETZM 

SETZM 

SETZM 

SKIPE 

JRST 

PMSGF 

TTIYES 

JRST 


INIT  THE  TEST  WITH  PARAMETERS 
RELIAB  ITERAT  =  1,  NORM.  =  1 
MAX  »   TRACKS  IN  A  XFR  =  0 
SWITCH  OVERIDES  -  "ALLADR"  =  0 
"ALLDRV"  =  0 


MONTYP  ; UNDER  TOPS-20  MONITOR 

•"^3  ;N0   _ 

OCAN'T  RUN  FORMAT  UNDER  TOPS-20!*> 
FRMTEX  ;EXIT  TEST 


LOCKFG 

RAN6EF 

FMTIST* 

AUTOV# 

VONLYF* 

FACYL# 

SAVDR/r 

DAINT/r 

ONESURf 

DOALL* 

FASUR* 

PAKINF 

<*FORMAT  A  PACK?> 

FRVERC 


DO  NOT  SELECT  A  WRT  LOCKED  DRV 

CLEAR  "RANGING"  FLAG 

CLEAR  FORMAT  FLAG 

CLEAR  AUTOMATIC  VERIFY  FLAG 

CLEAR  VERIFY  ONLY  FLAG 


;INIT  SAVE  TEST  DRIVE  LOC 


.-DOING  INIT  SCRIPT  ? 
;YES 

;Y  OR  N 

;N0  -  ASK  IF  VERIFY  DESIRED 


033225  037  04  0  00  066744 


PMSGF   <^CYLINDER  000  SURFACE  DO  CAN  NOT  HAVE  ANY  "HARD"  ERRORS!'^''> 


L 
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SEQ  0173 


DDI 
DDI 


3686 
3687 
3688 
3689 

033226 

476  GO  0  00  077613 

FRMT: 

SETOM 

FMTFLG# 

;SET  FORMAT  TEST  FLAG 

033227 

336  00  0  00  030037 

SKIPN 

USER 

;IN  USER  MODE? 

3690 

033230 

332  00  0  00  077663 

SKIPE 

PAKINF 

;DOING  PAK  INIT  SCRIPT? 

3691 
3692 
3693 

033231 

254  00  0  00  033235 

JRST 

FRMTO 

;YES  ASSUME  18  BIT  MODE 

033232 

201  01  0  00  053600 

MOVE  I 

AC1-.HED11 

<*16  BIT  MODE  (11 

:A5SUME  16  BIT  MODE 
FORMAT) ?> 

369A 

033233 

037  04  0  00  066756 

PMS6F 

3695 
3696 
3697 

033234 

037  01  0  00  000003 

TTIYES 

;Y  OR  N 

033235 

201  01  0  00  053572 

FRMTO: 

MOVE  I 

AC1,. MEDIO 

;N0  -  USE  18  BIT  MODE 

3698 
3699 
3700 

033236 

202  01  0  00  077562 

MOVEM 

ACKDATARG 

;SAVE  PATTERN  DESIRED 

033237 

402  00  0  00  077617 

SETZM 

FVERFG* 

;CLEAR  VERIFY  AFTER  FORMAT  FLAG 

3701 

033240 

332  00  0  00  077663 

SKIPE 

PAKINF 

; DOING  INIT  SCRIPT  ? 

3702 

033241 

254  00  0  00  033252 

JRST 

FRMT1A 

;YES  START  FORMATTING 

3703 

033242 

332  00  0  00  100020 

SKIPE 

VONLYF 

; VERIFY  ONLY? 

370A 

033243 

254  00  0  00  033247 

JRST 

FRMT1 

;YES 

3705 

033244 

037  04  0  00  066763 

PMS6F 

<*VERIFY  AFTER  FORMATTING?> 

3706 

033245 

037  02  0  00  000003; 

TTINO 

3707 
3708 
3709 

033246 

476  00  0  00  077617 

SETOM 

FVERFG 

;YES 

033247 

037  04  0  00  066770 

FRMT1 : 

PMSGF 

<*PROCESS  ENTIRE 

PACK  FOR  ALL  SELECTED  DRIVES?> 

3710 

033250 

037  01  0  00  000003 

TTIYES 

3711 

033251 

254  00  0  00  033511 

JRST 

FRMT5B 

;N0  -  JUST  AN  AREA 

3712 

033252 

476  00  0  00  077606 

FRMT1A: 

SETOM 

FACYL 

;YES  -  SET  ALL  CYLINDER  FLAG 

3713 

033253 

476  00  0  00  077573 

SETOM 

DOALL 

;SET  DO  ALL  FLAG 

3714 

033254 

476  00  0  00  077607 

SETOM 

FASUR 

;AND  ALL  SURFACE  FLAG 

3715 
3716 
3717 

033255 

254  00  0  00  033452 

JRST 

FRMT4H 

; PROCESS  THE  WHOLE  PACK 

033256 

402  00  0  00  077705 

FRMT2: 

SETZM 

RANGE F 

3718 

033257 

037  04  0  00  067000 

PMSGF 

<*PROCESS  A  RANGE 

OF  PACK  AREAS  ON  > 

3719 

033260 

260  17  0  00  054562 

GO 

PNTDRF 

3720 

033261 

037  02  0  00  000003 

TTINO 

3721 

033262 

476  00  0  00  077705 

SETOM 

RANGE F 

;YES  -  SET  THE  FLAG 

3722 

033263 

402  00  0  00  077606 

SETZM 

FACYL 

3723 

033264 

402  00  0  00  077607 

SETZM 

FASUR 

3724 

033265 

402  00  0  00  077660 

SETZM 

ONESUR 

3725 

033266 

402  00  0  00  077723 

SETZM 

RHCYL 

3726 

033267 

402  00  0  00  077725 

SETZM 

RLCYL 

3727 

033270 

402  00  0  00  077724 

SETZM 

RHSUR 

3728 

033^71 

402  00  0  00  07772t 

SETZM 

RLSUR 

3729 

033272 

332  00  0  00  077705 

SKIPE 

RANGE F 

;RANGIN6?? 

3730 

033273 

0:7  02  0  00  067006 

PMS6 

<^RANGING...**> 

DDRPI  - 
DDRP12 

3731 

3732 

3733 

373A 

3735 

3736 

3737 

3738 

3739 

37A0 

37A1 

37A2 

37A3 

37AA 

37A5 

37A6 

37A7 

37A8 

37A9 

3750 

3751 

3752 

3753 

375A 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 


RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  3:538(1242)  15:51  28-Aug-85  Paae  47 
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SEQ  01 7A 


DDI 
DDI 


03327A 
033275 
033276 
033277 
033300 
033301 
033302 

033303 
03330A 
033305 
033306 
033307 
033310 
033311 
033312 
033313 
03331 A 
033315 
033316 

033317 
033320 
033321 
033322 
033323 
03332A 

033325 
033326 
033327 
033330 


336  00 
25A  00 
332  00 
25A  00 
037  OA 
25A  00 
037  OA 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


077705 
033352 
077725 
033302 
06701 1 
033303 
06701 5 


037  05  0 
25A  00  0 


332  00 
313  00 
25A  00 
336  00 
25A  00 
332  00 
25A  00 
661  00 
202  00 
25A  00 

550  01 
315  00 
25A  00 
202  00 
A76  00 
25A  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000003 
00  033331 
00  030510 
11  000026 
00  033360 
00  077705 
00  033325 
00  077725 
00  033317 
00  AOOOOO 
00  0/7725 
00  033302 


0  00  077725 
0  00  000001 
0  00  033356 
0  00  077723 
0  00  077560 
0  00  03336A 


20?  00  0  00  077723 
cK)i  00  0  00  077725 
476  00  0  00  077560 
25;  00  0  00  03336A 


FRMT3: 


FRMT3S; 
FRMT3A; 


FRMT3B; 


FRMT3C 


SKIPN 

JRST 

SKIPE 

JRST 

PMS6F 

JRST 

PMSGF 

TTICNV 

JRST 

SKIPE 

CAMLE 

JRST 

SKIPN 

JRST 

SKIPE 

JRST 

TLO 

MOVEM 

JRST 

HRR2 

CAMGE 

JRST 

MOVEM 

SETOM 

JRST 

MOVEM 
MOVEM 
SETOM 
JRST 


RANGE F 
FRMT3E 
RLCYL 
FRMT3! 


<*TYPE  START  CYLINDER  #> 

FRMT3A 

<*TYPE  STOP  CYLINDER  lt> 


FRMT3D 

TTNBRF 

.MAXCY(DSBP) 

FRMT3G 

RANGE F 

FRMT3C 

RLCYL 

FRMT3B 

(1B0) 

RLCYL 

FRMT3S 

AC1, RLCYL 

AC0,AC1 

FRMT3F 

ACO^RHCYL 

DAINT 

FRMTA 

RHCYL 
RLCYL 
DAINT 
FRMTA 


.-PROCESS  A  RANGE? 

;N0 

;HAVE  LOW  CYL   YET? 

;YES  -  GET  HIGH  CYL 


GET  CYL  # 

ERROR  DETECTED 

ANY  INPUT? 

CYL  #  OK? 

NO  -  ASK  AGAIN 

RANGE  WANTED? 

NO 

HAVE  LOW  CYL? 

YES  -  MUST  BE  HIGH  CYL  ft 

SET  INDICATOR  BIT 

SAVE  "START"  C^L  # 

GET  STOP  CYL  # 


GET  LOW  CYL  VALUE 

STOP  CYL  GT  OR  =  START  CYL? 

NO  -  ERROR 

SAVE  HIGH  CYL 

SET  INIT  FLAG 

PROCESS 

YES  -  SAVE  THE  "STOP"  CYL? 
SAVE  LOW  CYL 
SET  INIT  ADDR  FLAG 
;GET  SURFACE  M 


9 
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SEQ  0175 


DDI 
DDI 


3764 
3765 
5766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 


033331 
033332 
033333 
033334 
033335 
033336 
033337 
033340 
033341 
033342 
033343 
033344 
033345 
033346 
033347 
033350 
033351 

033352 
033353 
033354 
033355 

033356 
033357 
033360 
033361 
033362 
033363 


333  00 

254  00 
037  04 
254  00 
336  00 
302  00 
254  00 
037  00 
254  00 
302  00 
254  00 
402  00 
200  00 
202  00 
476  00 
476  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

11 

00 
00 
00 
00 


030225 
033335 
067021 
033727 
077705 
000101 
033360 
000003 
033331 
00001 5 
033360 
077725 
000026 
077723 
077560 
077606 
033364 


037  04  0  00  067026 
260  17  0  00  054562 
037  04  0  00  067035 
254  00  0  00  033303 


037  04 
254  00 
037  04 
200  00 
037  16 
254  00 


0  00  067040 
0  00  033274 
0  00  067050 
0  11  000026 
0  00  000003 
0  00  033274 


FRMT3D:  SKIPLE 
JRST 
PMSGF 
JRST 
SKIPN 
CAIE 
JRST 
TTICHR 
JRST 
CAIE 
JRST 
SETZM 
MOVE 
MOVEM 
SETOM 
SETOM 
JRST 

FRMT3E:  PMSGF 
GO 

PMSGF 
JRST 

FRMT3F:  PMSGF 
JRST 

FRMT3G:  PMSGF 
MOVE 
PNTOCS 
JRST 


$TWCNT 

<*N0  OPR  RESPONSE 

FRMTEX 

RANGE F 

*  'A'  * 

FRMT3G 

FRMT3D 

15 

FRMT3G 

RLCYL 

ACO,.MAXCY(DSBP) 

ACO,RHCYL 

DAINT 

FACYL 

FRMT4 


;ANY  INPUT? 
•YES  -  ASK  AGAIN 
ABORTING'^> 
;EXIT 
.-RANGING? 
;ALL  CYLINDERS? 
;N0  -  ASK  AGAIN 
;NOW  WAIT  FOR  A  <CR> 
; ERROR 
;<CR>? 
;N0 

;INIT  LOW  CYL 
;GET  MAX  CYL 
;SAVE  HIGH  CYL 
;SET  INIT  ADDR  FLAG 
;SET  ALL  CYL  FLAG 
;GET  SURFACE  ff 


<*TYPE  CYLINDER  M   OR  "A"  FOR  ALL  FOR  > 

PNTDRF 

<*CYLINDER  #  > 

FRMT3A  ;GET  IT 

<*?STOP  CYL  M   CAN'T  BE  LOWER  THAN  START  CYL  #!*> 

FRMT3 

<*?CYLINDER  PARAMETER  ERROR!  MAX  CYL  #  =  > 

.MAXCY(DSBP) 

FRMT3 


.„..J 


L 
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SEQ  0176 


DDI 
DDI 


3794 
3795 

033364 

336  00  0  00  077705 

FRMT4: 

SKIPN 

RANGE F 

; RANGING? 

3796 

033365 

254  00  0  00  033443 

JRST 

FRMT4E 

;N0 

3797 

033366 

332  00  0  00  077726 

SKIPE 

RLSUR 

;YES  -  HAVE  LOW  SURFACE  YET? 

3798 

033367 

254  00  0  00  033372 

JRST 

FRMT4S 

;YES  -  GET  HIGH  SURFACE 

3799 

033370 

037  04  0  00  067057 

PMSGF 

<*TYPE  START  SURFACE 

*> 

3800 

033371 

254  00  0  00  033373 

JRST 

FRMT4A 

3801 
3802 
3803 

033372 

037  04  0  00  067063 

FRMT4S: 

PMSGF 

<*TYPE  STOP  SURFACE 

n> 

033373 

037  05  0  00  000003 

FRMT4A: 

TTICNV 

;GET  THE  NUMBER 

3804 

033374 

254  00  0  00  033425 

JRST 

FRMT4D 

; ERROR 

3805 

033375 

332  00  0  00  030510 

SKIPE 

TTN8RF 

;ANY  INPUT? 

3806 

033376 

313  00  0  00  101164 

CAMLE 

MAXSUR 

;T00  HIGH? 

3807 

033377 

254  00  0  00  033447 

JRST 

FRMT4G 

;YES  -  ASK  AGAIN 

3808 

033400 

336  00  0  00  077705 

SKIPN 

RANGE F 

: RANGING? 

3809 

033401 

254  00  0  00  033420 

JRST 

FRMT4C 

;N0 

3810 

033402 

332  00  0  00  077726 

SKIPE 

RLSUR 

;HAVE  START  SURFACE  HI 

3811 

033403 

254  00  0  00  033410 

JRST 

FRMT4B 

;YES 

3812 

033404 

661  00  0  00  400000 

TLO 

(ISO) 

;SET  INDICATOR  BIT 

3813 

033405 

202  00  0  00  077726 

MOVEM 

RLSUR 

;SAVE  IT 

3814 

033406 

202  00  0  00  100731 

MOVEM 

.SURF 

:AND  AGAIN 

3815 
3816 
3817 

033407 

254  00  0  00  033372 

JRST 

FRMT4S 

;GET  STOP  SURFACE  n 

033410 

550  01  0  00  077726 

FRMT4B: 

HRRZ 

AC1, RLSUR 

;GET  LOW  SURF 

3818 

033411 

315  00  0  00  000001 

CAM6E 

AC0,AC1 

;STOP  CYL  GT  OR  =  START 

3819 

033412 

254  00  0  00  033443 

JRST 

FRMT4E 

;N0  ERROR 

3820 

033413 

202  00  0  00  077724 

MOVEM 

ACO^RHSUR 

;SAVE  SAVE  HIGH  SURF 

3821 

033414 

316  00  0  00  000001 

CAMN 

ACCACI 

;ARE  THEY  EQUAL 

3822 

033415 

476  00  0  00  077660 

SETOM 

ONESUR# 

;YES  SET  FLAG 

3823 

033416 

20?  13  0  00  077734 

MOVEM 

DRIVE, SAVDR 

;SAVE  CURRENT  DRIVE 

3824 
3825 
38^6 

033417 

ly-   00  0  00  033452 

JRST 

FRMT4H 

.•PROCESS 

033420 

202  00  0  00  077726 

FRMT4C: 

MOVEM 

ACO.RLSUR 

;SAVE  LOW  SURF 

3827 

033421 

202  00  0  00  077724 

MOVEM 

ACO,RHSUR 

;SAVE  HIGH  SURF 

3828 

033422 

476  00  C  00  077660 

SETOM 

ONESUR 

3829 

033423 

202  13  0  00  077734 

MOVEM 

DRIVE, SAVDR 

;SAVE  CURRENT  TEST  DRIVE 

3830 
3831 
3832 

033424 

254  00  0  00  033452 

JRST 

FRMT4H 

033425 

333  00  0  00  0J0225 

FRMT4D: 

SKIPLE 

$TWCNT 

;ANY  OPR  INPUT? 

3833 

033426 

254  00  0  00  033431 

JRST 

.-^3 

;YES  ^ 

3834 

033427 

037  04  0  00  067067 

PMSGF 

<'^?  NO  OPR  RESPONSE 

-  ABORTING''> 

3835 

033430 

254  00  0  00  033727 

JRST 

FRMTEX 

;EXIT 

3836 

033<»31 

336  00  0  00  077705 

SKIPN 

RANGEF 

.•RANGING? 

3837 

033432 

302  00  0  00  000101 

CAIE 

••A" 

;OPR  TYPE  "A"  FOR  ALL  SURFACES? 

3838 

033433 

254  00  0  00  033447 

JRST 

FRMT4G 

;N0  -  ASK  AGAIN 

3839 

033434 

037  00  0  00  000003 

TTICHR 

;YES  -  NOW  WAIT  FOR  <CR> 

3840 

033435 

254  00  0  00  033425 

V   ■  '.-J  .■',  ^ 

JRST 

FRMT4D 

.•ERROR 

3841 

033436 

302  00  0  00  000015 

CAIE 

15 

;<CR>? 

3842 

033437 

254  00  0  00  033447 

JRST 

FRMT4G 

;N0  -  ASK  AGAIN 

3843 

033440 

202  13  0  00  077734 

MOVEM 

DRIVE, SAVDR 

;SAVE  TEST  DRIVE 

3844 

033441 

476  00  0  00  077607 

SETOM 

FASUR 

3845 

033442 

254  00  0  00  033452 

JRST 

FRMT4H 
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SEQ  0177 


DDI 
DDI 


3846 
3847 

033443 

037  04  0  00  067075 

FRMT4E: 

PMSGF 

<*SURFACE  #> 

3848 
3849 
3850 

033444 

254  00  0  00  033373 

JRST 

FRMT4A 

033445 

037  04  0  00  067077 

FRMT4F: 

PMSGF 

<*?STOP  SURFACE  M   CAN 

•T  BE  LOWER  THAN  START  SURFACE  Mi 

3851 
3852 
3853 

033446 

254  00  0  00  033450 

JRST 

.+2 

033447 

037  04  0  00  067110 

FRMT46: 

PMSGF 

<''?  SURFACE  PARAMETER 

ERROR 1> 

3854 

033450 

037  04  0  00  067115 

PMSGF 

<*MAX  SURFACE  ft  =  22 

(8)> 

3855 
3856 
3857 

033451 

254  00  0  00  033364 

JRST 

FRMT4 

033452 

332  00  0  00  077705 

FRMT4H: 

SKIPE 

RANGEF 

; RANGING? 

3858 

033453 

254  00  0  00  033474 

JRST 

FRMT5 

;YES  -  SKIP  CODE 

3859 

033454 

336  00  0  00  077607 

SKIPN 

FASUR 

;ALL  SURFACES? 

3860 

033455 

254  00  0  00  033474 

JRST 

FRMT5 

;N0 

3861 

033456 

476  00  0  00  077705 

SETOM 

RANGEF 

;YES  -  SETUP  A  RANGE  TO  FORMAT 

3862 

033457 

205  00  0  00  400000 

MOVSI 

(180) 

3863 

033460 

202  00  0  00  077726 

MOVEM 

RLSUR 

.-START  AT  SURF  0 

3864 

033461 

200  00  0  00  101164 

MOVE 

MAXSUR 

3865 

033462 

202  00  0  00  077724 

MOVEM 

RHSUR 

;STOP  AT  MAX  SURF. 

3866 

033463 

336  00  0  00  077606 

SKIPN 

FACYL 

;ALL  CYLINDERS  TOO? 

3867 

0313i464 

254  00  0  00  033472 

JRST 

FRMT4J 

;N0 

3868 

033465 

205  00  0  00  400000 

MOVSI 

(1B0) 

;YES 

3869 

03i3466 

202  00  0  00  077725 

MOVEM 

RLCYL 

.•START  AT  CYLINDER  0 

3870 

033467 

200  00  0  11  000026 

MOVE 

.MAXCY(DSBP) 

3871 

03347C 

202  00  0  00  077723 

MOVEM 

RHCYL 

.•STOP  AT  MAXIMUM  CYLINDER 

3872 
3873 
3874 

033471 

254  00  0  00  033474 

JRST 

FRMT5 

.•PROCESS 

033472 

200  00  0  00  077723 

FRMT4J: 

MOVE 

RHCYL 

;GET  THE  HIGH  CYL  ff 

3875 

033473 

20?  00  0  00  077725 

MOVEM 

RLCYL 

;COPY  IT 

L. 
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SEQ  0178 


DDI 
DDI 


3876 
3877 

033474 

332  00  0  00  100020 

FRMT5: 

SKIPE 

VONLYF                j 

VERIFY? 

3878 
3879 
3880 

033475 

254  00  0  00  033504 

JRST 

FRMT5A               ; 

YES 

033476 

260  17  0  00  044454 

60 

RUNTiM 

3881 

033477 

260  17  0  00  066122 

60 

.TAB 

033500 

037  04  0  00  067121 

PMS6F 

<F0RMATTIN6  STARTED  > 

3883 

033501 

336  00  0  00  077573 

SKIPN 

DOALL               ; 

D0IN6  WHOLE  PACK 

388A 

033502 

254  00  0  00  033602 

JRST 

FRMT5C               : 

•NO 

3885 
3886 
3887 

033503 

254  00  0  00  033511 

JRST 

FRMT5B               ; 

•YES 

033504 

260  17  0  00  044454 

FRMT5A: 

60 

RUNTIM 

3888 

033505 

260  17  0  00  066122 

60 

.TAB 

3889 

033506 

037  04  0  00  067125 

PMS6F 

<VERIFICATION  STARTED  > 

3890 

033507 

336  00  0  00  077573 

SKIPN 

DOALL 

■D0IN6  WHOLE  PACK 

3891 
3892 
3893 

033510 

254  00  0  00  033602 

JRST 

FRMT5C 

;N0 

033511 

260  17  0  00  045650 

FRMT5B: 

60 

SELECT 

;SELECT  A  DRIVE/AREA 

3894 

033512 

254  00  0  00  031772 

JRST 

NODRIVE 

3895 

033513 

254  00  0  00  033672 

JRST 

FRMT7 

;ALL  PROCESSED 

3896 

033514 

200  00  0  13  100747 

MOVE 

DSBTBL (DRIVE) 

;6ET  DRIVE  TABLE  STATUS 

3897 

033515 

603  00  0  00  000400 

fLNE 

(.FMT) 

;DRIVE  INITTED  FOR  FORMAT/VERIFY? 

3898 

033516 

254  00  0  00  033602 

JRST 

FRMT5C 

rYES  -  SKIP  CODE 

3899 

033517 

332  00  0  00  077573 

SKIPE 

DOALL 

;D0IN6  WHOLE  PACK 

3900 

033520 

254  00  0  00  033526 

JRST 

FRM5C 

;YES 

3901 

033521 

476  00  0  00  077753 

SETOM 

SEQADR 

;SEL  SEQ  ADDRESSIN6 

3902 

033522 

335  00  0  00  077734 

SKIP6E 

SAVDR 

;FIRST  SELECT 

3903 

033523 

254  00  0  00  033256 

JRST 

FRMT2 

;YES  6ET  INPUT  PARMS 

3904 

033524 

312  13  0  00  077734 

CAME 

DRIVE, SAVDR 

;N0  -  SELECTED  NEW  DRIVE  ? 

3905 

033525 

254  00  0  00  033256 

JRST 

FRMT2 

;YES  6ET  INPUT  PARMS 
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NO  -  DO  IT  NOW 

CLEAR  DELETION  WANTED 

NO  DELETION  WANTED 


SEO  0179 


DDI 
DDI 


3906 

3907 

033526 

200  00  0  11  000151 

FRM5C:  MOVE 

.DELPT(DSBP) 

3908 

033527 

621  00  0  00  AOOOOO 

TLZ 

(1B0) 

3909 

033530 

202  00  0  11  000151 

MOVEM 

.DELPT(DSBP) 

3910 

033531 

A02  00  0  00  000001 

SETZM 

AC1 

3911 

033532 

332  00  C  00  030037 

SKIPE 

USER 

3912 
3913 
391 A 

033533 

25A  00  0  00  0335A2 

JRST 

FRM5C2 

033534 

201  00  0  00  053572 

FRM5C1:  MOVEI 

.MEDIO 

3915 

033535 

205  01  0  00  110000 

MOVSI 

AC1,(DR0FF) 

3916 

033536 

312  00  0  00  077562 

CAME 

DATAR6 

3917 

033537 

A35  01  0  00  010000 

lORI 

AC1,FMT22 

3918 

0335AO 

260  17  0  00  0631 A7 

60 

LDRE6 

3919 
3920 
3921 

0335A1 

25A  00  0  00  03353A 

JRST 

FRM5C1 

0335A2 

200  00  0  13  1007A7 

FRM5C2:  MOVE 

DSBT8L( DRIVE) 

3922 

0335A3 

553  00  0  00  000001 

HRRZS 

AC1 

3923 

0335AA 

332  00  0  00  000001 

SKIPE 

AC1 

392A 

0335A5 

661  00  0  00  020000 

TLO 

(.FID 

3925 

0335A6 

336  00  0  00  000001 

SXIPN 

AC1 

3926 

0335A7 

621  00  0  00  020000 

TLZ 

(.FID 

3927 

033550 

621  00  0  00  010000 

TLZ 

(.VIR6) 

3928 

033551 

661  00  0  00  OOOAOO 

TLO 

(.FMT) 

3929 

033552 

202  00  0  13  1007A7 

MOVEM 

DSBT6L (DRIVE) 

3930 

033553 

603  00  0  00  020000 

TLNE 

(.FID 

3931 

03355A 

260  17  0  00  034022 

GO 

SETF11 

3932 

033555 

607  00  0  00  020000 

TLNN 

(.FID 

3933 

033556 

260  17  0  00  034006 

60 

SETF10 

393A 

033557 

332  00  0  00  077573 

SKIPE 

DOALL 

3935 

033560 

254  00  0  00  033562 

JRST 

.♦2 

3936 

033561 

2oJ  17  0  00  054562 

60 

PNTDRF 

3937 

033562 

037  00  0  00  030242 

PCRL 

3938 

033563 

336  00  0  00  077573 

SKIPN 

DOALL 

3939 

033564 

254  00  0  00  033573; 

JRST 

FRM5D 

39A0 

033565 

332  00  0  00  100020 

SKIPE 

VONLYF 

39A1 

033566 

254  00  0  00  033573 

JRST 

FRM5D 

39A2 

033567 

402  00  0  11  000152 

SETZM 

.BAT(DSBP) 

39A3 

033570 

205  00  0  11  000152 

MOVSI 

.BAT(DSBP) 

39AA 

033571 

541  00  0  11  000153 

HRRI 

.BAT^KDSBP) 

39A5 

033572 

251  00  0  11  000352 

BLT 

.BAT^200(DSBP) 

39A6 

033573 

200  00  0  11  000027 

FRM5D:  MOVE 

.TKSIZ(DSBP) 

39A7 

03357', 

200  01  0  11  000030 

MOVE 

AC1,.MXSEC(DSBP) 

39A8 

033575 

242  01  0  00  000001 

LSH 

AC1J 

39A9 

033576 

271  01  0  00  000002 

ADDI 

AC1,2 

3950 

033577 

270  00  0  00  000001 

ADD 

AC1 

3951 

033600 

202  00  0  00  100733 

MOVEM 

.SIZE 

3952 

033601 

202  00  C  00  077616 

MOVEM 

fSlIEM 

;IN  USER  MODE? 
;YES  -  SKIP  SOME 


REAL  TIME  INSTRUCTIONS 


6ET  10  F0R*1AT  PATTERN 

PREPARE   TO  LOAD  DRIVE  OFFSET  REG 

USING  10  FORMAT? 

NO  -  11  FORMAT  DESIRED 

SET  DRIVE  FORMAT 

ERROR  -  TRY  AGAIN 


;GET  DRIVE  TABLE  STATUS 

;11  FORMATTING? 

;YES  -  SET  11  FORMAT  BIT 


NO  -  CLEAR  11  FORMAT  BIT 
CLEAR  UNKNOWN  FORMAT  BIT 
SET  FORMAT  iNITTED  BIT 
SAVE  UPDATED  STATUS 
WANT  11  FORMAT? 
YES  -  SET  OTHER  PARAMETERS 


;N0  -  SET  THE  10  FORMAT  PARAMETERS 


.•PRINT  MBC  &  DRIVE  # 


DOING  WHOLE  PACK 

NO 

VERIFYING  ? 

YES  DONT  CLR  BAT  BLK  TABLE 

CLR  1ST  LOC 

SETUP  BLT  WORD 

NEXT  ENTRY  WORD 

CLEAR  IT 

6ET  XFR  SIZE 

GET  #  SECTORS 


.•ADJUST  THE  COUNT 
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Paoe  53 


ige 

CTE 


ST  #10) 


SEO  0180 


DDI 
DDI 


3953 
395A 
3955 
3956 
3957 
3958 
3959 
3%0 
3%1 
3962 
3963 
3964 
3965 
3966 
3967 

3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 

3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 


033602 
033603 
03360A 
033605 
033606 
033607 
033610 
033611 
033612 
033613 
0336U 
033615 

033616 
033617 

033620 
033621 
033622 

033623 
033624 
033625 
033626 
033627 
03363C 
033631 
033632 
033633 
03363A 
033635 
033636 
033637 
033640 
033641 
033642 
033643 

033644 
033645 
033646 
03364 :' 
O33o50 
033651 
033652 
033653 


332 

254 


00 
00 


336  00 


254 
550 
336 
254 


00 
00 
00 
00 


370  00 
202  00 
550  00 
202  00 
254  00 


0  00  077573 
0  00  033644 
0  00  077560 
0  00  033625 
0  00  077726 
0  00  OOOOOC 
0  00  033616 
0  00  000000 
0  00  100731 
0  00  077725 
0  00  100730 
0  00  033623 


550  00  0  00  077725 
370  00  0  00  000000 
202  00  0  00  100730 

201  00  0  00  000022 

202  00  0  00  100731 


402  00 
254  00 
550  00 
313  00 
254  00 
336  00 
254  00 
550  00 
312  00 
254  00 

5o:  00 

315  00 

254  00 

550  00 

315  00 

254  00 

254  00 

200  00 

202  00 

332  00 

254  00 

332  00 

254  00 

200  00 

202  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 


077560 
033511 
077726 
100731 
033511 
077660 
033635 
077724 
100731 
033511 
077723 
100730 
033672 
077724 
100731 
033511 
033644 

077616 
100733 
100020 
033755 
077612 
033762 
077576 
0776^2 


FRMT5C: 


SK I PE 

JRST 

SKIPN 

JRST 

HRRZ 

SKIPN 

JRST 

SOS 

NOVEM 

HRRZ 

NOVEM 

JRST 


FRHT5D:  HRRZ 
SOS 

novEM 

MOVE] 

novE« 


FR«TE: 
FR«T5F 


FRMT6 


SETZ« 

JRST 

HRRZ 

CAMLE 

JRST 

SKIPN 

JRST 

HRRZ 

CAME 

JRST 

HRRZ 

CA«6E 

JRST 

HRRZ 

CAMGE 

JRST 

JRST 

WOVE 
NOVEn 
SKIPE 
JRST 

SKI  PE 
JRST 

WOVE 
WOVEN 


OOALL 

FRWT6 

DAINT 

FRWT5F 

ACO.RLSUR 

ACO 

FRWT5D 

ACO,. SURF 
ACO.RLCYL 
ACO,.CYLIN 
FRWTE 

ACO,RLCYL 

AC0,.CYLIN 
ACO. 22 
ACO,. SURF 

DAINT 

FRWT5B 

RLSUR 

.SURF 

FRWT5B 

ONESUR 

.♦4 

ACO.RHSUR 

ACO.. SURF 

FRWT5B 

RHCYL 

.CYLIN 

FRWT7 

RHSUR 

ACO,. SURF 

FRWT5B 

FRHT6 

FSIZE 

.SIZE 

VONLYF 

VERIFY 

FWT1ST 

PATUPD 

DSKAD 

fwnsT 


PROCESSING  WHOLE  PACK 

YES  PROCEED 

INI  TED  ADDR  YET 

YES  PROCEED 

GET  LOW  SURF  PARW 

LOW  SURF  ZERO 
YES 

WAKE  IT  LOW  SURF  -1 
SAVE  INIT  SURF  VALUE 
GET  LOW  CYL 
;AND  SAVE  IT 


GET  LOW  CYL 

-1 

FOR  INIT  CYL 

INITAL  SURF 

CLR  INIT  FLAG 

GO  SELECT  INITIAL  ADDR/DRIVE 

GET  START  SURF  # 

PROCEED? 

NO  -  GET  NEXT  AREA 

DOING  JUST  A  SURr" 

NO 

GET  HIGH  SURF 

AT  CORRECT  SURF 

NO  SELECT  ANOTHER  ADDR 

GET  STOP  CYLIND  # 

OK  TO  PROCEED? 

NO  -  ALL  DONE 

YES  -  GET  STOP  SURFACE  # 

OK  TO  PROCEED 

NO 

YES 

GET  THE  FORWAT  XFR  SIZE 
SAVE  IT  FOR  THE  TRANSFER 
VERIFY? 
YES  -  DO  IT 
1ST  TIWE  HERE? 

NO  -  JUST  UPDATE  ^^E  PATTERN 
GET  START  ADDR  OF  DSK 
;SAVE  STARTING  LOGICAL  BLOCK  # 
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SEQ  0181 


ODI 
ODI 


^.i 


3999 
4000 
400^ 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4-^09 
10 
^011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 


033654 
033655 
033656 
033657 

033660 
033661 

033662 
033663 
033664 
033665 
033666 
033667 
033670 
033671 

033672 
033673 
033674 
033675 
033676 
033677 
033700 
033701 
033702 
033703 
033704 
033705 
033706 
033707 

033710 
033711 
033712 
033713 
033714 
033715 
033/16 

033717 
033720 

033721 
033722 
033723 
033724 
033725 
033726 


001  03  1  00  077562 
332  00  0  00  077576 
254  00  0  00  033662 
260  17  0  00  052570 
260  17  0  00  053004 
260  17  0  00  044541 


332 

254 


00 
00 


550  00 
313  00 
254  00 
550  00 


313 
254 


00 
00 


17 
17 
17 

17 


260 
260 
260 
260 
402  00 
336  00 
254  00 
336  00 


254 

254 
476 


00 
00 
00 
00 


476  00 
254  00 

336  00 
254  00 
402  00 
254  00 
476  00 
476  00 
254  00 


0  00  077573 
0  00  033511 
0  00  077723 
0  00  100730 
0  00  033511 
0  00  077724 
0  00  100731 
0  00  033511 

0  00  052570 
0  00  053015 
0  00  033743 
0  00  033757 
0  00  077612 
0  00  077617 
0  00  033717 
0  00  077573 
0  00  033710 
0  00  100020 
0  00  033727 
0  00  100020 
0  00  000013 
0  00  033504 

0  00  100020 

0  00  033714 

0  00  100020 

0  00  033721 

0  00  100020 

0  00  077560 

0  00  033504 


332  00  0  00  077573 
254  00  0  00  033727 


200  00 
661  00 
202  00 
260  17 
254  00 
254  00 


0  13  100747 
0  00  200000 
0  13  100747 
0  00  046204 
0  00  033727 
0  00  033511 


;HERE  yHEN  READY  TO  FORMAT  A  TRACK 


FRMT6A:  yRTHD 
SKIPE 
JRST 
GO 
60 
GO 


FRMT68 


FRMT7: 


FRMT8: 

FRMT8A; 

FRMT9: 
FRMT9A 


SKIPE 

JRST 

HRRZ 

CAMLE 

JRST 

HRRZ 

CAMLE 

JRST 

GO 

GO 

GO 

GO 

SET2M 

SK I PN 

JRST 

SK  I  PN 

JRST 

SKIPE 

JRST 

SETOM 

SETOM 

JRST 

SKIPN 

JRST 

SETZM 

JRST 

SETOM 

SETOM 

JRST 

SKIPE 
JRST 

MOVE 

TLO 

MOVEM 

GO 

JRST 

JRST 


dDATARG 

DSKAD 

FRMT6e 

OF  IN 

lOWAIT 

RECLAM 

DOALL 

FRHT5B 

ACO,RHCYL 

ACO..CYLIN 

FRMT5B 

ACO.RHSUR 

ACO,.SURF 

FRMT5B 

QFIN 

lOTERM 

FMBCLR 

FRMDON 

FMT1ST 

FVERFG 

FRMT9 

DOALL 

FRMT8 

VONLYF 

FRMTEX 

VONLYF 

DRIVE 

FRMT5A 

VONLYF 

FRMT8A 

VONLYF 

FRMT9A 

VONLYF 

DAINT 

FRMT5A 

DOALL 
FRMTEX 

AC0,DSBTBL(DRIVE) 

AC0,(.ADRDON) 

ACC,DSBTBL(DRIVE) 

ADNCHK 

FRMTEX 

FRMT5B 


FORMAT  A  TRACK 

FORMATTING  THE  1ST  SURFACE  ON  PACK? 

NO  -  CONTINUE 

YES  -  FINISH  THE  QUEUE 

AND  WAIT  TILL  SYSTEM  QUIET 

RECLAIM  THE  WRITE  BUFFER 

PROCESSING  WHOLE  PACK 
YES  SELECT  NEXT  AREA 
NO  GET  STOP  CYL 
AT  STOP  CYLINDER 
NO  SELECT  NEXT  AREA 
YES  GET  SYOP  SURF 
AT  STOP  SURF 
NO  SELECT  NEXT  AREA 

DONE  -  WAIT  TILL  QUE  EXECUTED 

AND  SYSTEM  QUIET 

CLEAR  THE  FORMAT  INIT  BIT 

PRINT  COMPLETION  TIME 

CLR  FORMAT  INIT  ADDR 

VERIFY  AFTER  FORMAT 

NO 

YES  WHOLE  PACK  ? 

NO 

YES  VERIFIED  YET 

YES  EXIT 

NO  SET  FLAG 

INIT  DRIVE 

DO  VERIFICATION 

COMPLETED  VERIFICATION 

NO 

YES  INIT  FLAG 

GET  NEXT  DRIVE 

SET  VERIFY  ONLY  FLAG 

SET  INIT  DISK  ADDR  FLAG 

DO  VERIFICATION 

DOING  WHOLE  PACK 

YES  MUST  BE  DONE  EXIT 

GET  TABLE  DATA 

SET  ALL  ADDR  DONE  STATUS 

RESTORE  TABLE 

TESTED  ALL  DRI/ES 

YES  EXIT 

NO  SELECT  NEXT 


DDRPl  - 
DDRPI2 

4053 

405A 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 
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•HERE  WHEN  TIME  TO  EXIT  FORMAT  ROUTINE 


SEQ  0182 


DDI 
DDI 


033727 
033730 


033731 
033732 
033733 
033734 
033735 
033736 
033737 

033740 
033741 
033742 

033743 
033744 
033745 

033746 
033747 
033750 
033751 
033752 
033753 
033754 


476  GO  0  00  100006 
263  17  0  00  000000 


037  04 
037  01 
254  00 
476  00 
402  00 
332  00 
254  00 


0  00  067131 
0  00  000003 
0  00  033727 
0  00  100020 
0  00  077633 
0  00  030037 
0  00  033226 


037  02  0  00  067136 
037  02  0  00  067151 
254  00  0  00  033226 

261  17  0  00  000013 
402  00  0  00  000013 
200  15  0  00  100671 


200  00 
6*^1  00 
202  00 
350  00 
3o'  15 

262  17 

263  17 


0  13  100747 
0  00  000400 
0  13  100747 
0  00  000013 
0  00  033746 
0  00  000013 
0  00  000000 


FRMTEX:  SETOM   TINTFG 
RTN 

;ASK  IF  OPR  WANTS  TO  VERIFY  A  PACK 


;EXIT 


FRVERQ:  PMS6F 
TTIYES 
JRST 
SETOM 
SETZM 
SKIPE 
JRST 

PMSG 
PMSG 
IRST 

FMBCLR:  PUT 

SETZM 
MOVE 

FMBCLY:  MOVE 
TL2 
MOVEM 
AOS 

REPTLP 
GET 
RTN 


<*VERIFY  A  FORMATTED  PACK?> 


FRMTEX 

VONLYF 

LOCKFG 

USER 

FRMT 


NO  -  EXIT 

YES  -  SET  THE  FLAG  TO  VERIFY 
UON'T  LOOK  FOR  WRT  LOCKED  DRIVE 
NO  MSG  IF  IN  USER  MODE 


<*IT  WILL  BE  REQUIRED  TO  RUN  TEST  "CONFIG"  OR  RESTART  THE  PGM*> 
<*IF  THE  FOLLOWING  QUESTION  JS  ANSWERED  INCORRECTLY*> 
FRMT  ;ASK  OTHER  QUESTIONS  NOW 


DRIVE 
DRIVE 
REPT^DRMAX 

DSBT6L (DRIVE) 

'.FMT) 

DSBTBL (DRIVE) 

DRIVE 

FMBCLY 

DRIVE 


;START  AT  DRIVE  0 

; SETUP  COUNTER  FOR  DSBTBL  SCAN 

;GET  TABLE  STATUS 
.•CLEAR  THE  FORMAT  INIT  BIT 
;SAVE  THE  UPDATED  STATUS 
.•UPDATE  POINTER 


~.^ 
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SEQ  0183 


A086 

A087 

A088 

A089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4118 

4119 

4120 

4121 

4122 

4123 


033755  001  01  0  00  000000 

033756  254  00  0  00  033662 


033757  260  17  0  00  044454 

033760  037  04  0  00  067162 

033761  263  17  0  00  000000 

033762  200  00  0  00  077576 

033763  316  00  0  00  077612 

033764  254  00  0  00  033654 

033765  260  17  0  00  052570 

033766  260  17  0  00  053004 

033767  260  17  0  00  051310 

033770  200  00  0  11  000030 

033771  202  00  0  00  100013 

033772  200  01  0  00  100735 

033773  402  00  0  00  000003 

033774  260  17  0  00  034003 

033775  202  06  0  01  000000 

033776  402  00  0  01  000001 

033777  2? !  01  0  00  000202 

034000  371  00  0  00  100013 

034001  254  00  0  00  033774 

034002  254  00  0  00  033654 

034003  261  17  0  00  000000 

034004  261  17  0  00  000001 

034005  254  00  0  00  053622 


.#•♦*«••♦♦*♦*♦* ♦•*********t********** A ♦**♦♦♦*♦ <*******♦****•*♦»♦*♦*•*♦ 

•HERE  TO  VERIFY  A  FORMATTED  TRACK  BY  READING  HEADERS  AND  DATA 


VERIFY:  READHD 

JRST    FRMT6B 

;Hb'RE  TO  REPORT  THE  FINISH  TIME 


;RFAD  H5ADERS  AND  DATA 


FRMDON:  60 

PMSGF 
RTN 

PATUPD:  MOVE 
CAMN 
JRST 
60 

m 
m 

MOVE 
MOVEM 
MOVE 
SETZM 

PATUP1:  GO 

MOVEM 

SET2M 

ADDI 

SOSL 

JRST 

JRST 

PATUP2:  PUT 
PUT 
JRST 


RUNTIM 

<JOPERATION  COMPLE(ED^> 


DSKAD 

FMT1ST 

FRMT6A 

QFIN 

lOWAIT 

CHKALT 

.MXSEC(DSBP) 
UPDCNT* 
AC1,,BUFF 
AC3 

PATUP2 

AC.(ACI) 

KACD 

AC1,202 

UPDCNT 

PATUP1 

FRMT6M 

ACO 
AC1 

HDUD 


.•PRINT  THE  RUN  TIME  OF  THE  PGM 


SAM,"^  START  ADDRESS? 

iES   -  USE  DATA  IN  CORE  NOW 

NO  -  WAIT  FOR  ALL  CMDS  TO  START 

AND  FINISH 

SEE  IF  ALT-MODE  TYPED 

GET  #  SECTORS  IN  XFR 

SAVE  IT 

GET  THE  BUFFER  ADDR  OF  FORMAT  DATA 

CLEAR  THE  1ST  TIME  PATTERN  GEN  FLAG 

GENERATE  A  NEW  HEADER 


;SAVE  IT  IN  CORE 

; CLEAR  THE  KEY  WORD  FIELD 

;POINT  TO  NEXT  HEADER  WORD  IN  CORE 

;DONE? 

;N0  -  MODIFY  AGAIN 

;WRITE  WITH  THIS  DATA 

;SAVE  SOME  NECESSARY  AC'S 

;BUILD  A  NEW  HEADER  WORD 


L_ 


DDRPl  - 
DDRPI2 

4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
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SEQ  0184 


034006 
034007 
034010 
03401 1 
034012 
034013 
034014 
03401 5 
034016 
034017 
034020 
034021 

034022 
034023 
034024 
034025 
034026 
034027 
034030 
034031 
034032 
034033 
034034 
034035 


261 
201 
202 
201 
202 
514 
434 
271 
260 
202 
262 
263 


17 
00 
OC 
00 
00 
00 
00 
00 
17 
00 
17 
17 


0  00 
0  00 
u  11 


261  17 

201  00 

202  00 

201  00 

202  00 
514  00 
434  00 
271  00 
260  17 
202  00 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
11 
11 
00 
00 
00 

11 

00 
00 

00 
00 

11 

00 

11 
11 

00 
00 
00 

11 

00 
00 


000000 
000023 
000030 
005000 
000027 
000026 
067166 
000023 
045573 
000031 
000000 
000000 

000000 
000025 
000030 
005400 
000027 
000026 
06/166 
000025 
045573 
000031 
000000 
000000 


SETFIO:  PUT 
MOVE  I 
( MOVEM 
MOVE  I 
MOVEM 
HRLZ 
I  OR 
ADD  I 
60 

MOVEM 
GET 
RTN 


SETF11: 


PUT 
MOVE  I 
MOVEM 
MOVE  I 
MOVEM 
HRLZ 
I  OR 
ADD  I 
GO 

MOVEM 
GET 
RTN 


ACO 

SECTIO 

.MXSEC(DSBP) 

5000 

.TKSIZ(DSBP) 

AC0,.MAXCY(DSBP) 

AC0,C22327] 

SECTIO 

L0G6LK 

.MXBLK(DSBP) 

ACO 


ACO 

SECTll 

.MXSEC(DSBP) 

5400 

.TKSIZ(DSBP) 

ACO,.MAXCY(DSBP) 

AC0,C22B27] 

SECTll 

L06BLK 

.MXBLK(DSBP) 

ACO 


SAVE  ACO 

GET  #  10  FORMAT  SECTORS 

SAVE  IN  DRIVE  DSB  AREA 

GET  XFR  SIZE 

SAVE  IT 

GET  MAX  CYL 

AND  MAX  SURF 

ADD  IN  0   10  SECTORS 

CALC  LAST  BLK  M 

SAVE  IT 

RESET  ACO 


GET  11  FORMAT  SECTORS 

SAVE  IT 

GET  XFR  SIZE 

SAVE  IT 

GET  MAX  CYL 

AND  MAX  SURF 

GET  ADDR  OF  LAST  SECTOR 

CALC  LAST  BLK  # 

SAVE  IT 


DDF 
DDF 

i 
i 
I 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 

i 
I 

i 

i 
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SEQ  0185 


4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 


SUBTTL  TEST  SCRIPT  GENERATOR  AND/OR  EXECUTOR  -  SEQGEN 
XLIST 

LIST 

;v  SEQGEN  —  THIS  IS  A  TEST  SCRIPT  GENERATOR 


COMMENT  $ 


SEQGEN  IS  CAPABLE  OF  CREATING  A  TEST  SCRIPT  CONTAINING 

UP  TO  10  TESTS  FROM  THE  TEST  LIST  OR  EXECUTING  AN 

EXISTING  TEST  SCRIPT  THAT  WAS  PREVIOUSLY  GENERATED  FROM 

"SEQGEN"  OR  PRE-LOADED  BY  THE  PROGRAM. 

THE  PRE-LOADED  SCRIPTS  ARE: 

TOTAL   -      ALL  TESTS 

ACCCPT  -      DRIVE  ACCEPTANCE  TESTING 

MECH    -      ALL  MECHANICAL  TESTS  (NO  DATA) 

TIMING  -      ALL  TIMING  TESTS 

RUNLST  -      RUN  THE  SCRIPT  GENERATED  LIST 

$ 

XLIST 


034036 
034037 
034040 
034041 
034042 
034043 
034044 
034045 

034046 
034046 
034047 


037  04 
037  10 
254  00 
316  00 
254  00 
316  00 

2d':    00 

037  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


067167 
000003 
034046 
067176 
034050 
067177 
034134 
030242 


SEQGEN:  PMSGF 
TTSIXB 
JRST 
CAMN 
JRST 
CAMN 
JRST 
PCRL 


<*RUN  AN  EXISTING  TEST  SCRIPT?  (Y  OR  N)  > 

;GET  A  CHARACTER 
SEQHLP  ; ERROR  INPUT 

CSIXBIT  /Y/]  ;YES? 

SCRPTO  ;YES  -  INPUT  A  LIST 

CSIXBIT  /N/]  ;N0?? 

SCRPTA  ;N0  -  ASK  IF  ONE  TO  BE  GENERATED 

; Output  crlf  not  forced 


DDF 
DDF 

I 
i 
C 
I 
< 


037  02  0  00  067200 
254  00  0  00  034036 


SEQHLP:  PMSG    <SCRIPTS  AVAILABLE :*]TOTAL>  MOST  TESTS'^JACCEPT]-  ACCEPTANCE  SCRIPT^DMECHD- 
MECHANICAL  TESTS*]TIMING]-  TIMING  TESTS]^]RUNLST]-  RUN  THE  "SEOGEN"  GENERATED  TEST  LIST*> 
JRST    SEQGEN 
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SEQ  0186 


41 86 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 


034050 
034051 
034052 
034053 
034054 
034055 
034056 
034057 
034060 
034061 
034062 

034063 
034064 

034065 
034066 

034067 
034070 
034071 
034072 
034073 

034074 
034075 
034076 
034077 
034100 
034101 


037  04 
037  10 
254  00 
322  00 
402  00 
316  00 
254  00 
332  00 
344  01 
037  04 
254  00 


0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 


00 
00 
00 
00 
00 
01 
01 
01 
00 
00 
00 


067234 
000003 
034065 
034065 
000001 
034074 
034067 
034074 
034055 
067237 
034046 


SCRPTO; 
SCRPT1 ; 


476  00  0  00  100006 
263  17  0  00  000000 

037  04  0  00  067243 
254  00  0  00  034046 


000000 
OOCOOO 
000000 
000000 
000000 


034310 
034417 
034104 
034120 
034102 


SCRPEX; 
SCRPE1 ; 
SCRPT2 


64  57  64  41  54  00 
41  43  43  45  60  64 
55  45  43  50  00  00 
64  51  55  51  56  47 
62  65  56  54  63  64 
OuJ  00  0  00  000000 


SCRPT: 


PMSGF 

TTSIXB 

JRST 

JUMPE 

SETZM 

CAMN 

JRST 

SKIPE 

AOJA 

PMSGF 

JRST 

SETOM 
RTN 

PMSGF 
JRST 

TOTST 

ACCEPL 

MECH 

TIMING 

RUNGL 

SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
2 


<*SCRIPT  NAME?  > 


; INPUT  A  SIXBIT  NAME 

; INPUT  ERROR 

;Jump  if  just  a  return  typed 


SCRPE1 

ACO^SCRPEI 

AC1 

SCRPT (AC1)  ;THIS  NAME  AT  THIS  TABLE  ENTRY? 

aSCRPT2(AC1)  ;YES  -  USE  THIS  TEST  SCRIPT 

SCRPT(ACI)  ;End  of  the  list? 

AC1,.-3  ;N0  -  TRY  NEXT  ENTRY 

<*?  SCRIPT  NOT  IN  LIST,  > 

SEQHLP  ;Reprompt  him 


TINTFG 


;EXIT  SCRIPT 


<*?  ENTER  SCRIPT  NAME,  > 
SEQHLP 


;Reprompt  the  guy 


/TOTAL/ 

/ACCEPT/ 

/MECH/ 

/TIMING/ 

/RUNLST/ 


;End  of  list 


DDF 
DDF 

i. 
C 
i 
I 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 

i 

i 

i 

t 

< 


L 
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SEQ  0187 


A217 

A218  03A102 

A219  03A103 

4220 

"  0341 OA 
034105 
034 106 
034107 

. 034110 

4226  034111 

4227  034112 

4228  03A113 

4229  034114 
423^<J541^S'^ 
42i^03A116 
Ak32  03A117 
4233 

4234  03A120 
A235  03A121 
A236  03A122 
A237  034123 

4238  034124 

4239  034125 

4240  034126 

4241  034127 

4242  034130 

4243  034131 

4244  034132 

4245  034133 


402  00  0  00  030047 
254  00  0  00  034206 


402  00 
350  00 
260  17 
260  17 
260  17 
037  02 
037  01 
260  17 
(1^7  10 
d03  00 
254  00 
254  00 

402  00 
350  00 
260  17 
260  17 
260  17 
037  02 
037  01 
260  17 
037  10 
603  00 
254  00 
25A  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0300A7 
0300A7 
03A277 
03A271 
0AAA5A 
0672A7 
000026 
031 77A 
000002 
AOOOOO 
030057 
03A105 

0300A7 
0300A7 
03A277 
03A271 
0AAA5A 
067251 
000026 
035111 
000002 
AOOOOO 
030057 
03A121 


RUN6L : 


MECH: 
MECH1 : 


SET2M 
JRST 

SETZM 

AOS 

GO 

GO 

GO 

PMSG 

PFORCE 

GO 

SWITCH 

TLNE 

JRST 

JRST 


TIMING:  SETZM 
TIMIN1:  AOS 
GO 
GO 
GO 

PMSG 
PFORCE 
GO 

SWITCH 
TLNE 
JRST 
JRST 


PASCNT 
SCRPDA 

PASCNT 
PASCNT 
SELDRV 
STPASS 
RUNTIM 
<]SEKTST> 

SEKTST 

ABORT 

BEGEND 

MECH1 

PASCNT 
PASCNT 
SELDRV 
STPASS 
RUNTIM 
<3PTIME> 

PTIME 

ABORT 

BEGEND 

TIMIN1 


;CHECK  FOR  OPR  SELECTED  DRIVES 


;QUIT  ?? 
;YES 


;QUIT?? 
;YES 


DDF 
DDF 

i 
i 
I 
i 
i 
i 
i 
i 
i 
i 
i 

^ 

i 

i 
i 
i 

< 

i 

< 
i 


■  -■■H.IWIWI  I 


imii<-t»**W  ifiipiiMiiMi 
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SEQ  0188 


A2A6 

A2A7 

42A8 

42A9 

4250 

4251 

4252 

4253 

4254 

425S 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 


034134 
034135 
034136 
034137 
034140 
034141 
034142 
034143 

034144 
034145 
034146 
034147 
034150 
034151 

034152 
034153 
034154 
034155 
034156 


034157 
034160 
034161 
034162 
034163 
034164 
034165 
034166 
034167 
034170 
034171 
034172 
034173 
034174 
034175 
034176 
034177 

034200 
034201 
034202 
034203 
034204 
034205 


037  04 
037  01 
254  00 
402  00 

201  00 

202  00 
037  04 
037  04 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


067253 
000003 
034063 
000001 
000001 
077504 
067260 
067271 


037  10 
254  00 
202  00 
350  00 
301  01 
254  00 


0  00  000003 
0  00  034221 
0  01  101206 
0  00  000001 
0  00  000012 
0  00  034262 


200  00  0  00  030231 
405  00  0  00  000077 
306  00  0  00  000054 
254  00  0  00  034144 
476  00  0  01  101206 


403  01 
200  00 
316  00 
254  00 
200  03 
3io  00 
254  00 

305  03 
344  02 
402  00 
037  01 
037  04 
037  10 
254  00 
202  00 
402  00 
254  00 

200  00 
202  00 

306  02 
202  02 
402  00 
344  01 


0 
C 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
01 
00 
00 
02 
00 
00 
00 
00 
01 
00 
00 
00 
00 
01 
00 
00 


000002 
101206 
067276 
034206 
031133 
000003 
034200 
000016 
034163 
101206 
000002 
067277 
000003 
034173 
101206 
000002 
034163 


0  02  031162 
0  01  101173 
0  00  000003 
0  00  077504 
0  00  000002 
0  00  034160 


SCRPTA:  PMS6F 
TTIYES 
JRST 
SETZM 
MOVE  I 
MOVEM 
PMS6F 
PMSGF 

SCRPTB:  TTSIXB 
JRST 
MOVEM 
AOS 
CAIL 
JRST 

MOVE 
AND  I 
CAIN 
JRST 
SETOM 


<*GENERATE  A  TEST  SCRIPT?  > 

;Y  OR  N 
SCRPEX  ;N0 

AC1 
1 

ACPFLG 

<'^TYPE  UP  TO  10.  TEST  NAMES  SEPARATED  BY  A  COMMA. > 
^TERMINATE  WITH  A  <CR>.**  > 


SCRPE2 

SCRPTL(ACI) 

AC1 

ACU'^DIO 

SCRPE3 

STTCHR 

11 
•  III 

SCRPTB 
SCRPTL(ACI) 


;TEST  TYPED  NAMES  FOR  VALIDITY 


SCRPDO:  SETZB 
SCRPD1:  MOVE 
CAMN 
JRST 
SCRPD2:  MOVE 
CAMN 
JRST 
CAIGE 
AOJA 
SETZM 
PNTSXF 
PMSGF 
TTSIXB 
JRST 
MOVEM 
SETZM 
JRST 

SCRPD3:  MOVE 
MOVEM 
CAIN 
MOVEM 
SETZM 
AOJA 


AC1,AC2 

SCRPTL(ACI) 

M3 

SCRPD4 

AC3,SCRIPT(AC2) 

AC3 

SCRPD3 

AC3,MAXTST 

AC2,SCRPD2 

SCRPTL(ACI) 

<  IS  INVALID,  RETYPE 

.-1 

SCRPTL(ACI) 
AC2 
SCRPD2 

TSTG0(AC2) 

SCRPTT(ACI) 

AC2,3 

AC2,ACPFLG 

AC2 

AC1,SCRPD1 


INPUT  THE  TEST  NAME 

INPUT  ERROR 

STORE  THE  NAME  IN  THE  TABLE 

BUMP  THE  COUNT 

AT  THE  END  OF  THE  TABLE? 

YES  -  NO  MORE  INPUT 

GET  THE  LAST  CHAR  TYPED 

STRIP  OUT  JUNK 

WAS  IT  A  COMMA? 

YES  -  GET  ANOTHER  TEST  NAME 

NO  -  TERMINATE  THE  LIST 


CLEAR  POINTERS 
GET  A  TYPED  NAME 
DONE? 
YES 

GET  A  PGM  TEST  NAME 
NAME  MATCH? 
YES 

AT  THE  PGM  NAME  END? 
NO  -  TRY  FOR  A  MATCH  ON  NEXT  NAME 
NO  MATCH  FOUND  IN  PGM  LIST 
.PRINT  THE  INVALID  TEST  NAME 
TESt  NAME*^*  > 

INPUT  THE  NAME 

ERROR  -  TRY  AGAIN 

SAVE  THE  NEW  INPUT  IN  THE  LIST 

CLEAR  PGM  NAME  POINTER 

TRY  FOR  A  MATCH  AGAIN 


GET  THE  TEST  ADDRESS  FROM  PGM  LIST 

SAVE  IT  IN  THE  SCRIPT  LIST  TABLE 

WANT  OPDTST?? 

YES  -  SET  THE  FLAG 

CLEAR  THE  PGM  NAME  POINTER 

GET  ANOTHER  TYPED  SCRIPT  NAME 


DDF 
DDF 

/ 
L 
i 
i 
i 
i 
i 
i 
i 
i 
i 

i 
i 
i 
i 
i 
i 

i 

i 

i 


L. 
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SEQ  0189 


4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 


034206 
034207 
034210 
03421 1 
034212 
034213 
034214 
034215 
034216 
034217 
034220 

034221 
034222 

034223 
034224 
034225 


034226 
034227 
034230 
034231 
034232 
034233 
034234 
034235 
034236 
034237 
034240 
034241 
034242 
034243 
034244 
034245 
034246 
034247 
034250 
034251 
034^52 
034253 
034254 


037  04 
402  00 
200  00 
316  00 
254  00 
336  00 
254  00 
037  01 
350  00 
037  01 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 


067305 
000001 
101206 
067276 
034223 
000000 
034267 
000002 
000001 
030242 
034210 


037  04  0  00  067310 
254  00  0  00  034144 

037  04  0  00  067315 
037  01  0  00  000003 
254  00  0  00  034134 


260 
260 
402 
350 
260 
402 
260 
260 
2oJ 
200 
316 
254 
037 
037 
200 
261 
260 
260 
262 
037 
603 
254 
344 


17 
17 
00 
00 
17 
00 
17 
17 
17 
00 
00 
00 
01 
01 
00 
17 
17 
17 
17 
10 
00 
00 
01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

1 

0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 


044454 
066122 
030047 
030047 
034277 
000001 
034272 
044454 
066122 
101206 
067276 
034231 
000002 
030242 
101173 
000001 
000000 
034536 
000001 
000002 
400000 
030057 
034235 


SCRPD4: 
SCRPTC: 


PMS6F 

SETZM 

MOVE 

CAMN 

JRST 

SKIPN 

JRST 

PNTSXF 

AOS 

PCRLF 

JRST 


SCRPE2:  PMS6F 
JRST 

SCRPTD:  PMS6F 
TTIYES 
JRST 


<*SCRIPT  LIST  IS:'^> 

ACl 

SCRPTL(ACI) 

c-n 

SCRPTD 
SCRPE4 
ACl 
SCRPTC 


GET  A  NAME 

DONE? 

YES  -  PROCEED 

ANYTHING  THERE? 

NOPE 

PRINT  IT 

BUMP  THE  NAME  COUNT 


; PRINT  THE  NEXT  NAME 


<??  RETYPE  THIS 
SCRPTB 


NAME  AGAIN**  > 


DDF 
DDF 

i 
L 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


<'^PROCEED  WITH  THIS 
SCRPTA 


LIST?> 

;Y  OR  N 
;N0  -  ASK 


AGAIN 


;SCRIPT  TABLE  IF  NOW  FILLED  WITH  VALID  NAMES  -  EXECUTE  THE  TABLE 


RUNGEN:  GO 
GO 
SETZM 

SCRPT3:  AOS 
GO 

SCRPTE:  SETZM 
GO 

SCRPT4:  GO 
GO 

MOVE 
CAMN 
JRST 
PNTSXF 
PCRLF 
MOVE 
PUT 
GO 
GO 
GET 

SWITCH 
TLNE 
JRST 
AOJA 


RUNTIM 

.TAB 

PASCNT 

PASCNT 

SELDRV 

ACl 

STPAS1 

RUNTIM 

.TAB 

SCRPTL(ACl) 

MJ 

SCRPT3 


SCRPTT(ACI) 
ACl 

a 

CLENUP 
ACl 

ABORT 

BEGEND 

AC1,SCRPT4 


.•PRINT  A  TAB 


LOOK  FOR  AN  OPR  SELECTED  DRIVE 
CLEAR  THE  TEST  EXECUTION  POINTER 
PRINT  THE  PASS  » 

PRINT  A  TAB 

GET  THE  TEST  NAME 

END  OF  TABLE? 

YES  -  START  NEXT  PASS 

PRINT  THE  TEST  NAME 

GET  THE  TEST  START  ADDRESS 

SAVE  THE  POINTER 

EXECUTE  THE  TEST 

RESET  MEMORY  SPACE 

RESTORE  THE  POINTER 

GET  PGM  SWITCHES 

OPR  WANT  TO  QUIT?? 

YES  -  DO  IT  NOW! 

NO  -  EXECUTE  THE  NEXT  TEST  IN  THE  LIST 
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SEQ  0190 


43A0 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

4356 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 


034255  402  00  0  00  000001 

034256  200  00  0  01  101206 

034257  336  00  0  00  000000 

034260  254  00  0  00  034206 

034261  254  00  0  00  034226 

034262  037  01  0  00  000007 

034263  037  04  0  00  067322 

034264  037  01  0  00  000007 

034265  476  00  0  01  101206 

034266  254  00  0  00  034157 

034267  037  04  0  00  067330 

034270  254  00  0  00  034134 

034271  260  17  0  00  044454 

034272  037  02  0  00  067333 

034273  200  00  0  00  030047 

034274  260  17  0  00  066163 

034275  037  04  0  00  067336 

034276  263  17  0  00  000000 

034277  261  17  0  00  000015 

034300  200  15  0  00  100671 

034301  331  00  0  15  100747 

034302  365  15  0  00  034301 

034303  325  15  0  00  034306 

034304  037  04  0  00  067340 


034305  037  15  0  00  000004 

034306  262  17  0  00  000015 

034307  263  17  0  00  000000 


RUNLST:  SETZM 
MOVE 
SKIPN 
JRST 
JRST 

SCRPE3:  PBELL 
PMS6F 
PBELL 
SETOM 
JRST 

SCRPE4:  PMS6F 
JRST 

STPASS:  GO 
STPAS1:  PMSG 
MOVE 
GO 

PMS6F 
RTN 

SELDRV:  PUT 
MOVE 
SKI  PL 
SOJGE 
JUMPGE 


AC1 
SCRPTL(ACI) 

SCRPD4 
RUNGEN 


GET  THE  TEST  NAME 

ANY  IN  THE  LIST? 

NOPE 

YES  -  EXECUTE  THE  LIST 


DDF 
DDF 

i 
i 


<^END  OF  INPUT  -  10  ENTRIES  ONLY*> 

SCRPTL(ACI) 
SCRPDO 

<  !l!  EMPTY  I!!^> 
SCRPTA 

RUNTIM 

OSTARTING  PASS  »> 

PASCNT 

PSDN 


REPT 

REPT^DRMAX 
DSBTBL(REPT) 
REPT,.-1 
REPT,. +3 


;6ET  THE  MAX  #  DRIVES  AVAILABLE 
.•DRIVE  SELECTED?? 
;N0  -  TRY  AGAIN 
;WIPE  OUT?? 


<'^N0  OPR  SELECTED  DRIVES  LEFT  TO  USE. .  .AB0RTIN6*> 


PMSGF 
FATL 

FFFFF     A     TTTTT  A  L  I 

F  A  A     T  A  A  L  \ 

F  AA  AA     T  AA  AA  L  [ 

FFF  A/^AAA     T  AAAAA  L  [ 

F  A   A     T  A   A  L  ! 

F  A   A     T  A   A  L 

F  A   A     T  A   A  LLLLL   ! 


SALL 


FATAL 

GET 
RTN 


REPT 


.•RESET  THE  AC 
;AND  EXIT 


I 

'ddrpi  - 

DDRP12 

A385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
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SEQ  0191 


034310 
034310 
03431 1 
034312 
03431 3 
034314 
034315 

034316 
034317 
034320 
034321 

034322 
034323 
034324 
034325 
034326 
034327 

034330 
034331 
034332 
034333 
034334 
034335 

034336 
034337 
034340 
034341 
034342 
034343 

034344 
034345 
034346 
034347 
034350 
03435^ 


260  17 

201  00 

202  00 
402  00 
350  00 
260  17 


0  00  034277 
0  00  000001 
0  00  077504 
0  00  030047 
0  00  030047 
0  00  034271 


260  17  0  00  044454 
037  02  0  00  067247 
037  01  0  00  030242 
260  17  0  00  031774 

260  17  0  00  034277 
260  17  0  00  044454 
037  02  0  00  067350 
037  01  0  00  030242 
260  17  0  00  031222 
260  17  0  00  034536 

260  17  0  00  034277 
260  17  0  00  044454 
037  02  0  00  067352 
037  01  0  00  030242 
260  17  0  00  031237 
260  17  0  00  034536 

260  17  0  00  034277 
2o.M7  0  00  044454 
037  02  0  00  067354 
037  01  0  00  030242 
260  17  0  00  031607 
260  17  0  00  034536 

260  17  0  00  034277 
260  17  0  00  044454 
037  02  0  00  067356 
037  01  0  00  030242 
260  17  0  00  032442 
260  17  0  00  034536 


TOTAL: 

TOTST:  GO 

MOVE  I 
MOVEM 
SETZM 

TOTALL:  AOS 
GO 

60 
PMSG 
PCRLF 
GO 

GO 

GO 

PMSG 

PCRLF 

GO 

GO 

GO 

GO 

PMSG 

PCRLF 

GO 

GO 

GO 

GO 

PMSG 

PCRLF 

GO 

GO 

GO 

GO 

PMSG 

PCRLF 

GO 

GO 


SELDRV 

1 

ACPFLG* 

PASCNT 

PASCNT 

STPASS 

RUNTIM 
OSEKTST> 

SEKTST 

SELDRV 
RUNTIM 
OR0NLY> 

RONLY 
CLENUP 

SELDRV 
RUNTIM 
<3W0NLY> 

UONLY 
CLENUP 

SELDRV 
RUNTIM 
<JSTEST> 

STEST 
CLENUP 

SELDRV 
RUNTIM 
<JINTTST> 

INTTST 
CLENUP 


;CHECK  FOR  SELECTED  DRIVES 


DDf 
DDf 

i 
i 
i 
i 
i 
i 
i 


.•RESET  MEMORY 
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TEST  EXECUTION   (NO  OPR  INTERVENTION)   -  TOTAL   (TEST  #0) 


8: 


SEQ  0192 


A427 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 


034352 
034353 
034354 
034355 
034356 
034357 
034360 
034361 
034362 

034363 
034364 
034365 
034366 
034367 
034370 
034371 

034372 
034373 
034374 
034375 
034376 
034377 

034400 
034401 
034402 
034403 
034404 
034405 

034406 
034407 
034410 
034411 
034412 
034413 
034414 


336 
336 
254 
260 
260 
037 
037 
260 
260 


00 
00 
00 
17 
17 
02 
01 
17 
17 


332  00 

254  00 
260  17 
260  17 
037  02 
037  01 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 


030037 
077722 
034363 
034277 
044454 
067360 
030242 
034616 
034536 

030037 
034372 
034277 
044454 
067251 
030242 
035111 


260  17  0  00  034277 
26C  17  0  00  044454 
037  02  0  00  067362 
037  01  0  00  030242 
260  17  0  00  036161 
260  17  0  00  034536 

260  17  0  00  034277 
260  17  0  00  044454 
037  02  0  00  067364 
or  01  0  00  030242 
2oJ  17  0  00  032745 
260  17  0  00  034536 


260  17 
037  02 
260  17 
037  10 
602  00 
254  00 
254  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


044454 
067366 
034277 
000002 
000010 
034314 
034527 


TALL1: 


SKIPN 

SKIPN 

JRST 

GO 

GO 

PHS6 

PCRLF 

GO 

GO 

SKIPE 

JRST 

GO 

GO 

P«S6 

PCRLF 

GO 

GO 

GO 

PHSG 

PCRLF 

GO 

GO 

GO 

GO 

P«SG 

PCRLF 

GO 

GO 

GO 

P«SG 

GO 

SWITCH 

TRNE 

JRST 

JRST 


USER 

RH20 

.♦7 

SELDRV 

RUNTin 

<]NEXTST> 

NEXTST 
CLENUP 

USER 

TALLl 

SELDRV 

RUNTin 

OPTI«E> 

PTIME 

SELDRV 
RUNTin 
<]RCTEST> 

RCTEST 
CLENUP 

SELDRV 
RUNTin 
<JFRTEST> 

FRTEST 
CLENUP 

RUNTin 

OTOTAL  COHPLETED'^> 

SELDRV 

OPRSEL 
TOTALL 
ACPT2 


;Exec  mode? 
;MBC  =  RH20??? 
;N0 


; CAN'T  RUN  IN  USER  MODE 


DDF 
DDF 

i 
i 
I 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 

i 

i 

i 
{ 


; Print  runtime 

.'Output  finish  message 

.•CHECK  FOR  OPR  SELECTED  DRIVES 

;GET  THE  SWITCHES 

;OPR  HAVE  CONTROL?? 

;YES  -  RESTART  THE  SCRIPT 

;N0  -  CONTINUE  IN  A  LOOP 
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4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 

4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 


MAC 


034415 
034416 

034417 
034420 
034421 

034422 
034423 
034424 
034425 

034426 
034427 
034430 
034431 
034432 
034433 

034434 
034435 
034436 
034437 
03444C 
034441 

034442 
034443 
034444 
034445 
034446 
034447 

034450 
034451 
034452 
034453 
034454 
034455 
034456 
034^57 
034460 
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476  00  0  00  077504 
260  17  0  00  034277 

402  00  0  00  030047 
350  00  0  00  030047 
260  17  0  00  034271 

260  17  0  00  044454 
037  02  0  00  067247 
037  01  0  00  030242 
260  17  0  00  031774 

260  17  0  00  034277 
260  17  0  00  044454 
037  02  0  00  067350 
037  01  0  00  030242 
260  17  0  00  031222 
260  17  0  00  034536 

260  17  0  00  034277 
260  17  0  00  044454 
037  02  0  00  067362 
037  01  0  00  030242 
260  17  0  00  036161 
260  17  0  00  034536 

260  17  0  00  034277 

260  17  0  00  044454 

0^'  02  0  00  067364 

037  01  0  00  030242 

260  17  0  00  032745 

260  17  0  00  034536 


336  00 
336  00 


254 
260 
260 


00 
17 
17 


037  02  0 
037  01  0 
260  17  0 
260  ^7  0 


00  030037 
00  077722 
00  034461 
00  034277 
00  044454 
00  067360 
00  030242 
00  034616 
00  0?4536 


ACCEPTANCE  SCRIPT  LIST  -  ACCEPT   (TEST  #12) 

SUBTTL       ACCEPTANCE   SCRIPT  LIST  -  ACCEPT   (TEST  #12) 

;SET   THE  ACCEPTANCE   FLAG 


SEQ  0193 


DDf 
DDI 


ACCEPT:   SETOM 
GO 

ACCEPL:    SETZ« 
AOS 
GO 

GO 

PHSG 
PCRLF 
GO 

GO 

GO 

P«SG 

PCRLF 

GO 

GO 

GO 

GO 

P«S6 

PCRLF 

GO 

GO 

GO 

GO 

P«SG 

PCRLF 

GO 

GO 

SKIPN 

SfClPN 

JRST 

GO 

GO 

P«S6 

PCRLF 

GO 
GO 


ACPFLG 
SELDRV 

PASCNT 
PASCNT 
STPASS 

RUNTIM 
<JSEKTST> 

SEKTST 

SELDRV 
RUNTin 
<]RONLY> 

RONLY 
CLENUP 

SELDRV 
RUNTIM 
<]RCTEST> 

RCTEST 
CLENUP 

SELDRV 
RUNTin 
<3FRTEST> 

FRTEST 
CLENUP 

USER 

RH20 

.*7 

SELDRV 

RUNTIM 

<3NE)(TST> 

NEXTST 
CLENUP 


;Exec  mode? 
;«BC  =  RH20?? 
;N0 

;YES 
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SEO  0194 


DDi 
DDI 


4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 

4530 

4531 

4532 

4533 

4534 

4535 

4536 

4537 

4538 

4539 

4540 

4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 


034461  260  17  0  00  034277 

034462  260  17  0  00  044454 

034463  037  02  0  00  067356 
0L4464  037  01  0  00  030242 

034465  260  17  0  00  032442 

034466  260  17  0  00  034536 

034467  260  17  0  00  034277 

034470  260  17  0  00  044454 

034471  037  02  0  00  067354 

034472  037  01  0  00  030242 

034473  260  17  0  00  031607 

034474  260  17  0  00  034536 

034475  260  17  0  00  034277 

034476  260  17  0  00  044454 

034477  037  02  0  00  067362 

034500  037  01  0  00  030242 

034501  260  17  0  00  036161 

034502  260  17  0  00  034536 

034503  260  17  0  00  034277 

034504  260  17  0  00  044454 

034505  037  02  0  00  067352 

034506  037  01  0  00  030242 

034507  260  17  0  00  031237 

034510  260  17  0  00  034536 

034511  260  17  0  00  034277 

034512  2o.'  17  0  00  044454 

034513  037  02  0  00  067350 

034514  037  01  0  00  030242 

034515  260  17  0  00  031222 

034516  260  17  0  00  034536 

034517  260  17  0  00  034277 

034520  260  17  0  00  044454 

034521  037  02  0  00  067364 

034522  037  01  0  00  030242 

034523  260  17  0  00  032745 
03452^.  260  17  0  00  034536 

034525  260  17  0  00  044454 

034526  037  02  0  00  067371 


ACPT1: 


GO 

SELDRV 

60 

RUNTIH 

P«SG 

<]INTTST> 

PCRlF 

GO 

INTTST 

60 

CLENUP 

60 

SELDRV 

60 

RUNTin 

P«S6 

<3STEST> 

PCRLF 

60 

STEST 

GO 

CLENUP 

GO 

SELDRV 

60 

RUNTIH 

P«S6 

ORCTEST> 

PCRLF 

60 

RCTEST 

60 

CLENUP 

60 

SELDRV 

60 

RUNTIH 

PHS6 

<]W0NLY> 

PCRLF 

60 

UONLV 

60 

CLENUP 

60 

SELDRV 

60 

RUNTin 

PHS6 

OR0NLY> 

PCRLF 

60 

RONLY 

60 

CLENUP 

60 

SELDRV 

60 

RUNTIM 

P«S6 

<3FRTEST> 

PCRLF 

60 

FRTEST 

60 

CLENUP 

60 

RUNTin 

;Pn'nt  runtime 

P«SG 

OACCEPT  CGMPLETED*> 

:and  message 

L„_. 


L 


r 


DDRPl  - 
DDRPI2 

4556 
A557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
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SEQ  0195 


r" 

DDI 
DDI 


034527 
034530 
034531 
0345^2 
034533 
034534 
034535 

034536 
034537 

034540 
034541 
034542 
034543 

034544 
034545 
034546 
034547 
034550 
034551 


J 


260  17  0  00  034277 
037  10  0  00  000002 


ACPT2: 


;50 

!60 


00 
00 


,  0300-^7 

0  03*271 

254  00  0  00  03^475 

260  17  0  00  0525/0 
260  17  0  00  0S3015 

201  00  0  00  101103 

202  00  0  00  101154 
202  00  0  00  101155 
254  00  0  00  034546 

260  17  0  00  044442 
2^3  17  0  00  000000 
332  00  1  00  101154 
260  17  0  00  044541 
254  00  0  00  034544 
263  17  0  00  000000 


CLENUP 
CLENU2 


CLENU3 
CLENU4 


GO 

SWITCH 

TLNE 

JRST 

AOS 

GO 

JRST 

GO 
GO 

MOVE  I 
MOVEM 
MOVEM 
JRST 

GO 

RTN 

SKIPE 

GO 

JRST 

RTN 


SELDRV 

ABORT 

BEGEND 

PASCNT 

STPASS 

ACPT1 

QFIN 
lOTERM 

SCNTBL 
SCNADD 
SCNOLD 
CLENU4 

BUFSCN 

aSCNADD 

RECLAM 

CLENU3 


GET  THE  SWITCHES 

OPR  QUIT?? 

YES 

NO  -  CONTINUE 


.•ISSUE  ANY  REMAINING  CMOS 
;AND  WAIT   TILL   SYSTEM  DONE 


.-RESET  MEMORY  POINTERS 


SELECT  A  SET  OF  POINTERS 

ALL  SELECTED 

EMPTY''' 

NO  -  RECLAIM  MEMORY 

SELECT  NEXT  SET  OF  POINTERS 

ALL   DONE 


»«*■  imutm*mm  i«^1mi'\'m'itr  «"i*i  i»  ij  n  i   ^*wiw 


•mum  : 


I 


DDRPI  - 
DDRP12 

A579 

A580 

A581 

A582 

A583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

4596 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

4612 

4613 


RH10/RH20  -  RP0./05/06  • 
MAC     28-Aug-85  15:51 


034552 
034553 
034554 
034555 
034556 
034557 
034560 
034561 
034562 
034563 
034564 
034565 
034566 
034567 
034570 
034571 
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PAKINT  PACK  INITIALIZE  SCRIPT 

SUBTTL  PAKINT  PACK  INITIALIZE  SCRIPT 
XLIST 
LIST 

!•*  PAKINT  —  PACK  INITIALIZE  SCRIPT 

•^*** **************************************************** ************** 


SEQ  0196 


037  04  0 
037  04  0 
037  04  0 
037  04  0 
037  10  0 
254  00  0 
316  00  0 
254  00  0 
316  00  0 
254  00 
254  00 
Ob^  04 
037  02  0 
476  00  0 
476  00  0 
0J7  00  0 


0 
0 
0 


00  067375 
00  067403 
00  067416 
00  067<25 
00  000003 
00  034555 
00  067176 
00  034565 
00  067177 
00  034611 
00  034555 
00  067433 
00  000003 
00  077635 
CO  077663 
00  030243 


COMMENT  $ 


PAKINT: 


PAKINA: 


THIS  SCRIPT  WILL  AUTOMATICALLY  FORMAT  -  MAP  -  AND 

CREATE  THE  BAT  BLOCKS  FOR  ALL  RP04/05/05  DISK  DRIVES 

SELETED  FOR  TEST. THE  SCRIPT  CAN  BE  EXECUTED  IN  EXEC 

MODE  OR  IN  USER  MODE  UNDER  A  TOPS-10  MONITOR 

$ 

XLIST 


'1F 


PMSbf 

PMSGF 

PMS6F 

PMSGF 

TTSIXB 

JRST 

CAMN 

JRST 

CAMN 

JRST 

JRST 

PMSGF 

TTINO 

SETOM 

SETOM 

PCRL2 


<'^PAKINT  -  PACK  INITIALIZE  SCRIPT*> 

<'*THIS  SCRIPT  WILL  FORMAT  -  MAP  -  AND  GENERATE  THE  BAT  BLOCKS> 

<^FOR  THE  SELECTED  RP04/05/06  DISK  DRIVES. > 

<*PROCEED  WITH  THE  SCRIPT?  (Y  OR  N)  > 

;GET  INPUT 
.-2  .-ERROR 

CSIXBIT/Y/] 
.+4 

CSIXBIT/N/] 

PAKINX  ;EXIT  SCRIPT 

PAKINA  'ASK  AGAIN 

<'^''MAPOUT  SOFT  (RECOVERABLE)  READ  ERROR  BLOCKS?> 


MAPSOF* 
PAK I NF# 


;YES  SET  THE  FLAG 
;SET  THE  SCRIPT  FLAG 


L 


DDRPI  - 
DDRPI2 

461A 
A615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
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SEQ  0197 


034572 
034573 
034574 
034575 
034576 
034577 
034600 
034601 
034602 
034603 
034604 
034605 
034606 
034607 
034610 

03461 1 

03461 2 

03461 3 
034614 
03461 5 


260  17  0 
037  02  0 
037  01  0 


260  17 
260  17 
260  17 
037  02 
037  01 
260  17 
260  17 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 


037  02  0 
037  01  0 
260  17  0 
260  1/  0 


00  044454 
00  067443 
00  030242 
00  033176 
00  034536 
00  044454 
00  067350 
00  030242 
00  031222 
00  034536 
00  044454 
00  067445 
00  030242 
00  040071 
00  036241 


402  00  0  00  077635 
402  00  0  00  077663 
260  17  0  00  044454 
037  02  0  00  067450 
263  17  0  00  000000 


60 
PMSG 
PCRLF 
60 

60 

PMSG 

PCRLF 

60 
60 
60 

PWSG 
PCRLF 
60 
60 

PAKINX:  SET2M 
SETZM 
GO 

PMSG 
RTN 


RUNTIM 
<]FORMAT> 

FORMAT 
CLENUP 
RUNTIM 
<JR0NLY> 

RONLY 

CLENUP 

RUNTIM 

<]MAPOUT  ROUTINE> 

CLR8LK 
MAPOUT 

MAPSOF 
PAKINF 
RUNTIM 
<JPAKINT  COMPLETE'^> 


; FORMAT  THE  PACKS 

.•FINISH  10  -»-  RECLAIM  MEMORY 


;   TEST  FOR  BAD  SPOTS 
;FINISH  10  +  RECLAIM  MEMORY 


;RESET  THE  CMD  QUES 
; WRITE  THE  BAT  BLOCKS 

; CLEAR  THE  FLAGS 

; Print  runtime 
;And  finish  message 


jj"  ••|ii-iiiTiiriiiiiii»ip 


iimiiiimnmi*m»m)^ 
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SEQ  0198 


A636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

46s9 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 


034616 

034616 
034617 
034620 


260  17  0  00  046276 
000144  000036 
000000  014000 


034621 
034622 
034623 
034624 
034625 
034626 
034627 
034630 
034631 
034632 
034633 
03463^* 
034o35 
034636 
034637 


5':)2  00 
254  00 
037  02 
254  00 
332  00 
254  00 
037  02 
254  00 
476  00 
476  00 
260  17 
254  on 
334  C 
332  Ct 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 


00 
00 
00 


030037 
034625 
067453 
034762 
077722 
034631 
067461 
034762 
077633 
000013 
045650 
034762 
000000 
077576 
034762 


SUBTTL   READ  NEXT-WRITE  NEXT  TEST  -  NEXTST  (TEST  #13) 
XLIST 

LIST 

•  /If***********  **•*•**•***•••♦••••*******•*•••***♦****♦*♦*******♦*♦***♦♦* 
;*  NEXTST  —  READ/URITE  NEXT  TEST 

;/jf********************************************************************* 


COMMENT  $ 


THE  READ  NEXT-WRITE  NEXT  TEST  IS  DESIGNED  TO  TEST 

THE  DRIVE'S  ABILITY  TO  SWITCH  BETWEEN  A  READ  AND  WRITE 

OPERATION  IN  THE  SECTOR  GAP  TIME. 

THE  READS  ARE  FROM  SURFACE  0  AND  THE  WRITES  ARE  TO  SURFACE  1 

IMPLYING  THAT  A  HEADSWITCH  IS  ALSO  REQUIRED  IN  THE  GAP. 

$ 

XLIST 


INTERN  HEADSW,NCMUNCM2 

NEXTST:  TINT    ^D100,*D30,0JJ 

LIST 

GO     SETUP 

XWD     '^D100,'^D30 

<0>B17!<1>B23i<1>B24 


SALL 


NEXA: 


SKIPN  USER 

JRST  .+3 

PMSG  <*NEXTST  DOES  NOT  RUN 

JRST  NEXEX 

SKIPE  RH20 

JRST  .-^3 

PMSG  <*CAN*T  RUN  NEXTST  ON 

JRST  NEXEX 

SETOM  LOCKFG 

SETOM  DRIVE 

GO  SELECT 

JRST  NEXEX 

SKIPA 

SKIPE  DSKAD 

JRST  NEXEX 


;INIT  THE  TEST  WITH  PARAMETERS 

;RELIAB  HERAT  =  '^DIOO,  NORM. 
;MAX  #  TRACKS  IN  A  XFR  =  0 
.-SWITCH  OVERIDES  -  "ALLADR"  =  1 
"ALLDRV"  =  1 


;USER  MODE?? 

;NOPE 
IN  USER  MODE!^> 

;EXIT 

.MBC  =  RH20?? 

;YES 
A  RH10!^> 

;EXIT 

.•START  AT  DRIVE  0 

.-SELECT  A  DRIVE 

;NON-USUABLE  DRIVE  FOUND 

;ALL  SELECTED 

•  DONE'''' 

•ALL  DONE  -  EXIT  THE  TEST 


=  ^^030 


J 
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SEQ  0199 


4681 

4682 

4683 

4684 

4685 

4686 

4687 

4638 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 


034640 
034641 
034642 
034643 
034644 


001  02  0  00  053345 
001  00  0  00  053345 
260  17  0  00  052570 
260  17  0  00  053015 
260  17  0  00  035072 


034645 
034646 
034647 
034650 
034651 
034652 
034653 
034654 
034655 
034656 
034657 
034660 
034661 
034662 
034663 


201  00 

202  00 

201  00 

202  00 
260  17 
310  00 
260  17 
200  00 
336  00 
254  00 
037  13 
037  14 
202  00 
260  17 
403  06 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000310 
030115 
000400 
100733 
044725 
000000 
053227 
100735 
030143 
034661 
000002 
000004 
077652 
063623 
100732 


034664  260  17  0  00  035004 


034665 
034666 
034667 
034670 
034671 
034o72 
034673 


200  01 
260  17 
254  00 

201  01 
260  17 
254  00 
254  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


100667 
063544 
034764 
000100 
063544 
034665 
034674 


iWRITE  -  READ  -  VERIFY  THE  TEST  TRACK 


'JRITE  .ALTB 

READ  .ALTB 

GO  QFIN 

60  lOTERM 

60  SETEH 


;WRITE  DATA  ALL  OVER  THE  TEST  TRACK 
;READ  AND  COMPARE  THE  TEST  TRACK 
;MAKE  SURE  ALL  CMDS  DONE 
.•BEFORE  PROCEEDING 
;SET  HCI=1  I   ECI=1 


•THE  TEST  TRACK  IS  INITIALIZED... 


NEXA1A:  MOVE I 
MOVEM 
MOVEI 
MOVEM 
GO 
CAM 
GO 
MOVE 
SKIPN 
JRST 
MAPmDR 
ERRHLT 
MOVEM 
GO 
SETZB 

NEXB:   GO 


'^D200 

REPTU 

400 

.SIZE 

FNDHOL 

GENDAT 
.EjFF 
MAPNEW 
.^3 


NEXBUF^ 
SETCHN 
AC. .SECT 

NXTXFR 


;SET  FOR  200  REVOLUTIONS 

;XFR  2  SECTORS 

.•ALLOCATE  A  MEMORY  BUFFER 

;HERE  IF  ERROR  (SHOULDN'T  HAPPEN) 

;INIT  THE  BUFFER 

;GET  THE  BUFFER  ADDR 

;4096K  TYPE?? 

;N0 

.•CONVERT  TO  REAL  ADDR 

.•CONVERT  ERROR!! 

.-AND  SAVE  THE  ADDR 

.•RESET  THE  CHANNELS 

.•START  AT  SECTOR  00 

;D0  A  WRITE/READ  PAIR 


;BOTH  SCR  AND  PCR  ARE  NOW  FULL.  WAIT  UNTIL  PCR  IS  FULL  BY  ITSELF 
;AND  THEN  START  TIMING.  THE  CMDS  BEST  NOT  TAKE  A  REV.  OR  IT'S  AN 
.•ERROR  AND  WILL  BE  REPORTED  AS  SUCH. 


NXSC1:  MOVE  AC1.RHERR 

GO  .CONSZ 

JRST  NEXERR 

MOVEI  AC1.SCRFUL 

GO  .CONSZ 

JRST  NXSC1 

JRST  .+1 


;RH  ERROR  FLAGS 
;ANY  ERRORS  ? 
•YES 

•NO. 'get  scrfull  flag 

;HAS  SCR  EMPTIED  INTO  PCR  YET  ? 
;N0.  WAIT  TILL  IT  DOES 
;YES....  START  TIMING 
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SEQ  0200 


4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 

4742 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 

4757 

4758 

4759 


034674 
034675 
034676 
034677 
03A700 
034701 
034702 
034703 
034704 
034705 
034706 
034707 


034710 
034711 
C34712 
034713 
034714 
03471 5 
034716 
034717 
034720 
034721 
034722 
034723 
034724 
034725 
034726 
034727 


201 
200 
260 
254 
201 
260 
254 
201 
260 
201 
260 
254 


05 
01 
17 
00 
01 
17 
00 
01 
17 
01 
17 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000002 
100667 
063544 
034764 
000010 
063547 
034705 
000410 
063522 
000120 
063547 
034730 


205  01 
260  17 
334  00 
254  00 
135  01 
316  01 
254  00 
316  01 
254  00 
365  05 
037  00 
2oJ  17 
037  00 
037  02 
476  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


070010 
063270 
000000 
034710 
067466 
077750 
034675 
077751 
034675 
034675 
030242 
054607 
030242 
067467 
000005 
034675 


.-HERE'S  WHERE  WE  TIWE  THE  BACKUP  COMMAND 


MOVEI  AC5,2 

NEXC:   MOVE  AC1,RHERR 

60  .CONSZ 

JRST  NEXERR 

MOVEI  ACI.CMDDN 

GO  .CONSO 

JRST  .+3 

MOVEI  AC1,MBE!D0NCLR 

GO  . CONO 

MOVEI  AC1,SCRFUL!PCRFUL 

GO  .CONSO 

JRST  NEXC1 


A  LOOP  COUNT 

CHECK  FOR  RH20  DETECTED  ERROR 

ANY  ERROR?? 

YES  -  REPORT 

COMMAND  DONE  ? 

IS  CMD  DONE  ? 

NO. 

YES.  READY  TO  CLEAR  IT 

CLEARS  DONE 

SEE  IF  ANYTHING  PENDING 

IS  THERE  ? 

NO.  THEN  CONTINUE 


;READ  LOOK  AHEAD  REGISTER  AND  SEE  IF  WE'RE  MISSING  A  REV  TO 
.-COMPLETE  THE  REhD  COMMAND. 


MOVSI 

GO 

SKI  PA 

JRST 

LDB 

CAMN 

JRST 

CAMN 

JRST 

SOJGE 

PCRL 

GO 

PCRL 

PMSG 

SETOM 

JRST 


AC1,(DRLAI1B14) 
RDREG 

.-3 

1. [POINT  6.1.29] 

USEC1 

NEXC 

1,SEC2 

NEXC 

AC5,NEXC 

PNTDRV 

<OPTIMIZATIQN  FAULT 

AC5 

NEXC 


.-SET  UP  FOR  LOOK  AHEAD 

.-READ  IT 

.-A  CBTO 

.-PARITY  ERROR.  LOOP 

.-GET  CURRENT  SECTOR 

.-OVER  1ST  SECTOR  ? 

-YES 

•NO. 'over  2ND  SECT  ? 

-YES 

;YES!  COUNT  THIS  TRY 

.-MISSED'!! 

.-PRINT  THE  DRIVE  # 

READ  NEXT  TOOK  A  WHOLE  REVOLUTION! *> 
.-MAKE  LOOP  COUNT  INFINITY 
.-FINISHED  NOW 


I.)  r  I  ij-  H.I.I  11  mill  I 
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SEQ  0201 


4760 

4761 

4762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

4772 

4773 

4774 

4775 

4776 

4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 


034730 
034731 
034732 
034733 
034734 
034735 
034736 
034737 
034740 
034741 
034742 
034743 
034744 
034745 


260  17 
462  00 
201  01 
272  01 
200  01 
275  01 
315  01 
402  00 
200  00 
242  00 
270  00 
542  00 
332  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
11 
00 
00 
00 
00 
00 
00 

11 

00 
00 


051310 
000006 
000006 
100732 
000030 
000004 
100732 
100732 
100731 
000010 
100732 
000024 
100732 
034664 


034746  034  00  0  00  034664 


034747 
034750 
034751 
034752 
034753 
034754 
034755 
034756 
034757 
034760 
034761 

034762 
034763 

034764 
034765 
034766 
034767 
034770 
034771 
034772 
034773 
034774 
034775 
034776 
034777 
035000 
035001 
035002 
035003 


200 
202 
201 
260 
260 
260 
550 
20? 
3o.^ 
260 
254 


00 
00 
00 
17 
17 
17 
00 
00 
15 
17 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


11 
00 
00 
00 
00 
00 
01 
01 
00 
00 
00 


000027 
100733 
000036 
042705 
042657 
063665 
100712 
100672 
034645 
035104 
034633 


476  00  0  00  100006 
263  17  0  00  000000 


037 
260 
260 
037 
260 
260 
260 
254 
260 
260 
260 
260 
304 
260 
260 
254 


02 
17 
17 
00 
17 
17 
17 
00 
17 
17 
17 
17 
00 
17 
17 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


067501 
053221 
044454 
030242 
063540 
064471 
057050 
035001 
056047 
056014 
056010 
035104 
000000 
032362 
042657 
034633 


•DATA  TRANSFER  SHOULD  NOW  BE  IN  PROGRESS...  SETUP  FOR  THE  NEXT  TRANSFER 


NEXCi: 
ADV: 


60  CHKALT 

SETCMM  AC 

MOVEI  AC1,6 

ADDM  ACK.SECT 

MOVE  AC1,.MXSEC(DSBP) 

SUBI  AC 1,4 

CAM6E  ACU.SECT 

SETZM  .SECT 

MOVE  . SURF 

LSH  *D8 

ADD  .SECT 

HRRM  .SELAD(DSBP) 

SKIPE  .SECT 

JRST  NEXB 

REPTUO  NEXB 


MOVE 

MOVEM 

MOVEI 

60 

60 

60 

HRRZ 

MOVEM 

REPTLP 

60 

JRST 


.TKSIZ(DSBP) 

.SIZE 

*D30 

WAITMS 

MBCCLR 

CHNSEL 

CADTBL(ACI) 

SCLP(ACI) 

NEXA1A 

RESTOF 

NEXA 


NEXEX:  SETOM   TINTF6 
RTN 


NEXERR:  PMS6 
60 
60 
PCRL 
60 
60 
60 
JRST 
60 
60 
60 
60 
CAIA 

NEXERF:  60 
60 
JRST 


<**-*-*-•  FRROR 

SWPNT 

RUNTIM 

.CONI 

CONIPT 

SNAPS 

NEXERF 

STATUS 

DRVCLR 

PAKAK 

RESTOF 

SEKT7C 
MBCCLR 
NEXA 


LOOK  FOR  "ALT-MODE"  STUFF 
COMPLIMENT  THE  READ/WRITE  OPERATION 
XFR  NEXT  "PAIR"  6  SECTORS  UP 
UPDATE  THE  SECTOR  M 
6ET  THE  LAST  SECTOR  M 
POINT  TO  4  SECTORS  LESS  THAN  MAX 
OK  TO  PROCEED  WITH  THIS  ADDRESS?? 
NO  -  RESET  THE  SECTOR  COUNTER 
6ET  THE  SURFACE  ff 
POSITION  IT 

SAVE  THE  UPDATED  ADDR  IN  DSB  AREA 

AT  00  '''' 

NO  -  do' THE  NEXT  OPERATION 


;LOOP  TILL  200  REVOLUTIONS  DONE 

;6ET  THE  TRACK  SIZE 
;SAVE  IT  FOR  THE  COMPARE 

;WAIT  TILL  ALL  DONE 
.•CLEAR  THE  MBC  SELECTED 


RESET  THE  CHN  POINTER 

FOR  THE  HARDWARE  &  SOFTWARE 

REPEAT  THE  OPERATION  A6AIN 

RESTORE  OFFSET  RE6  VALUE 

ALL  DONE  WITH  DRIVE  -  SELECT  NEXT 


;TEST  COMPLETED  -  EXIT 


-"ECTED  > 

.•PRINT  THE  P6M  SWITCHES 
.•PRINT  P6M  RUN  TIME 


6ET  THE  MBC  STATUS 

AND  PRINT  IT 

READ  DRIVE  RE6ISTERS 

POWER  FAIL  MESSA6E  TO  OPR 

PRINT  THE  DRIVE  STATUS 

CLEAR  THE  DRIVE 

RESTORE  OFFSET  REG  VALUE 

CLEAR  RH 

REPORT  POWER  DOWN  STATUS  OF  DRIVE 

THIS  ROUTINE  CLEARS  THE  RH 

SELECT  NEXT  DRIVE 
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SEQ  0202 


4813 
4814 
4815 
4816 

;HERE  TO  TRANSFER  2  SECTORS  OF  DATA  FOR  WRITE/READ  NEXT  TEST 

035004 

200  01  0  00  077652 

NXTXFR: 

MOVE 

ACl ,NEX8UF            ; 

6ET  THE  BUFFER  ADDRESS 

4817 

035005 

201  02  0  00  000400 

MOVE  I 

AC2,400             ; 

XFR  2  SECTORS 

4818 

035006 

201  03  0  00  000200 

MOVE  I 

AC3,200             ; 

SECTOR  SIZE  =  200  UORDS 

4819 
4820 
4821 

035007 

260  17  0  00  063674 

GO 

GENCCU              ; 

6EN  A  CHANNEL  LIST 

035010 

550  01  0  11  000024 

NXXFR: 

HRRZ 

AC1,.SELAD(DSBP);6ET  THE 

SELECTED  DRIVE  ADDR 

4822 

035011 

255  00  0  00  000000 

JFCL 

4823 

035012 

640  01  0  00  000400 

HEADSU: 

TRC 

ACl, 400             ; 

■HEAD  SWITCH  FOR  THE  WRITE 

4824 

035013 

260  17  0  00  063447 

60 

LDSBAR              ; 

•LOAD  THE  ADDRESS 

4825 

035014 

200  00  0  00  100733 

MOVE 

.SIZE 

•6ET  THE  XFR  SIZE 

4826 

035015 

272  00  0  11  000144 

ADDM 

.UDXFR(DSBP) 

•UPDATE  THE  TOTALS  AREA 

4827 

035016 

272  00  0  11  000146 

ADDM 

.UDURT(DSBP) 

•UPDATE  THE  WORDS  WRITTEN 

4828 

035017 

231  00  0  00  000200 

IDIVI 

200 

•CALC  THE  If   SECTORS 

4829 

035020 

336  00  0  00  000001 

SKIPN 

AC1 

iREMAINDER?? 

4830 

035021 

336  00  0  00  000000 

SK I PN 

;0R  ANY  AT  ALL 

4831 

035022 

350  00  0  00  000000 

AOS 

;BUMP  THE  COUNT 

4832 

035023 

213  00  0  00  000000 

MOVNS 

;BUILD  A  RH20  BLOCK  COUNT  WORD 

4833 

035024 

405  00  0  00  001777 

AND  I 

1777                    ; 

;SAVE  ONLY  600D  BITS 

4834 

035025 

242  00  0  00  000006 

LSH 

6 

; POSITION  THE  COUNT 

4835 

035026 

202  00  0  00  000001 

MOVEM 

ACl 

;AND  SETUP  TO  START  THE  XFR 

4836 

035027 

037  03  0  00  000004 

CWRT8I 

; FLUSH  THE  CACHE 

4837 

035030 

434  01  0  00  035070 

I  OR 

ACUNCMl             ! 

;ADD  IN  THE  WRITE  COMMAND 

4838 

035031 

260  17  0  00  063452 

NXXFRU: 

60 

LDSTCR 

; START  THE  XFR 

4839 

035032 

261  17  0  00  000001 

PUT 

ACl 

;SAVE  ACl 

4840 

035033 

200  01  0  00  077652 

MOVE 

ACl.NEXBUF 

jBUILD  ANOTHER  CHANNEL  LIST 

4841 

035034 

201  02  0  00  000400 

MOVE  I 

AC2,400 

;XFR  2  SECTORS 

4842 

035035 

27?  02  0  11  000144 

ADDM 

AC2,.WDXFR(DSBP) 

; UPDATE  THE  TOTAL  WORDS  XFRED 

4843 

035036 

2'f^   02  0  11  000145 

ADDM 

AC2,.WDRD(DSBP) 

;AND  WORDS  READ 

4844 

035037 

201  03  0  00  000200 

MOVE  I 

AC3,200 

;1  SECTOR  =  200  WORDS 

4845 
4846 
4847 

035040 

260  17  0  00  063674 

60 

6ENCCU 

;BUILD  THE  LIST  NOW 

035041 

200  01  0  00  100667 

NXXLl: 

MOVE 

ACl^RHERR 

; CHECK  FOR  MBC  ERROR  DETECTED 

4848 

035042 

260  17  0  00  063544 

60 

.CONSZ 

; ERROR  ?? 

4849 

035043 

263  17  0  00  000000 

RTN 

;6ET  OUT  AND  REPORT  FROM  MAINLINE 

4850 

035044 

201  01  0  00  000010 

MOVE  I 

ACl.CMDDN             ! 

;6ET  COMMAND  DONE 

4851 

035045 

260  17  0  00  063547 

60 

.CONSO 

;CMD  DONE  ? 

4852 

035046 

254  00  0  00  035051 

JRST 

.+3 

;N0 

4853 

035047 

201  01  0  00  000410 

MOVE  I 

AC1,MBE!D0NCLR 

;YES.  PREPARE  TO  CLEAR 

4854 

035050 

260  17  0  00  063522 

60 

.CONO 

; CLEARS  IT 

4855 

035051 

201  01  0  00  000100 

MOVE  I 

ACnSCRFUL 

; CHECK  THE  MBC  TO 

4856 

035052 

260  17  0  00  063544 

60 

.CONSZ 

;IF  ITS  FULL 

4857 

035053 

254  00  0  00  035041 

JRST 

NXXLl 

;FULL.  WAIT  TILL  IT  EMPTIES   • 
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SEQ  0203 


4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4898 

4899 


035054 
035055 
035056 

035057 
035060 
035061 
035062 

035063 
035064 
035065 

035066 
035067 

035070 
035071 


035072 
035073 
035074 
035075 
035076 
035077 
035100 
035101 
035102 
035103 


035104 
035105 
035106 
035107 
035110 


037  03  0  00  000004 
550  01  0  11  000024 
271  01  0  00  000002 

135  02  0  00  067506 
202  02  0  00  077750 
271  02  0  00  000001 
202  02  0  00  077751 

260  17  0  00  063447 

262  17  0  00  000001 
434  01  0  00  035071 

260  17  0  00  063452 

263  17  0  00  000000 

000000  000061 
000000  000071 


205  01 
260  17 
334  00 

254  00 
202  01 
405  01 
670  01 
2oJ  17 

255  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


110010 
063270 
000000 
035072 
077561 

1  mil 

067507 
063147 
000000 
000000 


135  01  0  00  067510 
661  01  0  00  110010 
260  17  0  00  063147 
255  00  0  00  000000 
263  17  0  00  000000 


NXTOK: 


CURTBI 

HRRZ 

ADDI 

LDB 
MOVEM 
ADDI 
MOVEM 


60 

GET 

lOR 

NXXFRR:  60 
RTN 

NCM1 :   WTD 
NCM2 :   RDD 


ACU.SELAD(DSBP) 
AC1,2 

2,CP0INT  5,1,35] 

2,SEC1# 

2J 

2,SEC2* 

LDS8AR 

AC1 

AC1,NCM2 

LDSTCR 


FLUSH  THE  CACHE 

GET  THE  TRACK/SECTOR  ADDR 

ALWAYS  READ  2  SECTORS  UP  FROM  WRITE 

GET  THE  SECTOR  H 
1ST  OF  2  SECTORS 
POINT  TO  NEXT  ONE. 
2ND  OF  2  SECTORS 

AND  LOAD  IT 

GET  THE  XFR  ARG 

ADD  IN  THE  READ  COMMAND 

START  THE  READ  CMD 


.•DEFAULT  TO  WRITE  COMMAND 
.•DEFAULT  TO  READ  COMMAND 


.•ROUTINE  TO  READ  AND  SAVE  CONTENTS  OF  THE  OFFSET  REGISTER 
.-THEN  REWRITE  OFFSET  REG  WITH  HCI=1  AND  ECI=1 


SETEH: 


MOVSI 

GO 

SKI  PA 

JRST 

MOVEM 

AND  I 

TDO 

60 

JFCL 

RTN 


AC1.(DR0FF!1B14) 
RDREG 

SETEH 

AC1.DATA1U 
AC1. 177777 


ACl'CDROFFI1BUI1B24!1B25] 


SELECT  THE  REGISTER 
READ  THE  OFFSET  REG 
CSTO 

SAVE  ITS  CONTENTS 
SAVE  THE  DATA  FIELD 


LDREG 


WRITE 
CBTO 
DONE...  EXIT 


;HCI=ECI=1 
THE  OFFSET  AGAIN 


.•ROUTINE  TO  REWRITE 
.•STARTED  NEXTST 


THE  OFFSET  REG  AS  IT  WAS  WHEN  WE 


RESTOF: 


LDB 

TLO 

GO 

JFCL 

RTN 


AC1. [POINT  16,DATA11.35] 

AC1.(DR0FF!1BU) 

LDREG 


;DATA  FIELD  OF 
SELECT  THE  REGISTER 
LOAD  OFFSET  REGISTER 
CBTO 
DONE  EXIT 


WHAT  WAS  SAVED 
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SEQ  ^l^t^ 


4900 

4901 

4902 

4903 

4904 

4905 

4906 

4907 

/,908 

4909 

4910 

4911 

4912 

4913 

4914 

4915 

4916 

4917 

4918 

4919 

4920 

4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 

4938 

4939 

4940 


035111 

035111 
035112 
035113 


035114 
035115 
035116 
035117 
035120 
035121 
035122 
035123 
035124 


SUBTTL  DISK  MECHANICAL  TIMING  TEST  -  PTIME  (TEST  #14) 
XLIST 

LIST 

•  /If***********  *********♦*•♦♦*********♦**********•*********♦*♦♦**♦*♦**♦** 
;*  PTIME  —  DISK  MECHANICAL  TIMING  TEST 

;#***************•***•♦♦***♦♦********************♦********♦♦♦*********♦ 


COMMENT  $ 


260  17  0  00  046276 
000001  000001 
000023  004000 


PTIME 
LIST 


SALL 


336  00 
254  00 
037  02 
254  00 
200  00 
602  00 
254  00 
476  00 
037  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


030037 
035120 
06751 1 
035703 
030046 
200000 
035604 
077625 
067520 


PTIME  WILL  MEASURE  THE  TIMES  OF  RECALS,  SEEKS  AND  DISK 

ROTATION.   IF  'VARIAB"  (SWITCH  19)  IS  SET,  THE  OPERATOR 

MAY  SELECT  SEEKS  TO  BE  TIMED. 

NOTE : 

THIS  TEST  HAS  BEEN  DESIGNED  TO  PERFORM  A  RELATIVE 

MEASUREMENT  OF  SEEK  TIMES  FROM  DRIVE  TO  DRIVE  OR  FROM  A 

PREVIOUS  RUN  OF  THE  DRIVE  SELECTED  FOR  TEST, IT  IS 

NOT  DESIGNED  TO  MEASURE  THE  DRIVE'S  PERFORMANCE  AGAINST 

THE  SEEK  TIME  SPECIFICATION. 

$ 

XLIST 


TINT    1J,23,0J 

GO     SETUP 

XWD     1.1 

<23>B17!<6>B23!<1>B24 


;INIT  THE  TEST  WITH  PARAMETERS 
;RELIAB  ITERAT  =  1,  NORM.  =  1 
;MAX  n   TRACKS  IN  A  XFR  =  23 
; SWITCH  OVERIDES  -  "ALLADR"  =  0 
"ALLDRV  =1 


SKIPN 

JRST 

PMSG 

JRST 

MOVE 

TRNE 

JRST 

SETOM 

PMSG 


;IN  USER  MODE?? 
;N0 
DOES  NOT  RUN  IN  USER  MODE!'^> 


USER 

.+3 

<^PTIME  TEST 

TIMERX 

CONSW  ;GET  THE  SWITCHES 

VARIAB  .-OPERATOR  WANT  VARIABLES? 

PTIMOP  ;YES  -  HE  REALLY  WANTS  TO  RUN  TIMER 

IDELFG  ;FORCE  DELETION  INHIBIT 

<*POSITION  TIMING  TESTS  -  ALL  TIMES  IN  MILLISECONDS^> 


ODRPl  - 
DDRP12 

49A1 

49A2 

49A3 

A9A4 

A9A5 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

4982 

4983 

4984 
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•  /If*************  ******•***•♦*♦*•**•**♦*•*♦*****♦*******♦♦♦♦***  ********* 
;*PTIMO  —  MECHANICAL  TIMING  TEST  -  PART  0. 

i*     MEASURE  ROTATIONAL  VELOCITY  100(10)  TIMES.  PRINT  HIGH,  LOW,  RANGE, 
;*     AND  AVERAGE  TIMES  IN  MILLISECONDS. 

;/|f******************************************************************** 


SEQ  0205 


035125 
035126 

035127 
03513: 
035131 
035132 
035133 
035134 
035135 
035136 
035137 

035140 
035141 
035142 
035143 
035144 
035145 

035146 
035147 
035150 
035151 
035152 
035153 
035154 
035155 
035156 
035157 
035160 
035161 
035162 
035163 
03516^, 
035 i65 
035166 


037  02  0  00  067531 
037  02  0  00  067535 


476  00 
260  17 
254  00 
334  00 
332  00 
254  00 
001  04 

201  15 

202  15 

260  17 
260  17 
260  17 
037  03 
332  00 
254  00 


00 
00 
00 
00 
00 
00 
00 
0  00 
0  00 


00001 3 
045650 
031772 
000000 
077576 
035236 
000000 
000144 
077700 


0  00  035705 
0  00  052570 
0  00  053004 
0  00  000004 
0  00  030041 
0  00  035167 


201 
260 
300 
2u' 
260 
300 
201 
260 
300 
201 
260 
300 
260 
260 
367 
260 
254 


01 
17 
00 
01 
17 
00 
01 
17 
00 
01 
17 
00 
17 
17 
15 
17 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000031 
035721 
000000 
000031 
035721 
000000 
000031 
035721 
000000 
000031 
035721 
000000 
035712 
051310 
035154 
036103 
035130 


PTIMO: 


PTMOA: 


PTMOS: 


PTMOC : 


PTMOD : 


PMSG 

<*ROTATIONA 

PMSG 

<*DRIVE]HIG 

SETOM 

DRIVE 

GO 

SELECT 

JRST 

NODRIVE 

SKI  PA 

SKIPE 

DSKAD 

JRST 

PTIM1 

SEEK 

MOVE  I 

REPT^'^DIOO 

MOVEM 

REPT,PTMCNT 

GO 

PTMCLR 

60 

QFIN 

GO 

lOWAIT 

CWRTBI 

SKIPE 

KLFLG 

JRST 

PTMOE 

MOVE  I 

AC1,31 

TIMER 

CAI 

MOVE  I 

AC1,31 

TIMER 

CAI 

MOVE  I 

AC1,31 

TIMER 

CAI 

MOVE  I 

AC1,31 

TIMER 

CAI 

GO 

PTMSAV 

GO 

CHKALT 

REPTLP 

PTMOD 

GO 

PTMPNT 

JRST 

PTMOA 

rAAv 


;START  WITH  DISK  0 
;SELCT  A  DRIVE 
;NON-USUASLE  DRIVE  FOUND 
;SELECTION  FINISHED 
;ALL  DONE? 
;YES  -  NEXT  SECTION 
;SEEK  TO  CYL  00 
;100  REPETITIONS 
;SAVE  REPETITIONS 

; CLEAR  COUNTERS 

; ISSUE  ALL  QUED  CMDS 

;WAIT  TILL  ALL  DONE 

;FLUSH  CACHE 

;CPU  A  KL10  ? 

;YES  DO  ITS  VELOCITY  TEST 

;GET  A  SEARCH  CMD 

; NO-OP  ERROR  RTN 


.-THROW  AWAY  FIRST  COUPLE  MEASURMENTS 

; NO-OP  ERROR  RTN 

;D0  A  SEARCH  COMMAND 

.•MEASURE  SEARCH  TIME  FOR  ROTAT.  VEL. 

; NO-OP  ERROR  RTN 

.•START  ANOTHER  SEARCH  CMD 

;AND  MEASURE  THE  SEARCH  TIME 

; NO-OP  ERROR  RTN 

.•SEARCH  COMPLETE  -  SAVE  TIME 

;LOOP  TILL  DONE 
.-DONE  -  PRINT  RESULTS 
.-AND  CHECK  NEXT  DRIVE 
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SEQ  0206 


4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008 

5009 

5010 

5011 

5012 

5013 

5014 

5015 

5016 

5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

503A 

5035 

5036 


035167 
035170 
035171 
035172 
035173 
035174 
035175 
035176 
035177 
035200 
035201 
035202 


035203 
035204 
035205 
035206 


035207 
035210 
035211 


035212 
035213 
035214 
035215 
035216 
035217 
035220 
035221 

035222 
035223 
035^24 
035225 
035226 
035227 
035230 
035231 
035232 
035233 
035234 
035235 


402  00  0 
7  004  20 
037  04  0 
7  004  20 
402  00  0 


037  13 
200  00 
200  01 
037  13 
001  06 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 


00  000000 
0  00  000400 
00  000004 
0  00  000200 
00  000000 
00  000004 
00  067543 
00  067544 
00  000004 
00  000000 
00  036041 
00  035130 


200  01  0  00  101241 

202  01  0  00  101231 

200  01  0  00  101242 

202  01  0  00  101232 


001  06  0  00  000000 
260  17  0  00  036041 
25A  00  0  00  035130 


200  01 
21'^  01 
200  06 
332  00 
661  06 
274  06 
242  06 
202  06 


00 
00 
00 
00 
00 
00 
00 
00 


101241 
101231 
101242 
000001 
400000 
101232 
777764 
077740 


260  17  0 
367  15  0 
260  17  0 
402  00  0 
037  13  0 
200  00  0 
037  13  0 
200  00  0 
7  004  20 
037  04  0 
7  004  20 
254  00  0 


00  035712 
00  035167 
00  036103 
00  000000 
00  C00004 
00  067545 
00  000004 
00  067546 
0  00  000400 
00  000004 
0  00  000200 
00  035130 


;KL10  ROTATIONAL  VELOCITY  TEST 


PTMOE : 


SET7M 

CONO 

MTROP 

CONO 

SETZM 

CLOKOP 

MOVE 

MOVE 

CLOKOP 

SRCH 

GO 

JRST 


ACO 
PI, 400 

PI -200 
ACO 

AC0,C0,,*0240] 
ACKCSETOM  TIMOUT] 


PWAIT 
PTMOA 


.•DEACTIVATE 
;RE-ACTIVATE 


DISABLE  THE  CLICKS 

WAIT  TIME 

THEN  XCT  ^HIS  INST 

ENABLE  THE  CLOCK 

SEARCH  FOR  SECTOR  0 

WAIT  FOR  10  TO  COMPLETE 

10  TIMED  OUT  SELECT  NEXT  DRIVE 


;SAVE  TIWEBASE  READINGS  FROM  CHAN  4  INTR  SERVICE 


MOVE  AC1,RDTIMD 

MOVEM  AC1.TIMSAV 

MOVE  AC1,RDTIHDi1 

MOVEM  ACI.TIMSAV^-I 

.•SEARCH  FOR  SECTOR  0  AGAIN 


SRCH 

GO 

JRST 


PWAIT 
PTMOA 


.•CALCULATE  THE  ELAPSED  TIME 


MOVE 

SUB 

MOVE 

SKIPE 

TLO 

SUB 

LSH 

MOVEM 

60 

REPTLP 

GO 

SETZM 

CLOKOP 

MOVE 

CLOKOP 

MOVE 

CONO 

MTROP 

CONO 

JRST 


AC1.RDTIMD 

AC1.TIMSAV 

AC-RDTIMD+1 

AC1 

AC.(IBO) 

AC.TIMSAV+1 

AC.-'^D12 

AC.SAVTIM 

PTMSAV 
PTMOE 
PTMPNT 
ACO 

ACO.CAOS  TICKS] 


GET  HIGH  ORDER  WORD 
SAVE  IT 

GET  LOW  ORDER  WORD 
SAVE  IT 


SEARH  FOR  SECTOR  0  AGAIN 

WAIT  FOR  10  TO  COMPLETE 

10  TIMED  OUT  SELECT  NEXT  DRIVE 


GET  LAST  READINGS  HIGH  ORDER  WORD 

CAL  DIFF  FROM  1ST 

GET  LAST  READINGS  LOW  ORDER  WORD 

ANY  DIFF  IN  HIGH  ORDER  WORDS 

YES  SET  HIGH  ORDER  BIT 

CAL  DIFF  IN  LOW  ORDER  WORDS 

POSITION  PROPERLY 

SAVE  THE  ELAPSED  TIME 


.•SAVE  THE  MEASUREMENT 

;PRINT  THE  TIMES 
.•DISABLE  THE  CLOCK 

.•ENABLE  THE  CLOCKS  FOR  NORMAL  OPR 


ACO.CCONO  PI.REQSET1PICHN2] 

Pl.iOO  ;DE-ACTIVVATE  PI 


PI. 200 
PTMOA 


.•ACTIVATE  PI 

.•DONE   SELECT  NEXT  DRIVE 


J 
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SEQ  0207 


5037 

5038 

5039 

50A0 

50A1 

50A2 

50A3 

504A 

50A5 

50A6 

50A7 

50A8 

50A9 

5050 

5051 

5052 

5053 

505A 

5055 

5056 

5057 

5058 

5059 

5060 

5061 

5062 

5063 

506A 

5065 

5066 

5067 

5068 


035236  037  02  0  00  0675A7 


035237 
0352A0 
0352A1 
0352A2 
0352A3 
0352AA 
0352A5 
0352A6 
0352A7 

035250 
035251 
035252 

035253 
03525A 
C3525S 
035256 
035257 
035260 
035261 
035262 
035263 


A76  00 
260  17 
25A  00 
33A  00 
332  00 
25A  00 
001  05 

201  15 

202  15 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


00001 3 
0A5650 
031772 
000000 
077576 
03526A 
000000 
0001 AA 
077700 


260  17  0  00  035705 
260  17  0  00  052570 
260  17  0  00  05500A 

201  01  0  00  000007 
260  17  0  00  035721 
25A  00  0  00  0352A0 
260  17  0  00  035712 
350  00  0  11  000150 
260  17  0  00  051310 
367  15  0  00  035253 
2o.»  17  0  00  036103 
25A  00  0  00  0352A0 


♦PTIM1  —  MECHANICAL  TIMING  TEST  -  PART  1 

♦  DO  100  RECALS  AND  PRINT  THE  HIGH,  LOW,  RANGE,  AND  AVERAGE 

*  TIMES  IN  MILLISECONDS 

/If*****************  *♦♦♦*♦•♦•*♦♦**•**•••****•♦**♦•♦****♦**  ************* 


PTIM1: 
PTM1A: 


PTM18: 


PTM1 C : 


PMSG    <**RECALIBRATE  TEST  -  100.  ITERATIONS**> 


SETOM 

GO 

JRST 

SKI  PA 

SKIPE 

JRST 

RECAL 

MOVE  I 

MOVEM 

GO 
GO 
GO 

MOVE  I 

TIMER 

JRST 

GO 

AOS 

GO 


DRIVE 

SILECT 

NORIVE 

DSKAD 
PTIM2 

REPT.'^DIOO 
REPT,PTMCNT# 

PTMCLR 

QFIN 

lOWAIT 

AC1,7 

PTM1A 
PTMSAV 
.RECAL(DSBP) 
CHKALT 


REPTLP  PTM1C 
GO      PTMPNT 

JRST   ptm:a 


START  WITH  DISK  0 
SELECT  A  DISK 
NON-USUABLE  DRIVE  FOUND 

DONE? 

ALL  DISKS  TESTED  -  CHECK  NEXT  PARAMETER 

SET  DRIVE  TO  CYL  0 

100  REPETITIONS 

SAVE  IT 

CLEAR  COUNTERS 

WAIT  TILL  ALL  DONE 

GET  RECAL  CMD 

MEASURE  RECALIBRATE  TIME 

10  TIMED  OUT  SELECT  NEXT  DRIVE 

SAVE  TIME 

COUNT  THE  RECAL  OPERATION 

CHECK  FOR  ALT-MODE  TYPED 

DO  IT  AGAIN  IF  NOT  25  TIMES 

DONE  -  GO  PRINT 

GET  NEXT  DRIVE 


L 
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SEQ   0208 


5069 

5070 

5071 

5072 

5073 

5074 

5075 

5076 

5077 

5078 

5079 

5080 

5081 

5082 

5083 

5084 

5085 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 


035264  037  02  0  00  067556 


035265 
035266 
035267 
035270 
035271 
035272 
035273 
035274 
035275 
035276 
035277 
035300 
035301 

035302 
035303 
035304 
035305 
035306 
035307 
035310 
035311 
035312 
035313 
035314 

035315 
035316 
035317 

035320 
035321 
03532: 


476  00 
260  17 
254  00 
334  00 
332  00 
254  00 
001  05 
260  17 

200  00 
202  00 
403  01 
26C  17 
260  17 

350  01 
313  01 
254  00 

201  01 
260  17 
254  00 
260  17 
3i)J  00 
260  17 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 

11 

00 
00 
00 
00 

00 

11 

00 
00 
00 
00 
00 

11 

00 
00 
00 


000013 
045650 
031772 
000000 
077576 
035323 
000000 
035705 
000026 
077700 
100730 
052570 
053004 

100730 
000026 
035315 
000005 
035721 
035266 
035712 
000147 
051310 
035320 
035302 


260  17  0  00  036103 
402  00  0  00  100730 
254  00  0  00  035266 

201  00  0  00  000002 
260  17  0  00  042726 
263  17  0  00  000000 


i*PTIM2  —  MECHANICAL  TIMING  TEST  -  PART  2 

;*     TIME  ALL  SINGLE  CYLINDER  FORWARD  SEEKS.  PRINT  HIGH,  LOW,  RANGE,  AND 

;♦     AVERAGE  TIMES  IN  MILLISECONDS. 


PTIM2: 
PTM2A: 


PMSG    <**ALL  SINGLE  CYLINDER  FORWARD  SEEKS**> 


PTM28: 


PTM2C : 


WAIT2: 


SETOM 

GO 

JRST 

SKIPA 

SKIPE 

JRST 

RECAL 

GO 

MOVE 

MOVEM 

SETZB 

GO 

GO 

AOS 

CAMLE 

JRST 

MOVEI 

TIMER 

JRST 

GO 

AOS 

GO 

GO 

JRST 

GO 

SETZM 

JRST 

MOVEI 

GO 

RTN 


DRIVE 

SELECT 

NODRIVE 

DSKAD 
PTIM3 

PTMCLR 

.MAXCY(DSBP) 

PTMCNT 

AC1,.CYLIN 

QFIN 

lOWAIT 

AC1,.CYLIN 

ACI-.MAXCY(DSBP) 

PTM2C 

AC1,5 

PTM2A 

PTMSAV 

.ACTSK(DSBP) 

CHKALT 

WAIT2 

PTM2B 

PTMPNT 
.CYLIN 
PTM2A 

2 

WAITIT 


start  with  disk  0 
get  a  disk  for  testing 
n0n-usua8le  drive  found 

donf: 

all  done  -  check  reverse  seeks 

clear  counters 

get  the  #  cylinders 

save  the  count 

start  with  cylinder  1  (not  00) 

WAIT 

BUMP  CYLINDER  ADDRESS 

PAST  LAST  CYL  #  ?? 

YES  -  PRINT  RESULTS 

START  SEEK  TO  SELECTED  CYLINDER 

MEASURE  SEEK  TIME 

10  TIMED  OUT  SELECT  NEXT  DRIVE 

TIMINo  DONE  -  SAVE  IT 

COUNT  THE  SEEK  OPERATION 

WAIT  2  MILLISECONDS 

GET  NEXT  CYLINDER  ADDRESS 

ALL  TIMING  DONE  -  PRINT  RESULTS 
CLEAR  CYLINDER 
GET  NEXT  DISK 


;WAIT  FOR  2  M-SFC. 


r 

! 


r 


ODRPl   - 
DDRP12 

5111 

5112 

5113 

51U 

5115 

5116 

5117 

5118 

511V 

5120 

5121 

5122 

5123 

512^ 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 
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•/^***tr  *••**••••*•*•**♦•••*♦*♦•****♦**********************  ************* 

;-*PTIM3  —  MECHANICAL  TIMING  TEST  -  PART  :>  _    «   ....^r 

*      TIME  ALL  SINGLE  CYLINDER  REVERSE  SEEKS.  PRINT  HIGH,  LOW,  RANGE, 
;*      AND  AVERAGE  TIMES  IN  MILLISECONDS. 

; /jf ******* t **•*•••*** •*****t***t*irfr **••*•***•••****•••********** ******* 


SEQ  0209 


035323  037  02  0  00  067565 


035324 
035325 
035326 
035327 
035330 
035331 
035332 
035333 
035334 
035335 
035336 
035337 
035340 

035341 
035342 
035343 
035344 
035345 
035346 
035347 
035350 
0^^351 
0.  352 


476  00  0 
260  17  0 


254 
334 


254 
260 


00 
00 


00 
17 


0 

0 

332  00  0 

0 

0 

0 

0 

0 

0 

17  0 

17  0 


200  00 
202  00 
202  00 
001  04 


260 
260 


375 
254 

:oi 

260 
254 

260 
350 
2oJ 
260 
254 


00 
00 
01 
17 
00 
17 
00 
17 
17 
00 


00  000013 
00  045650 
00  031772 
00  000000 
00  077576 
00  035356 
00  035705 
11  000026 
00  077700 
00  100730 
00  000000 
00  052570 
00  053004 

00  100730 
00  035353 
00  000005 
00  035721 
00  035325 
00  035712 
11  000147 
00  051310 
00  035320 
00  035341 


035353  402  00  0  00  100730 

035354  260  17  0  00  036103 

035355  254  00  0  00  035325 


PTIM3: 
PTM3A: 


HMSG    <*'"ALL  SINGLE  CYLINDER  REVERSE  SEEKS**> 


PTM3B: 


PTM3C 


SETOM 

60 

JRST 

SKI  PA 

SKIPE 

JRST 

60 

MOVE 

MOVEM 

MOVEM 

SEEK 

60 

60 

S0S6E 

JRST 

MOVE  I 

TIMER 

JRST 

60 

AOS 

60 

60 

JRST 

SETZM 

60 

JRST 


DRIVE 

SELECT 

NODRIVE 

DSKAD 

PTIM4 

PTMCLR 

.MAXCY(DSBP) 

PTMCNT 

.CYLIN 

Qf  IN 
lOWAIT 

.CYLIN 

PTM3C 

AC1,5 

PTM3A 

PTMSAV 

.ACTSK(DSBP) 

CHKALT 

WAIT2 

PTM38 

.CYLIN 
PTMPNT 
PT»^3A 


START  WITH  DISK  0 
SELECT  A  DISK 
NON-USUABLE  DRIVE  FOUND 

DONE? 

ALL  DONE  -  DO  INCREMENTAL  SEEKS 

CLEAR  COUNTERS 

6ET  LAST  CYL  » 

STORE  IT  IN  PTIME  COUNTER 

SET  UP  TO  SEEK  TO  IT 

DO  IT 

ISSUE  ALL  QUE  CMDS 

WAIT  TILL  ALL  DONE 

DECREMENT  CYLINDER  ADDRESS 

ALL  DONE  -  60  PRINT 

MEASURE  SEEK  TIME 

FOR  REVERSE  SEEK 

10  TIMED  OUT  SELECT  NEXT  DRIVE 

TABULATE  THE  TIME 

COUNT  THE  SEEK  OPERATION 

WAIT  FOR  2  M-SEC 
6ET  NEXT  CYLINDER 


;ALL  DONE  -  PRINT  RESULTS 
;CHLCK  NEXT  DISK 
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SEQ  0210 


5148 

5K9 

5150 

5151 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 

5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5V9 

5180 

5181 

5182 

5183 

5184 

5185 

5186 


0353:6  037  02  0  00  067574 


035357 
035360 
0353r 
035362 
035363 
035364 
035365 
035366 
035367 
035370 
035371 
035372 
035373 

035374 
035375 
035376 
035377 
035400 
035401 
035402 
035403 
035404 
035405 
035406 
035407 
035410 
035411 
035412 
035413 


476  00 
260  17 
254  00 
534  00 
332  00 
254  00  0 
001  05  0 
260  17  0 
200  00  0 
202  00  0 
202  00  0 
260  17  0 
260  17  0 


202  15 
260  17 
201  01 
260  17 
254  00 
260  17 
350  00 
2oJ  17 
402  00 
001  04 
260  17 
260  17 
260  M 
367  15 
260  17 
254  00 


0  00  000013 

0  00  045650 

0  00  031772 

0  00  000000 

0  00  077576 

00  035414 

00  000000 

00  035705 

11  000026 

00  000015 

00  077700 

00  052570 

00  053004 

0  00  100730 
0  00  035320 
0  00  000005 
0  00  035721 
0  00  035360 
0  00  035712 
0  11  000147 
0  00  035320 
0  00  100730 
0  00  000000 
0  00  052570 
0  00  053004 
0  00  051310 
0  00  035374 
0  00  036103 
0  00  035360 


;-*PTIM4  —  MECHANICAL  TIMING  TEST  -  PART  4.  _  •_  ,  ,^,,  ,^,, 

•♦      TIME  INCREMENTAL  (OSCILLATING)  FORWARD  SEEKS.  PRINT  HIGH,  LOW, 
)♦      RANGE,  AND  AVERAGE  TIMES  IN  MILLISECONDS. 


PTIM4: 
PTM4A: 


PTM4B: 


PMSG 

SETOM 

GO 

JRST 

SKI  PA 

SKIPE 

JRST 

F.ECAL 

GO 

MOVE 

MOVEM 

MOVEM 

GO 

GO 

MOVEM 

GO 

MOVE  I 

TIMER 

JRST 

GO 

AOS 

GO 

SETZM 

SEEK 

GO 

GO 

GO 

REFTLP 

GO 

JRSi 


'AA 


INCREMENTAL  FORWARD  SEEKS'^*> 


DRIVE 

SELECT 

NODRIVE 

DSKAD 
PTIM5 

PTMCLR 

.MAXCY(DSBP) 

REPT 

PTMCNT 

QFIN 

lOWAIT 

REPT..CYLIN 

WAIT2 

AC1,5 

PTM4A 

PTMSAV 

.ACTSK(DSBP) 

WAIT2 

.CYLJN 

QFIN 

lOWAIT 

CHKALT 

PTM48 

PTMPNT 

PTM4A 


;START  WITH  DISK  0 
.-SELECT  A  DISK 
;NON-USUABLE  DRIVE  FOUND 

;DONE?? 

;ALL  DONE  -  DO  REVERSE  INCREMENTAL  SEEKS 

;RECALIBRATE  SELECTED  DISK 

;CLEAR  COUNTERS 

;GET  LAST  CYL  H 

.-WE'LL  USE  REPT  AS  A  DESTINATION  COUNTER 

.-WE'LL  DO  410  SEEKS 


.-LOAD  .CYLIN  WITH  TARGET  ADDRESS 

.-MEASURE  SEEK  TIME 

.-FOR  FORWARD  INCREMENTAL  SEEK 

;I0  TIMED  OUT  SELECT  NEXT  DRIVE 

.-SAVE  TIME 

.-COUNT  THE  SEEK  OPERATION 

.-NOW  SET  UP  TO  GO  BACK  TO  CYL  00 

;D0  IT 

.-WAIT  TILL  U  EXECUTED 

;AND  DONE 


;ALL  DONE  -  PRINT  RESULTS 
.-AND  CHECK  r::XT  DISK 


ODRPI  -  RH10/RH20  -  RP04/05/06  -  RELIABILITV  TEST  VERSION  0.15  MACRO  2538(1242)  15:51  28-Aug-85  Page  84 
DDRPI2  MAC     28-Aug-85  15:51        DISK  MECHANICAL  TIMING  TEST  -  PTIME  (TEST  *14) 


SEQ  0211 


5187 

5188 

5^89 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5203 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 


035414  037  02  0  00  067601 


035415 
035416 
035417 
035420 
035421 
035422 
035423 
035424 
035425 
035426 

035427 
035430 
035431 
035432 
035433 
035434 
035435 
035436 
035437 
035440 
035441 
035442 
035443 
035444 
035445 
035446 


476  00 
260  17 


0 
0 


254  00  0 
334  00  0 


332  00 

254  00 
001  05 
200  15 


0 
0 
0 
0 


202  15  0 
260  17  0 


202  15 
001  04 
260  17 
260  17 
260  17 
402  00 
201  01 
260  17 
254  00 
260  17 
So)  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


260  17  0 
367  15  0 
260  17  0 
254  00  0 


00  000013 
00  045650 
00  031772 
00  000000 
00  077576 
00  035447 
00  000000 
11  000026 
00  077700 
00  035705 

00  100730 
00  000000 
00  052570 
00  053004 
00  035320 
00  100730 
00  000005 
00  035/21 
00  035416 
00  035712 
11  0001h7 
00  051310 
00  035320 
00  035427 
00  036103 
00  035416 


)*PTIM5  —  MECHANICAL  TIMING  TEST  -  PART  ' 

;*      TIME  INCREMENTAL  (OSCILLATING)  RfcvtRSE  SEEKS.  PRINT  HIGH,  LOW, 

;♦     RANGE-  AND  AVERAGE  TIMES  IN  MILLISECONDS. 


PTIM5; 
PTM5A 


PTM5B; 


PMSG 

SETOM 

GO 

JRST 

SKI  PA 

SKIPE 

JRST 

RECAL 

MOVE 

MOVEM 

GO 

MOVEM 

StEK 

GO 

GO 

GO 

SETZM 

MOVE  I 

TIMER 

JRST 

GO 

AOS 

GO 

GO 

REPTLP 

GO 

JRST 


<'^^INCREMENTAL  REVERSE  SEEKS^*> 


DRIVE 

SELECT 

NODRIVE 

DSKAD 
PTIM6 

REPT,.MAXCY(DSBP) 

REPT,PTMCNT 

PTMCLR 

REPT,.CYLIN 

QFIN 

lOWAIT 

WAIT2 

.CYLIN 

AC1,5 

PTM5A 

PTMSAV 

.ACTSK(DSBP) 

CHKALT 

WAIT2 

PTM5B 

PTMPNT 

PTM5A 


.•START  WITH  DISK  0 
;SELECT  A  DISK 
;NON-USUABLE  DRIVE  FOUND 

;DONE?? 

;ALL  DONE  -  GO  DO  RANDOM  SEEKS 

.•RECALIBRATE 

.-GET  LAST  CYL  M 

;LOAD  PTIME  COUNTER 

; CLEAR  COUNTERS 

;SET  UP  TO  SEEK  TO  (AC1) 
;D0  ITI 
;WAIT  FOR  Q 
;T0  FINISH 

;NOW  SET  UP  TO  GO  BACK  TO  00 

.•MEASURE  SEEK  TIME  FOR  REVERSE 

.•INCREMENTAL  SEEK 

;I0  TIMED  OUT  SELECT  NEXT  DRIVE 

.•SAVE  THE  TIME 

.•COUNT  THE  SEEK  OPERATION 


;ALL  DONE  -  PRINT  RESULTS 
.-AND  SELECT  NEXT  DISK 
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SEQ  ^2n 


5223 

522A 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 

5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 


035447  037  02  0  00  067606 


035450 
035451 
035452 
035453 
035454 
035455 
035456 
035457 
035460 
035461 
035462 
035463 
035464 

035465 
035466 
035467 
035470 
035471 
035472 
035473 
035474 
035475 
035476 
035477 
035500 
035501 
035502 
035503 
035504 
035505 
035506 
03550:^ 
035d1G 


476  00 
260  17 
254  00 
334  00 
332  00 
254  00 
001  05 

201  1 5 

202  15 
402  00 
260  17 
260  17 
260  17 


201 
260 
316 
254 
200 
201 
260 

#*  ■ 

260 
350 
200 
260 
260 
367 
260 
402 
402 
402 
402 
254 


01 

17 

06 

00 

06 

01 

17 

00 

17 

00 

00 

17 

17 

15 

17 

00 

00 

00 

00 

00 


0 
0 
0 
0 
0 
0 
0 
0 

v/ 

0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 

11 

00 
00 
00 
00 
CO 
00 
00 
00 
00 
00 


000013 
045650 
031772 

oooooo 

077576 
035511 
OOOOOO 
000764 
077700 
000006 
035705 
052570 
053004 

010400 
053714 
100730 
035465 
100730 
000005 
035721 
035451 
035712 
000147 
1 00033 
042726 
051310 
035465 
036103 
100730 
100731 
100732 
077576 
035451 


i*PTIH6  —  MECHANICAL  TIMING  TEST  -  PART  6. 

i*      TIME  500(10)  RANDOM  SEEKS  WITH  RANDOM  STALLS  BETWEEN  OPERATIONS, 
;♦     PRINT  HIGH,  LOW,  RANGE,  AND  AVERAGE  TIMES  IN  MILLISECONDS, 
•if************* **•••*♦**♦♦♦**♦♦****♦****♦******♦** ******************** 


PTIM6: 
PTM6A: 


PMSG    <**500.  RANDOM  SEEKS**> 


PTM6B: 


SETOM 

GO 

JRST 

SKI  PA 

SKIPE 

JRST 

RECAL 

MOVE  I 

MOVEM 

SETZM 

GO 

GO 

GO 

MOVE  I 

PARAMS 

CAMN 

JRST 

MOVE 

MOVE  I 

TIMER 

JRST 

GO 

AOS 

MOVE 

GO 

GO 

REPTLP 

GO 

SETZM 

SETZM 

SETZM 

SETZM 

JRST 


DRIVE 

SELECT 

NODRIVE 

DSKAD 
PTIM7 

REPT,'^D500 

REPT,PTMCNT 

AC 

PTMCLR 

QFIN 

lOWAIT 

AC1,RTIMIRCYL 

AC.CYLIN 
PTM68 
AC.CYLIN 
AC1,5 

PTM6m. 

PTMSAV 

.ACTSK(DSBP) 

.WAIT 

WAJTIT 

CHKALT 

PTM68 

PTMPNT 

.CYLIND 

.SURF 

.SECT 

DSKAD 

PTM6A 


; START  AT  DRIVE  0 
;GET  A  DISK 
;NON-USUABLE  DRIVE  FOUND 

;DONE?? 

;D0  THE  AVERAGE  TESTS 

.•RECALIBRATE  SELECTED  DRIVE 

;500  REPETITIONS 

.•STORE  IN  COUNTER 

; START  AT  CYL  00 

.•CLEAR  PTIME  COUNTERS 

.-WAIT  TILL  Q  DONE 


GENERATE  THE  RANDOM  PARAMETERS 

SAME  AS  CURRENT  CYLINDER? 

YES  -  REJECT 

STORE  CURRENT  ADDRESS 

MEASURE  RANDOM  SEEK  TIME 

FOR  SELECTED  SEEK 

10  TIMED  OUT  SELECT  NEXT  DRIVE 

SAVE  THE  TIME 

COUNT  THE  SEEK  OPERATION 

GET  STALL  TIME 

RANDOM  STALL 

,LOOP  TILL  DONE 
;ALL  DONE  -  PRINT  IT 


;AND  CHECK  NEXT  DISK 


i,ii<WlliWM>|lll»ll1"l 
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SEQ   0213 


5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

527A 

5275 

5276 

5277 

5278 

5279 

5280 

5281 

5282 

5283 

5284 

5285 

5286 

5287 

5288 

5289 

5290 

5291 

5292 

5293 

529A 

5295 

5296 

5297 

5298 

5299 

5300 

5301 

5302 

5303 

5304 

5305 

5306 

5307 

5308 


035511  037  02  0  00  067612 


035512 
035513 
035514 
035515 
035516 
035517 
035520 
035521 
035522 
035523 

035524 
035525 
035526 
035527 
035530 
035531 
035532 
035533 
035534 
035535 
035536 
035537 
035540 
035541 
035542 
035543 
035544 
035545 
035546 
035547 


476  00 
260  17 
254  00 
334  00 
332  00 
254  00 
001  05 
260  17 

201  15 

202  15 


402 
001 
260 
260 
260 
201 
200 

6ui 
201 
202 
201 
260 
254 
260 
350 
260 
260 
367 
260 
254 


00 
04 
17 
17 
17 
00 
01 
01 
00 
00 
01 
17 
00 
17 
00 
17 
17 
15 
17 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000013 
00  045650 
00  031772 
00  000000 
00  077576 
00  035550 
00  000000 
00  035705 
00  000144 
00  077700 


00 
00 
00 
00 
00 
00 
13 
00 
00 
00 
00 
00 
00 
00 

11 

00 
00 
00 
00 
00 


100730 
000000 
052570 
053004 
035320 
000210 
100747 
000100 
000377 
100730 
000005 
035721 
035513 
035712 
000147 
051310 
035320 
035524 
036103 
035513 


♦PTIM7  —  MECHANICAL  TIMING  TEST  -  PART  7. 

*TIME  THE  AVERAGE  SEEK  TIME  BY  SEEKING  TO  A  REFERENCE 

♦CYLINDER  FOR  THE  PARTICULAR  DRIVE  TYPE  100  TIMES 

♦AND  PRINT  HIGH AOW, RANGE  AND  AVERAGE  TIMES  IN  ^ 

♦MILLISECONDS. THE  REFERENCE  CYLINDER  FOR  RP04/05'S 

♦IS  136  DECIMAL  AND  CYLINDER  255  FOR  RP06'S. 
^**************************** **•*•**•**••*•*♦•*** ****•*•♦**♦♦♦♦*♦*♦♦♦♦ 


PTIM7: 
PTM7A: 


PTM7B: 


PMSG 

SETOM 

GO 

JRST 

SKI  PA 

SKIPE 

JRST 

RECAL 

GO 

MOVE  I 

MOVEM 

SETZM 

SEEK 

GO 

GO 

GO 

MOVE  I 

MOVE 

TLNE 

MOVE  I 

MOVEM 

MOVE  I 

TIMER 

JRST 

GO 

AOS 

GO 

GO 

REPTLP 

GO 

JRST 


<**AVERAGE  SEEK  TIME  -  100.  ITERATIONS^*> 


DRIVE 

SELECT 

NODRIVE 

DSKAD 
PTIM8 

PTMCLR 

REPT^'^DIOO 

REPT.PTMCNT 

.CYLIN 

QFIN 

lOWAIT 

WAIT2 

*D136 

AC1,DSBTBL(DRIVE) 

AC1.(.RP06) 

*D255 

.CYLIND 

AC1,5 

PTM7A 

PTMSAV 

.ACTSK(DSBP) 

CHKALT 

WAIT2 

PTM78 

PTMPNT 

PTM7A 


START  WITH  DISK  0 

GET  A  DISK 

NON-USUABLE  DRIVE  FOUND 


DONE?? 

ALL  DONE  -  NEXT 

RECALIBRATE 

CLEAR  COUNTERS 

100.  ITERATIONS 

STORE  IN  COUNTER 


TEST 


START  AT 
SEEK  AND 
ISSUE  Q 
AND  WAIT 


CYLINDER  0 

WAIT  FOR  COMPLETION 

TILL  DONE 


GET  *  FOR  AVERAGE  SEEK 

GET  TABLE  DATA 

RP06  ? 

YES  GET  ITS  REF  CYL 

SAVE  IT  FOR  THE  SEEK 

MEASURE  SEEK  TIME  FOR 

AN  "AVERAGE"  SEEK 

10  TIMED  OUT  SELECT  NEXT  DRIVE 

SAVE  THE  TIME 

COUNT  THE  SEEK  OPERATION 


LOOP  TILL  ALL  DONE 

PRINT  RESULTS 

AND  CHECK  NEXT  DISK 
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SEQ  021^ 


5309 
5310 

•  ^***«*t****************************************************  ♦****"■'*♦♦* 

5311 

;*PTIM8 

—  MECHANICAL  TIMING  TEST  -  1 

^ART  8. 

5312 

;♦ 

TIME  MAXIMUM  SEEK  TIME  (SEEK 

FROM  CYLINDER  0  TO  410.  OR  814.). 

5313 

;♦ 

100  REPETITONS  -  PRINT  HIGH, 

LOW,  RANGE,  AND  AVERAGE  TIMES 

5314 

;♦ 

IN  MILLISECONDS. 

531 '^ 
53i6 
')317 
5318 
5319 

;^***********************t************************************<r******* 

03555G 

037  02  0  00  067621 

PTIM8: 

PMS6 

<^^MAXIMUM  SEEK  TIME 

-  100.  ITERATIONS^^> 

035551 

476  00  0  00  000013 

SETOM 

DRIVE 

.-START  WITH  DISK  0 

5320 

035552 

260  17  0  00  045650 

PTM8A: 

60 

SELECT 

;SELECT  A  DISK 

5321 

035553 

254  00  0  00  031772 

JRST 

NODRIVE 

;N0N-USUABLE  DRIVE  FOUND 

5322 

035554 

334  00  0  00  000000 

SKI  PA 

5323 

035555 

332  00  0  00  077576 

SKIPE 

DSKAD 

;DONE?? 

5324 

035556 

254  00  0  00  035703 

JRST 

TIMERX 

;ALL  DONE  -  EXIT 

5325 

03555" 

001  05  0  00  000000 

RECAL 

;RECALI8RATE 

S??6 

0"^SSoO 

201  15  0  00  000144 

MOVE  I 

REPT,^D100 

;100  REPETIONS 

512  r 

035561 

202  15  0  00  077700 

MOVEM 

REPT,PTMCNT 

;LOAD  COUNTER 

5328 
5329 
5330 

035562 

260  17  0  00  035705 

GO 

PTMCLR 

; CLEAR  COUNTERS 

035563 

402  00  0  00  100730 

PTM8B: 

SET2M 

.CYLIND 

;START  a  CYL.  0 

5331 

035564 

001  04  0  00  000000 

SEEK 

;SEEK  TO  00  AND  STALL  TIL  DONE 

5332 

035565 

260  17  0  00  052570 

GO 

QFIN 

.•ISSUE  THE  Q 

5333 

035566 

260  17  0  00  053004 

GO 

lOWAIT 

.-AND  WAIT  TILL  ALL  DONE 

5334 

035567 

260  17  0  00  035320 

GO 

WAIT2 

5335 

035570 

200  00  0  11  000026 

MOVE 

.MAXCYL(DSBP) 

.-GET  LAST  CYL  M 

5336 

03557" 

202  00  0  00  100730 

MOVEM 

.CYLIND 

.•SAVE  IT  FOR  THE  SEEK 

5337 

035572 

201  01  0  00  000005 

MOVE  I 

AC1,5 

.•MEASURE  SEEK  TIME  FOR  A 

5338 

035573 

260  17  0  GO  035721 

TIMER 

.-SEEK  FROM  CYL  00  TO  MAXCYL 

5339 

035574 

2i>  •  00  0  00  035552 

JRST 

PTM8A 

;I0  TIMED  OUT  SELECT  NEXT  DPIVE 

5340 

035575 

260  17  0  00  035712 

GO 

PTMSAV 

.•SAVE  TIME 

5341 

035576 

350  00  0  11  000147 

AOS 

.ACTSK(DSBP) 

.•COUNT  THE  SEEK  OPERATION 

5342 

035577 

260  17  0  00  051310 

GO 

CHKALT 

5343 

035600 

260  17  0  00  C35320 

GO 

WAIT2 

■'■■ '  -.\ 

5344 

035601 

367  15  0  00  0i5563 

REPTLP 

PTM8B 

.•LOOP  TILL  ALL  DONE 

5345 

035602 

260  17  0  00  036103 

GO 

PTMPNT 

;ALL  DONE  -  PRINT  RESULTS 

5346 

035603 

254  00  0  00  035552 

JRST 

PTM8A 

.•CHECK  NEXT  DISK 
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SEQ  0215 


53A7 
5348 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
53^9 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 

5368 

5369 

5370 

5371 

5372 

5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5:>  1 
5392 


035604 
035605 
035606 
035607 
035610 

C35o1 1 
035612 
035613 
035614 


035615 
035616 
035617 
035620 
035621 
035622 
035623 
035624 
035625 
035616 
0i:627 
035630 
035631 

035632 
035633 
035634 
035635 
035636 
035637 
035640 
035641 

035642 
035o43 
035644 
035645 
035646 


037  02  0  00  067630 
037  04  0  00  067635 
037  05  0  00  000003 
254  00  0  GO  035703 
202  00  0  00  077615 

037  04  0  00  066476 
037  05  0  00  000003 
254  00  0  00  035611 
202  00  0  00  077567 


476  00 
260  17 
254  00 
300  00 
332  00 
254  00 
200  00 
313  00 
254  00 
200  00 
313  00 
254  00 

CD'   00 

200  00 
254  00 
200  00 
260  17 
037  00 
260  17 
260  17 
254  00 


00 
00 
00 
00 
00 
00 
00 
11 
00 
0  ro 

0  11 
0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


000013 
045650 
031772 
000000 
077576 
035642 
07761 5 
000026 
035634 
077567 
000026 
035632 
035616 

067641 
035635 
067646 
066156 
000002 
054607 
066156 
035604 


037  04  0  00  066502 
037  04  0  00  000003 
254  00  0  00  035642 
202  00  0  00  077716 
037  02  0  00  067535 


;-*PTIMOP  —  ROUTINE  TO  ALLOW  POSITION  TIMING  BETWEEN  ANY  TWO 
;*  OPERATOR  SELECTED  CYLINDERS. 

;/jf***********  *••••*••****•*••*•**•**•**********************  *********** 


PTIMOP:   PMSG 
PMSGF 
TTICNV 
JRST 
MOVEM 

PTM0P2:   PMSGF 
TTICNV 
JRST 
MOVEM 


SETOM 
PT0P2A:   GO 

JRST 

CAI 

SKIPE 

JRST 

MOVE 

CAMLE 

JRST 

MOVE 

CAMLE 

JRST 

JRST 

DESTER:  MOVE 
JRST 

FROMER:   MOVE 
GO 

PNTSIX 
60 
60 
JRST 

PTM0P3:   PMSGF 
TTIDEC 
JRST 
MOVEM 
PMSG 


<^'^MANUAL  TIMER   (SEEKS)**> 
<''STARTING  CYLINDER  M> 

.•ACCEPT  EITHER  OCTAL  OR  DECIMAL 
TIMERX  ;HE  DIED  AT  THE  TTYI! 

FROMCY/if  ; LOOKS  OK  -  SAVE  IT 


<'^DESTINATION  CYLINDER  »> 


PTM0P2 
DESTCY* 


DRIVE 

SELECT 

NODRIVE 

DSKAD 

PTM0P3 

ACO.FROMCY 

AC0,.MAXCY(DSBP) 

FROMER 

ACO.DESTCY 

ACO..MAXCYL(DSBP) 

DESTER 

PT0P2A 


; ILLEGAL   CHARACTER(S) 
;SAVE  DESTINATION 


INIT  DRIVE 

SELECT  A  DRIVE 

NON  USABLE  DRIVC  FOUND 

ALL  TESTED  EXIT  -  NOOP 

SELECTED  ALL  DRIVES  ONCE 

YES  EXIT 

GET  START  CYL  ADDR 

VALID  ADDR 

NO  REPORT  ERROR 

GET  DEST  CYL 

VALID  CYL 

NO  REPORT  ERROR 

OK  TEST  FOR  NEXT  DRIVE 


ACO.CSIXBIT/INVALID  DESTINATION  CYL  FOR/] 

ACO,CSIXBIT/INVALID  START  CYL  FOR/J 
.CRLF 

PNTDRV 

.CRLF 

PTIMOP 


<*ITERATIONS  =  > 

PTM0P3 

REPTCT# 

<*DRIVE]HI6H]L0W]RAN6E]AVERAGE*> 


ACCEPT  ONLY 
ERROR  INPUT 
SAVE   IT 


DECIMAL  INPUT 
OR  TIMED  OUT 


nwani  M»  uMiMwNwinai^'W 


r 


iDDRPl  - 
DDRPI2 

5393 
539A 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
54U7 
5408 
5409 
5410 
5411 

5412 
5413 
5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
5422 
5423 
5424 
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SEC  0216 


035647 
035650 
035651 
035652 
035653 
035654 
035655 
035656 
035657 
035660 

035661 

035662 

035663 

035664 

035665 

035666 

035667 

035670 

035671 

035672 

035673 

035674 

035675 

035676 

03567/' 

035700 

035701 

03570r 


476  00 
260  17 
254  00 
254  00 
332  00 
?54  00 
001  05 
200  15 
202  15 
260  17 


200 
202 
001 
260 
260 
260 
tOO 
'  ^2 
201 
260 
254 
260 
350 
260 
260 
367 
260 
254 


00 
00 
04 
17 
17 
17 
00 
00 
01 
17 
00 
17 
00 
17 
17 
15 
17 
00 


0  00  000013 
0  00  045650 
0  00  031772 
0  00  035703 
0  00  077576 
0  00  035703 
0  00  000000 
0  00  077716 
0  00  077700 
0  00  035705 

0  00  077615 
0  00  100730 
0  00  000000 
0  00  052570 
0  00  053004 
0  00  035320 
0  00  077567 
0  00  100730 
0  00  000005 
0  00  035721 
0  00  035650 
0  00  035712 
0  11  000147 
0  00  05131C 
0  00  035320 
0  00  035661 
0  00  036103 
0  00  035650 


PTM0P4 : 


PTM0P5: 


035703  4/-  00  0  Oc  100006 

035704  263  17  0  00  000000 


TIMERX: 


SETOM 

DRIVE 

GO 

SELECT 

JRST 

NODRIVE 

JRST 

TIMERX 

SKIPE 

DSKAD 

JRST 

TIMERX 

RECAL 

MOVE 

REPT^REPTCT 

MOVEM 

REPT.PTMCNT 

GO 

PTMCLR 

MOVE 

FROMCY 

MOVEM 

.CYLIND 

SEEK 

60 

QFIN 

60 

lOWAIT 

GO 

WAIT2 

MOVE 

DESTCY 

MOVEM 

.CYLIND 

MOVE  I 

AC1,5 

TIMER 

JRST 

PTM0P4 

GO 

PTMSAV 

AOS 

.ACTSK(DSBP) 

^ 

CHKALT 

WAIT2 

REPTLP 

PTM0P5 

60 

PTMPNT 

JRST 

PTM0P4 

SETOM 

TINTFG 

RTN 

STAKT  WITH  DRIVE  0 

GET  A  DISK 

NON-USUABLE  DRIVE  FOUND 

ALL  DONE  -  EXIT 

SAME  DRIVE? 

YES  -  GET  OUT  NOW 

START  CLEAN 

GET  THE  REPETIONS 

LOAD  UP  THE  PTIME  ROUTINE'S  COUNTER 

CLEAR  SOME  COUNTERS 

GET  THE  STARTING  CYL  # 

SAVE  IT  FOR  THE  SEEK 

SEEK  TO  IT  AND  WAIT  FOR  SEEK  COMPLETE 

WAIT  TILL  Q  ISSUED 

AND  EXECUTED 

GET  THE  DESTINATION  CYL  M 

SAVE  IT  FOR  THE  SEEK 

MEASURE  THE  SEEK  TIME  FOR 

THE  SELECTED  SEEK 

10  TIMED  OUT  SELECT  NEXT  DRIVE 

SAVE  THE  TIME 

COUNT  THE  SEEK  OPERATION 


REPEAT  UNTIL  ITERATIONS  ARE  DONE 
PRINT  HIGH,  LOW,  RANGE,  AND  AVERAGE 
GET  NEXT  DRIVE 

;GET  OUT 


mmm. 


lltfUKLWI    l*«1'W 
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SEQ  0217 


5A25 
5426 
5427 
5428 
5429 
5430 
5431 
5432 
5433 
5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 


SUBTTL     PTIME  SUBROUTINES 

•  /If*********************************************  *********************** 

;-*PT.MCLR  CLEARS  THE  HIGH,   LOW  AND  AVERAGE  COUNTERS  USED  BY  PTIME 

;4f******************************************************************** 


035705  402  00  0  00  077701 

035706  402  00  0  00  077677 

035707  205  00  0  00  200000 

035710  202  00  0  00  077702 

035711  263  17  0  00  000000 


PTMCLR:   SETZM  PTMHGH* 

SET2M  PTMAV6# 

MOVSI  (1B1) 

MOVEM  PTMLOW* 
RTN 


.•CLEAR  HIGH  VALUE  STORAGE 
;AND  AVERAGE  VALUE  COUNTER 
PUT  A  VERY  LARGE  » 
IN  THE  LOW  VALUE  STORAGE 
;AND  RETURN 


•/f***-V*^r************************************************************** 

;-*PT«SAV  SAVES  THE  VALUE  DERIVED  FROM  THE  TIMING  ROUTINE 

;/jf*****t******  ******************************************************** 


035712 
035713 
035714 
035715 
035716 
035717 
035720 


200 
313 
202 
317 
202 
272 
263 


00 
00 
00 
00 
00 
00 
17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


077740 
077701 
077701 
077702 
077702 
077677 
000000 


PTMSAV:  MOVE  SAVTIM 

CAMLE  PTMH6H 

MOVEM  PTMHGH 

CAMG  PTMLOW 

MOVEM  PTMLOW 

ADDM  PTMAVG 
RTN 


;GET  AOJN  COUNT 

.•GREATER  THAN  HIGHEST? 

; YES-SAVE   IT 

; LOWER  THAN  LOWEST'' 

•YES-SAVE   IT 

;ADD   IT   TO  RUNNING   TOT/ 

;\ND  RETURN 


mmm 


MMMIQIt** 


IMW* 
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SEQ  0218 


5AA7 
54A8 
54A9 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
547« 
547^ 
480 
5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 


035721 

035722 

035723 

035724 

035725 

035726 

035727 

035730 

035731 

035732 

035733 

035734 

035735 

035736 

035737 

035740 

035741 

035742 

035743 

035744 

035745 

035746 

035747 

035750 

035751 

D35752 

035753 

035754 
035755 
035756 
035757 
035760 
035761 
035762 
035/63 
035764 
035765 


332  00 
254  00 

261  17 
260  17 
201  01 
332  00 
435  01 
260  17 
205  01 
434  01 
260  17 
254  00 
205  01 
260  17 
254  00 
200  02 
332  00 
200  02 
434  02 
200  03 
200  04 

262  17 
260  17 
5iJ  00 
200  01 
403  05 
254  00 


0  00 


221  00 
332  00 
254  00 
231 
254 
231 


00 
00 
00 


202  00 
260  17 
350  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
17 
00 


030041 

035766 

000001 

042657 

000040 

077722 

000400 

063522 

120000 

100730 

063U7 

035731 

050000 

063147 

03573S 

067652 

077722 

067653 

000012 

067654 

067655 

000001 

063147 

000000 

067656 

000000 

000001 

001750 
030040 
035761 
001673 
035762 
001711 
077740 
042657 
000000 
000000 


•  /lf****************************************i<  **•***•*••  *••*•••••••*••*•• 
!-*PTIMER  —  ROUTINE  TO  MEASURE  EVENT  TIME  FOR  A  GIVEN  POSITION  COMMAND 
;*      IN  AC1  WHEN  THE  ROUTINE  IS  CALLED.  RETURNS  WITH  THE 
;♦     MEASURED  TIME  IN  "SAVTIM". 


PTIMER:  SKIPE 
JRST 
PUT 
60 

MOVE  I 
SKIPE 
lORI 
GO 

MOVSI 
lOR 
GO 

JRST 
MOVSI 
GO 
JRST 
MOVE 
SKIPE 
MOVE 
lOR 
MOVE 
MOVE 
GET 
GO 
CAM 
MOVE 

PTMR1:  SETZB 
JRST 


PTMR2: 


PTMR2A: 
PTMR3: 


IMULI 

SKIPE 

JRST 

IDIVI 

JRST 

IDIVI 

MOVEM 

GO 

AOS 

RTN 


KLFLG 

KLTIMR 

AC1 

MBCCLR 

AC1-ATTNEN 

RH20 

ACI^MBE 

.cn-^jo 

ACU(DRDCA) 

ACn.CYLIND 

LDREG 

.-3 

AC1,(DRDTS) 

LDREG 

.-2 

AC2-CC0NS0  ATTN] 

RH20 

AC2,CC0NS0  DRATTN] 

AC2,MBCN 

AC3,CA0JA  ACID 

AC4,CJRST  PTMR2] 

AC1 

LDREG 

ACKCCONSO  APR  J 

AC3,AC0 

AC1 

*D1000 

KAIFLG 

PTMR2A 

*D955 

PTMR3 

*D969 

SAVTIM 

MBCCLR 

(P) 


KL10  CPU 

YES  USE  ITS  TIMER 

SAVE  THE  COMMAND  TO  BE  TIMED 

KILL  THE  INTERRUPT  SERVICE 

ENABLE  ATTENTION 

MBC  =  RH20?? 

YES  -  ALSO  ENABLE  THE  MASSBUS 

TO  THE  MBC 

PREPARE  TO  LOAD  THE  SELECTED  CYL  # 

GET  THE  CYL  #  SELECTED 

LOAD  THE  DRIVE  CYL  * 

LOAD  ERROR  -  TRY  AGAIN 

SET  TRACK/SECTOR  REG  TO  00 

LOAD  THE  DRIVE  REGISTER 

LOAD  ERROR  -  TRY  AGAIN 

MBC  =  RH20?? 

YES 

FINISH  BUILDING  THE  INSTRUCTION 

AND  SETUP  FOR  THE  TIME  LOOP 

GET  THE  SAVED  COMMAND 
START  IT 

NOTHING  IF  ERROR  DETECTED 
GET  THE  KA/KI  INSTRUCTION 
CLEAR  THE  TIMER  COUNT 


CORRECT  FOR  PGM 

CPU  =  KA10?? 

NO 

YES  -  KA10  CPU 


SLOP 


CPU  =  KI10 

SAVE  THE  MEASURED  TIME 

CLEAR  THE  ATTENTION 

+2  RTN  ALWAYS 

AND  EXIT 


-  1 
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SEQ  0219 


5A92 

5A93 

5A9A 

5A95 

5A96 

5A97 

5A98 

5A99 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

55U 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 

5543 

5544 

5545 


035766  261  17  0  00  000001 

035767  261  i7  0  00  000006 
035770  261  17  0  00  000000 


00  000000 
0  00  000400 
00  000004 
0  00  000200 
00  000000 
00  000004 
00  067543 
00  067544 
00  000004 
17  77777 t 
00  000007 
00  000000 
00  000005 
00  000000 
00  036041 
00  036022 


035771 

402  00  0 

035772 

7  004  20 

035773 

037  04  0 

035774 

7  004  20 

035775 

402  00  0 

035776 

037  13  0 

035777 

200  00  0 

036000 

200  01  0 

036001 

037  13  0 

036002 

200  01  0 

036003 

306  01  0 

036004 

001  05  0 

036005 

306  01  0 

036006 

001  04  0 

036007 

260  17  0 

036010 

254  00  0 

03601 1 

200  Oi  0 

036012 

l("   01  C 

036013 

200  06  0 

036014 

332  00  0 

03601 5 

661  06  0 

0316016 

274  06  0 

036017 

242  06  0 

036020 

202  06  0 

036021 

350  00  0 

0360r2 

200  00  0 

0360i3 

037  13  0 

0360k . 

272  00  0 

036025 

402  00  0 

036026 

037  13  0 

036027 

200  00  0 

0316030 

037  13  0 

0316031 

200  00  0 

03603:2 

7  004  20 

036033 

037  04  0 

036034 

7  004  20 

036035 

^62  17  0 

036036 

262  17  0 

03:6037 

262  17  0 

036040 

263  17  0 

00 
00 
00 
00 
00 
00 
00 
00 
17 


101241 
101237 
101242 
000001 
400000 
101240 
777764 
077740 
77777S 


00  067657 
00  000004 
00  030054 
00  000000 
00  000004 
00  067545 
00  000004 
00  067546 
0  00  000400 
00  000004 
0  00  000200 
00  000000 
00  000006 
00  000001 
00  000000 


;KL10  TIMER  ROUTINE 

KLTIMR:  PUT     ACI 
PUT     AC 
PUT     ACO 

.•DISABLE  THE  CLOCKS  WITH  THE  11  CLOCK  ENABLED  IN  4  SEC 


SETZM 

CuNO 

MTROP 

CONO 

SETZM 

CLOKOP 

MOVE 

MOVE 

CLOKOP 

MOVE 

CAIN 

RECAL 

CAIN 

SEEK 

50 

JRST 


ACO 
PI. 400 

PI.200 
ACO 

AC0.C0.."D240] 
AC1.CSET0M  TIMOUT] 

AC1.-2(P) 
ACI. 7 

ACI. 5 

PWAIT 
KLTIMX 


;DE-ACTIVATE  PI 

;RE-ACTIVATE  PI 

.•DISABLE  THE  CLOCK  BEFORE  ENABLE 
.•ENABLE  TO  XCT  THE  FOLLOWING  AFTER  4  SEC 


GET  ACI  OFF  STACK 

IS  IT  A  RECAL 

YES  RECAL 

IS  IT  A  SEEK 

YES  SEEK 

WAIT  FOR  10  TO  COMPLETf 

10  TIMED  OUT  TAKE  +1  RIN 


.•CALCULATE  THE  ELAPSED  TIKE  FROM  THE  TIME  THE  10  WAS  ISSUED  IN 
;  AND  THE  TIME  READING  FROM  CHAN  4  INTERRUPT  SERVICE  (RDTIMD). 


IDREG"  (RDTIMC) 


MOVE 

SUB 

MOVE 

SKIPE 

TLO 

SUB 

LSH 

MOVEM 

AOS 

KLTIMX:  MOV^ 

CLOKOP 

ADDM 

SETZM 

CLOKOP 

MOVE 

CLOKOP 

MOVE 

CONO 

MTROP 

CONO 

GET 

GET 

GET 

RTN 


ACI. RDTIMD 

ACI. RDTIMC 

AC,RDTIMD+1 

ACI 

AC.(IBO) 

AC.RDTIMC+1 

AC.-'*D12 

AC.SAVTIM 

-3(P) 

ACO. CO.. 1] 

ACO. TICKS 
ACO 

ACO. LAOS  TICKS] 


GET  TIME  BASE  READING  FROM  CHAN  4 

SUB  FROM  READING  TAKEN  IN  LDREG 

GET  LOW  ORDER  WD  FROM  CHAN  4 

ANY  DIFF  IN  HIGH  ORDER  WDS 

YES  SET  HIGH  ORDER  BIT 

CAL  ELAPSED  TIME  FOR  10 

RIGHT  JUSTIFY 

SAVE  THE  MEASURED  TIME 

TAKE  THE  ^2  RTN 

READ  TICK  COUNT  SINCE  LAST  ENABLED 

;ADJUST  THE  RUN  TIME 

.•DISABLE  THE  CLOCK 

.•ENABLE  THE  CLOCK  FOR  NORMAL  OPR 


ACO. [CONG  PI.REQSET1PICHN2] 

PI. 400  ;DE-ACTIVATE  PI 


PK200 
ACO 
AC 
/^C1 


.•ACTIVATE  PI 


r' 


jDDRPl  • 
i  DDRPI2 


55A6 

55A7 

55A8 

55A9 

5550 

5551 

5552 

5553 

555A 

5555 

5556 

5557 

5558 

5559 

5560 

5561 

5562 

5563 

556A 

5565 

5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

557A 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 

558A 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

559A 
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SEQ  0220 


0360A1 
0360A2 
0360A3 

')360AA 
0360A5 
0360A6 
0360'.7 

036050 
036051 
036052 
036053 
03605A 
036055 
036056 
036057 
036060 
036061 

036062 
036063 
03606A 
036065 
036066 
036067 
036070 
036071 


261  17  0  00  000000 
261  17  0  00  000001 
260  17  0  00  063665 

332  00  0  00  100005 
25A  00  0  00  036050 
335  00  0  01  1010A7 
25A  00  0  00  0360AA 


200  00  0 
607  00  0 
25A  00  0 
336  00  0 
25A  00  0 
A02  00  0 
55A  00  0 
336  00  0 
25A  00  0 
260  17  0 

037  02  0 
260  17  0 
260  17  0 
03'  02  0 
200  00  0 
550  00  1 
260  17  0 
037  02  0 


13 
00 
00 
00 
00 
00 
01 
00 
00 
00 


1007A7 
AOOOOO 
036100 
100005 
036077 
100005 
1010A7 
000000 
036077 
0A2657 


00  067660 
00  0AAA5A 
00  053151 
00  U67667 
00  0775A7 
00  000000 
00  051760 
00  06767A 


036072  260  17  0  00  056733 


036073 
03607/. 
036075 
036076 

036077 
036100 
036101 
036102 


200  00  0  13  1007A7 
:C'  no   0  00  AOOOOO 


33A  Ol 


13  1007A7 
JO  000000 


350  CJ  0  17  777776 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


•4f*****************************<r***************  *********************** 

)*PWAIT  —  THIS  ROUTINE  WILL  STALL  THE  EXECUTION  OF  THE  PROGRAM 

i*     UNTIL  THE  10  IN  PROGRESS  HAS  BEEN  COMPLETED  OR  1  SECOND  HAS 

;♦     ELAPSED  SINCE  THE  10  WAS  ISSUED  -  THE  OPERATION  HAS  TIMED  OUT. 

•ific*********************  ***■»*•***•*••••••*••***••********************* 


PWAIT:  PUT 

ACO 

PUT 

AC1 

GO 

CHNSEL 

.•DETERMINE  THE  .1BC  # 

SKIPE 

TIMOUT 

;I0  TIMED  OUT  -> 

JRST 

.+3 

;YES 

SKIPGE 

CSBTBL(ACI) 

;ANY  10  IN  PPOGRCbS  THIS  MBC 

JRST 

.-3 

;WAIT  FOT  IT  (0  COMPLETE 

MOVE  DSBTBL (DRIVE) 

;GET  TABLE  STATUS 

TLNN 

(.OPR) 

.-DRIVE  STILL  SELECTED 

JRST 

PWAITX+1 

;N0  TAKE  +1  RTN 

SKIPN 

TIMOUT 

;DID  IT  TIMOUT  ? 

JRST 

PWAITX 

;N0  TAKE  +2  RTN 

SETZM 

TIMOUT 

.•CLEAR  FLAG 

HLR2 

CSBTBL(ACI) 

;GET  DROP  DEAD  TIME 

SKIPN 

;ANY  LEFT  ? 

JRST 

PWAITX 

;INTR  SERV  CAUSED  IT 

GO 

MBCCLR 

; CLEAR  RH 

PMSG 

<*OPERATION 

TIMEOUT 

WAITING  FOR  INTERRUPT*> 

GO 

RUNTIM 

GO 

TELTST 

PMSG 

<*COMMAND  BEING  EXECUTED  WAS  "> 

MOVE 

IMDXPT 

HRRZ 

9 

GO 

PNTCMD 

PMSG 

<*THIS  DRIVE 

WILL  NO 

LONGER  BE  SELECTED  FC^  TEST  *'*> 

.•CLEAR  THE  COMMAND  FROM  THE  PRIMARY  CSB  +  DSB  AREA 
GO      CPM8C 

;DESELECT  THE  DRIVE  FROM  TESTING 
MOVE    ACO.DSBTBL(DRIVE) 
TLZ     ACO. (180) 
MOVEM   ACO. DSBTBL (DRIVE) 
SKIPA 

PWAITX:  AOS  -2(9) 

GET  AC1 

GET  ACO 
RTN 


L 


J 
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SEQ  0:21 


5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 

5609 

56^0 

5611 

5612 

5613 

5614 

5615 

5f.l6 

5617 

5618 

5619 

5620 

5621 


036103 
036104 
036105 
036106 
036107 
036110 
G36111 
036112 
036113 
036114 
036115 
C36116 
036117 
036120 
036121 
036122 
036123 
036124 
036125 
036126 
036127 
036130 


260 

200 

037 

260 

200 

260 

260 

200 

260 

260 

200 

274 

260 

260 

200 

230 

242 

311 

3') 

2. 

C3/ 

2o3 


17 
00 
02 
17 
00 
17 
17 
00 
17 
17 
00 
00 
17 
17 
00 
00 
01 
01 
00 
17 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 


00 
00 
00 
00 


0  00 


00 
00 
00 
00 


0  00 
0  00 
0  00 


S3015 
0U0013 
000000 
066122 
077701 
036131 
066122 
077702 
036131 
066122 
077701 
077702 
036131 
0^6122 
0^7677 
077700 
000001 
077700 
000000 
036131 
030242 
000000 


•  /If***********  ••*••*••••*•**••****♦*** 
i*PTMPNT  PRINTS  OUT  HIGH,  LOW,  RANGE, 

;/(f*****************************  V***** 


PTMPNT: 


60 

lOTERM 

MOVE 

DRIVE 

PNT2 

GO 

.TAB 

MOVE 

PTMHGH 

GO 

PTMCNV 

GO 

.TAB 

MOVE 

PTMLOW 

GO 

PTMCNV 

GO 

.TAB 

MOVE 

PTMHGH 

SUB 

PTMLOW 

GO 

PTMCNV 

GO 

.TAB 

MOVE 

PTMAVG 

IDIV 

PTMCNT 

LSH 

AC1J 

CAML 

AC1, PTMCNT 

AOS 

GO 

PTMCNV 

PCRL 

RTN 

********************************* 

AND  AVERAGE  TIMES 
********************************* 

;TERM  ALL  10 

;GET  CURRENT  DRIVE 

; PRINT  A  TAB 

;GET  HIGHEST  VALUE  FOUND 

;CONVERT  IT  TO  MILLISECONDS 

;NEXT,  LOWEST  VALUE 
;PRINT  IT  ALSO 

;GET  HIGH  VALUE  AGAIN 
.•SUBTRACTION  YIELDS  "RANGE" 
;PRINT  IT 

;GET  RUNNING  COUNT 
;DIVIDE  BY  REPETITIONS 
.-DOUBLE  THE  REMAINDER 
.-ROUNDING 

.•PRINT  IT 


r 
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n  ()222 


5622 

5623 

562A 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

563A 

5635 

5636 

5637 

5638 

5639 

5640 

56A1 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 


;*PTMCNV  CONVERTS  THE  COUNT  IN  ACQ  TO  MILLISECONDS  AND  PRINTS  IT 


036-31 

036132 

036133 

036134 

036135 

036136 

036137 

036140 

036141 

036142 

036143 

036144 

056145 

036146 

036147 

036150 

036:51 

056' 52 

056155 

056154 

0361 5S 

036156 

036157 

036160 


261  17  0 

200  05  0 
552  00  0 

201  05  0 

202  05  0 

250  00  0 
202  00  0 
200  05  0 

251  05  0 
200  00  0 


250  00 
242  01 
511  01 
550  00 
505  00 
254  00 
550  00 


0 
0 
0 
0 
0 
0 
0 


400  00  0 
250  00  0 


260  17 
200  00 


057  15  0 
262  17  0 
265  17  0 


00  000005 
00  100041 
00  050041 
00  001750 
00  C77646 
00  077646 
00  077625 
00  077646 
00  000012 
00  000001 
00  000005 
00  000001 
00  000005 
00  000000 
00  000012 
00  056155 
00  077625 
00  000000 
00  077625 
00  066165 
00  077625 
00  000000 
00  000005 
CO  000000 


PTMCNV: 


PUT 

AC5 

MOVE 

AC5,TIMCNT 

SKIPE 

KLFLG 

MOVE  I 

AC5,*D1000 

MOVEM 

AC5,MSCNT# 

IDIV 

MSCNT 

MOVEM 

HGHSAV* 

MOVE 

AC5,MSCNT 

IDIVI 

AC5,'^D10 

MOVE 

AC1 

IDIV 

AC5 

LSH 

AC1,1 

CAML 

AC1,AC5 

AOS 

CAIGE 

*D10 

JRST 

.+5 

AOS 

HGHSAV 

SETZ 

EXCH 

HGHSAV 

GO 

PSDN 

MOVE 

HGHSAV 

PNTDEC 

GET 

AC5 

RTN 

GET  CLOCK  CAL  IMS  TIME 

GET  1MS  TIME  FOR  KLIO 

SAVE  TIME 

DIVIDE  BY  TIME  FOR  1  MSEC 

SAVE  HIGH  DIGIT(S) 

GET  1  MSEC  COUNT 

CONVERT  TO  100  USEC 

PREVIOUS  REMAINDER  TO  ACO 

TENTHS 

DOUBLE  NEW  REMAINDER 

ROUNDING 

ROUNDED  UP  PAST  9? 

NO-LOOKS  OKAY 

YES-BUMP  HIGH  DIGIT(S) 

AND  ZERO  ROUNDED  REMAINDER 

SWAP  REMAINDER  AND  HIGH  DIGIT(S) 

PRINT  HIGH  DIGITS  AS  SIGNED  DECIMAL 

NOW  FETCH  REMAINDER 

RESTORE  WORK  AC 


DDRPl  - 
DDRPI2 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

566A 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 
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036161 

036161 
036162 
036163 
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SUBTTL   RANDOM  COMMAND  TEST  -  RCTEST  (TEST  #15) 
XLIST 

LIST 

;*  RCTEST  —  random  coiTifnand  test 

;#♦•♦♦♦♦*************************************************************** 


SEQ  0223 


C 
C 


260  17  0  00  046276 
O^JOOO  005000 
000000  000000 


036'64  476  00  0  00  077625 

036165  476  00  0  00  000013 

056166  260  17  0  00  045630 

036167  254  OO  0  00  031772 

0361  .'0  -"^54  00  0  00  03616'- 


COMMENT  $ 


This  test  is  designed  to  cause  an  overlap  of  position 
and  data  transfer  commands  to  selected  drives.  The 
commands  to  be  issued  are: 

READ    -  no  data  compare 

READ  HEADERS 

WRITE   -  any  data  to  be  used 

SEEK    -  seek  to  selected  random  address 

SEARCH  -  search  to  selected  random  disk  address 

There  will  be  twice  as  many  reads  and  writes  as  other  commands. 

All  data  transfers  are  limited  to  2  sectors  in  length. 

I 

XLiST 


RCTEST: 
LIST 


TINT    50000,5000,0,0,0 

GO     SETUP 

XWD    50000,5000 

<0>B17!<0>B23I<0>B24 


SALL 


SETOM   *i>ELFG 


;INIT  THE  TEST  WITH  PARAMETERS 

:RELIAB  HERAT  =  50000,  NORM.  =  5000 
.-"•Ay  #  TRACKS  IN  A  XFR  =  0 
;SWITCH  OVERIDES  -  "ALLADR"  =  0 
i      "ALLDRV"  =  0 


;N0  DELETION  ALLOWED 


KrTST2:  SETOM 

DRIVE 

RCTsrO-  ro 

SCLECT 

JRST 

NODPIV:: 

JRST 

RCTST2 

.•SELECT  A  DRI.E/ADDR 
;NON-USUABLE  DRIVE  FOUND 
;RESET  THE  SELECT  ROUTINE 


'~i 
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r 


SEQ  ^lli^ 


5693 

569A 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

5738 

5739 

5740 


036171 
036172 
036173 
0361 74 

036175 
036176 
036177 
036200 
036201 
036202 
036203 
036204 
036205 

036206 
036207 
036210 
036211 

036212 
036213 
036214 
036215 
036216 
036217 


261  17  0  00  000013 

261  17  0  00  100730 

261  17  0  00  100731 

261  17  0  00  100732 


201  01 
260  17 
200  01 
405  01 

200  00 

201  02 
311  00 
400  02 

202  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
01 
00 
00 
00 
00 


100000 
053714 
030022 
000007 
036231 
000202 
067705 
000000 
100733 


201  01  0  00  070000 
260  17  0  00  053714 
200  01  0  00  030022 
405  01  0  00  000007 


200  00 
607  00 
254  00 
302  01 
306  01 

201  01 


0  13  100747 
0  00  006000 
0  00  036220 
0  00  000000 
0  00  000007 
0  00  000001 


036220  256  00  0  01  036231 


036221 
036222 
036223 
036224 
036225 
036226 

036227 
036230 

036231 
036232 
036233 
036234 
036235 
036236 
036237 
036240 


2oi 
262 
262 
262 
037 
367 


17 
17 
17 
17 
10 
15 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


100732 
100731 
100730 
000013 
000002 
036166 


476  00  0  00  100006 
263  17  0  00  000000 


001  02 
001  00 
001  01 
001  06 
001  04 
001  06 
001  00 
001  02 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


PUT 
PUT 
PUT 
PUT 

MOVE  I 

PARAMS 

MOVE 

AND  I 

MOVE 

MOVE  I 

CAML 

SETZ 

MOVEM 

MOVE  I 
PARAMS 
MOVE 
AND  I 

MOVE 
TLNN 
JRST 
CAIE 
CAIN 
MOVE  I 

RCTST1:  XCT 

GET 

GET 

GET 

GET 

SWITCH 

REPTLP 

RCTSTX:  SETOM 
RTN 


RCTTBL: 


WRITE 

READ 

READHD 

SRCH 

SEEK 

SRCH 

READ 

WRITE 


DRIVE 
.CYLIN 
.SURF 
.SECT 

ACUNWBAS 

AC1,RANDBS 

AC1,7 

RCTT8L(AC1) 

AC2,202 

CSEEfC] 

AC2, 

AC2,.SIZE 

AC1,RSEC!RSURIRCYL 

ACl.RANDBS 
AC1,7 

AC0,DS81BL(DRIVE) 

ACO,(.WRTL!.S»'RTL) 

RCTSTl 

ACKO 

AC1,7 

ACIJ 

RCTTBL(ACI) 

.SECT 
.SURF 
.CYLIN 
DRIVE 

RCTSTO 
TINTF6 


;SAVE  PARMS  FROM  SELECT 


:GEN  A  RANDOM  BASE  n 

;THEN  GET  IT 
;SAVE  ONLY  1  DIGIT 
;GET  THE  CMD  TO  DO 
;GET  THE  XFR  SIZE 
;DATA  XFR?? 
;N0  -  ITS  A  POSITION 
;AND  SAVE  IT 


CMD 


GENERATE  RANDOM  PARAMETERS 

GET  THE  RANDOM  # 

Get  the  coivnand  to  do 

Load  driwe  status 
Skip  if  write  Locked 
Nope,  any  command  legal 
Is  it  the  first  write? 
or  the  second  write? 
Yes,  make  it  a  read  instead 

ISSUE  THE  SELECTED  COMMAND 

.•RESTORE  PARMS  rROM  SE  ECT 


;GET  THE  PGM  SWITCHES 
;LOOP  TILL  ALL  DONE 


.•WRITE  ANY  DATA 

;READ  ANY  DATA 

;READ  HEADERS/DATA 

.•SEARCH  COMMAND 

.-SEEK  TO  SELECTED  DISK  ADDR 


.*WllHHmii|ir|lli>il>ii   IIVVitWT  . 


DDRPI  - 
DDRPI2 

57A1 

57A2 

5743 

57A4 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5'^0 

5/c' 

5762 

5763 

5764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 

5785 
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SUBTTL       HARD  DATA  ERROR  SPOT  IDENTIFIER  -  MAPOUT 
XLIST 

LIST 

•  /If***********  **•»••*•**♦♦♦♦**•♦****•*••****•••***•*******♦**♦**  *♦**♦♦** 
;*  MAPOUT  —  'BAT  BLOCK"  MANIPULATOR  ROUTINE 

; /If**********************  *************************************  *♦**♦****♦ 


r 


SEQ  0225 


COMMENT  $ 


THIS  ROUTINE  WILL  INTERROGATE  THE  PACK'   'BAT  BLOCK"  STORAGE  AREA  FOR^     , 
ALL  SELECTED  DRIVES.   A  COPY  OF   THIS  AREA  WILL  BE  KEPT   IN  THE  DRIVE  "DSB* 
AREA  TO  SAFEGUARD  AGAINST  ACCIDENTAL  DESTRUCTION  WHILE   TESTING  THE 
DRIVE. 

UPON  SYSTEM  CONFIGURATION,   THE  PACK  'BAT  BLOCK"  AREA  WILL  AUTOMATICALLY 
6E  READ  AND  STORED.  HARD  DATA  ERROR  SPOTS  ON  THE  PACK  WILL  BE  DELETED 
FROM  TESTING. 

ENTERING  THIS  ROUTINE  BY  OPERATOR  REQUEST   (I.E.   "WHAT   TEST")   WILL  GIVE 
THE  OPERATOR  THE  FOLLOWING  OPTIONS: 

1)  RE-WRITE  THE   'BAT  BLOCK"  BACK  ONTO  THE  PACK  -  WITH  AN  UPDATED 
'BAT  BLOCK". 

2)  REMOVE  KNOWN  "SOFT"  ERROR  SPOTS  FROM  TESTING   TO  ELIMINATE  CONSISTANT 
RECOVERABLE  ERROR  SPOTS. 

3)  REPORT  CONTENTENTS  OF   'BAT  BLOCK"  TO  OPERATOR 

NOTE:   A  PACK  FORMATTED   IN  16  BIT  FORMAT   (PDP-11   MODE)   WILL  NOT  HAVE 
A  'BAT  BLOCK"  AREA  AND   CANNOT  CONTAIN  A  'BAT  BLOCK"  AREA  I 

$ 

XLIST 


036241 

036241  260  17  0  00  046276 

036242  OOOOC:     000001 

036243  000000    000000 


MAPOUT:    TINT         1,1,0,0,0 
LIST 

GO  SETUP 

XWD  1,1 

<0>B17!<0>B25I<0>B24 


SALL 


;INIT   THE   TEST  WITH  PARAMETERS 
;RELIAB  ITERAT  =  1,  NORM.   =  1 
;MAX  #  TRACKS   IN  A  XFR  =  0 
.•SWITCH  OVERIDES  -  "ALLADR"  =  0 
t:  "ALLDRV"  =0 


-MmmmimtlHltm 
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\ 


SEQ  0226 


5786 
5787 

0362AA 

336  00  0  00  077663 

MAP01 : 

SKIPN 

PAKINF               ;D0IN6  INIT  SCRIPT  ? 

5788 

0362 A 5 

25A  00  0  00  036250 

JRST 

.+3 

5789 

0362A6 

037  02  0  00  067706 

PMSG 

<'^BAT  BLOCK  CONTENTS> 

5790 

0362A7 

25A  00  0  00  036310 

JRST 

BLKLST 

5791 

036250 

037  OA  0  00  067712 

PMSGF 

<*REPORT  ••BATBLK"  CONTENTS?> 

5792 

036251 

037  02  0  00  000003 

TTINO 

;Y  OR  N 

5793 
579A 
5795 

036252 

25A  00  0  00  036310 

JRST 

BLKLST               ;YES 

036253 

336  00  0  00  077663 

MAP02 : 

SKIPN 

PAKINF               ;DOING  INIT  SCRIPT 

5796 

03625A 

25A  00  0  00  036257 

JRST 

.+3 

5797 

036255 

037  02  0  00  067717 

PMSG 

<'^DRIVE  BAT  BLOCKS  CREATED> 

5798 

036256 

25A  00  0  00  036305 

JRST 

MAP05 

5799 

036257 

037  OA  0  00  06772A 

PMSGF 

<*REMOVE  A  "SOFT"  ERROR  AREA  FROM  TESTING  ?> 

5800 

036260 

037  02  0  00  000003 

TTINO 

;Y  OR  N 

5801 
5802 
5803 

036261 

25A  00  0  00  036630 

JRST 

SFTOUT               ;YES  -  DO  IT 

036262 

A02  00  0  00  077512 

MAP03 : 

SETZM 

AUTBAT4f              .-CLEAR  THE  AUTO  PROCESS  FLAG 

580A 

036263 

332  00  0  00  07762A 

SKIPE 

HRDINF* 

5805 

03626A 

25A  00  0  00  036271 

JRST 

.'••5 

5806 

036265 

037  OA  0  00  06773A 

PMSGF 

^INCLUDE  "HARD"  ERROR  SPOTS  FOR  TESTIN6?> 

5807 

036266 

037  02  0  00  000003 

TTINO 

;Y  OR  N 

5808 

036267 

260  17  0  00  036623 

GO 

HARDIN               ;YES  -  TAKE  SPOTS  OUT  OF  TABLE 

5809 

036270 

25A  00  0  00  036276 

JRST 

MAPOA 

5810 

036271 

037  OA  0  00  0677A3 

PMSGF 

<*REMOVE  "HARD"  ERROR  SPOTS  FROM  SELECTION?> 

5811 

036272 

037  02  0  00  000003; 

TTINO 

;Y  OR  N 

5812 

036273 

260  17  0  00  036520 

GO 

HRDOUT               ;YES  -  PUT  SPOTS  IN  TABLE 

5813 

03627A 

332  00  0  00  077715 

SKIPE 

REMOVF               ;IN  OR  OUT?? 

58U 
5815 
5816 

036275 

260  17  0  00  036623 

GO 

HARDIN               .-FORCE  SPOTS  OUT  OF  TABLE 

036276 

33:?  00  0  00  030037 

MAPOA : 

SKIPN 

USER 

5817 

036277 

25A  00  0  00  036302 

JRST 

.-••3 

5818 

036300 

336  00  0  00  077663 

SKIPN 

PAKINF               .-DOING  PACK  INIT  SCRIPT 

5819 

036301 

25A  00  0  00  036306 

JRST 

MAPEX                ;N0  CAN'T  DO  IT  IN  USER  MODEII 
<'^UPDATE  DRIVE  BAT  BLK  AREA  NOW?> 

5820 

036302 

037  OA  0  00  067753 

PMSGF 

5821 

036303 

037  01  0  00  000003 

TTIYES 

;Y  OR  N 

5822 

03630A 

25A  00  0  00  036306 

JRST 

MAPEX               ;N0 

5823 
582A 
5825 

036305 

260  17  0  00  036762 

MAP05 : 

GO 

WRTBAT               ;YES  -  DO  IT  NOWI 

036306 

A76  00  0  00  100006 

MAPEX: 

SETOM 

TINTF6 

5826 

036307 

263  17  0  00  OOOOOO 

RTN 

•VtWIM 
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SEQ  0227 


5827 

5828 

5829 

5830 

5831 

5832 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 


036310  402  00  0  00  077633 

036311  476  00  0  00  077625 

036312  476  00  0  00  000013 


03631 3 
036314 
03631 5 
036316 
036317 
036320 
036321 
036322 
036323 
036324 
036325 
036326 
036327 
036330 
036331 
036332 
036333 
036334 

036335 
036336 
036337 
036340 
036341 


260  17 
254  00 
254  00 
332  00 
254  00 
037  00 
260  17 
037  00 
332  00 
254  00 
550  01 
260  17 
336  01 
254  00 
037  02 
250  00 
037  00 
037  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

11 

00 


0  11 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


045650 
031772 
036253 
077576 
036253 
030242 
054607 
030242 
030037 
036327 
000010 
065772 
000023 
036335 
067761 
000001 
000002 
067761 


332  00  0  11  000152 
254  00  0  00  036342 
Oi.'  02  0  00  067762 
260  17  0  00  036657 
254  00  0  00  036313 


;*BLKLST  —  ROUTINE  TO  PRINT  CONTENTS  OF  'BAT  BLOCK" 


BLKLST:  SETZM 
SETOM 
SETOM 

BLKLS1:  60 

JRST 

JRST 

SKIPE 

JRST 

PCRL 

60 

PCRL 

SKIPE 

JRST 

HRRZ 

60 

SKIPN 

JRST 

PMS6 

EXCH 

PNTSIX 

PMS6 

BLKLS5:  SKIPE 
JRST 
PMS6 
60 
JRST 


L0CKF6 
IDELF6 
DRIVE 

SELECT 

NODRIVE 

MAP02 

DSKAD 

MAP02 

PNTDRV 

USER 
.+3 

AC^.DSN(DSBP) 

R10SER 

AC1,.PKID(DSBP) 

BLKLS5 

<•> 

AC1 


<"> 


.•ENABLE  ALL  ADDR  TO  BE  SELECTED 


SELECT  A  DRIVE 
NON-USUABLE  DRIVE  SELECTED 
ALL  DONE 


.-PRINT  DRIVE/MBC  M 

;IN  USER  MODE? 
;YES 

.•PRINT  THE  SERIAL  # 
;ANY  PACK  NAME?? 
;NOPE 

;YES  -  GET  THE  NAME 
;AND  PRINT  IT 


.BAT(DSBP) 
BLKL1 


;ANY  BAT  BLOCK  FOR  THIS  DRIVE? 

;YES  (I  THINK  SO) 
ONO  BAT  BLOCK  FOUND  FOR  THIS  DRIVE  !''> 
6ENBAT  ;6ENERATE  A  BAT  BLK  AREA 

BLKLS1 
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SEQ  0228 


5860 

5861 

5862 

5863 

5864 

5865 

5866 

5867 

5868 

5869 

5870 

5871 

5872 
5873 
5874 
5875 
5876 
5877 


036342 
036343 

036344 
036345 
036346 
036347 
036350 
036351 
036352 


036353 


200  00  0  11  000152 
312  00  0  00  067771 


037  02  0 
200  00  0 
306  00  0 
254  00  0 
037  02  0 
260  17  0 
254  00  0 


00  067772 
11  000350 
00  606060 
00  036353 
00  067777 
00  036657 
00  036313 


BLKL1 : 


BLKL2: 


036356 
036357 
036360 


402  00  0  00  077516 
550  QQ  Q  11  QQQ153 
106  00  0  00  0Q0Q04 
J54  00  0  00  036361 
275  00  0  00  000004 
202  00  0  00  077516 


BLKL3: 


MOVE 
CAME 

PMSG 

MOVE 

CAIN 

JRST 

PMSG 

GO 

JRST 

SETZM 

HRRZ 

CAIN 

JRST 

SUBI 

MOVEM 


.BAT(DSBP) 
CSIXBIT/BAT/] 


;GET  1ST  WORD  OF  BAT  BLK 
;REAl.LY  "BAT"  BLK? 


<?1ST  BAT  BLK  WORD  NOT  •BAT"?*> 

.BAT+176(DSBP)         ;6ET  LAST  WORD  OF  BAT  BLOCK 

606060  .-PROPER  FORMAT? 

BLKL3  ;YES 

<?LAST  BAT  BLK  WORD  NOT  '"606060"  -  ABORT'^> 

GENBAT  ;GEN  A  BAT  BLK  AREA 

BLKLS1 


BATEST* 

.BAT+KDSBP) 

4 

BLKL4 

4 

BATEST 


;GET  THE  ENTRY  POINTER 

.•SPECIAL  HANDLING? 

;N0 

;YES  -  NOT  NORMAL? 

.•SAVE  ENTRY  OFFSET 


._J 
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SEQ  0229 


5878 

I.08O 

5881 

5882 

5883 

588A 

5885 

5886 

5887 

5888 

5889 

5890 

5891 

5892 

5893 

589A 

5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

5903 

5904 

5905 

5906 

5907 

5908 

5909 

5910 

5911 

5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 


036361 
036362 
036363 
036364 
036365 
036366 
036367 

036370 
036371 
036372 
036373 
036374 
036375 
036376 
036377 
036400 
036401 
036402 
036403 

036404 
036405 
036406 
036407 

036410 
036411 
036412 
036413 


06 
00 


201 
332 

270  06 
336  00 
254  00 
037  02  0 
037  02  0 


0 
0 
0 
0 
0 


336  01 
254  00 
621  01 
200  00 
260  17 
260  17 
200  00 
260  17 
202  00 
557  00 
037  04 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


11  000156 
00  077516 
00  077516 
06  000001 
00  036500 
00  070006 
00  070014 

06  000001 
00  036500 
00  770000 
00  000001 
00  066163 
00  066122 
00  000001 
00  045627 
00  000001 
00  000000 
00  000000 
00  066122 


BLKL4: 


550  00  0  00  000001 
242  00  0  00  777770 
037  02  0  00  000000 
260  17  0  00  066122 

550  00  0  00  000001 
405  00  0  00  000037 
037  02  0  00  000000 
260  17  0  00  066122 


036414 

550  00 

036415 

620  00 

036416 

260  17 

036417 

260  17 

036420 

554  00 

036421 

405  00 

036422 

3  32  00 

036423 

254  00 

036424 

037  00 

0];6425 

254  00 

0]i6426 

402  00 

036^27 

602  00 

03;643;o 

254  00 

036431 

242  00 

036432 

344  01 

036433 

200  00 

036434 

037  01 

0 
0 
0 
0 
0 

c 

0 
0 
0 
0 
0 
0 
0 
0 
0 


06 
00 
00 
00 
06 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 
0  00 


000000 
740000 
066163 
066122 
000000 
000377 
000000 
036426 
000077 
036435 
000001 
000001 
036433 
777777 
036427 
000001 
000000 


BLKL4L 


BLKL4A 


BLKL4B 


BLKL4C 


BlKL4D 


BLKL4E 


MOVE  I 

SKIPE 

ADD 

SKIPN 

JRST 

PMSG 

PMS6 

SKIPN 

JRST 

TLZ 

MOVE 

GO 

GO 

MOVE 

GO 

MOVEM 

HLRZS 

PNT4 

GO 

HRRZ 
LSH 
PNT2 
60 

HRRZ 
AND  I 
PNT2 
60 

HRRZ 
TRZ 
60 
60 

HLRZ 

AND  I 

SKIPE 

JRST 

PNTCI 

JRST 

SETZM 

TRNE 

JRST 

LSH 

AOJA 

MOVE 

PNT1 


AC,.BAT+4(DSBP)        ;SETUP  ENTRY  POINTER 
BATEST  .-NORMAL  OFFSET? 

ACBATEST  ;N0  -  GET  ADDITIONAL  OFFSET 

KAC)  ;ANY  BAD  SPOT  IN  BAT  BLK? 

BLICL6  ;N0! 

<*LOG]CYL]SURF]SECT]CPU  #JUNIT  ft> 
<'^BLOCK](8)](8)](8)J(10)JIN  ERROR^'^> 


AC1,1(AC) 

BLKL6 

ACU(77B5) 

AC1 

PSDN 

.TAB 

AC1 

BLKADR 

AC1 


.TAB 

AC1 
-'^DS 

.TAB 

AC1 
37 

.TAB 

(AC) 

740000 

PSDN 

.TAB 

(AC) 

377 

.♦3 

BLKLAF 
AC1 
1 
.^3 

-1 

AC1,.-3 

AC1 


;GET  LOGICAL  BLOCK  OF  ERRO 
;N0  ENTRY  HERE  -  ALL  DONE 


;PRINT  LOGICAL  BLOCK  M 
.•CONVERT  TO  REAL  DSK  ADDRESS 
;PRINT  CYLINDER  * 


.•PRINT  SURFACE  ff 


.•PRINT  SECTOR  » 

;GET  CPU  # 

.•PRINT  IT 

;GET  UNIT  ft 

.•KNOWN  Ml 
;YES 


.•THIS  UNIT? 

•YES 

•NO  -  SHIFT  +  TEST  AGAIN 


.•PRINT  UNIT  ft 


mi»i»w-*>-  iw  1 


L 


17 
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SEQ  0250 


5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

593A 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 

5977 


036435 

036436 

036437 

036440 

036441 

036442 

036443 

036444 

036445 

036446 

036447 

036450 

036451 

036452 

036453 

036454 

036455 

036456 

036457 

036460 

036461 

036462 

036463 

036464 

036465 

036466 

036467 

036470 

036471 

036472 

036473 

036474 

036475 

036476 

036477 

036500 
036501 
036502 
036503 
036504 
036505 
036506 
036507 
036510 
036511 
036512 
036513 
036514 
036515 
036516 
036517 


200  00  0 
606  00  0 
254  00  0 


037  02 
135  00 
350  00 
260  17 


0 
0 
0 
0 


037  02  0 
135  01  0 


135  00 
336  00 
254  00 
202  00 


0 
0 
0 
0 
037  02  0 
200  00  0 
037  01  0 
037  02  0 
200  01  0 
607  01  0 
254  00  0 
037  02  0 
254  00  0 
607  01  0 
254  00  0 
037  02  0 
254  00  0 
607  01  0 
254  00  0 
037  02  0 
254  00  0 
13?  00  0 
037  02  0 
037  00  0 
271  06  0 
254  00  0 

037  02  0 

135  00  0 

037  03  0 

037  02  0 

135  00  0 

037  03  0 

037  02  0 

200  00  0 

037  03  0 

260  17  0 


037 
135 
242 
037 


0? 
00 
0 
0 


037  02 
254  00 


06  000000 
00  040001 
00  036475 
00  070022 
00  070026 
00  000000 
00  066163 
00  070027 
00  070031 
00  070032 
00  000000 
00  036475 
00  000001 
00  070033 
00  000001 
00  000000 
00  070036 
06  000001 
00  040000 
00  036463 
00  070041 
00  036475 
00  020000 
CO  036467 
00  070043 
00  036475 
00  010000 
00  0364)^3 
00  070047 
00  036475 
00  070054 
00  000000 
00  030242 
00  000002 
00  036370 

00  070055 
00  070063 
00  000000 
00  070064 
00  070074 
00  000000 
00  070075 
11  000155 
00  000000 
00  066122 
0  00  070102 
0  00  070107 
0  00  000002 
0  00  000000 
0  00  070110 
0  00  036313 


BLKL4F 


BLKL5 


BLKL6 


MOVE 

TRNN 

JRST 

PMS6 

LDB 

AOS 

GO 

PMSG 

LDB 

LDB 

SKIPN 

JRST 

MOVEM 

PMSG 

MOVE 

PNT1 

PMSG 

MOVE 

TLNN 

JRST 

PMSG 

JRST 

TLNN 

JRST 

PMSG 

JRST 

TLNN 

JRST 

PMSG 

JRST 

LDB 

PNT2 

PCRL 

ADDI 

JRST 

PMSG 

LDB 

PNT3 

PMSG 

LDB 

PNT3 

PMSG 

MOVE 

PNT3 

GO 

PMSG 

LDB 

LSH 

PNT3 

PMSG 

JRST 


;GET  THE  1ST  WORD  OF  ENTRY 
;NEW  TYPE  BAT  BLK  ENTRY? 
;NOPE! 

;GET  SIZE  IN  BLOCK 

.•INCREMENT  BY  1  TO  PRINT  CORRECTLY 


GET  ENTRY  VERSION  If 
GET  THE  NEW  TYPE  BIT 
NEW  STYLE  BAT  BLK  ENTRY?? 
NO 


(AC) 

1B21 

BLKL5 

<*SIZE  OF  BAD  SPOT=  > 

[POINT  9. (AC), 83 

0 

PSDN 

<  BLOCK^> 

AC1, [POINT  3J(AC),2] 
[POINT  3, (AC), 233 

BLKL5 

AC0,AC1 

<ENTRY  VERS  =  > 

AC1 

<  ERROR  CODE  =  > 
AC1,1(AC) 
AC1,(1B3) 

<''OTHER"**> 

BLKL5 

AC1,(1B4) 

.•»-3 

<PARITY  OR  Ere  ERROR' 

BLKL5 

AC1,(1B5) 

<SEARCH  OR  HEADER  ERROR' 

BLKL5 

[POINT  6,1  (AC), 83      ;GET  ERROR  ff 

;DON'T  KNOW  WHAT  IT  IS??? 


)AA< 


GET  THE  2ND  ENTRY  WORD 

"OTHER"  ?? 

NO 


.•PARITY  OR  ECC  ERROR?? 
;N0 


.•SEARCH  OR  HEADER?? 
;N0 


AC, 2 
BLKL4L 


.•POINT  TO  NEXT  BAT  BLK  ENTRY 
.•PROCESS  NEXT  ENTRY 


<^BAD  BLOCK/REGIONS  BY  DIAGNOSTIC  => 

[POINT  9,.BATi2(DSBP),173      ;GET  BAD  BLOCKS/DIAG 

<*TOTAL  #  OF  BAD  BLOCKS  DETECTED  BY  DIAGNOSTIC  => 
[POINT  9,.BAT*2(DSBP),83 

<'^aAD  REGIONS  BY  MONITOR  => 
.BAT*3(DSBP) 

TAB 
<MBC  ff   USED  IN  BAT  BLK  =  > 
[POINT  7,.BAT+2(DSBP),24] 
2 


;GET  MBC  ff 


,______«_______ __._AA< 


BLKLS1 


.-ALL  DONE  -  PROCESS  NEXT  DRIVE 


MIMINI 


MHMH 


Hit'ik     iiMfcti'Mwn 


18 
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SEQ  0231 


5978 

5979 

5980 

5981 

5982 

5985 

598A 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

599A 

5995 

5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 


036520 
036521 
036522 
036523 
036524 
036525 
036526 
036527 
036530 
036531 
036532 
036533 
036534 
036535 
036536 
036537 

036540 
036541 
036542 
036543 
036544 
036545 

036546 
036547 
036550 


402  00 
402  00 
402  00 
332  00 
254  00 
402  00 
402  00  0 
476  00  0 
260  17 
254  00 
334  00 
332  00 
263  17 
332  01 
312  01 
254  00 

402  00 
550  00 
306  00 
254  00 
275  00 
202  00 


0  00  077715 
0  00  077633 
0  00  077624 
0  00  077512 
0  00  036540 
0  00  077753 
00  077754 
00  000013 
0  00  045650 
0  00  031772 
0  00  000000 
0  00  077576 
0  00  000000 
0  11  000152 
0  00  067771 
0  00  036616 

0  00  077516 

0  11  000153 

0  00  000004 

0  00  036546 

0  00  000004 

0  00  077516 


201  06  0  11  000156 
5ii  00  0  00  077516 
270  06  0  00  077516 


)*HRDOUT  —  ROUTINE  TO  REMOVE  AREAS  INDICATED  BY  BAT  BLOCKS  FROM  TESTING 


HRDOUT:  SETZM 
SETZM 
SETZM 
SKIPE 
JRST 
SETZM 
SETZM 
SETOM 
GO 
JRST 
SKI  PA 
SKIPE 
RTN 
SKIPE 
CAME 
JRST 


HRD01 


HRD01X: 


HRD02 


HRD03 


SETZM 

HRRZ 

CftN 

•P  T 

MOVEM 

MOVE  I 
SKIPE 
ADD 


REMOVF 

LOCKFG 

HRDINF 

AUT8AT 

HRD02 

SEQADR 

SEQDRV 

DRIVE 

SELECT 

NODRIVE 

-^SKAD 

AC1,.BAT(DSBP) 

AC1,CSIXBIT/BAT/J 

HRD01E 

BATEST 

.BAT+KDSBP) 

4 

HRD03 

4 

BATEST 

AC,.BATM(DSBP) 

BATEST 

AC, BATEST 


; INDICATE  ENTRY  INTO  DELETION  MAP 


;AUTO  PROCESSING? 
;YES  -  SKIP  SOME  CODE 
;INIT  FOR  SELECT 


;SELECT  A  DRIVE 

;NON-USUABLE  ONE  FOUND 

;ALL  SELECTED 

.-PROCEED? 

;N0  -  EXIT 

;ANY  BAT  BLK  HERE? 

.•REALLY  BAT  BLOCK? 

;N0 


;GET  ENTRY  POINTER 

; NORMAL? 

•YES 

•NO  -  STRANGE! 


;SETUP  ENTRY  POINTER 
.•SPECIAL  HELP? 
;YES 


.„J 
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SEQ  0232 


6010 

6011 

6012 

6013 

6CU 

6015 

6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

602A 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6C3A 

6035 

6036 

6037 

6038 

6039 

6040 

60A1 

6042 

6043 

6044 

6045 

6046 

6047 


036551 

036552 

036553 

036554 

036555 

036556 

036557 

036560 

036561 

036562 

036563 

036564 

036565 

036566 

036567 

036570 

036571 

036572 

036573 

036574 

036575 

036576 

036577 

036600 

036601 

036602 

036603 

036604 

036605 

036606 

036607 

036610 

03661 1 

036612 

036613 

036614 
036615 


336  01 
254  00 
260  17 
200  00 
621  00 
202  00 
260  17 
202  00 
402  00 
200  03 
602  03 
135  00 
402  00 
135  02 
270  02 
312  02 
476  CO 
554  00 
202  00 
135  00 
202  00 
402  00 
200  00 
202  00 
200  00 
332  00 
254  00 
260  17 
334  00 
260  17 
3d'  03 
350  00 
260  17 
334  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


06 
00 
00 
06 
00 
00 
00 
00 
00 
06 
00 
00 
00 
00 
00 

11 

00 
00 
00 
00 
00 
00 

11 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


000001 

036620 

036632 

000001 

777000 

077515 

045627 

000001 

000000 

000000 

040000 

070026 

000003 

067506 

000000 

000030 

000003 

000001 

100730 

070114 

100731 

100732 

000027 

100733 

077515 

077715 

036606 

0A7153 

000000 

047116 

036614 

100731 

047^53 

000000 

047116 


HRD04: 


271  06  0  00  000002 
254  00  0  00  036551 


HRD04B: 


SKIPN  AC1,1(AC) 

JRST  HRD05 

GO  DELDS6 

MOVE  KAC) 

TLZ  (77788) 

MOVEM  CATBLK 

GO  BlKADR 

MOVEM  AC  I 

SETZM  ACO 

MOVE  AC3,(AC) 

TRNE  AC3JB21 

LDB  CPOINT  9,(AC),8J 

SETZM  AC3 

LDB  AC2,CP0INT  5,AC1,35] 

ADD  AC2,AC0 

CAME  AC2,.MXSEC(DSBP) 

SETOM  AC3 

HLRZ  ACl 

MOVEM  .CYLIND 

LDB  [POINT  5, ACl, 27] 

MOVEM  .SURF 

SETZM  .SECT 

MOVE  .TKSIZ(DSBP) 

MOVEM  .SIZE 

MOVE  BATBLK 

SKIPE  REMOVF 

JRST  .-^3 

GO  DELCHK 

SKJPA 

GO  TRKDEL 

JUMPL  AC3,HRD0AB 

AOS  .SURF 

GO  DELCHK 

SKI  PA 

GO  TRKDEL 

ADDI  AC, 2 

JRST  HRD04 


ANY  ENTRY? 

NO  -  ALL  DONE 

BUILD  A  DELETE  AREA  If   NEEDED 

GET  DSK  ADDR 

STRIP  JUNK 

SAVE  THE  BLOCK  NUMBER 

CONVERT  TO  REAL  ADDRESS 


GET  THE  ENTRY 

NEW  TYPE  BAT  BLK  ENTRY? 

YES  -  GET  #  BAD  BLOCKS 

GET  SECTOR  M 

ADD  #  BAD  BLOCKS 

CROSS  SURFACE  BOUNDRY? 

NO  -  DELETE  1  TRACK 

GET  CYLINDER  M 

SAVE  IT 

GET  THE  SURFACE  M 

SAVE  IT 

START  AT  SECTOR  0 

GET  THE  TRACK  XFR  SIZE 

SETUP  XFR  SIZE  (FAKE  OUT) 

GET  THE  BLOCK  M 

SPOTS  OUT?? 

YES 

IS  THIS  AREA  ALREADY  GONE?? 

YES  -  DON*T  DELETE  IT  AGAIN 

DELETE  THE  TRACK 

OVERFLOW  TO  NEXT  SURFACE? 

YES 

IS  THIS  AREA  ALREADY  DELETED? 

YES  -  SKIP  THE  DELETION  THEMI 

DELETE  NEXT  TRACK 


.-UPDATE  ENTRY  POINTER 
.'PROCESS  NEXT  ENTRY 


^.-  J 


mmmmi-immmi^»'*'i 


J 


J 
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SEQ  0233 


60A8 

60A9 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 

6061 

6062 

6063 

606A 

6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

d080 

6081 

6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 


036616 
03661 7 

036620 
036621 
036622 


036623 
036624 
036625 
036626 
036627 


036630 
036631 


036632 
036633 

036634 
036635 
036636 
036637 
036640 
036641 
036642 
036643 
036644 
036645 
036o46 
036647 
036650 
036651 
036652 
036653 
036654 
036655 
036656 


260  17  0  00  036657 
254  GO  0  00  036530 

336  00  0  00  077512 
254  00  0  00  036530 
254  00  0  00  036534 


476  00  0  00  077715 

477  13  0  00  077624 
476  00  0  00  077625 
402  00  0  00  077633 
254  00  0  00  036530 


260  17  0  00  046411 
254  00  0  00  036262 


33?  00  0  11  000151 
2o<  17  0  00  000000 


201  00 

200  01 
603  01 

201  00 


0 
0 
0 
0 
202  00  0 
200  00  0 
661  00  0 
202  00  0 
550  01  0 
402  00  0 


504  00 
350  00 
270  01 


0 
0 
0 


251  00  » 
200  00  0 
350  00  0 
273  00  0 
260  17  0 
263  17  0 


00  000340 
13  100747 
00  000100 
00  000700 
00  077521 
00  101156 
00  400000 
11  000151 
000000 
000000 
000001 
00000 
177521 
'"'  JOOOOO 
oyj  077521 
00  000000 
00  101156 
00  042133 
00  000000 


00 
01 
00 

r  - 


HRD01E:  GO 

JRST 


GEN8AT 
HRD01 


HRD05:  SKIPN   AUTBAT 
JRST    HRDOl 
JRST    HRDOl X 


.•GENERATE  A  BAT  BLK  AREA 
.•SELECT  AGAIN 


AUTO  PROCESSING? 

NO 

YES  -  EXIT  NOW 


)*HARDIN  —  ROUTINE  TO  REMOVE  BAD  SPOTS  FROM  TRACK  DELETION  TABLE 


HARDIN:  SETOM  REMOVF 

SETOB  DRIVE. HRDINF 

SETOM  IDELFG 

SETZM  LOCKFG 

JRST  HRDOl 


SET  THE  DELETION  REMOVAL  FLAG 
SET  "HARD  SPOTS  IN"  FLAG 
SET  DELETION  CHECK  INHIBIT  FLAG 
NOT  LOOKING  FOR  WRITE-LOCKED  DRIVES 
PROCESS  THE  3AT  BLK 


•#*♦*******♦****♦♦** V*************************************** ********** 

)*SFTOUT  —  ROUTINE  TO  DELETE  "SOFT"  DATA  SPOTS  FROM  TESTING 

;4f»*******K*»*»*** ************************************ **************** 


SFTOUT:  GO 

JRST 


DELETE 
MAP03 


;JUST  NORMAL  DELETION 
;ASK  NEXT  QUESTION 


./If***  *********************************************************  ******** 
;*DELDSB  —  ROUTINE  TO  LOOK  FOR  A  DRIVE  DELETION  TABLE  mO   ALLOCATE  SPACE 

FOR  DELETION  IF  NONE  EXISTS 
•  4f********************************************»  *<********************** 


DELDSB:  SKIPE 
RTN 

MOVE  I 
.  MOVE 
TLNE 
MOVEI 
.  ,•      MOVEM 
MOVE 
k   TLO 
>  .   MOVEM 
HRRZ 
SETZM 
HRL 
.    AOS 
.  ADD 
•   BLT 
MOVE 
AOS 
ADDB 
GO 
RTN 


.DELPT(DSBP) 


AC0,*D224 

AC1,DSBTBL(DRIVE) 

AC1.(.RP06) 

AC0,*D448 

ACO.BSIZE# 

FRECOR 

(1B0) 

.DELPT(DSBP) 

AC1,AC0 

(ACl) 

AC1 

ACKBSIZE 

(ACb 

ACO.BSIZE 

FRECOR 
CORSET 


.-AREA  DEFINED 
;YES 

.-GET  410  CYL  SIZE 
.-GET  TABLE  DATA 


GET  815  CYL  SIZE 
SAVE  BLOCK  SIZE 
NO  -  MAKE  ONE 


SAVE  JUST  THE  ADDR  POINTER 

CLEAR  THE  1ST  ADDR  IN  DELETE  BUFFER 

BUILD  A  BLT  WORD 

Sr-   .E  STOP  ADDR  FOR  BLT 

CLEAk  THE  DELETE  BUFFER  AREA 

GET  BLOCK  SIZE 

♦  1  IT 

UPDATE  THE  FRECOR  ADDRESS 

RESET  INUSE  CORE  BITS 


l_- 


:21 


DDRPI  - 
DDRPI2 

6099 

6100 

6101 

6102 

6103 

61 OA 

6105 

6106 

6107 

6108 

6109 

6110 

6111 

6112 

6113 

611A 

6115 

6116 

6117 

6118 

6119 

6120 

M21 

o122 

6123 

61 24 

6125 

6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

61 3A 

6135 

6136 


RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  0.15     MACRO  2538(12^2)   15:51  28-Aug-85  Page  107 
MAC  28-Aug-85  15:51  HARD  DATA  ERROR  SPOT  IDENTIFIER  -  WAPOUT 


SEQ  0234 


036657 
036660 
036661 
036662 
036663 
036664 
036665 
036666 
036667 
036670 
036671 
036672 
036673 
036674 
036675 


036676 
036677 
036700 
036701 
036702 
036703 
036704 
036705 
036706 
036707 
036710 


402  00  0 
205  00  0 
541  00  0 
251  00  0 
200  00  0 
202  00  0 
200  00  0 
202  00  0 


135  00 
137  00 

201  00 

202  00  0 
0 


201  00 

202  00 
263  17 


0 
0 


11  000152 
11  000152 
11  000153 
11  000351 
00  067771 
11  000152 
00  070115 
11  000153 
00  070116 
00  070117 
00  606060 
11  000350 
00  000002 

11  000^: 1 

00  000000 


201  01 
336  00 


?.6  00 
263  17 
271  01 
307  01 
254  00 


0 
0 
254  00  0 
i  ^?  00  0 
0 
0 
0 
0 
0 
350  00  0 
263  17  0 


11  000156 
01  000000 
00  036707 
00  070120 
00  077515 
00  000000 
00  000002 
1i  000346 
00  036677 
17  000000 
00  000000 


!-*GENBAT  —  ROUTINE  TO  GENERATE  A  BAT 
;*      DSB  AREA. 

GENBAT:  .:TZM  .8AT(DSBP) 

MOVSI  .BAT(DS8P) 

MRRI  .BAT+KDSBP) 

BLT  .BAT^177(DSBP) 

MOVE  CSIXBIT  /BAT/] 

MOVEM  .BAT(DSBP) 

MOVE  M72,,4] 

MOVEM  .BAT+1(DSBP) 

LDB  [POINT  9,MBCN,9] 

DPB  [POINT  9,.BAT+2(DSBP) 

MOVE I  606060 

MOVEM  .SAT+176(DSBP) 

MOVEI  2 

MOVEM  .BAT+1 77 (DSBP) 
RTN 


BLK  AREA  IN  THE  SELECTED  DRIVE'S 


,2h5 


CLEAR  THE  1ST  BAT  BLK  STORAGE  WORD 

PREPARE  TO  CLEAR  THE  BAT  BLK  AREA 

BUILD  A  BLT  WORD 

ZAP... BLT  AREA  NOW  CLEARED 

GET  THE  BAT  BLK  IDENTIFIER 

SAVE  IT 

AND  THE  FREE  SPACE  POINTER 

SAVE  IT  ALSO 

GET  THE  DEVICE  CODE 

;SAVE  IT  IN  THE  BAT  BLK 
GET  THE  BAT  BLK  END  WORD 
SAVE  IT 


.-POINT  TO  SECTOR  2 
;ALL  DONE... EXIT 


;*SAMENT  —  ROUTINE  TO  SCAN  THE  BAT  BLOCK  TABLE  FOR  AN  ENTRY  THAT 
;»      POINTS  TO  THE  SAME  SPOT  AS  IS  SELECTED  TO  BE  DELETED 

•  if  *•»♦♦*••***♦*  t  ****»•*  •♦♦***********'^****^^******  ************  ********* 


SAMENT: 
SAMEM1 : 


SAMEX1 


MOVE  I 

SKIPN 

JRS: 

LDB 

CAMN 

RTN 

ADD  I 

CAIG 

JRST 

AOS 

RTN 


AC1,.8AT+4(DSBP) 

(AC1) 

SAMEX1 

[POINT  27J(AC1),35] 

BATBLK 

AC1,2 

AC1,.BAT074(DSBP) 

SAMEN1 

(P) 


START  OF  THE  BAT  BLK  AREA 
NOW 


\'iNT  TO  THE 

l^^TRY  HERE? 

NO  -  ENPTY  SPOT  EXIT 

GET  THE  BLK  # 

SAME  BLOCK  NUMBER  AS  SELECTED? 

YES  -  RTN  +1 

POINT  TO  NEXT  ENTRY  SLOT 
OF  THE  TABLE? 
TRY  THIS  SLOT 
•Yt;.  -  GET  OUT  (+2  RTN) 


ND 

-I 


DDRPl  - 
DDRP12 

6137 

6138 

6139 

61 40 

6U1 

6142 

6U3 

61AA 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 

6161 

6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 


RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST 
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VERSION  0.15  MACRO  2538(1242; 
ERROR  SPOT  IDENTIFIER  -  MAPOUT 


*  c 


51  28-Aug-85  Page  ^0^ 


SEQ  0233 


DC 
DC 


036711 

036712 

036713 

036714 

036715 

036716 

036717 

036720 

036721 

036722 

036723 

036724 

036725 

036726 

036727 

036730 

036731 

036732 

036733 

036734 

036735 

036736 

036>37 

036740 

036741 

036742 

036743 


202  00  0 
200  00  0 
603  00  0 
263  17  0 

200  00  0 
312  00  0 
260  17  0 
260  17  0 
263  17  0 
403  01  0 
402  00  0 
137  00  0 

201  00  0 
200  03  0 
A05  03  0 
242  00  0 
137  00  0 
250  00  0 
260  17  0 
250  00  0 
137  00  0 
200  00  0 
660  00  0 
137  00  0 
6c'  02  0 
200  00  0 
137  00  0 


00  077515 
13  100747 
00  020000 
00  000000 
11  000152 
00  067771 
00  036657 
00  036676 
00  0(  '^'^OO 
00  OC  ,u02 
00  000000 
00  070121 
00  000001 
00  000013 
00  000007 
03  000000 
00  070122 
00  000001 
00  063665 
00  000001 
00  070123 
00  077672 
00  040000 
00  070124 
00  020000 
00  077515 
00  070125 


i*BATENT  —  ROUTINE  TO  GENERATE  A  BAT  BLK  ENTRY  WORD  AND  SAVE 
;*      IT  IN  THE  DRIVE  BAT  BLK  AREA 


BATENT: 


MOVEM 

MOVE 

TLNE 

RTN 

MOVE 

CAME 


^ 


RTN 

SETZB 

SETZM 

DPB 

MOVEI 

MOVE 

AND  I 

LSH 

DPB 

EXCH 

60 

EXCH 

DPB 

MOVE 

TRO 

DPB 

TLO 

MOVE 

DPB 


BATBLK* 

DSBTBL(DRIVE) 

(.F11) 

.BAT(DSBP) 
CSIXBIT  /BAT/] 
6EN8AT 
SAMENT 

AC1,AC2 

ACO 

[POINT  6,AC1,83 

1 

AC3, DRIVE 

AC3,7 

(AC3) 

[POINT  8,AC1J7] 

AC1 

CHNSEL 

AC1 

[POINT  3,AC1,20J 

P6MCPU 

1B21 

[POINT  15,AC1,35] 

AC2,(1BA) 

BATBLK 

[POINT  27, AC2, 35] 


SAVE  THE  BAD  BLK  M 

GET  THE  TABLE  STATUS 

DRIVE  IN  11  FORMAT?? 

YES  -  CAN'T  MAKE  AN  ENTRY!! 

GET  THE  BAT  BLK  IDENTIFIER  WORD 

IS  IT  CORRECT? 

NO  -  GUESS  I  HAVE  TO  MAKE  A  BAT  BLK 

THIS  AREA  ALREADY  HAVE  AN  ENTRY? 

YES  -  GET  OUT  NOW! 

CLEAR  THE  ENTRY  WORDS 

GET  M   BAD  BLKS-1 

SAVE  IN  1ST  ENTRY  WORD 

BUILD  A  DRIVE  UNIT  INDICATOR 

GET  THE  DRIVE  * 

ONLY  WANT  1  DIGIT 

SHIFT 

SAVE  THE  UNIT  NUMBER 


SAVE  THE  MBC  # 

GET  THE  CPU  ff 

SET  THE  "NEW  ENTRY  BIT 

FINISH  THE  1ST  ENTRY  WORD 

SET  THE  "PARITY  OR  ECC"  BIT 

GET  THE  BLK  0 

SAVE  IT 
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SEQ  0236 


r 

DC 
DC 


6170 

6171 

6172 

6173 

61 74 

6175 

6176 

6177 

6178 

6179 

6180 

6181 

6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 

6198 

6199 

6200 

6201 

6202 

6203 

6204 

6205 

6206 

6207 

6208 

6209 

6210 

6211 

6212 

621? 

6214 

6215 

6216 

6217 


036744 
036745 
036746 
036747 

036750 
036751 

036752 
036753 
036754 
036755 
036756 

036757 
036760 
036761 


200  00  0  11  000154 

270  00  0  00  070126 
202  00  0  11  000154 

201  06  0  11  000156 

336  00  0  06  000000 
254  00  0  00  036757 

271  06  0  00  000002 
307  06  0  1 1  000346 
254  00  0  00  036750 
037  04  0  00  070127 
263  17  0  00  000000 

202  01  0  06  000000 
202  02  0  06  000001 
263  17  0  00  000000 


036762 
036763 
036764 


402  00  0  00  077753 
402  00  0  00  077754 
477  13  0  00  077633 


036765 

260  17 

036766 

2r-  00 

036767 

254  00 

036770 

332  00 

036771 

254  00 

036772 

037  02 

036773 

200  00 

036774 

037  o: 

036775 

200  00 

0]i6776 

306  00 

036777 

254  00 

037000 

.37  02 

037001 

254  00 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 

11 

00 
00 


0  00 
0  00 


045650 
031772 
037105 
077576 
037105 
070133 
000013 
000000 
000030 
000023 
037002 
070135 
036^65 


037002  200  00  0  n  000152 

037003  312  00  0  00  067771 

037004  260  17  0  00  036657 


;N0W  FIND  A  FREE  SPOT  IN  THE  BAT  BLK  STORAGE  AREA  FOR  THE  ENTRY 


BENTL: 


BENTA: 


MOVE 
ADD 
MOVEM 
MOVE  I 

SKIPN 
JRST 

ADDI 

CAIG 

JRST 

PMSfiF 

RTN 

MOVEM 
MOVEM 
RTN 


.BAT+2(DSBP) 
C1001,,0] 
.BAT+2(DSBP) 
AC,.BAT^4(DSBP) 

(AC) 
BENTA 


AC, 2 

AC,.BAT+174(DSBP) 

BENTL 

<*BAT  BLK  AREA  FULL!*> 


AC1,(AC) 
AC2J(AC) 


;GET  THE  ORRIG.  ENTRY  COUNT 
;THEN  UPDATE  IT 
;AND  SAVE  IT 
;POINT  TO  FREE  AREA 

;IS  IT? 
;YES 

; UPDATE  THE  COUNTER 

;AT  END  OF  BAT  BLK  AREA? 

;N0 


;SAVE  THE  1ST  ENTRY  WORD 
;THEN  THE  2ND  ENTRY  WORD 
;EXIT  -  ENTRY  HAS  BEEN  MADE  INTO  BAT  BLK! 


♦WRTBAT  —  ROUTINE  TO  WRITE  THE  STORED  BAT  BLK  AREA  BACK  ONTO 
♦     THE  DRIVE  WITH  ALL  NEW  BAT  BLK  ENTRYS  MADE 


WRTBAT:  SET2M 
SETZM 
SETOB 


WRTBA1 


GO 

JRST 

JRST 

SKIPE 

JRST 

PMSG 

MOVE 

PNT2 

MOVE 

CAIN 

JRST 

PMSG 

JRST 


SEOADR 
SEQDRV 
DRIVE, LOCKFG 

SELECT 

NODRIVE 

WRT6EX 

DSKAD 

WRTBEX 

K'^XX   DRIVE  ff> 

DRIVE 

.MXSEC(DSBP) 
SECT10 

<-  11  rORMAT  (NO  BAT  BLK)!'^^ 
'•'RTBAi 


;INIT  FOR  SELECT 

;DON'T  WRITE  ON  A  WRT-LOCKED  DRV 

.•SELECT  A  DRIVE 

;EXIT  -  ALL  DONE 
;HERE  BEFORE? 
.-YES  -  EXIT 

;6ET  THE  M 
;PRINT  IT 

;GET  THE  MAX  SECTOR  # 
;10  FORMAT? 
YES 


.•CHECK  TO  SEE  IF  THE  BAT  BLK  AREA  EXISTS  ALREADY 


MOVE    .BAT(DSBP) 
CAME    CSIX8IT  /BAT/] 
GO     GENEAT 


;GEr  THE  OAT  BLK  IDENTIFIER 
•WELL'' 

•NO  -  ^^ye   to  make  one  theni 


I   B.>Ll<lll  »  W«l 
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SEQ  0237 


D[ 
D[ 


6218 

6219 

6220 

6221 

6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

623A 

6235 

6236 

6237 

6238 

6239 

62A0 

62  A 1 

62A2 

62A3 

62AA 

62A5 

62A6 

62A7 

62A8 

62A9 

6250 

6251 

6252 

6253 

625A 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 


; COUNT  THE  M   BAD  SPOT  ENTRYS  MADE  &  REPORT  THE  AMOUNT 


037005 
037006 

037007 
037010 
03701 1 
037012 
037013 
03701 A 
03701 5 

037016 

037017 

037020 

037021 

037022 

037023 

03702A 

037025 

037026 

037027 

037030 

037031 

037032 

037033 

03703A 

037035 

03/036 

037037 

0370A0 

0370A1 

0370A2 

0370A3 

0370AA 

0370A5 

0370A6 

0370A7 

037050 

037051 

037052 

037053 

03705A 

037055 

037056 


A02  00  0  00  000002 
037  02  0  00  0701A2 


201  01 
336  00 
25A  00 
271  01 
350  00 
305  01 
25A  00 

200  00 
260  17 
037  02 

200  00 

202  00 
A02  00 
135  00 
137  00 
5A2  01 

201  00 

202  00 

201  00 

202  00 

201  00 

202  00 
A02  00 
AO?  00 
2u'  00 
202  00 
260  17 
260  17 
205  00 
5A0  00 
200  01 
251  00 
200  00 
671  00 
202  00 
205  00 
2A2  00 
660  00 
202  00 
260  17 


0  11  000156 
0  01  000000 
0  00  037016 
0  00  000002 
0  00  000002 
0  11  000350 
0  00  037010 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 

11 

00 
00 
00 

11 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

11 

00 
00 
01 
00 
00 
00 
00 
00 


0  0^ 

0  c 

0  CO 


000002 

066163 

0701AA 

070n5 

000153 

000001 

070150 

070151 

0001 5A 

000^02 

077d^5 

000200 

100733 

000077 

10073A 

100730 

100731 

000002 

100732 

056733 

0AA121 

000152 

100735 

100735 

000177 

070152 

000013 

100163 

000200 

000003 

000002 

10016A 

0A723A 


SETZM 
PMSG 

WRTBTA:  MOVE I 
URTBA3:  SKIPN 
JRST 
ADDI 
AOS 
CAIGE 
JRST 

WRTBTB:  MOVE 
GO 

PMSG 
MOVE 
MOVEM 
SETZM 
LD6 
DPB 
HRRM 
MOVE  I 
MOVEM 
MOVE  I 
MOVEM 
MOVE  I 
MOVEM 
SETZM 
SETZM 
MOVE  I 
MOVEM 
GO 
GO 

MOVSI 
HRR 
MOVE 
BLT 
MOVE 
TSO 
MOVEM 
MOVSI 
LSH 
TRO 
MOVEM 


^ 


AC2 
<CONTAINS  > 

AC1,.BATH(DSBP) 

(ACl) 

WRTBTB 

ACl, 2 

AC2 

AC1,.BAT^176(DSBP) 

WRTBA3 

AC2 

PSDN 

<  BAD  SPOT  ENTRY (S)*> 

C-172,,A] 

.BAT+1(DSBP) 

ACl 

[POINT  9,MBCN-113 

[POINT  9, ACl, 26] 

AC1,.BAT*2(DSBP) 

2 

CMDNUM 

BLKSIZ 

.SIZE 

77 

.PATN 

.CYLIND 

.SURF 

2 

.SECT 

CPMBC 

FNDENT 

.BAT(DSBP) 

.BUFF 

ACl, .BUFF 

177(AC1) 

[02A000,, WRTBTB] 

DRIVE 

COMBUF 

BLKSIZ 

3 

2 

COMBUF +1 

CMDXCT 


POINT  TO  1ST  ENTRY  SLOT 

ANY  ENTRY  HERE?? 

NO 

YES 

COUNT  THE  SPOT 

DONE? 

NOPE  -  CHECK  NEXT  SPOT 

GET  THE  COUNT 
PRINT  IT 


GET  THE  DEVICE  CODE  M 

SAVE  IT 

UPDATE  THE  BAT  BLK  MBC  # 


GET  THE  SECTOR  SIZE 
SAVE  IT 

FAKE  OUT  THE  PATTERN  0 
POINT  TO  CYLINDER  000 
AND  SURFACE  00 

AND  SECTOR  2  (LOGICAL  BLK  2) 

CLEAR  THE  MBC  Q  AREA 

BUILD  A  XFR  CMD 

PUT  THE  BAT  BLK  AREA  IN  XFR  BUFFER 

FINISH  BUILDING  THE  BLT  WORD 

GET  THE  BUFFER  ADDR 

TRANSFER  THE  BAT  BLK  TO  XFR  BUFFER  NOW 

GET  A  FAKE  WRITE  CMD 

ADD  DRIVE  # 

SAVE  IT 

GET  THE  XFR  SIZE 

AND  BLOCK  0 

SAVE  IT 

ISSUE  A  WRITE  TO  THE  DRIVE 


mmtnt  •»0tmm'-*'^ 


DDRPl  - 
DDRPI2 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 
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SEQ  0238 


r 

Dl 
Dl 


037057 

037060 

037061 

037062 

037063 

037064 

037065 

037066 

037067 

037070 

037071 

037072 

037073 

037074 

037075 

037076 

037077 

037100 

037101 

037102 

037103 

037104 

037105 
037106 
037107 


201  00 

202  00 
202  00 
260  17 
260  17 
260  17 
260  17 
205  00 
540  00 
200  01 
251  00 
200  00 
671  00 
202  00 
205  00 
242  00 
660  00 
202  00 
260  17 
260  17 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 

11 

00 
00 
00 
00 

11 

00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


NOU  UPDATE  THE  2ND  BAT  BLK   (SECTOR  13) 


000013 

URTBTC:  MOVEI 

100732 

MOVEM 

000351 

MOVEM 

052570 

60 

053004 

n 

056733 

044121 

60 

000152 

MOVSI 

100735 

HRR 

100735 

MOVE 

000177 

BLT 

070153 

MOVE 

000013 

TSO 

100163 

MOVEM 

0002C0 

MOVSI 

000003 

LSH 

00001 3 

TRO 

100164 

MOVEM 

047234 

GO 

052570 

GO 

053015 

GO 

036765 

JRST 

260  17  0  00  052570 
260  17  0  00  040071 
263  17  0  00  000000 


WRTBEX:  GO 
GO 
RTN 


13 

.SECT 

.BAT+177(DSBP) 

OF  IN 

lOWAIT 

CPMBC 

FNDENT 

.BATCDSBP) 

.BUFF 

ACn.BUFF 

177(AC1) 

[024000,, URTBTC] 

DRIVE 

COMBUF 

BLKSIZ 

3 

13 

COMBUF *1 

CMDXCT 

OF  IN 

lOTERM 

WRTBA1 

QFIN 
CLRBLK 


;6ET  THE  SECTOR  M 

•SAVE   IT 

;UPDATE  THE  BAT  BLK  ALSO 

;WAIT   TILL  ALL  STARTED 

:AND  DONE 

.•CLEAR  THE  MBC  Q 

;GET  A  ENTRY  SLOT 

;NOW  BLT  THE  BAT  BLK  AREA 

;T0  THE  ALLOCATED  BUFFER  SPACE 
; ZAP... ITS  THERE 

;ADD  DRIVE  # 

;GET  XFR  SIZE 

;PLUS  BLOCK  M 
•SAVE   IT 
;D0  THE  XFR  NOW 
.•FINISH  THE  QUE 
;TERM  ALL   10 
.•SELECT  NEXT  DRIVE 

.•WAIT   TILL  ALL  XFf^S   ISSUED 

;EXIT 


NMili 


mmm 


i«  iawti'w '  *»■«*  'm<mm 


i.itinmm>'»i'm"'i^"v* 
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SEQ  0239 


0 
D 


6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

630A 

6305 

6306 

6307 

6308 

6309 

6310 

6311 

6312 

6313 

6314 

6315 

6316 

6317 

6318 

6319 

6320 

6321 

6322 

6323 

6324 

6325 

6326 

6327 

6328 

6329 

6330 

6331 

6332 

6333 

6334 

6335 

6336 

6337 


037110 
037111 
037112 
037113 
037114 
037115 
037116 
037117 
037120 
037121 
037122 
037123 

037124 
037125 
037126 
037127 
0371 30 
037131 
037132 
037133 

037134 
037135 
037136 

037137 
037140 
037141 

037142 
037143 
037144 
037145 

037146 
037147 
037150 


336 
260 
260 
402 
261 
261 
261 
261 
261 
261 
261 
261 


00 
17 
17 

00 
17 

17 
17 
17 
17 
17 
17 
17 


037  02 
260  17 
037  00 
037  02 
402  00 
037  02 
201  00 
260  17 


0  00  030037 
0  00  052570 
0  00  053015 
0  00  077674 
0  00  000013 
0  00  000011 
0  00  000012 
0  00  000000 
0  00  000001 
0  00  000002 
0  00  000006 
0  00  000015 

0  00  070154 
0  00  044454 
0  00  030243 
0  00  070161 
0  00  077676 
0  00  070165 
0  00  000144 
0  00  037260 


03'  02  0  00  070170 
201  00  0  00  000145 
260  17  0  00  037260 

037  02  0  00  070173 
201  00  0  00  000146 
260  17  0  00  037260 

476  00  0  00  077676 
037  02  0  00  0701^6 
201  00  0  00  000147 
260  17  0  00  037260 

037  02  0  00  070200 
201  00  J  00  000150 
260  17  0  00  037260 


SUBTTL   SYSTEM  DATA  ANALYSIS  -  TOTPNT 

;-*TOTPNT  —  ROUTINE  TO  REPORT  THE  SUMMARY  INFORMATION  OF 
;*      SYSTEM  DATA  TRANSFERS  COMMANDS,  POSITIONING 
;♦     COMMANDS,  AND  ERROR  DATA. 

;/|f***************************  *•***♦*♦*****♦*♦***********♦*  ************ 


TOTPNT:  SKIPN 
60 
60 

SETZM 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 


TOTPO: 


PMS6 

60 

PCRL2 

PMS6 

SEfZM 

PMS6 

MOVE  I 

60 

PMSG 
MOVE  I 
60 

PMSG 
MOVE  I 
60 

SETOM 
PMSG 
MOVE  I 
GO 

PMSG 
MOVE  I 
GO 


USER 

QFIN 

lOTERM 

PNTOTS# 

DRIVE 

DSBP 

M6CN 

ACO 

AC1 

AC2 

AC 

REPT 


<**^-^.4f  SUMMARY  DATA  *-/>-#> 
RUNTIM 


;IN  USER  MODE? 
; FINISH  THE  QUE 
;TERM  ALL  10 
.•CLEAR  THE  PRINT  FLAG 


;SAVE  SOME  AC'S 


<*SYSTEM  TOTALS  (10)*> 

PSCIFG# 

<BITS  XFRED  =  > 

.WDXFR 

TOTSP 

<*3BITS  READ  =  > 

.WDRD 

TOTSP 

OBITS  WRT  =  > 

.WDURT 

TOTSP 

PSCIFG 

<**SEEKS  =  > 
.ACTSfC 
TOTSP 

<*RECALS  =  > 

.RECAL 

TOTSP 


;SET  TO  PRINT  SCIENTIFIC  NOTATION 

;GET  THE  ST0RA6E  POSITION  IN  DSB 
.•PRINT  TOTALS  -  SYSTEM 


;GET  WORDS  READ 
.•PRINT 


;GET  WORDS  WRITTEN 
.•PRINT 

.•RESET  TO  NORMAL  PRINTING 

;GET  #  ACTUAL  SEEKS  ISSUED 
.•PRINT  # 


;GET  ff  ISSUED  RECALS 
;Pr<INT   IT 


MpMMiita 


MHBi— 


L 
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SEQ  02A0 


6338 

6339 

63A0 

6341 

6342 

6343 

6344 

6345 

6346 

6347 

6348 

6349 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6374 

6375 

6376 

6377 

6378 

6379 

6380 


037151  037  02  0  00  070202 

037152  037  02  0  00  070206 

037153  201  00  0  00  000137 

037154  260  17  0  00  037260 

037155  037  02  0  00  070211 

037156  201  00  0  00  000135 

037157  260  17  0  00  037260 

037160  0:7  02  0  00  070214 

037161  201  00  0  00  000140 

037162  260  17  0  00  037260 

037163  037  02  0  00  070217 

037164  201  00  0  00  000136 

037165  260  17  0  00  037260 

037166  037  02  0  00  070221 

037167  201  00  0  00  000142 

037170  260  17  0  00  037260 

037171  037  02  0  00  070224 

037172  201  00  0  00  000141 

037173  260  17  0  00  037260 

037174  037  02  0  00  070226 

037175  201  00  0  00  000134 

037176  260  17  0  00  037260 

037177  33?  00  0  00  030037 

037200  cy   00  0  00  037216 

037201  037  02  0  00  070232 

037202  037  02  0  00  070236 

037203  201  00  0  00  000024 

037204  260  17  0  00  037304 

037205  037  02  0  00  070243 

037206  201  00  0  00  000025 

037207  260  17  0  00  037304 

037210  037  02  0  00  0702<7 

037211  201  00  0  00  000026 
037t^12  260  17  0  00  037304 


PMSG 
PMS6 
MOVE  I 
GO 

PMSG 
MOVE  I 
GO 

PMSG 

MOVEI 

GO 

PMSG 

MOVEI 

GO 

PMSG 

MOVEI 

GO 

PMSG 

MOVEI 

GO 

PMSG 

MOVEI 

GO 

SKIPE 

JRST 

PMSG 

PMSG 

MOVEI 

GO 

PMSG 

MOVEI 

GO 

PMSG 

MOVEI 

GO 


<*'^ERROR  TOTALS  -  SYSTEM> 

<**SOFT  READ  =  > 

.SRD 

TOTSP 


;GET  SOFT  READ  n 
.-PRINT 


<HARD  READ  =  > 

.HRD 

TOTSP 

<*SOFT  WRT  =  >' 

.SWRT 

TOTSP 

<HARD  WRT  =  > 

.HWRT 

TOTSP 

<*SOFT  POS  =  > 

.  SP05 

TOTSP 

<HARD  POS  =  > 

.HPOS 

TOTSP 


;GET  HARD  READ  ERRORS 
;PRINT 


;GET  SOFT  WRITE  COUNT 
;PRINT 


;GET  THE  HARD  WRITE  ERROR  COUNT 
;PRINT 


;6ET  THE  RECOVERABLE  POSITIONING  COUNT 
;PRINT 


;GET  THE  NON-RECOVERABLE  POSITIONING  COUNT 
; PRINT 


<^DATA  COMPARE  ERRORS  =  > 


.COMP 
TOTSP 


;GET  COUNT  OF  "COMP"  ERRORS 
; PRINT 


USER 

T0TP1 

<**MBC  DETECTED  ERRORS> 

<**DATA  BUS  PART  TV  EPRORS  =  > 

.DBPE  ;GET  THE  CSB  OFFSET  VALUE 

TOTCP  .-PRINT  TOTAL  MBC  ERRORS 


<DRIVE  RAE  ERRORS  =  > 

.RAE 

TOTCP 


.-PRINT  THE  TOTAL  RAE  ERRORS 


<MBC  DRIVE  RESPONSE  ERRORS  =  > 
DRE 
TOTCP  .-PRINT  TOTAL  RESPONSE  ERRORS  DETECTED 


Mii«liMMiwii 


s 
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r 


SEQ  02A1 


6381 

6382 

6383 

638A 

6385 

6386 

6387 

6388 

6389 

6390 

6391 

6392 

6393 

639A 

6395 

6396 

6397 

6398 

6399 

6A00 

6401 

6A02 

6A03 

6A04 

6A05 

6A06 

6A07 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 


037213  037  02  0  00  070254 

037214  201  00  0  00  000021 

037215  260  17  0  00  037304 


037216 
037217 
037220 
037221 
037222 

037223 
037224 

037225 
037226 
037227 
037230 
037231 

037232 
037233 
037234 
037235 
037236 
037237 

037240 
037241 
037242 

037243 
037244 

037245 
037246 
037247 
037250 
037251 
037252 
037253 
037254 
037255 
037^56 
037257 


332  00  0  00  077514 
254  00  0  00  037245 
037  04  0  00  070257 
037  01  0  00  000003 
254  00  0  00  037245 

403  02  0  00  000013 
200  15  0  00  100671 

336  11  0  13  100747 
254  00  0  00  037243 
553  00  0  00  000011 
315  11  0  00  030145 
254  00  0  00  037243 


200  06 
242  06 
332  00 
254  00 
550  06 
200  12 


0  00  000013 
0  00  llllTi 
0  00  030037 
0  00  037435 
0  06  101047 
0  06  000020 


260  17  0  00  037437 
260  17  0  00  037323 
037  02  0  00  070110 

l:>}  00  0  00  000013 
365  15  0  00  037225 

402  00  0  00  077514 
037  02  0  00  070263 
262  17  0  00  000015 
262  17  0  00  000006 
262  17  0  00  000002 
262  17  0  00  000001 
262  17  0  00  000000 
262  17  0  00  000012 
262  17  0  00  000011 

262  17  0  00  000013 

263  17  0  00  000000 


T0TP2A:  SKIPN 
JRST 
HRRZS 
CAMGE 
JRST 


T0TP2C: 


PMS6    <CHANNEL  ERRORS  =  > 
MOVEI   .CHNER 
GO     TOTCP 

T0TP1:  SKIPE  AUTTOT 

JRST  TOTPX 

PMSGF  <'^''DETAILED  DRIVE  DATA? 
TTIYES 

jrst   totpx 

t0tp2:  setzb  ac2, drive 
move   rept,drmax 

dsbp-dsbtbl(drive) 
totpJb 

DSBP 

ds8p.meml0w 
totpJb 

AC, DRIVE 

AC, -3 

USER 

UTOTP 

AC,CSBTBL(AC) 

MBCN,.MBCN(AC) 

TOTDAT 
TOTEP 

<*======rr==rr====r===**; 

DRIVE 
REPT,T0TP2A 

TOTPX:  SETZM  AUTTOT* 

PMS6  <'^=================== 

GET  REPT 

GET  AC 

GET  AC2 

GET  AC1 

GET  ACO 

GET  MBCN 

GET  DSBP 

GET  DRIVE 
RTN 


MOVE 

LSH 

SKIPE 

JRST 

HRRZ 

MOVE 


T0TP2D:  GO 
GO 
PMSG 

T0TP2B:  AOS 
SOJGE 


PRINT  TOTAL  CHANNEL  ERRORS  DETECTED 

MANUALLY  SELECTED  PRINTOUT? 
NO  -  EXIT  NOW 

Y  OR  N 
NO  -  EXIT 

CLEAR  SOME  AC'S 

GET  n   DRIVES  AVAILABLE 

DRIVE  HERE? 

NOPE 

SAVE  THE  DSB  POINTER 

AREA  OK? 

NO  -  GET  NEXT  DRIVE 

COPY  DRIVE  n 

GET  MBC  n 

MBCN  STORED  DIFFERENT  PLACE  IF  USER  MODE 

GET  CSB  POINTER 

GET  THE  DEVICE  n   FROM  TABLE 

PRINT  TOTALS  OF  MISC  DRIVE  DATA 
NO  -  PRINT  ERROR  REG  DATA  TOTALS 


.•POINT  TO  NEXT  DSBTBL  SLOT 
;LOnP  TILL  ALL  DONE 

^CLEAR  AUTO  PROCESS^FLAG 

"';RESErTHE~USED"AC'S 


;EXIT 


WlWMWIIWMIIiWWiWpwaWWii  Mjnun  m  n  IH,  I 


■  ,>  »ii*.ipfc     n.wi   ^C 


•Mtt^img^ttm   nihi     mrt^^nwn*    il 


r 


DDRPI  - 
D0RPI2 

6425 

6A26 

6A27 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

646.^ 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6478 
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*TOTSP  —  ROUTINE  TO  PRINT  SYSTEM  TOTALS 

»  ENTERED  WITH  ACO  POINTING  TO  THE  DRIVE  DSB  ENTRY  ADDRESS 

♦  TO  BE  TOTALED  AND  PRINTED 


r 


SEQ  0242 


037260 
037261 

037262 
037263 
037264 
037265 
037266 

037267 
037270 

037271 
037272 
037273 
037274 
037275 
037276 
037277 
037300 

037301 
037302 
037303 


403  02  0  00  000006 
200  15  0  00  100671 

336  01  0  06  100747 
254  00  0  00  037271 
553  00  0  00  000001 
315  01  0  00  030145 
254  00  0  00  037271 

270  01  0  00  000000 
270  02  0  01  000000 


350  00 
36r  15 
200  00 
322  00 
332  00 
254  00 
260  17 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


000006 
037262 
000002 
037301 
077676 
037301 
037527 
000000 


260  17  0  00  066163 
037  00  0  00  030242 
2o<  17  0  00  000000 


037304  403  02  0  00  000006 

037305  200  15  0  00  100670 

037306  336  01  0  06  101047 

037307  254  00  0  00  037315 
037310  553  00  0  00  000001 
0373' i  315  01  0  00  030145 

037312  254  00  0  00  037315 

037313  270  01  0  00  000000 

037314  270  02  0  01  000000 

037315  350  00  0  00  000006 

037316  365  15  0  00  03730( 
137317  200  00  5  00  OOOOOj 

037322  263  17  0  00  000000 


TOTSP:  SET2B 
MOVE 

T0TSP1:  SKIPN 
JRST 
HRRZS 
CAM6E 
JRST 

ADD 
ADD 

T0TSP2:  AOS 
SOJGE 
MOVE 
JUMPE 
SKIPE 
JRST 
GO 
RTN 

T0TSP3:  GO 
PCRL 
RTN 


AC2,AC 
REPT,DRMAX 

AC1,DSBTBL(AC) 

T0TSP2 

AC1 

AC1.MEML0W 

T0TSP2 

ACUACO 
AC2,(AC1) 

AC 

REPT,T0TSP1 

AC2 

T0TSP3 

PSCIFG 

T0TSP3 

TOTBIT 


PSDN 


CLEAR  SOME  AC'S 

GET  MAX  AVAILABLE  DRIVE  COUNT 

ANY  DRIVE  HERE? 

NO 

SAVE  THE  DSB  POINTER 

AREA  OK? 

NO  -  GET  NEXT  DRIVE 

POINT  TO  THE  CORRECT  DSB  ADDRESS 
GET  THE  COUNT  IN  THE  DSB 

UPDATE  THE  DSBTBL  POINTER 

LOOP  TILL  ALL  ADDED 

PUT  THE  COUNT  IN  ACO  TO  PRINT 

ANY  AT  ALL'' 

PRINT  IN  SCIENTIFIC  NOTATION? 

NO 

YES  -  PRINT  DECIMAL  COUNT 


.•PRINT  "0. 


•  I 


♦TOTCP  —  ROUTINE  TO  REPORT  TOTAL  MBC  DETECTED  ERRORS 

f *•♦*•»»♦**•***♦♦*♦♦*♦•♦**•*♦♦**♦******•*******•*•♦***♦* ************* 


TOTCP:  SETZB 
MOVE 

T0TCP1:  SKIPN 
JRST 
HRRZS 
CAMGE 
JRST 

ADD 
ADD 

T0TCP2:  AOS 
SOJGE 
MOVE 

T0TCP3:  GO 
PCRL 
RTN 


AC2,AC 
REPT.RHMAX 

AC1,CSBTBL(AC) 

T0TCP2 

AC1 

AC1,MEML0W 

T0TCP2 

AC1.AC0 
AC2,(AC1) 

AC 

REPTJ0TCP1 

AC2 

PSDN 


CLEAR  SOME  COUNTERS 
GET  THE  MAX  #  MBC  UNITS 

ANY  CONTROLLER  HERE? 

NO 

SAVE  THE  CSB  POINTER 

AREA  OK? 

NO  -  GET  NEXT  K 

POINT  TO  THE  tuRRECT  CSB  ADDRESS 
GET  THE  COUNT  IN  THE  CSB 

UPDATE  THE  CSBTBL  POINTER 
LOOP  TILL  ALL  ADDED 
GET  THE  TOTAL  COUNT 
PRINT  IN  DECIMAL 


50 
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SEO  02A3 


6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 

649? 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

650<» 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 


037323 
037324 
037325 
037326 
037327 

037330 
037331 
037332 
037333 
037334 

037335 
037336 
037337 
037340 
037341 
037342 
0373«*3 
057344 
037345 
037346 
037347 
037350 
037351 
037352 
037353 
037354 

037355 
037356 
037357 
037360 
037361 
037362 
037363 

037364 
037365 
037366 
037367 
037370 
037371 


261  17  0  00  000004 

261  17  0  00  000003 

261  17  0  00  000002 

261  17  0  00  000001 

261  17  0  00  000000 

037  02  0  00  070273 
260  17  0  00  054607 
037  00  0  00  030242 
201  04  0  11  000053 
402  00  0  00  000002 


402  00 
402  00 
332  00 
254 
201 


00 
00 


254  00 
200  01 
302  02 


00 
00 


254 
201 

607  01 
201  00 
254  00 
2u!  00 
607  01 
201  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
13 
00 
00 
00 
00 
00 
00 
00 
00 
00 


077507 
000003 
000002 
037343 
065335 
037355 
100747 
000001 
037352 
065455 
000001 
065436 
037355 
065510 
000001 
065476 


202  00 
200  00 
037  00 

200  00 

201  01 
272  01 
200  01 

350  00 
612  00 
254  00 
242  01 
322  01 
254  00 


0  00  077775 
0  02  037432 

0  00  000002 

1  00  077775 
0  00  000002 
0  00  077775 
0  00  070300 

0  00  000004 
0  00  000001 
0  00  037372 
0  00  111111 
0  00  037414 
0  GO  037364 


;*TOTEP  —  ROUTINE  TO  PRINT   DRIVE  ERROR  REGISTER  BREAKDOWN 


TOTEP:  PUT 
PUT 
PUT 
PUT 
PUT 


;SAVE  AC'S 


EP1: 


EP1A: 


EP2: 


EP2B: 
EP2A: 


PMSG 
GO 
PCRL 
MOVE  I 
SETZM 

SETZM 
SETZM 
SK I PE 
JRST 
MOVE  I 
JRST 
MOVE 
CAIE 
JRST 
MOVE  I 
TLNN 
MOVE  I 
JRST 
MOVE  I 
TLNN 
MOVE  I 

MOVEM 

MOVE 

PNTSIX 

MOVE 

MOVE  I 

ADDM 

MOVE 

AOS 

TDNE 

JRST 

LSH 

JUMPE 

JRST 


AC4 
AC3 
AC2 
AC1 
ACO 


<*ERROR  TOTALS  IN  DECIMAL  FOR  > 
PNTDRV 


AC4,.DCK-1(DSBP) 
AC2 

APFL6# 

AC3 

AC2 

AC0,R02TBL 

EP1A 

AC1,DSBTBL(DRIVE) 

AC2J 

>5 

AC0,R14TBL 

AC1,(.RP04) 

AC0,R14TBA 

EP1A 

AC0,R15TBL 

AC1,(.RP04) 

AC0,R15TBA 

AC0,STADR# 
AC0,ERHDR(AC2) 

ACO,aSTADR 
AC1,2 
AC1,STADR 
AC1,C1B20] 

AC4 

AC0,AC1 

EP3 

AC1,-1 

AC1,EPEX 

EP2 


INIT   TABLE  PTR 
INIT  REG  CNT 

CLEAR  PRINT  FLAG 

CLEAR  TAB  CNT 

REG  CNT  =  0 

NO 

YES  GET  REG  2  TABLE  ADDR 

TEST  FOR  ERROR  CNTS 

GET  DSB  TABLE  DATA 

REG  CNT  =1 

NO 

GET  RP04  TABLE  ADDR 

DRIVE  AN  RP04 

NO  GET  05/06  ADDR 

TEST  FOR  ERROR  CNT 

GET  RP04  TABLE  ADDR 

DRIVE  AN  RP04 

NO  GET  05/06  TABLE  ADDR 

SAVE   TABLE  ADDR 
GET  REG  HDR 

GET   IMPL  BIT  MASK 

ADJUST  TO  POINT  TO  BIT  MS6S 
SET   TEST  BIT 

♦1   ERROR  TABLE   CNT 

BIT   IMPLEMENTED 

YES  CHECK  ERROR  CNT 

NO  SHIFT   TEST  BIT 

TESTED  ALL   ?  -  SEE   IF   DONE 

NO  TEST  NEXT  BIT 


IMIHMMMW 


montiim'tm  m  i"  iwniii 


i 
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SEQ  02^^ 


6528 

6529 

6530 

6531 

6532 

6533 

653A 

6535 

6536 

6537 

6538 

6539 

65A0 

65A1 

65A2 

6543 

65A4 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

6568 

6569 


037372 
037373 
037374 
037375 
037376 
037377 
037400 
037401 
037402 
037403 
037404 
037405 
037406 
037407 
037410 
037411 
037412 
037413 

037414 
037415 
037416 
037417 
037420 
037421 
037422 
037423 

037424 
037425 
037426 
037427 
037430 
037431 

037432 
037433 
037434 

037435 
037436 


261  17 
337  00 
254  00 
305  03 
254  00 
037  00 
402  00 
260  17 
200  00 
037  00 
037  00 
200  00 
037  15 
476  00 
350  00 
350  00 

262  17 
254  00 

332  00 

254  00 

260  17 

037  02 

037  00 

350  00 

305  02 

254  00 


0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 


00 
04 
00 
00 
00 
00 
00 
00 
00 
00 
00 
04 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 


000000 
000000 
037410 
000010 
037401 
030242 
000003 
066122 
077775 
000002 
000075 
000000 
000000 
077507 
000003 
077775 
000000 
037367 

077507 
037420 
066122 
070301 
030242 
000002 
000003 
037335 


26?  17  0  00  000000 
2oJ  17  0  00  000001 
262  17  0  00  000002 
262  17  0  00  000003 

262  17  0  00  000004 

263  17  0  00  000000 

44  62  45  62  21  00 
A4  62  45  62  22  00 
44  62  45  62  23  00 

200  -  0  11  000021 
254  00  0  00  037240 


EP3: 


EP3A: 


EPEX 


ERHDR: 


UTOTP: 


PUT 

SKIPG 

JRST 

CAIGE 

JRST 

PCRL 

f.ETZM 

GO 

MOVE 

PNTSIX 

PNTCI 

MOVE 

PNTDEC 

SETOM 

AOS 

AOS 

GET 

JRST 

SKIPE 

JRST 

CO 

PMS6 

PCRL 

AOS 

CAIGE 

JRST 

GET 
GET 
GET 
GET 
GET 
RTN 


ACO 

(AC4) 

EP3A 

AC3,*D8 

.♦3 

AC3 

TA8 
ACO,aSTADR 

•  •_• ' 

AC0,(AC4) 

APFLG 

AC3 

STADR 

ACO 

EP28 

APFLG 

.TAB 
<NONE> 

AC2 

AC2,3 

EP1 

ACO 
AC1 
AC2 
AC3 
AC4 


SIXBIT/DRER1/ 
SIXBIT/DRER2/ 
SIXBIT/DRER3/ 

MOVE    MBCN..CNUM(DSBP) 
JRST    T0TP2D 


•SAVE  AC 

•IS  THERE  AN  ERROR  CNT 

;N0 

;YES  TAB  CNT  OK 

;YES  PRINT 

;N0  CARRIAGE  RETURN 

;INIT  TABCNT 

; PRINT  TAB 

;GET  SIXBIT  MSG 

;PRINT  IT 

.•EQUALS 

;GET  ERROR  CNT 

;SET  PRINT  FLAG 
.•UPDATE  TAB  CNT 
.•UPDATE  TABLE  POINTER 

;TEST  NEXT  BIT 

;DID  WE  PRINT  FOR  THIS  REG 
;YES 


.•UPDATE  REG  CNT 

;DONE  YET 

;N0  DO  NEXT  REG 

;YES  RESTOREB  AC'S 


.•RETURN 


;6ET  THE  MBCN  IF  USER  MODE 


L 


037  02 
260  17 
336  01 
25A  00 
037  02 
250  00 
037  00 
037  02 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
11 
00 
00 
00 
00 
00 
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6570 
6571 
6572 
6573 
657A 
6575 
6576 

6577  037437 

6578  C37AA0 

6579  037A41 

6580  037AA2 

6581  0374A3 

6582  037AAA 

6583  037AA5 
658A  037AA6 
6585 

6586  037AA7 

6587  037A50 
6588 

6589  037A51 

6590  037A52 

6591  037A53 
6592 

6593  037A5A 

659A  037A55 

6595  037A56 
6596 

6597  037A57 

6598  037A60 

6599  037A61 
6600 

6601  037A62 

6602  037A63 

6603  037A6A 
66  J  A 

6605  037A65 

6606  037A66 

6607  037A67 
6608 

6609  037A70 

6610  037A71 

6611  037A72 
6612 

6613  037A73 

661A  037A74 

6615  037475 
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i*TOTDAT  —  ROUTINE  TO  REPORT  bRIVE  DATA  SUMMARY  TOTALS 
DSBP  POINTS  TO  CORRECT  DSB  AREA 
MBCN  POINTS  TO  CORRECT  MBC  UNIT 


SEQ  0245 


070302 
054607 
000023 
037447 
07031 1 
000001 
000002 
067761 


331  00  0  13  100747 
037  02  0  00  070312 

037  02  0  00  070206 
200  00  0  11  000137 
260  17  0  00  066163 

037  02  0  00  070315 
200  00  0  11  000135 
260  17  0  00  066163 

037  02  0  00  070214 
200  00  0  r  000140 
260  17  0  Oi     ^6163 

037  02  0  00  U70320 
200  00  0  11  000136 
260  17  0  00  066163 

037  02  0  00  070221 
200  00  0  11  000142 
260  17  0  00  066163 

037  02  0  00  070323 
200  00  0  11  000141 
260  17  0  00  066163 

037  02  0  00  070226 
200  00  0  11  000134 
260  17  0  00  066163 


TOTDAT:   PMSG 
GO 

SKIPN 
JRST 
PMSG 
EXCH 
PNTSIX 
PMSG 


<*♦».-♦»  DATA/POSITIONING  SUMMARY  FOR  > 


T0TDA1 


SKIPL 
PMSG 

PMSG 
MOVE 
60 

PMSG 
MOVE 
GO 

PMSG 
MOVE 
GO 

PMSG 
MOVE 
GO 

PMSG 
MOVE 
GO 

PMSG 
MOVE 
GO 

PMSG 
MOVE 
GO 


PNTDRV 

AC1,.PKID(DSBP) 

T0TDA1 

<  ••> 

AC1 


<••> 


DSBTBL(DRIVE) 

<   (NOT  SELECTED)> 

<**SOFT  READ  =  > 

.SRD(DSBP) 

PSDN 

<]HARD  READ  =     > 

.HRD(DSBP) 

PSDN 

<*SOFT  WRT  =  > 

.SWRT(DSBP) 

PSDN 

<]HARD  yRT   =     > 

.HWRT(DSBP) 

PSDN 

<*SOFT  POS  =  > 

.SPOS^DSBP) 

PSDN 

<]HARD  POS  =     > 

.HPOS(DSBP) 

PSDN 


.COMP(DSBP) 
PSDN 


;PRINT  DRIVE  » 
;ANY  PACK  NAME?? 
;N0 

;YES  -  GET  THE  NAME 
;AND  PRINT   IT 


.•SELECTED? 


;6ET  SOFT  READ  ERRORS 


;GET  HARD  READ  ERRORS 


;GET  SOFT  WRITE  ERRORS 


;GET  HARD  WRITE  ERRORS 


;GET   SOFT  POSITIONING  COUNT 


; GET  HARD  POS   COUNT 


<*DATA  COMPARE  ERRORS  =  > 


;GET   THE   COUNT 


mt&iim^m^t'^Mm^ 


■WOwtWHrtw.1-  .m^^wiH 


r 
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SEQ  02A6 


6616 

6617 

6618 

6619 

6620 

6621 

6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 

663A 

6635 

6636 

6637 

6638 

6639 

66A0 

66A1 

6642 

6643 

6j44 

6645 

6646 

6647 

6648 


037476  037  02  0  00  070326 

037477  200  00  0  11  000144 

037500  260  17  0  00  066163 

037501  037  02  0  00  070331 

037502  200  00  0  11  000145 

037503  260  17  0  00  066163 

037504  037  02  0  00  070334 

037505  200  00  0  11  000146 

037506  260  17  0  00  066163 

037507  037  02  0  00  070337 

037510  200  00  0  11  000144 

037511  260  17  0  00  037527 

037512  037  02  0  00  070342 

037513  200  00  0  11  000145 

037514  260  17  0  00  037527 

037515  037  02  0  00  070345 

037516  200  00  0  11  000146 

037517  260  17  0  00  037527 

037520  037  02  0  00  070176 

037521  200  00  0  i;   000147 

037522  260  17  0  00  066163 

037523  037  02  0  00  070350 

037524  2uJ  00  0  11  OC0150 

037525  260  17  0  00  066163 

037526  263  17  0  00  000000 


TDAT1: 


PMSG 
MOVE 
GO 

<**WDS  XFRED  =  > 

.WDXFR(DSBP) 

PSDN 

;GET  TOTAL 

XFRED 

PMSG 
MOVE 
GO 

OWDS  READ  =  > 

.UDRD(DSBP) 

PSDN 

;GET  TOTAL 

READ 

PMSG 
MOVE 
GO 

OWDS  WRT  =  > 

.WDWRT(DSBP) 

PSDN 

;6ET  TOTAL 

WRITTEN 

PMSG 
MOVE 
GO 

<*BITS  XFRED  =  > 

.WDXFR(DSBP) 

TOTBIT 

;GET  TOTAL 
.•CONVERT  & 

WORDS 

PRINT  IN  BITS 

PMSG 
MOVE 
GO 

<BITS  READ  =  > 

.WDRD(DSBP) 

TOTBIT 

;GET  WORDS  READ 
.-PRINT  BITS  READ 

PMSG 
MOVE 
GO 

<BITS  WRITTEN  =  > 

.WDWRT(DSBP) 

TOTBIT 

;GET  WORDS  WRITTEN 
;PRINT  TOTAL  BITS  WRITTEN 

PMSG 
MOVE 
GO 

<*'"SEEKS  =  > 
.ACTSK(DSBP) 
PSDN 

;SEEKS  ISSUED 

PMSG 
MOVE 
GO 

RTN 

<]RECALS  =  > 
.RECAL(DSBP) 
PSDN 

;GET  TOTAL 

RECALS  ISSUED 

■  ■^^y^lf*-^  ' 


DDRPl  - 
DDRPI2 

66A9 

6650 

6651 

6652 

6653 

665A 

6655 

6656 

6657 

6658 

6659 

6660 

6661 

6662 

6o63 

666A 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 

6681 

6682 

6683 

668A 

6685 

6686 

6687 

6688 

6689 

6690 

6691 

6692 

6693 

669A 

6695 

6696 

6697 
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;*TOTBIT  —  ROUTINE  TO  CONVERT  A  NUMBER  IN  ACO  TO  BITS 
)♦     THEN  PRINT  THE  ANSWER  IN  SCIENTIFIC  NOTATION. 


SEQ  0247 


037527  261  17  0  00  000000 

037530  261  17  0  00  000001 

037531  261  17  0  00  000002 


037532 
037533 
037534 
037535 
037536 
037537 
037540 
037541 
037542 

037543 
037544 
037545 
037546 
037547 
037550 

037551 
037552 
0375;3 
037554 
037555 
037556 
037557 
037560 
037561 
037562 
03756: 
037564 
037565 

037566 
037:>67 

037570 
037571 
037572 
037573 


202  00 
403  00 
245  01 
242  01 
620  02 
5*^3  00 
132  02 
132  01 
140  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 
077605 
00001 1 
7777(^7 
777000 
000002 
000266 
000233 
000002 


317  01  0  00  070352 
254  00  0  00  037551 
201  00  0  00  000002 
175  01  0  00  207620 
272  00  0  00  077605 
r54  00  0  00  037543 


165  01 

200  00 
621  00 
li?  02 
621  01 
275  02 
402  00 
307  02 
254  00 
275  02 
231  02 
202  02 

201  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


206440 
000001 
777000 
070353 
777000 
000233 
077733 
000011 
037566 
000011 
000003 
077733 
00001 1 


246  00  0  02  000000 
260  17  0  00  037574 

262  17  0  00  000U02 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


TOTBIT:  PUT 
PUT 
PUT 


T0TBI1: 


T0TBI2: 


T0TBI3: 


MOVEM 

SETZB 

ROTC 

LSH 

JRl 

HRRZS 

FSC 

FSC 

FAD 

CAMG 

JRST 

MOVE  I 

FDVRI 

ADDM 

JRST 

FMPRI 

MOVE 

TLZ 

LDB 

TLZ 

SU8I 

SETZM 

CAIG 

JRST 

SUB  I 

IDIVI 

MOVEM 

MOVE  I 

LSHC 
60 

GET 
GET 
GET 
RTN 


ACO 

Acr 

AC2 

AC0,AC1 

ACO,EXPCNT# 

AC1,*D9 

AC1,-'^D9 

AC2, 777000 

AC2 

AC2,266 

AC1,233 

AC1,AC2 

AC1,C236777,,-1J 

T0TBI2 

2 

AC1, 207620 

EXPCNT 

T0TBI1 

AC1, 206440 

AC1 

ACO, 777000 

AC2, [POINT  9,AC1,8j 

AC1, 777000 

AC2,233 

SAVAC2# 

AC2.*D9 

T0T8I3 

AC2,*D9 

AC2,3 

AC2,SAVAC2 

AC2,*D9 

AC0,(AC2) 
PDI..1 

AC2 

AC1 
ACO 


;SAVE  THE  AC'S 


;SAVE  NUMBER  IN  ACO 
; CLEAR  COUNTERS 


; FLOAT  THE 
; FLOAT  THE 
; FLOAT  ADD 


HIGH  ORDER  BITS 
LOW  ORDER  BITS 
THE  TWO  NUMBERS 


77 


; CREATE.?  THAN  7777,, '^ 
;N0,  SKIP  OVER  TWE  DIVIDE 
;YES,  SETUP  FOR  DIVIDE 
;FLOAT  DIVIDE  BY  100 
;  COUNT  THE  EX'^ONENT  POWER 


FLOAT  MULTIPLY  THE  NUMBER  BY  36 

COPY  THE  NUMBER  IN  ACO 

KILL  THE  EXPONENT  FIELD 

GET  THE  EXPONENT  FROM  ACO 

KILL  EXPONENT  FIELD  IN  AC1 

DECREASE  EXPONENT  BY  ORIGINAL  VALUE 

CLEAR  EXPONENT  COUNTER 

EXPONENT  OVER  9  ? 

NO 

YES,  FIX  TO  USE  JUST  9 

MAKE  EXTRA  BITS  OCTAL 

SAVE  THE  EXTRA  EXPONENT 

USE  EXPONENT  OF  9  FOR  SHIFT 


;SHIFT   "IE 
;PRINT   ^E 


HIGH  BITS  INTO  ACl 
FLOATING  DEC.  NUMBER 


.•RESTORE  THE  AC'S 


;AND  EXIT 
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SEQ  0248 


DD 
DD 


6698 

6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 


037574 
037575 
037576 
037577 
037600 
037601 
037602 
037603 
037604 
037605 


403  06  0 
402  00  0 
260  17  0 
037  02  0 
200  00  0 
270  00  0 
270  00  0 
037  15  0 
037  02  0 
263  17  0 


00  077665 
00  077664 
00  037606 
00  070354 
00  077664 
00  077605 
00  077733 
00  000000 
00  070164 
00  000000 


037606 
037607 
037610 
037611 
037612 
037613 
037614 
037615 
037616 
037617 
037620 

037621 
037622 
037623 
037624 
037625 
037626 
037627 
037630 

037631 
037632 
037633 


201  02 
246  00 
242  01 


235  00  0 
506  01  0 
370  00  0 
332  00  0 


350  00 
53  J  00 


322  00  0 
260  17  0 


554  01 
271  01 
200  00 
350  00 
305  06 
037  12 
337  00 
263  17 


0 

0 
0 
0 
0 
0 
0 
0 


00  000012 
00  777735 

00  mill 

00  000012 
17  000000 
00  000002 
00  077665 
00  077664 
00  077665 
00  037621 
00  037607 

17  000000 
00  000060 
00  000001 
00  000006 
00  000005 
00  000000 
00  077665 
00  000000 


037  00  0  00  000056 
476  00  0  00  077665 
263  17  0  00  000000 


*PDNUM  —  ROUTINE  TO  PRINT  A  DECIMAL  NUMBER  IN  SCIENTIFIC  NOTATION 
ACO  CONTAINS  THE  NUMBER  TO  BE  CONVERTED  AND  PRINTED 

PDNUM:   SETZB   AC,PDFLG#  ;CLEAR  THE  "FIRST  TIME"  FLAG 

; PRINT  THE  DECIMAL  NUMBER 


ADD  THE  EXPONENT  FROM  DIVIDE 
ADD  EXPONENT  FROM  THE  CONVERSION 
PRINT  THE  EXPONENT 


*PDCHAR  —  ROUTINE  TO  CONVERT  AND  PRINT  A  NUMBER  TO  DECIMAL  VALUE 

*      AND  COUNT  THE  "EXPONENT"  VALUE  (NUMBER  OF  DECIMAL  CHARACTERS  PRINTED 


SETZB 

AC,PDFLG# 

SETZM 

PDCNT* 

GO 

PDCHAR 

PMSG 

<  X  100 

MOVE 

PDCNT 

ADD 

EXPCNT 

ADD 

SAVAC2 

PNTDEC 

PMSG 

<)'^> 

RTN 

PDCHAR: 


PDCHR1: 


MOVE  I 

AC2,*D10 

LSHC 

AC0,-*D35 

LSH 

AC1,-1 

DIVI 

AC0,*D10 

HRLM 

AC1,(P) 

SOS 

AC2 

SKIPE 

PDFLG 

AOS 

PDCNT 

AOS 

PDFLG 

JUMPE 

ACCPDCHRI 

GO 

PDCHAR+1 

HLRZ 

AC1,(P) 

ADDI 

At1,60 

MOVE 

AC0,AC1 

AOS 

AC 

CAIGE 

ACS 

PNTCHR 

SKIPG 

PDFLG 

RTN 

PNTCI 

%%     If 

• 

SETOM 

PDFLG 

RTN 

LIMIT  OF  DECIMAL  NUMBERS  IN  CONVERSION 

LOAD  AC1  WITH  THE  NUMBER  TO  BE  CONVERTED 

DIVIDE  THE  NUMBER  BY  2  (CLEAR  THE  SIGN  BIT) 

DOUBLE  LENGTH  DIVIDE  BY  10 

SAVE  THE  DIGIT 

COUNT  THE  DIGIT 

FIRST  DIGIT  ?? 

NO,  COUNT  THE  "EXPONENT" 

;DONE  WITH  THE  CONVERSION  ?? 
;N0,  COMPUTE  THE  NEXT  ONE 

YES,  GET  A  DIGIT  FOR  PRINTING 

MAKE  THE  DIGIT  AN  ASCII  CHARACTER 

SETUP  TO  PRINT 

COUNT  THE  CHARACTER  PRINTED 

PRINTED  4  YET?? 

NO  -  PRINT  THE  CHARACTER 

FIRST  CHARACTER  ?? 
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SEQ  02A9 


DDI 
DDI 


67AA 

6745 

67A6 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 

6755 

6756 

6757 

6758 

6759 

6760 

6761 

6762 

6763 

6764 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

67S5 

6786 

6737 

6713 

6789 

6790 


037634 
037635 
037636 
037637 
037640 
037641 
037642 
037643 
037644 
037645 
037646 
037647 

037650 
037651 

037t52 
037653 
037654 
037655 

037656 
037657 
037660 
037661 
037662 
037663 

037664 
037665 


037666 
037667 
037670 
037671 


200  00 
306  00 
254  00 
037  04 
037  04 
037  10 
254  00 
402  00 
316  00 
254  00 
305  01 
344  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
00 


077504 
000003 
037664 
070356 
070372 
000003 
037656 
000001 
053323 
037652 
00001 7 
037644 


037  04  0  00  070374 
254  00  0  00  037635 

202  01  0  00  100734 

200  00  0  01  053302 
202  00  0  00  077562 
263  17  0  00  000000 

333  00  0  00  030225 
254  00  0  00  037650 
Co^  04  0  00  070401 

201  01  0  00  000001 

202  01  0  00  100734 
254  00  0  00  037653 

200  00  0  00  070410 
254  00  0  00  037643 


200  00  0  13  100747 

621  00  0  00  400000 

202  00  0  13  100747 

263  17  0  00  000000 


SUBTTL  TEST  INPUT  PARAMETER  ROUTINES 

;*ASKPAT  —  ROUTINE  TO  ASK  THE  OPERATOR  FOR  TYPE  OF  DATA  TO  BE 
;*     USED  FOR  EITHER  WRITING  OR  READING 


ASKPAT:  MOVE 
CAIN 
JRST 
PMS6F 
PMSGF 
TTSIXB 
JRST 

APATLP:  SETZM 
CAMN 
JRST 
CAIGE 
AOJA 


ASKPE1 


ASKPY: 
ASKPY1 


PMSGF 
JRST 

MOVEM 
hOVE 
MOVEM 
RTN 


ACPFLG  ;6ET  THE  ACCEPT  FLAG 

3  ;WANT  OPDTST  FROM  A  SCRIPT?? 

APATD  ; YES  -  DEFAULT  TO  "WORST"            ■ 

<'^WHAT  DATA  (ONES,  ZEROS,  ALTB,  FLZRO,  FLONE,  COuNT,  RAND,  WORST)  ?> 

<*NAME  =  > 

;6ET  THE  SIXBIT  DATA  NAME 

ASKPER  ; ERROR! 

AC1  ; CLEAR  A  POINTER 

DPATNM(ACI)  ; FOUND  THE  NAME? 

ASKPY  'YES 

AC1,<FSP-DPATN>  -STILL  IN  THE  NAME  LIST?? 

AC1,.-3  ;YES  -  LOOK  AT  THE  NEXT  NAME 

<*N0  SUCH  PATTERN??*PATTERN  =  > 
ASKPAT^I 


AC1,.PATN 

DPATN(ACI) 

DATARG 


;SAVE  THE  PATTERN  NUMBER 

;GET  THE  NAME 

;AND  SAVE  IT  FOR  USE 


ASKPER:  SKIPLE 
JRST 
PMSGF 
MOVE  I 
MOVEM 
JRST 


STWCNT  ;TTY  TIME  OUT?? 

ASKPE1  ;N0  -  TYPING  ERRORl 

<*N0  RESPONSE.,. ASSUMING  "ONES"  DATA*> 

AC1,1 

AC1,.PATN  ;SAVE  THE  DATA  PATTERN  NUMBER 

ASKPY1  ;AND  EXIT 


APATD: 


MOVE 
JRST 


CSIXBIT/WORST/] 
APATLP 


;GET  THE  DEFAULT  PATTERN 


;*REMOVE  —  ROUTir.'E  TO  ELIMINATE  A  DRIVE  FROM  Thfc  TEST  LIST  AS 
;♦      SELECTED  BY  THE  OPERATOR 


REMOVE:  MOVE  DSBTBL(DRiVE) 

TLZ  (.OPR) 

MOVEM  DS8TBL (DRIVE) 
i7^ 


;GET  THE  DRIVE  TABLE  STATUS 
;DE-SELECT  THE  DRIVE 
;SAVE  THE  UPDATED  STACUS 
;E^IT 


SUBTTL  SPECIAL  PROGRAM  SETUP  -  INIT 
.•EDIT  VERSION  74 

/If************************************************************************ 

♦GETMWD  -  GET  MONITOR  WORD  .^   ..   ^  ^   .  ^ 

THIS  PAGE  OF  CODE  WAS  ADDED  BECAUSE  WE  WERE  GETTING  "NXM"  WHEN  RUNNING 
UNDER  THE  7.02  MONITOR.  WHEN  WE  TRIED  TO  GET  THE  "IST  DDB  ADDRESS"  FROM 
USING  THE  GETTAB  MONITOR  CALL  WE  WERE  GETTING  A  WRONG  ADDRESS.  BY  USING 
THE  "GETMWD"  MACRO,  DEFINED  ON  THIS  PAGE,  WE  ARE  ABLE  TO  TELL  THE  MONITOR 
.TO  GET  US  THE  1ST  DDB  ADDRESS  NO  MATTER  WHAT  SECTION  THE  INFORMATION  IS  IN. 

MONITR==400000 

T1==6 

T2-=7 

T3=^10 

T4==11 
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6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 

6800 

o801 

6802 

6803 

6804 

6805 

6806 

6807 

6808 

6809 

6810 

6811  400000 

681 2  000006 

681 3  000007 

6814  000010 

6815  000011 
6816 
6817 
6818 
6819 
6820 
6821 
6822 
6823 
6824 
6825 

6826  037672  202  06  0  00  100072     DOINST;  MOVEM 

6827  037673  202  07  0  00  100073  MOVEM 

6828  037674  202  10  0  00  100074  MOVEM 

6829  037675  202  11  0  00  100075  MOVEM 

6830  037676  124  01  0  00  100064  DMOVEM 

6831  037677  124  03  0  00  100066  DMOVEM 

6832  037700  200  02  0  17  000000  MOVE 

6833  037/01  200  02  0  02  000002  MOVE 

6834  037702  202  02  0  00  100071  MOVEM 

6835  ;;     SKIPN 

6836  ;;     JRST 

6837  037703  400  10  0  00  000000  SET2 

6838  037704  135  06  0  00  070411  LDB 

6839  037705  302  06  0  00  000135  CAIE 

6840  037706  306  06  0  00  000134  CAIN 

6841  037707  334  02  0  02  000000  SKI PA 

6842  037710  254  00  0  00  03772<  JRST 

6843  037711  506  06  0  00  000134  CAIN 

6844  037712  133  00  0  00  000002  IBP 

6845  037713  621  02  0  00  000077  TLZ 


SEQ  0250 


DO 
DD 


DEFINE 
JRST 


XALL> 


GETMWDdNSTXSALL 
CPUSHJ  P. DOINST 
JRST  ."^1 
JRST  .+2 
INST] 


.•SUBROUTINE  TO  GET  DATA  FROM  THE  MONITOR 

T1.SAVE1 

T'..SAVE2 

'3.SAVE3 

f4,SAVE4 

AC1.SAVET1 

AC3.SAVET3 

AC2,(P) 

AC2.2(AC2) 

AC2.INST 

USER 

DOIT 

T3. 

T1. [POINT  9,AC2.8] 

TI.(LDB.-II) 

Tl.dLDB  -11) 

AC2,(AC2T 

N0T8YT 

Tl.dLDB  -11) 

ACJ 

AC2.77 


.•RUNNING  IN  USER  MODE  ? 
;YES 

;0P  CODE 
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SEQ  0251 


r 

IOC 
DC 


68A6 
6847 
6848 
6849 
6850 
6851 
6852 
6853 


037714 
037715 
037716 
037717 
037720 
037721 
037722 
037723 


502  02  0 
205  06  0 
404  06  0 
434  06  0 
250  06  0 
474  10  0 
135  06  0 
304  00  0 


00  100062 
00  000740 
00  100071 
00  070412 
00  100071 
00  000000 
00  070413 
00  000000 


HLLM  AC2-PNTR 

MOVSI  T 1,000740 

AND  T1JNST 

lOR  TUCLDB  PNTR] 

EXCH  T1JNST 

SETO  T3, 

LDB  T1, [POINT  4,(T1)J7] 

CAIA 


m^tmmit^tmmMim 


imtmi  I  «'>■!•  "ll*i  <•'    it^--fr'tiliY  I    — 


"1 
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SEQ  0252 


6854 

6855 

6856 

6857 

6858 

6859 

6860 

6861 

6862 

6863 

6864 

6865 

6866 

6867 

6868 

6869 

6870 

6871 

687: 

6873 

6874 

6875 

6876 

6877 

6878 

6879 

6880 

6881 

6882 

6883 

6884 

6885 


037724 

037725 

037726 

037727 

037730 

037731 

037732 

037733 

037734 

037735 

037736 

037737 

037740 

037741 

037742 

037743 

037744 

037745 

037746 

037747 

037750 

037751 

037752 

037753 

037754 

037755 
037756 
037757 
037760 
037761 


135  06 
301  06 

303  06 

304  00 
271  06 
200  06 
271  06 
260  17 

200  02 
603  02 
260  17 
202  06 
321   10 

201  06 
137  06 
200  06 
200  07  0 
200  10  0 
200  11 
120  01 
120  03 
256  00 
263  17 
350  00 
263  17 


0  00  070414 
0  00  000006 
0  00  000011 
0  00  000000 
0  00  100056 
0  06  000000 
0  02  000000 
0  00  037755 
0  00  100071 
0  00  000020 
0  00  037755 
0  00  100063 
0  00  037743 
0  00  100063 
0  n  070415 
0  00  100072 
00  100073 
00  100074 
0  00  100075 
0  00  100064 
0  00  100066 
0  00  100071 
0  00  000000 
0  17  000000 
0  00  000000 


553  00  0  00  000006 
317  06  0  00  100070 
334  06  0  06  400000 
Oh''  06  0  00  000033 
263  17  0  00  000000 


NOTBYT:   LDB 
CAIL 
CAILE 
CAIA 
ADD! 
MOVE 
ADDI 
PUSHJ 
MOVE 
TLNE 
PUSHJ 
MOVEM 
JUMPL 
MOVE  I 
DPB 

DOIT:       MOVE 
MOVE 
MOVE 
MOVE 
DMOVE 
DMOVE 
XCT 
POPJ 
AOS 
POPJ 

REDLOC:   HRRZS 
CAMG 
SKIPA 
PEEK. 
POPJ 


T1, [POINT  4, INST, 17] 

T1,T1 

T1,T4 

T1,SAVET1-T1 

T1,(T1) 

T1,(AC2) 

P, REDLOC 

AC2JNST 

AC2,20 

P-REDLOC 

TUDATA 

T3,D0IT 

TKDATA 

T1, [POINT  23JNST,35J 

T1,SAVE1 

T2,SAVE2 

T3,SAVE3 

T4,SAVE4 

AC1,SAVET1 

AC3,SAVET3 

INST 

P. 

T1 

T1,SYSSIZ 

T1,M0NITR(T1) 

T1, 
P, 


.-INDEX 


;T1=L0C   TO  READ,  ANSWER  IN  T1 

; INDIRECT,   ONE  MORE  TIME    (BUT  NO  RECURSION) 


;or  CALLI   T1,33 


L 


ii»...ir  iiB-:-iiiT.-tiT-rt"  ■■'r-ri'^---  --'"  ■->.-*'.-.^-t>^- ■»■- 
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SEQ  0253 


r 

iD 
D 


6886 

6887 

6888 

6889 

6890 

6891 

6892 

6893 

6894 

6895 

6896 

6897 

6898 

6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 

6908 

6909 

6910 

6911 

6912 

6913 

6914 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 


037762  332  00  0  00  030037 

037763  254  00  0  00  040120 

037764  200  14  0  00  070416 


037765 
037766 
037767 
037770 


037771 
037772 
037773 
037774 
037775 
037776 


037777 
040000 
040001 
040002 
040003 
040004 


336  00  0  00  030041 
254  00  0  00  037771 

201  00  0  00  560000 

202  00  0  00  000417 


200  00 
202  00 
200  00 
202  00 
200  00 
202  00 


0  00  070417 
0  00  000050 
0  00  070420 
0  00  000052 
0  00  070421 
0  00  000054 


476  00 
332  00 

254  00 
336  00 
402  00 

255  00 


0  00  100016 
0  00  030041 
0  00  040004 
0  00  030040 
0  00  100016 
0  00  000000 


i-tlNIT  —  ROUTINE  TO  INIT  CSB'S,  DSB'S,  SPECIAL  INTERRUPT  STACK, 
*      THE  SYSTEM  CLOCK  (REAL  TIME  OR  POWER-LINE),  ETC. 

;SETUP  THE  SPECIAL  INTERRUPT  STACK  POINTER 


INIT:   SKIPE 
JRST 

MOVE 

SKIPN 
JRST 
MOVE  I 
MOVEM 


USER 
INTUSR 

PP,[-'^D40,,PPLIST] 


KLFLG 

560000 
417 


; RUNNING  ON-LINE? 

;YES  -  NOTIFY  AND  SETUP 

;N0  -  SETUP  SPECIAL  PUSH  LIST 
;F0R  THE  INTERRUPT  SERVICE 


; SETUP  THE  EPT  POINTER 
;IN  THE  PAGING  SYSTEM 


;*INTSET  INITIALIZES  THE  INTERRUPT  LOCATIONS  FOR  DRIVE  INTERRUPTS 


INTSET:  MOVE 
MOVEM 
MOVE 
MOVEM 
MOVE 
MOVEM 


[JSR  RHKAI] 

50 

CJSR  DSKINT] 

52 

CJSR  RETRY] 

54 


.•CHANNEL  4  SERVICE  -  INITIAL  PROCESSING 
.•CHANNEL  5  SERVICE  -  NORMAL  PROCESSING 
.•CHANNEL  6  SERVICE  -  ERROR  RECOVERY 


;SET  UP  FOR  VECTOR  OR  NO-VECTOR  INTERRUPTS 

.•ASSUME  VECTORING  FOR  ALL  SYSTEMS  EXCEPT  KAIO'S 

.•THERE  IS  CODE  IN  THE  CONFIGURATOR  NEAR  TAG  'CONFDD'  TO  PREVENT 

.•VECTORING  ON  KL/RHIO  SYSTEMS  BECAUSE  THE  CPU  MICROCODE  DOES  NOT 

.•HANDLE  HE  RESTORING  OF  THE  PC  PROPERLY. 


SETVEC:  SETOM  VECTOR* 

SKIPE  KLFLG 

JRST  .•^3 

SKIPN  KAIFLG 

SETZM  VECTOR 
JF  CL 


.•ASSUME  WE  WANT  TO  VECTOR 

•THIS  A  KLIO  '' 

•YES...  ASSUME  VECTORING  IS  DESIRED 

;IS  THIS  A  KA10  ? 

;YES.  DON'T  VECTOR  IF  A  KA10 

.•VECTOR  FLAG  IS  SET  UP  ... 


U 


l_ 
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SEQ  0254 


r 

0 


6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 

6972 

6973 

6974 

6975 


040005 
040006 
040007 
040010 

04001 1 

04001 2 

04001 3 
040014 
04001 5 
040016 
04001 7 
040020 
040021 
040022 
040023 
040024 
040025 
040026 
040027 


336  00 
402  00 
332  00 
254  00 
200  00 
202  00 
200  00 
202  00 
260  17 
336  00 
254  00 
200  00 
137  04 
200  00 
037  13 
332  00 
254  00 
200  00 
202  00 


0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


077656 
030054 
030041 
04001 3 
070422 
030071 
070423 
000044 
042756 
030041 
040024 
067546 
000004 
067545 
000004 
077656 
040036 
030145 
101156 


040030  40?  00 

040031  2uJ  00 

040032  251  00 

040033  402  00 

040034  200  00 

040035  251  00 


0  00  100747 
0  00  070424 
0  00  101046 
0  00  101047 
0  00  070425 
0  00  101056 


040036  260  17  0  00  040040 

04003:^  254  00  0  00  040045 

040040  476  00  0  00  101057 

040041  200  00  0  00  070426 

040042  251  00  0  00  101102 

040043  260  17  0  00  041413 

040044  263  17  0  00  000000 


•♦CLINIT  INITIALIZES  THE  TIME  CLOCK  -  IN  EXEC  MODE 

•  /If************************************************************************ 


CLINIT:  SKIPN 
SETZM 
SKIPE 
JRST 
MOVE 
MOVEM 
MOVE 
MOVEM 
60 

SKIPN 
JRST 
MOVE 
MTROP 
MOVE 
CLOKOP 
SKIPE 
JRST 
MOVE 
MOVEM 


ONCE 

TICKS 

KLFLG 

[JSR  CLKSRV] 

$ITRHL 

[JSR  CLKINT] 

44 

SETTfM 

KLFLG 

.+5 

CCONO  PI,RE0SETiPICHN2] 

CAOS  TICKS] 

ONCE 
MINIT 
MEMLOW 
FRECOR 


'  "EAR  RUNNING  TIME  COUNTER 
r^:.'  OR  KI?? 
„u  -  MUST  BE  A  KL 
GO  TO  CLKSRV  ON  CLOCK  INTERRUPT 
CHANNEL  1 

SETUP  FOR  SOFTWARE  CLOCK  INTERRUPT 
ON  CHANNEL  2 
CALIBRATE  THE  CLOCK 
KL  ?? 
NOPE 
YES  -  INIT  THE  CLOCK 


; START  THE  11  CLOCK  FOR  RUNTIME 
;HERE  BEFORE  -  SKIP  SOME  CODE 


•  /If*****  ********************************************************  *********** 

;*NEXT  CLEAR  THE  DSB  AND  CSS  POINTER  TABLES 

•  /If************************************************************************ 


CLRTBL:  SETZM  DSBTBL 

MOVE  CDSBTBL,-DSBTBL-^1] 

BLT  DSBTBL*?? 

SETZM  CSBTBL 

MOVE  CCSBTBL,,CSBTBL+13 

BLT  CSBTBL  ^•? 


.•CLEAR  THE  FIRST  LOCATION  IN  THE  DSB 
;BUILD  A  BLT  POINTER 


CLEAR  THE  FIRST  CSB  POINTER 
POINTER  TO  CLEAR  THE  REST 
GET  ALL  EIGHT  OF  THEM 


•  /jf*****************************  **************  ***************************** 
•SET  THE  PROGRAM  MEMORY  BUFFER  MAP  TO  ALL  1'S  THEN  CLEAR  FREE  CORE 

;/(f*******************  **********  ********************************  *********** 


MINIT:  GO 

JRST 

INTMAP:  SETOM 
MOVE 
BLT 
60 
RTN 


INTMAP 
MINIT1 

BUFMAP 

CBUFMAP,,BUFMAP+1] 
BUFMAP+*D19 
CLRFRE 


; SETUP  THE  BUFMAP  TABLE 


SET  rs  TO  FIRST  WORD 
GET  A  BLT  POINTER  WORD 
SET  UP  THE  MAP  AREA 
CLEAR  THE  "FREE"  TEST  AREA 


mmmm 


...J 


L 


n 
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r 


SEQ  0255 


6976 

6977 

6978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

6994 

6995 

6996 

6997 

6998 

6999 

7000 

7001 

7002 

7003 

7004 

7005 

7006 

7007 

7008 

7009 

7010 

7011 

7012 

7013 

7014 

7015 

7016 

^017 

7018 

7019 

7020 

7021 

7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 


040045 
040046 
040047 
040050 
040051 
040052 
040053 
040054 


402  00  0 
200  00  0 
251  00  0 
402  00  0 
200  00  0 
251  00  0 
332  00  0 
254  00  0 


040055 
040056 

040057 
040060 
040061 
040062 
040063 
040064 
040065 
040066 
040067 
040070 

040071 

040072 

040073 

040074 

040075 

040076 

040077 

040100 

040101 

040102 

040 1 03 

040104 

040105 

040106 

040107 

040110 

0401 1 1 

040112 

040113 

0401^4 

040115 

040116 

040117 


260  17  0  00  061320 
202  00  0  00  077540 


336  00 
254  00 
332  00 
254  00 
260  17 
263  17 
260  17 
260  17 
260  17 
2o<  17 

402  00 
200  00 
251  00 
402  00 
200  00 
251  00 
402  00 
200  00 
251  00 
200  14 
402  00 

200  00 
251  00 

201  00 

202  00 
202  00 
402  00 
201  00 

00 
00 
00 
00 
17 


2o; 

26: 


1 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  030037 
00  040070 
00  077656 
00  040065 
00  040323 
00  000000 
00  041301 
00  040040 
00  040542 
00  000000 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

II 

00 
00 


100044 

070431 

100052 

100163 

070427 

100331 

100117 

070432 

100163 

070416 

101103 

070430 

101155 

101103 

101154 

101155 

100233 

100235 

077546 

077547 

100163 

077552 

000000 


;•  CLEAR  ALL  PROGRAM  COMMAND  TABLES  -  I.E.  "COMQ",  "COMBUF",  &  "SCNTBL" 


00  100163 

MINIT1:  SETZM 

00  070427 

MOVE 

00  100331 

BLT 

00  101103 

SETZM 

00  070430 

MOVE 

00  101155 

BLT 

00  077656 

SKIPE 

00  040057 

JRST 

COMBUF 

CC0MBUF,,C0MBUF+1] 

COMQE 

SCNT6L 

CSCNTBL,,SCNTBL+1] 

SCNOLD 

ONCE 

INIT1A 


BUILD  A  BLT  POINTER 
CLEAR  THE  COMMAND  BUFFER 
CLEAR  THE  FIRST  LOCATION 
BUILD  A  BLT  WORD 
CLEAR  THE  TABLE  NOW 
HERE  BEFORE? 
YUP 


^PERFORM  INITIAL  CHECKSUM 


INIT1:  CHKSUM 
MOVEM 

INIT1A:  SKIPN 

JRST 
INIT1B:  SKIPE 

JRST 

GO 

RTN 

GO 

GO 

GO 
INIT2:  RTN 

CLRBLK:  SETZM 
MOVE 
BLT 
SETZM 
MOVE 
BLT 
SETZM 
MOVE 
BLT 
MOVE 
SETZM 
MOVE 
BLT 
MOVE  I 
MOVEM 
MOVEM 
SETZM 
MOVE  I 
MOVEM 
MOVEM 
MOVE  I 
MOVEM 
RTN 


CKSUM 

USER 

INIT2 

ONCE 

.'^3 

USTRT 

USRDRV 
INTMAP 
USTRTl 


PAKNAM^l 

CPAKNAM+1,,PAKNAMt2] 

IOBLK+1 

COMBUF 

[COMBUF,, COMBUF +1 J 

COMQE 

RETQ 

[RETQ,,RETQ+n 

COMBUF 

PP,C-*D40,,PPLIST] 

SCNTBL 

[SCNTBL,,SCNTBL>n 

SCNOLD 

SCNTBL 

SCNADD 

SCNOLD 

CMBFND 

COMQ 

CMDQPT# 

CMDXPT# 

COMBUF 

COMBPT 


STORE  COMPUTED  CHECKSUM  IF  ERROR  RETURN 

NO  CONFIGURATION  IF  RUNNING  ON-LINE 

NO  -  IN  EXEC  MODE 

FIRST  TIME  HERE?? 

NO 

YES  -  INIT  USER  MODE  SECTION 

THEN  EXIT 

REPORT  WHAT  DRIVE'S  UNDER  TEST 

RESET  THE  BUFMAP  TABLE 

START  AGAIN 

EXIT 

SETUP  FOR  BLT  TO  CLEAR 
BUILD  THE  BLT  WORD 
CLEAR  THE  USER  AREA 

BUILD  A  BLT  POINTER 
CLEAR  THE  COMMAND  BUFFER 

BUILD  ANOTHER  BLT  WORD 

AND  THE  CONTROL  AREA 

INIT  ERROR  STACK 

SETUP  TO  CLEAR  SOME  MORE 

BUILD  ANOTHER  BLT  WORD 

ZAP  THE  SPACE 

POINT  TO  SCNTBL  AREA 


.-CLEAR  THE  Q  FILLED  FLAG 
.-RESET  THE  Q  POINTERS 


.-RESET  THE  CMD  STORAGE  POINTER 


HMMMMMM 


iiip<^MMi«|a 
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SEQ  0256 


7031 

7032 

7033 

7034 

7035 

7036 

7037 

7038 

7039 

7040 

7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

7063 

7064 

7065 

7066 

7067 

7068 

7069 

7070 

7071 

7072 

7073 

7074 

7075 

7076 


040120 
040121 
040122 
040123 

040124 
040125 
040126 
040127 

0401 30 
040131 
C40132 
040133 


0401 34 

040135 

0401 36 

040137 

040140 

040141 

040142 

040143 

040144 

040145 

040146 

040147 

040150 

040151 

040152 

0401 53 

040154 

040155 

040156 

040157 

040160 

040 1 61 

040162 

040163 

040164 


332  00  0  00  077656 
254  00  0  00  040061 
200  00  0  00  030145 
202  00  0  00  101156 


402  00 
037  04 
201  00 
332  00 
201  00 
037  17 
332  00 
254  00 


200  06 

201  15 
260  17 
310  00 
037  04 

200  00 
047  00 
310  00 
20?  00 
13?  01 
037  01 
037  01 
135  00 
037  02 
135  00 
301  00 
476  00 
336  00 
254  00 
037  04 

201  00 
037  17 
037  04 
201  00 
037  17 


0 
0 
0 
0 


00 
00 
00 
00 


0  00 
0  00 
0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


077641 
070433 
070437 
030516 
070440 
000001 
030516 
040274 


070441 

000007 

040245 

000000 

070442 

070446 

000041 

000000 

077645 

070447 

000060 

000056 

070450 

000001 

070451 

000702 

07764 1 

100561 

040165 

070452 

100561 

000001 

070455 

100566 

000001 


i*INTUSR  —  ROUTINE  TO  INIT  THE  PROGRAM  FOR  USER  MODE  OPERATION 

; /If  *******  t*************t  *************♦*♦*♦***•♦*♦♦******♦*♦♦*♦  ♦*♦♦♦♦*♦*♦♦* 


INTUSR:  SKIPE  ONCE 

JRST  INiTIB 

MOVE  MEMLOW 

MOVEM  FRECOR 

USYSNM:  SETZM 
PMSGF 
MOVE  I 
SKIPE 
MOVE  I 
PNTALF 

SKIPE   MONTYP 
JRST    UT20A 


BEEN  HERE  BEFORE?? 

YES  -  JUMP  AROUND  SOME  SETUP 

GET  PROGRAM  1ST  FREE 

AND  SAVE  THE  FREE  MEMORY  ADDRESS 

MON702#  ;Assume  TOPS-10  previous  to  702 

<*M0NIT0R  TYPE  IS  "TOPS-> 

CASCIZ/10'7] 

MONTYP  ;T0PS-20?? 

CASCIZ/20'7] 


;T0PS-2C^? 

;YES  -  SKIP  OVER 


;TOPS-10  monitor,  print  version  and  system  name 


MOVE 

MOVE  I 

GO 

CAM 

PMSGF 

MOVE 

GET TAB 

CAM 

MOVEM 

LDB 

PNTCIF 

PNTCIF 

LDB 

PNT2F 

LDB 

CAIL 

SETOM 

SKIPN 

JRST 

PMSGF 

MOVE  I 

PNTALF 

PMSGF 

MOVE  I 

PNTALF 


AC,C0-J1] 

REPT,7 

GTTA8 

<**M0NIT0R  VERSION  IS  > 
C34,J1] 


MONVER# 

1. [POINT  3,MONVER,23J 
'6"(1) 


••i 
II  II 


[POINT  6,M0NVER,29] 

ACO, [Point  9,M0NVER,29] 

AC0.702 

M0N702 

PPLIST 

UDATE 

<*SYSTEM  NAME:    > 

PPLIST 

<]BUILT  ON:  > 
PPLIST^5 


PREPARE  TO  READ  TABLE  11  IN  "GETTAB" 

READ  SIX  WORDS 

DO  IT 

NO  ACTION  IF  ERROR  DETECTED 

;GET  THE  MONITOR  VERSION  M 
NOTHING  IF  ERROR 

GET  THE  1ST  DIGIT 
Print  it 
and  a  dot 
GET  THE  NEXT  2  DIGITS 

Load  complete  monitor  version 

Is  it  earlier  than  702? 

In  702  and  later  SEEK  UUO  is  a  NO  OP 

ANY  SYSTEM  NAME  FOUND? 

NO  -  JUST  REPORT  THE  DATE 


;PRINT  THE  NAME  FOUND  IN  TABLE 

;GET  THE  BUILT  DATE  IN  TABLE 
;AND  PRINT  IT 


mmum 


ii|iiiini)(iiii:ii>iiii 


r 


DDRPl   - 
DDRPI3 

7077 

7078 

7079 

7080 

7081 

7082 

7083 

7084 

7085 

7086 

7087 

7088 

7089 

7090 

7091 

7092 

7093 

7094 

7095 

7096 

7097 

7098 

7099 

7100 

7101 

7102 

7103 

7104 

7105 

7106 

7107 

7108 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 
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SEQ  0257 


040165 
040166 
040167 
040170 
040171 
040172 
040173 
0401 74 
040175 
040176 
040177 
040200 
040201 
040202 

040203 
040204 
040205 
040206 
040207 
040210 
040211 
040212 
040213 
040214 
040215 
040216 
040217 
040220 
040221 


040222 
040223 
040224 
040225 
040226 


037  04 

200  06 

201  15 
260  17 
254  00 
200  06 
200  00 
037  01 
037  01 
200  00 
037  15 
037  01 
200  00 
037  15 

037  04 
200  00 
037  15 
037  01 
200  00 
260  17 
037  15 
037  01 
200  00 
260  17 
037  15 
200  00 
Oh^  00 
400  00 

202  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
06 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


070457 
070461 
000006 
040245 
040030 
100562 
040257 
000002 
000055 
100563 
000001 
000055 
100561 
000001 

070462 
100564 
000001 
000072 
100565 
044533 
000001 
000072 
100566 
044533 
000001 
070465 
000041 
000000 
030054 


200  00  0  00  070466 
047  00  0  00  000041 
400  00  0  00  000000 
607  00  0  00  000040 
254  00  0  00  040317 


; Output  date  and  time 
UDATE: 


UTIME: 


PMSGF 

MOVE 

MOVE  I 

GO 

JRST 

MOVE 

MOVE 

PNTSXF 

PNTCIF 

MOVE 

PNTDCF 

PNTCIF 

MOVE 

PNTDCF 

PMSGF 

MOVE 

PNTDCF 

PNTCIF 

MOVE 

GO 

PNTDCF 

PNTCIF 

MOVE 

GO 

PNTDCF 

MOVE 

GETTA8 

SETZ 
MOVEM 


<*DATE  IS:  > 

AC,[56,J1] 

PEPT,6 

GiTAB 

CLRTBL 

ACPPLIST+I 

MONTH (AC) 


PPLIST42 
PPLIST 


033TIME   IS:  > 
PPLIST+3 


PPLISTH 
PNTZER 


•  •  •• 


PPLIST*5 
PNTZER 

ACO,CXNSUPT] 

ACO, 

ACO, 

ACO, TICKS 


SETUP  TO  READ  DATE  IN  TABLE  #11 

SIX  WORDS  TO  BE  READ 

READ  THEM 

EXIT  IF  ERROR  DETECTED 

GET  THE  MONTH  NUMBER 

GET  THE  NAME 

AND  PRINT  THE  MONTH  NAME 

GET  THE  DAY  NUMBER 
AND  PRINT  IT 

GET  THE  YEAR 
AND  PRINT  IT 


GET  THE  HOURS 
AND  PRINT 

GET  THE  MINUTES 

Print  a  zero  if  needed 

AND  PRINT 

GET  THE  SECONDS 

Print  a  zero  if  needed 

AND  PRINT 

Get  system  uptime  in  jiffies 

from  the  monitor 
Failed! 
Save  it  for  later 


.•Check  for  multiple  CPU  system,  select  one  to  run  on 


MOVE 
GET TAB 

SETZ 
TLNN 
JRST 
PNTMSF 


[17, ,11] 
2' 

46 

UTIMEI 

[ASCIZ/ 


.-Check  for  multiple  CPU  system 

;  so  that  we  run  on  only  one  of 

.•Shouldn't  fail 

;Is  this  a  dual  CPU  systerr? 

;No 


them 


040227  037  01  0  00  070467 


This  is  a  multi-CPU  system.  You  must  choose  only  one  to  run  on. 
Furthermore,  all  of  tne  drives  you  want  to  test  must  be  on  that  CPU. 
/] 


mmiiimiiti'ti6«'<tlt»i."  >**H8w«lMdWWWaiWlWilliW*i'^ 
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SEC  0258 


7123 

7124 

7125 

7126 

7127 

7128 

7129 

713^ 

""-•jl 

7132 

7133 

7134 

7135 

7136 

7137 

7138 

7139 

7140 

7141 

7142 

7143 

7144 

7145 

7146 

7147 

7148 

7149 

7150 

7151 

7152 

7153 

7154 

7155 

7156 

7157 

7158 

7159 

7160 

7161 

7162 

7163 


040230 
040230 
040231 
040232 
040233 
040234 
040235 
040236 
040237 
040240 
040241 
040242 

040243 
040244 

040245 
040246 
040247 
040250 
040251 
040252 
040253 
040254 
04025S 
040256 

040257 
040260 
040261 
040262 
040263 
040264 
040265 
040266 
040267 
040270 
040271 
040272 
040273 


037  01 
037  04 
254  00 
331  00 
303  00 
254  00 

200  02 

201  01 
242  01 
505  01 
047  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 


070524 
000003 
040230 
000000 
000005 
040230 
000000 
000001 
000000 
000014 
000075 


037  01  0  00  070532 
254  00  0  00  040317 


402 
200 
047 
263 
202 
350 
270 
367 
350 
263 


00 
00 
00 
17 
00 
00 
06 
15 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 

u 

00 
00 
00 
17 
00 


56  57 
52  41 

40  45 
55  41 

41  60 

55  41 
52  65 
52  65 
41  65 
63  45 

57  43 

56  57 
44  45 


56  45 
56  00 
42  00 
62  00 
62  00 
71  00 
56  00 
54  00 
47  00 
60  00 
64  00 
00 
00 


t\ 


000014 
000006 
000041 
000000 
100561 
000014 
066731 
040246 
000000 
000000 

00  00 

00  00 

00  00 

00  00 

00  00 

00  00 

00  00 

00  00 

00  00 

00  00 

00  00 

00  00 

00  00 


CPUSEL:  PNTMSF  [ASCI2/ 
Select  CPU  0  thru  5  <CR>  -  /] 
TTIDEC 


/] 


GTTAB: 
GTTAB1 


MONTH: 


JRST  CPUSEL 

SKIPL 

CAILE  5 

JRST  .-5 

MOVE  2,0 

MOVEI  U 

LSH  1,(2) 

HRLI  1,14 

SETUUO  1, 

PNTMSF  [ASCIZ/X  SETUUO  failed 

JRST  UTIME1 

SETZM  PP 

MOVE  AC 

6ETTA8  ACO, 

RTN 

MOVEM  ACO,PPLIST(PP) 

AOS  PP 

ADD  AC,C1,,0] 

REPTLP  GTTAB1 

AOS  (P) 

RTN 

SIXBIT  /NONE/ 

SIXBIT  /JAN/ 

SIXBIT  /FEB/ 

SIXBIT  /MAR/ 

SIXBIT  /APR/ 

SIXBIT  /MAY/ 

SIXBIT  /JUN/ 

SIXBIT  /JUL/ 

SIXBIT  /AUG/ 

SIXBIT  /SEP/ 

SIXBIT  /OCT/ 

SIXBIT  /NOV/ 

SIXBIT  /DEC/ 


.-Prompt 

; Input  a  number 
.-Timeout 
.-Less  than  0? 
.-Less  than  or  equal  5? 
.-Invalid  -  reask 
.-Get  0   to  AC  for  indexing  later 
.-Set  bit  mask  to  assume  CPUO 
.-Shift  into  position  for  selected  CPU 
.-Set  CPU  is  Function  14 
.-Set  to  proper  CPU 
to  set  run  on  that  CPU 

.-Rejoin  rode  below 

.-CLEAR  THE  INDEXER 

.-GET  THE  TABLE  NUMBER 

.-EXECUTE  THE  GETTAB  FOR  INFO 

.-EXIT  -  ERROR  DETECTED 

.-SAVE  THE  DATA  FROM  TABLE  IN  CORE 

.-BUMP  THE  POINTER 

.-POINT   TO  THE  NEXT   TABLE  ENTRY  WORD 

;D0  ANOTHER  FETCH 

;RETURN  ^2  OK... 


.^Ilthmmmaimi  iiHtfnmnniiw  WMtjiwi 


iiiiWlJiijiftit^iMiMiiwwM 


!A6 
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SEQ  0259 


71 6A 

7165 

7166 

7167 

7168 

7169 

7170 

7171 

7172 

7173 

7174 

7175 

7176 

7177 

7178 

7179 

7180 

7181 

7182 

7183 

7184 

7185 

7186 

7187 

7188 

7189 

7190 

7191 

7192 


040274 
040275 
040276 

040277 
040300 
040301 
0A0302 
040303 
040304 
040305 
040306 
040307 

040310 
04031 1 
040312 
040313 
040314 
040315 
040316 

04031^ 
040320 
040321 
040322 


037  04  0  00  070543 
201  02  0  00  000013 
400  04  0  00  000000 


200  01 
104  00 
320  16 

200  03 
561  01 
104  00 
270  02 
602  03 
254  00 

037  04 

201  01 
474  02 
400  03 
104  00 
104  00 

202  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 


000002 
000010 
040310 
000001 
000003 
000076 
066731 
000376 
040277 

070545 
000101 
000000 
000000 
000220 
000014 
030054 


037  01  0  00  030243 

201  00  0  00  000006 

202  00  0  00  077622 
254  00  0  00  040030 


;Here  if  TOPS-20  monitor 
UT20A: 


PMS6F 
MOVE  I 
SETZ 


UT20A1:  MOVE 

6ETABX 

ERJMP 

MOVE 

HRROI 

PSOUTX 

ADD 

TRNE 

JRST 

UT20A2:  PMSGF 
MOVE  I 
SETO 
SETZ 
ODTIMX 
TIMEX 
MOVEM 


UTIME1 


PCRL2F 
MOVE  I 
MOVEM 
JRST 


<**SVSTEM: 
AC2..SYSVE 
AC4, 

AC1,AC2 

UT20A2 

AC3,AC1 

AC1.AC3 

AC2,C1,,0] 

AC3-376 

UT20A1 

<*DATE:  > 
AC1,.PRI0U 
AC2. 
AC3. 


AC1, TICKS 


6 

HERTZ 
CLRT8L 


;Output  label  for  system  name 
.-Load  system  version  table 
; Clear  4  for  ASCIZ  terminator 

;Load  argument  into  AC2 

;Get  a  word  of  system  name  in  AC1 

;Error?  all  done 

.-Copy  ASCII  to  3 

.•Point  to  the  text 

.•Primary  String  OUTput 

;Bump  to  next  item  in  table 

;A  null  yet? 

;Nope,  loop  for  more 


for  date 
to  primary 


; Output  label 

.•Point  output 

;Time  of  now 

.•Default  format 

.•Output  that 

;6et  uptime  in  milliseconds 


.Save  It 


.-FAKE  OUT 
;AND  EXIT 


THE  CYCLES  THING 


mmmatimm 


mmmmmtm'm^miitmmm 
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INIT 


SEQ  0260 


7193 

71 9A 

7195 

7196 

7197 

7198 

7199 

7200 

7201 

7202 

7203 

720A 

7205 

7206 

7207 

7203 

7209 

7210 

7211 

7212 

721 : 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

nil 

7223 
7224 
7225 
7226 

mi 

722S 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7238 
7239 
7240 


040323 
040324 
040325 
040326 
040327 

040330 
040331 
040332 
040333 
040334 
040335 

040336 
040337 
040340 
040341 

040342 
040343 
040344 
040345 
040346 
040347 
040350 

040351 
040352 
040353 
040354 
040355 

040356 
040357 

040360 
040361 
040362 
040363 
040364 
040365 
040366 


332  00  0  00  030516 
254  00  0  00  040427 
047  00  0  00  000024 
312  00  0  00  070547 
037  04  0  00  070550 


200  00 
047  00 
037  04 
402  00 
602  00 
476  00 


0  00  070560 
0  00  000041 
0  00  070561 
0  00  100017 
0  00  000004 
0  00  100017 


200  00  0  00  070570 
047  00  0  00  000041 
037  02  0  00  070571 
202  00  0  00  077672 


200  00 
047  00 
037  04 
370  CO 
552  00 
047  00 
0:>^  04 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


070600 
000041 
070601 
000000 
100070 
000042 
070611 


200  00  0  00  070615 
047  00  0  00  000041 
037  04  0  00  070616 
557  00  0  00  OOOQOQ 
202  00  0  00  077565 

332  00  0  00  030043 
254  00  0  00  040515 


037  02 
037  10 
254  00 
316  00 
25^  00 
316  00 
254  00 


0  00  070625 
0  00  000003 
0  00  040367 
0  00  0671/^6 
0  00  04037i 
0  CO  067177 
0  00  040401 


i*USTRT  —  ROUTINE  TO  ASK  FOR  A  STRUCTURE  NAME  AND  TEST  TO  SEE 

;♦      IF  IT  CAN  BE  USED 

•  /If***********  ***********  tt  ♦*♦****♦*  ♦»*♦*♦**♦♦•♦**♦**♦**•♦***♦***♦*♦♦♦♦**♦* 


USTRT:  SKIPE 
JRST 
6ETPPN 
CAWE 
PMS6F 

STATE2:  MOVE 

GETTAB 

PMSGF 

SETZM 

VRNE 

SETOM 

CPUSER:  MOVE 

GETTAB 

PWSG 

MOVEM 

TOPMON:  MOVE 

GETTAB 

PMSGF 

SOS 

HRRZM 

SPY 

PMSGF 

ADRDDB:  MOVE 

GETTAB 
PMSGF 
HLRZS 
MOVEM 


USfMI 


SKIPE 
JRST 


•'STM1A:  PMS6 

TTSIXB 

JRST 

CAMfM 

JRST 

CAMN 

JRSi 


MONTYP  ;T0PS-20  MONITOR?? 

U5TM4  ;YES  -  SKIP  CODE     ^ 

;GET  THE  OPR  CPROJ,.PROG]  * 
CK,2]  .-RUNNING  UNDER  A  LEGAL  NUMBER? 

<'^i  SHOULD  BE  LOGGED  IN  UNDER  "^  ,2"   TO  PROCEED! ''> 

C106.  J1]  .-SETUP  TO  GET  2ND  STATES  WORD 

ACO.  ;D0  IT 

<^?  GETTAB  ERROR  GETTING  2ND  STATES  WORD?^> 

VMFLG*  .-CLEAR  VIRTUAL  MEMORY  OPTION  FLAG 

4  ;IS  VIRTUAL  MEMORY  OPTION  AVAIL? 

VMFLG  ;YES 

C20..11] 

;GET  CPU  SER  ff 
<*?  GETTAB  FAILED  GETTING  CPU  SER  M  ?> 
P6MCPU 

[12. .11]  .-SETUP  TO  GET  ADR  OF  TOP  MONITOR  LOCATION 

ACO.  ;GET  IT 

<*?  GETTAB  ERROR  GETTING  LAST  MONITOR  ADDRESS?^> 

ACO  .-CORRECT  IT 

ACO.SYSSIZ  .-SAVE  FOR  LATER 

ACO.  .-MAKE  MONITOR  LOOK  LIKE  HIGH  SE6 

<•?  SPY  UUO  FAILURE?*> 

[7. .16]  .-SETUP  TO  GET  1ST  SYSTEM  DDB  ADDRESS 

AC6.  ;GET   IT 

<•?  GETT/'Q  ERROR  GETTING  1ST  DDB  ADDRESS?*> 

ACO 

DDrADR# 


MONCTL 
SYSEON 

<SHORT  STARTUP  DIALOG 

USTM1B 
[SIX8IT/Y/] 

USTM1C 

ACO.CSIXBIT/N/] 

USTM1D 


.-PUT  ADDRESS  IN  RIGHT  SIDE 
.-SAVE  IT 

.-DIAG.  MON.  CONTROL? 
.-YUP 

(Y  OR  N)  > 

.-ERROR  HE  NEEDS  SOME  HELP 

;Yes.  short  starup  dialog 
;Does  he  want  long  dialog 
;Yes 


ODRPl  - 
DDRPI3 

72A1 
72A2 
7243 
724A 
72A5 
7246 
llWl 

7249 

7250 

7251 

7252 

7253 

725A 

7255 

7256 

7257 

7258 

7259 

7260 

7261 

7262 

7263 

7264 

7265 

7266 

7267 

7268 

7269 

7270 

7271 

7272 

7273 

727  i, 

7275 

7276 

7277 
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MACRO  :53B(1242)   15:51   28-Aug-85  Page  11 
INIT 


SEQ  0261 


040367 
040370 
040371 
040372 

040373 
040374 
040375 
040376 
040377 
040400 

040401 
040402 
040403 
040404 
040405 
040406 
040407 

040410 
040411 
040412 
040413 
040414 
040415 
040416 

0404 17 
040420 
040421 
040422 
040423 
040424 
040425 
040426 


037  02  0  00  070633 
037  02  0  00  070643 
037  02  0  00  070654 
254  00  0  00  040360 


402  00 
200  00 


661 
o21 


00 
00 


202  00 
254  00 


0  00  077756 
0  00  100043 
0  00  100000 
0  00  200000 
0  00  100043 
0  00  040542 


037  04  0 
037  10  0 
254  00  0 
316  00  0 
254  00  0 


312  00 
254  00 


037  04  0 
10  0 


037 
254  00 
316  00 


254 
312 


00 
00 


254  00  0 


00  070666 
00  000003 
00  040356 
00  067176 
00  040527 
00  C67177 
00  040472 

00  070676 
00  000003 
00  040410 
00  067176 
00  040533 
00  067177 
00  040475 


037 
4ui 

o:/ 

25'. 
316 
254 
312 
254 


04 
00 
10 
00 
00 
00 
00 
00 


0 
0 


00 
00 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


070706 
077634 
000003 
040417 
067176 
040537 
067177 
040500 


USTM1B:  PMSG 
PMSG 
PMSG 
JRST 

U5TM1C:  SETZM 
MOVE 
TLO 
TLZ 
MOVEM 
JRST 

USTM1D:  PMSGF 
TTSIXB 
JRST 
CAMN 
JRST 
CAME 
JRST 


USTM2: 


USTM3: 


PMSGF 

TTSIXB 

JRST 

CAMN 

JRST 

CAME 

JRST 

PMSGF 

SETZM 

TTSIXB 

JRST 

CAMN 

JRST 

CAME 

JRST 


<'^SHORT  DIALOG  DEFAULTS  TO  NORMAL  CPU  PRIORITY,  > 
<^JOB  ISN'T  LOCKED  IN  COR^,  MONITOR  RETRIES  DISABLED,  > 
<^SYSERR  REPORTING  ON,  AND  PROGRAM  SLEEP  OPTION  IS  OFF**> 
USTM1A 


SLEPON 

PAKNAM 

(182) 

(1B1) 

PAKNAM 

USTRTI 

<^RUN  JOB  IN  HIGH 

USTM1 

CSIXBIT  /Y/3 
USRHPQ 
CSIXBIT  /N/] 
USTM1H 


CLR  SLEEP  FLAG 
GET  OPEN  ARG  WORD 
DIS  MONITOR  RETRIES 
SYS  ERROR  REPORT  ON 
SAVE  UPDATED  WORD 
GET  DRIVE  TO  TEST 


N)  > 


PRIORITY  QUEUE?  (Y  OR 
GET  THE  ANSWER 
ERROR 
YES''' 

/ES'-  SETUP  HPQ 
NO?? 
PRINT  HELPER  MESSAGE 


<*RUN  DISK  IN  HIGH  PRIORITY  QUEUE?  (Y  OR  N)  > 


USTM2 

CSIXBIT  /Y/D 
USRHDQ 
CSIXBIT  /N/] 
USTM2H 


ERROR 

YES'''' 

YES*-  SETUP  HDQ 

NO?? 

PRINT  HELP 


<^LOCK  THIS  JOB  IN  CORE?  (Y  OR  N)  > 
LOKCOR* 


USTM3 

CSIXBIT  /Y/] 
USRLOK 
CSIXBIT  /N/D 
USTM3H 


ERROR 

YES'''' 

yes'-  lock  the  JOB 

NO?? 

PRINT  HELP 
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r 


SEQ  0262 


7278 

7279 

7280 

7281 

7282 

7283 

7284 

7285 

7286 

7287 

7288 

7289 

7290 

7291 

7292 

7293 

7294 

7295 

7296 

7297 

7298 

7299 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 

7308 

7309 

7310 

7311 

7312 

7313 

7314 

7315 

7316 


040427 
040430 
040431 
040432 
040433 
040434 
040435 
040436 
040437 
040440 

040441 
040442 
040443 
040444 
040445 
040446 
040447 
040450 
040451 
040452 
040453 

040454 
040455 
040456 
040457 

040460 
040461 
040462 
040463 
040464 
040465 
040466 
040467 
040470 


037  04 
402  00 
037  10 
254  00 
312  00 
254  00 
476  00 
254  00 
312  00 
254  00 

037  04 
037  10 
254  00 
316  00 
254  00 
312  00 
254  00 
200  00 
661  00 
202  00 
402  00 

332  00 
254  00 
037  04 
402  00 
037  10 
254  00 
3i2  00 
254  00 
312  00 
254  00 
200  00 
661  00 
202  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  070714 
00  077756 
00  000003 
00  040427 
00  067176 
00  040437 
00  077756 
00  040441 
00  067177 
00  040503 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


070723 
000003 
040441 
067176 
040515 
067177 
040507 
100043 
200000 
100043 
100014 


00  030043 
00  040522 
00  070733 
00  077644 
00  000003 
00  040454 
00  067176 
00  040522 
00  067177 
00  040512 
00  100043 
00  100000 
00  100043 


040471  254  00  0  00  040542 


USTM4:  PMSGF 
SETZM 
TTSIXB 
JRST 
CAME 
JRST 
SETOM 
JRST 

USVM4A:  CAME 
JRST 

USTM5:  PMSGF 
TTSIXB 
JRST 
CAMN 
JRST 
CAME 
JRST 

SYSOFF:  MOVE 
TLO 
MOVEM 
SETZM 


USTM6: 


RETOFF 


SKIPE 

JRST 

PMSGF 

SETZM 

TTSIXB 

JRST 

CAWN 

JRST 

CAWE 

JRST 

MOVE 

TLO 

MOV  EM 


<*RUN  WITH  MONITOR  SLEEP  OPTION?  (Y  OR  N)  > 
SLEPON*  I  ;CLEAR  THE  SLEEP  FLAG 

;GET  ANSWER 
USTM4  .-INPUT  ERROR 

CSIXBIT  /Y/:  ;YES?? 

USTM4A 

SLEPON  ;YES  -  SET  THE  FLAG 

USTM5  ;ASK  NEXT  QUESTION 

CSIXBIT  /N/]  ;N0  ?? 

USTM4H  .-PRINT  HELP  MESSAGE 


DDF 
DDF 


<''RUN  WITH  "SYSERR' 

USTM5 

CSIXBIT  /Y/] 

SYSEON 

CSIXBIT  /N/D 

USTM5H 

PAKNAM 

(1B1) 

PAKNAM 

USERON# 


REPORTING  ENABLED?  (Y  OR  N)  > 

GET  ANSWER 

INPUT  ERROR 

YES?? 

YUP 
;N0?? 
;PRINT  HELP 

GET  WORD 

SET  REPORTING  OFF 

SAVE  UPDATED  WORD 

CLEAR  THE  SYSERR  ON  FLAG 


DIAG.  MON.  CONTROL? 
YUP 


MONCTL 

RE TON  .,ur 

<*ENABLE  MONITOR  ERROR  RETRIES?  (Y  OR  N)  > 

MONRET# 

;GET  THE  ANSWER 

USTM6 

CSIXBir  /Y/]          ;YES?? 

RETON  ;YES  -  TURN  IT  ON 

CSIXBIT  /N/D          ;N0?? 

USTM6H  .-PRINT  HELP 

PAKNAM  .-GET  CONTROL  WORD 

(1B2)  .-SET  BIT 

PAKNAM  .-SAVE  WORD  AGAIN 


USTM7:  JRST    U.STRTI 


.'Start  me  up 


hxi— :IW>»  iiiw.i*>i>wli<pw 


r 
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SEQ  0263 


DDI 
DDI 


7317 

7318 

7319 

7320 

7321 

7322 

7323 

732A 

7325 

7326 

7327 

7328 

7329 

7330 

7331 

7332 

7333 

733A 

7335 

7336 

7337 

7338 

7339 

73A0 

73A1 

73A2 

73A3 

73AA 

73A5 

73A6 

73A7 

73A8 

73A9 

7350 

7351 

7352 

7353 


0A0A72  037  OA  0  00  0707A2 

0AOA73  037  OA  0  00  07075A 

0AOA7A  25A  00  0  00  0A0356 

0AOA75  037  OA  0  00  070765 

0A0A76  037  OA  0  00  070777 

0AOA77  25A  00  0  00  0A0A10 

OA0500  037  OA  0  00  071011 

0A0501  037  OA  0  00  071022 

0A0502  25A  00  0  00  0A0A17 

0AO503  037  OA  0  00  071025 

0AO50A  037  OA  0  00  071036 

0AO505  037  OA  0  00  071 0A7 

0AO506  25A  00  0  00  0A0A27 

0AO507  037  OA  0  00  071055 

OA0510  037  OA  0  00  071066 

0A0511  25A  00  0  00  0A0AA1 

0AO512  037  OA  0  00  071075 

OA0513  037  OA  0  00  071107 

0A051A  25A  00  0  00  0A0A5A 

OA0515  200  00  0  00  1000A3 

0A0516  621  00  0  00  200000 

OA0517  202  00  0  00  1000A3 

0AO520  A76  00  0  00  10001 A 

OA0521  2d-  00  0  00  0A0A5A 

0A0522  200  00  0  00  1000A3 

0A0523  621  00  0  00  100000 

0A052A  202  00  0  00  1000A3 

0A0525  A76  00  0  00  0776AA 

0A0526  25A  00  0  00  0A0A71 


USTM1H: 


USTM2H: 


USTM3H: 


USTMAH: 


USTM5H: 


USTM6H: 


SYSEON: 


RE TON: 


PMSGF 
PMSGF 
JRST 

PMSGF 
PMSGF 
JRST 

PMSGF 
PMSGF 
JRST 

PMSGF 
PMSGF 
PMSGF 
JRST 

PMSGF 
PMSGF 
JPST 

PMSGF 
PMSGF 
JRST 

MOVE 

TLZ 

MOVEM 

SETOM 

JRST 

MOVE 

TLZ 

.^OVEM 

SETOM 

JRST 


<'^RUNNING  JOB  IN  HIGH  PRIORITY  Q'JEUE  WILL  CAUSE   THIS  JOB> 
<*T0  BE   SCHEDULED  BEFORE  OTHER  J03S  ON  THE  SYSTEM... -"> 
USTM1 

<'^HIGH  PRIORITY  DISK  QUEUE  CAUSES  THIS  JOB'S  DISK  REQUESTS> 
<'^T0  BE  HONORED  BEFORE  OTHER  DISK  REQUESTS  FOR  THAT  UNIT...^> 
USTM2 


<*LOCKING  THIS  JOB 
<'^2WAPPED  OUT...*> 
USTM3 


IN  CORE  yiLL  PREVENT  IT  FROM  BEING> 


<*MONITOR  SLEEPING  WILL  OCCUR  FOR  1   SECOND  AFTER  EACH> 
<*PROGRAM  DISK  REQUEST  TO  ALLOW  OTHER  USERS  OF   THE> 
<''DRIVE  TO  GAIN  ACCESS  TO  IT. ..'**> 
USTMA 

<*RUNNING  WITH  "SYSERR"  REPORTING  ENABLED  WILL   LOG  ANY> 

<*ERROR   INFORMATION  IN  'tRROR.SYS". . .**> 

USTM5 

<*ENABLING  MONITOR  ERROR  RETRIES  WILL  ALLOW  THE  MONITOR> 
<*T0  AUTOMATICALLY  RECOVER  FROM  A  DISK  READ  ERROR. ..*''> 
USTM6 


PAKNAM 

(181) 

PAKNAM 

USERON 

USTM6 

PAKNAM 

(182) 

PAKNAM 

MONRET 

USTM7 


;GET  THE  MONITOR  CONTROL  WORD 
;CLEAR   THE   SYSERR   INHIBIT  BIT 
;SAVE   THE  UPDATED  WORD 
;SET   THE  FLAG 


;GET  THE  WORD 
.•CLEAR   THt  BIT 
;SAVE    IT 


kiimmiiim\,tmwmm» 


m^,:t^.i^  •>»»-.i«iK-.;^'  'mtmA-  -"*»*■>•  v>--  »**»  »*■■*  -• 


iDDRPI  - 
!  DDRPI3 


7354 
7355 
7356 
7357 
7358 
7359 
7360 
7361 
7362 
7363 
7364 
7365 
7366 
7367 
7368 
7369 
7370 
7371 
7372 
7373 
7374 
7375 
7376 
7377 
7378 
7379 
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)*USRHPQ  —  ROUTINE  TO  SET  HIGH  PRIORITY  QUEUE  FOR  JOB 


SEQ  0264 


040527  201  00  0  00  000001 

040530  047  00  0  00  000071 

040531  037  04  0  00  071120 

040532  254  00  0  00  040410 


040533  201  00  0  00  071126 

040534  047  00  0  00  000121 

040535  037  04  0  00  071127 

040536  254  00  0  00  040417 


040537  476  00  0  00  077634 
040540  260  17  0  00  045135 
04054-  254  00  0  00  040427 


USRHPQ:  MCVEI  XHPOBT  ;GET  THE  BIT  FOR  HPQ 

HPO  ACO,  ;SET  IT 

PMSGF  <*?  CAN'T  SET  HIGH  PRIORITY  QUEUE?**> 

JRST  USTM2 

./If  ♦♦♦♦♦*♦»♦*»♦»***»♦♦♦♦♦♦♦♦♦♦♦•♦♦**»*•*♦♦♦*♦*♦*♦♦»♦♦**♦♦***♦♦  ♦♦♦♦♦♦**♦*♦♦* 

i*USRHDQ  —  ROUTINE  TO  SET  DISK  HIGH  PRIORITY  QUEUE 

•  /If*************************************************  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

USRHDQ:  MOVEI  CXDSKBT]  ;GET  THE  BITS 

DISK.  ACO,  ;SET  THE  PRIORITY 

PMSGF  <*?  CAN'T  SET  DISK  IN  HIGH  PRIORITY  QUEUE?**> 

JRST  USTM3 

•  /If*******  **********************************************  ******************* 

;*USRLOK  —  ROUTINE  TO  LOCK  THIS  JOB  IN  CORE 

; /If  *******************************************  **♦♦♦****♦*♦♦♦**************♦ 


DD 
DD 


USRLOK:  SETOM  LOKCOR 
GO  LOCKIT 
JRST    USTM4 


;SET  THE  LOCKED  IN  CORE  FLAG 

;Lock  It 

;Then  return  for  the  other  questions 


■fMiMMAHtaMMM 


r 


DDRPl  - 
DDRP13 

7380 

7381 

7382 

7383 

7384 

7385 

7386 

7387 

7388 

7389 

7390 

7391 

7392 

7393 

7394 

7395 

7396 

7397 

7398 

7399 

7400 

7401 

7402 

7403 

7404 

7405 

7406 

7407 

7408 

7409 

7410 

7411 

7412 

7413 

7414 

7415 

7416 

7417 

7418 

7419 

7420 

7421 

7422 

7423 

7424 

7425 
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•If***************************** ♦*♦****♦*♦****♦♦***♦*♦♦**♦♦***** «♦**♦♦♦**** 
•HERE  TO  ASK  THE  OPERATOR  WHAT  DISK  UNITS  TO  BE  TESTED 


SEQ  0265 


040542 
040543 
040544 
040545 
040546 
040547 

040550 
040551 
040552 
040553 
040554 
040555 
040556 
040557 
040560 
040561 
040562 
040563 
040564 
040565 
040566 

040567 
040570 
040571 
040572 

040573 
040574 
040575 
040576 
040577 
040600 

040601 
040602 
040o03 
040604 
040605 
040606 


332  00 
254  00 
037  04 
402  00 
402  00 
402  00 

037  10 
254  00 
322  00 
316  00 
254  00 
316  00 
254  00 
312  00 
316  00 
254  00 
316  00 
254  00 
336  00 
260  17 
476  00 


0  00  030516 
0  00  041035 
0  00  0*'1137 
0  00  1<:0015 
0  00  077721 
0  00  077722 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 


00 
00 


000003 
041241 
041241 
071152 
030600 
071153 
041014 
071154 
071155 
043536 
071156 
040757 
100015 
043557 
100015 


202  00  0  00  100561 

200  06  0  00  071157 

O**''  06  0  00  000045 

254  00  0  00  041243 

202  06  0  00  100563 
135  01  0  00  071160 
302  01  0  00  000005 
254  00  0  00  041243 
135  01  0  00  071161 
326  01  0  00  041247 

135  01  0  00  071162 
302  01  0  00  000006 
254  00  0  00  041264 
135  13  0  00  071163 
200  01  0  00  077565 
202  01  0  00  100012 


USTRT1:  SKIPE 
JRST 
PMSGF 
SET2M 
SET2M 
SET2M 

USTINP:  TTSIXB 
JRST 
JUHPE 
CAMN 
JRST 
CAMN 
JRST 
CAME 
CAMN 
JRST 
CAMN 
JRST 
SKIPN 
GO 
SETOM 

MOVEM 
MOVE 
DSKCHR 
JRST 

MOVEM 

LDB 

CAIE 

JRST 

LDB 

JUMPN 


UST1A: 


LDB 

CAIE 

JRST 

LDB 

MOVE 

MOVEM 


MONTYP  ;TOPS-20  monitor? 

UT20B  ;Yes 

<*TYPE  THE  PHYSICAL  DISK  NAME(S)  TO  BE  USED  (H  FOR  HELP)'*NAME  *> 

USRDSK# 

RH10  ;INIT  RH  FLAGS 

RH20 


DC 
DD 


STRER1 

STRER1 

CSIXBIT  /DDT/] 

ENTDDT 

CSIXBIT  /H/] 

USRSTR 

CSIXBIT  /A/] 

CSIXBIT  /ALL/3 

TSTALL 

CSIXBIT  /SAME/3 

USTEX 

USRDSK 

CLRSEL 

USRDSK 

PPLIST 
AC,C17,,PPLIST3 

StAeR2 

AC,PPLIST^2 

ACKCPOINT  6, AC, 263 

AC1-5 

STRER2 

ACUPOINT  2, AC, 83 

AC1,STRER3 

ACUCPOINT  3, AC, 173 

AC1.6 

STRER5 

DRIVE, [POINT  3,AC,353 

AC1,DDBADR 

AC1,UNIADR# 


INPUT  THE  SIXBIT  NAME 

INPUT  ERROR  OF  SOME  SORT 

No  name  typed 

WANT  TO  ENTER  DDT?? 

YES  -  DO  IT  NOW 

CONFUSED  ABOUT  WHAT  TO  DO?? 

TELL  OPR  WHAT  TO  DO 

A  =  ALL 

WANT  TO  TEST  ALL?? 

YES  -  SELECT  THEM  ALL 

USE  SAME  DRIVES  AS  REPORTED? 

Y^S 

FIRST  TIME  ? 

YES  CLEAR  THE  SELECTED  BITS 

SET  FLAG 

SAVE  THE  NAME  TYPED 

SETUP  TO  GET  THE  DISK  PARAMETERS 

GET  PARAMETERS 

ERROR  DETECTED 

SAVE  THE  RESULTS  IN  THE  TABLE 

Load  controller  type 

Is  It  an  RH10/RH20? 

Nope,  probably  HSC50  or  RP20  or  RS04 

GET  THE  PACK  STATUS 

REPORT  ERROR  DETECTED 

GET  THE  CALL  NUMBER 

PHYSICAL  NAME  TYPED? 

NO  -  REPORT  ERROR 

GET  THE  UNIT  #  OF  THIS  DEVICE 

GET  THE  UBIBLK  ADDRESS 

AND  SAVE  IT 


L 


DDRPI  - 
DDRPI3 

7426 

7A27 

7428 

7A29 

7A30 

7431 

7432 

7433 

7434 

7435 

7436 

7437 

7438 

7439 

7440 

7441 

7442 

7443 

7444 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 

7458 

7459 

7460 

7461 

7462 

7463 

7464 

7465 
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SEQ  0266 


DI 
D( 


040607 
040610 

04061 1 

04061 2 

04061 3 
040614 
04061 5 

040616 
040616 
04061 7 
040620 
040621 
040622 
040623 
040624 
040625 
040626 

040627 
040630 
040631 
040632 
040633 


040634 
040635 
040636 
040637 
040640 
040641 
040642 
040643 
040644 

040645 
040646 
040647 


254  00  0  00  071164 
316  00  0  00  100561 
254  00  0  00  040616 

254  00  0  00  071170 
322  01  0  00  041275 
202  01  0  00  100012 
254  00  0  00  040607 


254  00 
200  01 
202  01 
200  01 
047  01 
254  00 
513  00 
242  01 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


071174 
100561 
100060 
071200 
000165 
040627 
000001 
000006 
040634 


201  01  0  00  000112 
660  02  0  00  400000 
270  02  0  00  000001 
200  01  1  00  000002 
404  01  0  00  071201 


202  01 
554  01 
405  01 
3ui  01 
254  00 
332  00 
254  00 
476  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000012 
000001 
070000 
050000 
040645 
077721 
041024 
Q77722 
040650 


332  00  0  00  m722 
254  00  0  00  041024 
476  00  0  00  077721 


DDBFND:  6ETMWD  <MOVE  (AC1)> 

CAMN  PPL I ST 

JRST  DDBOK 

GETMWD  <HLnZ  AC1,3(AC1)> 

JUMPE  ACI.DDB^'OK 

MOVEM  ACKUNIADR 

JRST  DDBFND 

DDBOK:  GETMWD  <HRRZ  AC2,6(AC1)> 


MOVE 

MOVEM 

MOVE 

CALLI 

JRST 

HLLZS 

LSH 

JRST 

DIAGER:  MOVEI 
TRO 
ADD 
MOVE 
AND 

DDBOKA:  MOVEM 
HLRZ 
AND  I 
CAIE 
JRST 
SKIPE 
JRST 
SETOM 
JRST 

DDBOKB:  SKIPE 
JRST 
SETOM 


ACUPPLIST 

AC1,DIAGTB^1 

AC1,C-2,,DIAGTB] 

AC1J63 

DIAGER 

AC1 

AC1,6 

DDBOKA 

AC1J12 
AC2, 400000 
AC2,AC1 
AC1,aAC2 
AC1,[774B11] 

ACUMBCN 

1J 

1,70000 

1,50000 

DDBOKB 

RH10 

USTER1 

RH20 

DDBOK C 

RH20 

USTER1 

RH10 


;GET  THE  SIXBIT  NAME  IN  DDB 
;SAME  AS  ONE  TYPED?? 
:YES  -  CONTINUE 
^;N0  -  GET  NEXT  DDB  ADDRESS 

;Jump  if  DDB  not  found 

.-SAVE  THE  ADDRESS 

;AND  LOOK  AT  NEXT  TABLE 

*;GET  THE  ADDR  OF  MBC  BLOCK 


GET  THE  DEVICE  NAME 
SAVE  IT  FOR  THE  DIAG  CALL 
SETUP  FOR  CALL 
DO  "DIAG."  CALL 
"DIAG."  ERROR  RETURN 
SAVE  ONLY  MBCN  CODE 
POSITION  IT 
JUMP  AROUND  CODE 

GET  OFFSET  INTO  MBC  DATA  BLOCK 

SET  THE  PEEK  BIT 

MAKE  THE  CORRECT  ADDR 

GET  THE  MBC  COMMAND  INSTR. 

SAVE  ONLY  MBC  DEV  CODE  # 

SAVE  THE  DEVICE  CODE  # 
GET  DEV  CODE 
SAVE  MSB  ONLY 
RH20  TYPE?  (540-574)? 
NO 

FOUND  RH10  YET  ? 
YES  CANT  TEST  BOTH 
;N0  SET  FLAG 


; FOUND  ANY  RH20  YET 
;YES  CANT  TEST  BOTH 
;SET  FLAG 
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SEQ  0267 


r 

0 
D 


7A66 

7467 

7468 

7469 

7470 

7471 

7472 

7473 

7474 

7475 

7476 

7477 

7478 

7479 

7480 

7481 

7482 

7483 

7484 

7485 

7486 

7487 

7488 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 

7498 

7499 

7500 

7501 

7502 

7503 

7504 

7505 

7506 


040650 
040651 
040652 
040653 
040654 
040655 
040656 
040657 
040660 
040661 
040662 
040663 
040664 

040665 
040666 
040667 
040670 
040671 
040672 
040673 
040674 
040675 
040676 
040677 

040700 
040701 
040702 
040703 
040704 
040705 
040706 
040707 
040710 
04071 1 
040712 
040713 
040714 
040715 


260  17 
242  01 
270  13 
550  00 
326  00 
402  00 


0 
0 
0 
0 
0 
0 


200  00  0 
202  00  0 


202  00 
200  00 
202  00 
254  00 
202  00 

200  00 
607  06 
661  00 
603  06 
661  00 
603  06 
661  00 
332  00 
254  00 
661  00 
254  00 

200  01 
202  01 
200  01 
6u<  01 
202  01 
554  01 
405  01 
303  01 
661  00 
370  00 
202  01 
350  00 
221  01 
202  01 


0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  063665 
00  000003 
00  000001 
13  100747 
00  040664 
00  077656 
00  101156 
00  000011 
13  100747 
00  100012 
11  000353 
00  040665 
00  000011 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 

11 

00 
00 

11 

00 
00 
00 
00 
00 

11 

00 
0  00 
0  11 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00001 1 
200000 
100000 
100000 
004000 
040000 
002000 
100566 
040700 
010000 
040716 

100561 
000022 
100577 
770000 
000023 
100566 
000037 
000024 
020000 
000001 
000030 
000001 
000^00 
000027 


DDBOKC 


DDB0K1 


GO 

LSH 

ADD 

HRRZ 

JUMPN 

SET2M 

MOVE 

MOVEM 

MOVEM 

MOVE 

MOVEM 

JRST 

MOVEM 


DDB0IC2:  MOVE 
TLNN 
TLO 
TLNE 
TLO 
TLNE 
TLO 
SKIPE 
JRST 
TLO 
JRST 

MOVE 

MOVEM 

MOVE 

TLNE 

MOVEM 

HLRZ 

ANDI 

CAILE 

TLO 

SOS 

MOVEM 

AOS 

IMULI 

MOVEM 


CHNSEL 

ACU 

DRIVE, AC1 

DSBTBL(DRIVE) 

DD60K1 

ONCE 

FRECOR 

DSBP 

DSBTBL(DRIVE) 

UNI ADR 

.DSBEND(DSBP) 

DDB0K2 

DSBP 

DSBP 

AC,(1B1) 

(.ONLN) 

AC,(1B2) 

(.WRTL) 

AC,(1B3) 

(.SWRTL) 

PPLIST^5 

.'^3 

(.VIRG) 

USTRT3 

AC1,PPLIST 

ACU.DNAMECDSBP) 

AC1,PPLIST^16 

AC 1,770000 

AC1,.PKID(DSBP) 

AC1,PPLIST^5 

AC1,37 

AC1/D20 

(.f1i) 

AC1 

AC1,.MXSEC(DSBP) 

AC1 

AC1,BLKSIZ 

AC1,.TKSIZ(DSBP) 


DETERMINE  THE  MBC  UNIT  # 

POSITION  TO  CORRECT  PLACE 

MAKE  'DRIVE"  A  2  DIGIT  # 

GET  ANY  LURKING  AVAIL.  DSB  AREA 

YES  -  SKIP  SOME  CODE 

NO  -  PRETEND  1ST  TIME  HERE 

GET  THE  FREE  AREA  LOC  ADDRESS 

SETUP  THE  DSB  POINTER 

AND  THE  INITIAL  STAB  AT  THE  DSB  AREA 

GET  THE  ADDRESS  AGAIN 

AND  SAVE  IT  IN  DSB  LAST  LOCATION 

SAVE  THE  "FOUND"  DSB  POINTER 

GET  THE  DSB  POINTER  ADDRESS 

IS  THE  UNIT  ONLINE? 

YES  -  SET  THE  ONLINE  BIT  IN  DSBTBL  WORD 

IS  THE  UNIT  WRITE  LOCKED? 

YES  -  SET  THE  STATUS  BIT 

SOFTWARE  WRITE-LOCKED? 

YES  -  SET  THE  BIT  IN  STATUS  WORD 

ANY  BLOCKS/CYLIND  NUMBER  KNOWN? 

YES  -  PROCEED 

NO  -  MUST  BE  A  VIRGIN  PACK  I! 

JUMP  AROUND  SOME  CODE 

GET  THE  NAME 

AND  SAVE  IT 

GET  THE  PACK  ID  IN  SIXBIT 

Skip  if  unreasonable  pack  name 

SAVE  IT 

GET  THE  #  BLOCKS/CYLINDER 

KEEP  JUST  THE  BLOCKS/TRACK 

IN  11  FORMAT  ?? 

YES  -  SET  THE  11  FORMAT  BIT 

CORRECT  THE  MAX  SECT/TRK  NUMBER 

AND  SAVE  THE  #  IN  THE  DSB  AREA 

UPDATE  SECTOR  TO  REAL  NUMBER 

CALC  M   WORDS  PER  TRACK 

SAVE  SIZE  IN  DRIVES'  DSB  AREA 


■II  ■  I  wMiWatiii 


L.. 


L 
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SEQ  0268 


r 


7507 

7508 

7509 

7510 

7511 

7512 

7513 

75U 

7515 

7516 

7517 

7518 

7519 

7520 

7521 

7522 

7523 

7524 

7525 

7526 

7527 

7528 

7529 

7530 

7531 

7532 

7533 

7534 

7535 

7536 

7537 

7538 

7539 

7540 

7541 

7542 

7543 

7544 

7545 

7546 

7547 

7548 

7549 

7550 

7551 

75:2 


040716 
040717 
040720 
040721 
040722 
040723 
040724 

040725 
040726 
040727 
040730 
040731 
040732 
040733 

040734 
040735 
040736 
040737 
040740 
040741 
040742 
040743 
040744 
040745 
040746 
040747 
040750 
040751 
040752 
040753 
040754 
040755 
040756 

040757 
040760 
040761 
040762 

040  5 

04Cr'oH 

04C765 
G40766 


336  00 
254  00 

201  01 

202  01 
202  01 

201  01 

202  01 

336  00 
254  00 

201  01 

202  01 
202  01 

201  01 

202  01 

135  01 
306  01 
661  00 
306  01 
661  00 
607  00 
661 
661 
202  00 
550  00 
221  00 
270  00 
370  00 
2\J^  00 
260  17 
556  00 
200  CO 
202  00 
260  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


00 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
13 
00 
00 
00 
00 

11 

00 

11 

00 

11 

00 


077721 
040725 
000005 
077721 
100670 
000057 
100671 

077722 
040734 
000007 
077722 
100670 
000077 
100671 

071202 
000000 
000001 
000001 
000100 
000101 
000010 
002000 
100747 
100566 
000005 
100567 
000000 
000031 
045627 
000026 
100567 
000032 
040767 


200  00  0  00  030231 
405  00  0  00  000077 
306  00  0  00  000054 
254  00  0  00  040550 

260  17  0  00  042133 
037  01  0  00  030242 
260  17  0  00  043054 
263  17  0  00  000000 


USTRT3:  SKIPN 
JRST 
MOVE  I 
MOVEM 
MOVEM 
MOVE  I 
MOVEM 


USTRT5: 


SKIPN 

JRST 

MOVE  I 

MOVEM 

MOVEM 

MOVE  I 

MOVEM 


USTRT6:  LDB 
CAIN 
TLO 
CAIN 
TLO 
TLNN 
TLO 
TLO 
MOVEM 
HRRZ 
IMULI 
ADD 
SOS 
MOVEM 
GO 

HLRZM 
MOVE 
MOVEM 
GO 


USTEX: 


USTEX1: 


MOVE 
AND  I 
CAIN 
JRST 

GO 

PCRLF 
GO 
RTN 


RH10 

USTRT5 

AC1,5 

ACURHIO 

ACURHMAX 

AC1,*D47 

ACUDRMAX 

RH20 

USTRT6 

AC1,7 

AC1,RH20 

ACURHMAX 

AC1,*D63 

ACUDRMAX 

ACUCPOINT  3, AC, 323 

AC1,0 

(.RP04) 

ACIJ 

(.RP06) 

(.RP04I.RP06) 

(.UNKN) 

(.SWRTL) 

DSBTBL(DRIVE) 

PPLIST*5 

5 

PPLIST^6 

.MXBLK(DSBP) 

BLKADR 

.MAXCY(DSBP) 

PPLIST+6 

.MTCYL(DSBP) 

UADRV 

$TTCHR 
77 


II  11 


USTINP 
CORSET 
CONPRT 


;RH10  CONTROLLER  ? 

;N0  RH20 

;MAX  OF  6  RHIO'S  ON  SYSTEM 

;SET  THE  RH10  FLAG 

;AND  THE  MAX  0   OF  CONTROLLERS 

;SETUP  THE  MAX  DRIVES  # 


GET  MAX  M   OF  RH'S 
SET  FLAG 
SETUP  MAX  RH 
MAX  tf   OF  DRIVES 
SAVE  IT 

GET  THE  DRIVE  TYPE 

RP04/RP05? 

Yes 

RP06? 

Yes 

Not  i   RP04/RP06? 

Yes,  set  unknown  drive  type  bit 

SET  THE  OPR  WRITE-LOCK  BIT 

SAVE  THE  DRIVE  DATA  IN  TABLE 

GET  THE  BLKS/CYL  DATA 

CALC  BLKS  IN  MAINT  AREA 

ADD  IN  THE  TOTAL  USER  AVAIL  BLKS 

CORRECT  THE  COUNT 

SAVE  THE  TOTAL  BLKS/PACK 

CONVERT  TO  A  DISK  ADDRESS 

SAVE  THE  MAXIMUM  CYLINDER  M 

GET  THE  0   BLKS  ON  DRV 

SAVE  IT 

ADD  THE  DRIVE  TO  THE  TEST  LIST 

GET  THE  LAST  CHARACTER  TYPED 

STRIP  JUNK 

WANT  MORE  DRIVES? 

YES  -  GET  ANOTHER 

SETUP  USED  CORE  BITS  IN  BUFMAP  TABLE 
NO  -  GET  OUT 
;PRINT  THE  CONFIGURATION  FOUND 


_^.J 


r 


DDRPl  - 
DDRPI3 

7553 

7554 

7555 

7556 

7557 

7558 

7559 

7560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

7568 

7569 

7570 

7571 

7572 

7573 

7574 

7575 

7576 

7577 
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SEQ  0269 


040767 
040770 
040771 
040772 
040773 
040774 
040775 
040776 
040777 
041000 
041001 
041002 

041003 
041004 
041005 
041006 
041007 
041010 
041011 
041012 
041013 


200  00 
661  00 
202  00 
350  00 
312  11 
254  00 

201  01 
273  01 
402  00 
205  00 
541 
251 


00 
00 


402  00 

205  00 

541 

251 

260 

476 


00 
00 
17 
00 


260  17 
402  00 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


13 
00 
13 
00 
00 
00 
00 
00 
11 
11 
11 
11 

11 
11 
11 
11 
00 
00 
00 
00 
00 


100747 
400000 
100747 
077575 
101156 
041003 
000354 
101156 
000054 
000054 
000055 
000351 

000000 
000000 
000001 
000017 
042133 
077517 
041367 
077517 
000000 


;HERE  TO  ADD  A  DRIVE  TO  THE  U3ER  TEST  LIST  (SET  OPR  SELECT  BIT) 


UADRV :  MOVE 
TLO 
MOVEM 
AOS 
CAME 
JRST 
MOVE  I 
ADDB 
SET2M 
MOVSI 
HRRI 
BLT 

USTRT9:  SETZM 
MOVSI 
HRRI 
BLT 
60 

SETOM 
GO 

SETZM 
RTN 


DS8TBL(DRIVE) 

(180) 

DSBT8L (DRIVE) 

DRCNT 

DS8PJREC0R 

USrRT9 

ACUDSBSIZ^I 

ACKFRECOR 

.DCK(DSBP) 

.DCK(DSBP) 

.DCK^KDSBP) 

.BAT^177(DSBP) 

.DCR(OSBP) 

.DCR(DSBP) 

.DCR^KDSBP) 

.DEC2(DSBP) 

CORSET 

BATINT# 

BATSET 

BATINT 


;GET  THE  DSB  STATUS  WORD 
;SET  THE  OPR  SELECT  BIT 
;SAVE  THE  WORD  IN  TABLE 
.-COUNT  THE  DRIVE 
.-ALREADY  HAVE  A  DSB  AREA? 
;YES  -  DON'T  CHANGE  FRECOR 
;GET  THE  SIZE  OF  THE  DRIVE 
;AND  UPDATE  THE  FIRST  PGM 
.-CLEAR  THE  TOTALS  AREA 


ADDRESS 
DiB  AREA 
FREE  ADDRESS 


.-ZAP 


ALL  CLEAR  I 


.-CLEAR  THE  DSB  ASSIGNED  AREA 
.-BUILD  THE  BLT  WORD 

.-CLEAR  REGISTER  AREA 
.-SET  USED  K  BITS  IN  MEM  MAP 
.-SET  BAT  BLK  INIT  FLAG 
;SET  UP  THE  BAT  BLK  AREA 
;CLR  FLAG  -  DONE 


DDRPI  - 
DDRP13 

7578 

7579 

7580 

7581 

7582 

7583 

758A 

7585 

7586 

7S87 

7588 

7589 

7590 

7591 

7592 

7593 

7594 

7595 

7596 

7597 

7598 

7599 

7600 

7601 

7602 

7603 

760A 

7605 

7606 

7607 

7608 

7609 

7610 

7611 

7612 
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SEQ  0270 


041014 
041014 

041015 

041016 

041017 

041020 

041021 

041022 
041023 


037  02  0 

037  02  0 

037  02  0 

037  02  0 

037  02  0 

037  02  0 

037  02  0 
254  00  0 


00  071203 

00  071215 

00  071 2?6 

00  071240 

00  071252 

CO  071262 

00  071273 
00  040542 


041024 

041024  037  02  0  00  071304 

041025  037  02  0  00  071320 


041026 
041027 
041030 
041031 
041032 
041033 
041034 


402  00  0 
200  00  0 
2:)'  00  0 
402  00  0 
200  00  0 
251  00  0 
254  00  0 


00  100747 
00  070424 
00  101046 
00  101047 
00  070425 
00  101056 
00  040542 


;Here  for  help  text  for  "NAME  ♦"  prompt. 


USRSTR:  PMSG 
PSIXM 
PMSG 
PSIXM 
PMSG 
PSIXM 
PMSG 
PSIXM 
PMSG 
PSIXM 
PMSG 
PSIXM 
PMSG 
PSIXM 
JRST 


<'^THE  PROGRAM  MUST  HAVE  A  PHYSICAL  DRIVE  NAME  FOR  TESTING. >* 
CSIXBITVTHE  PROGRAM  MUST  HAVE  A  PHYSICAL  DRIVE  NAME  FOR  TESTING. .\J 
<*AN  EXAMPLE  OF  A  PHYSICAL  NAME  IS  'l^PAO"  OR  "gPB3''.>"  ,..  ^^^ 
[SIXBITV^AN  EXAMPLE  OF  A  PHYSICAL  NAME  IS  "RPAO"  OR  "RPB3"..\]* 
<*A  STRUCTURE  NAME  LIKE  "DSKA"  OR  "DSKB"  IS  NOT  ALLOWED 1>" 
CSIXBITX^A  STRUCTURE  NAME  LIKE  "DSKA"  OR  "DSKB"  IS  NOT  ALLOWED!. \3* 
<*DEVICES  OTHER  THAN  RP04/05/06  COMBINATIONS  (I.E.  RP02,>^  ^^   ^^ 
CSIX8IT\^DEVICES  OTHER  THAN  RP04/05/06  COMBINATIONS  (I.E.  RP02,.\3* 
<^RP03,  RS04,  TUl6e  PRINTER),  CANNOT  BE  TESTED. >'' 
[SIXBIT\*RPOi,  RSOi,  TU16,  PRINTER),  CANNOT  BE  TESTED. ^\3* 
<**TYPE  "ALL"  TO  TEST  ALL  PREVIOUSLY  REQUESTED  UNITS. "^-^ 
CSIXBIT\**TYPE  "ALL"  TO  TEST  ALL  PREVIOUSLY  REQUESTED  UNITS. \\3* 
<*TYPE  "SAME"  TO  SELECT  SAME  DRIVES  AS  REPORTED. '*>* 
CSIXBIT\*TYPE  "SAME"  TO  SELECT  SAME  DRIVES  AS  REPORTED. \\]" 
USTRT1 


;Here  if  both  RHIO  and  RH20  devices  detected. 

<*DDRPI  DOESN'T  SUPPORT  TESTING  OF  BOTH  RHiO  £  RH20  DEVICES  T0GETER.>' 
<*SELECT  ONLY  THOSE  DEVICES  CONNECTED  TO  THE  SAME  CONTROLLER  TYPE.*>* 


USTER1:  PMSG 
PMSG 


; CLEAR  DSB  i   CSB  TABLES  AND  RESTART 

SETZM  DS8TBL 

MOVE  CDSBTBL,.DSBT8L*1] 

BLT  DSBTBL+?7 

SETZM  CSBTBL 

MOVE  CCSBTBL-,CSBT8LM] 

BLT  CSBTBL^^ 

JRST  USTRT1 


;CLR  FIRST  DSB  LOC 

;ZAP  ALL  OF  THEM 
.-CLEAR  FIRST  CSB  LOG 

;ZAP  ALL  OF  THEM 


imfift)iiii(m>mmmmmmmm)imimvihi  'iliwhhii  mniiwwmi 


r 


DDRPl  - 
DDRPI3 

7613 

76U 

7615 

7616 

7617 

7618 

7619 

7620 

7621 

7622 

7623 

762A 

7625 

7626 

7627 

7628 

7629 

7630 

7631 

7632 

7633 

763A 

7635 

7636 

7637 


RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  0.15     MACRO  :53B(1242)  15:51  28-Aug-85  Page  21 
MAC  28-Aug-85  15:49  SPECIAL  PROGRAM  SETUP  -   INIT 


SEQ  0271 


041035 
041036 
041037 
041040 


041  on 

041041 


041042 
041043 
041044 

041045 
041045 
041046 
041047 
041050 


200  01  0  00  100671 
336  00  0  01  100747 
365  01  0  00  041036 
325  01  0  00  041045 


037  04  0  00  071334 


260  17  0  00  041051 
254  00  0  00  041041 
260  17  0  00  040767 


037  04  0  00  071365 
037  01  0  00  000003 
254  00  0  00  040763 
254  00  0  00  041042 


;Here  for  TOPS-20  dialog 

UT20B:  MOVE  ACKDRMAX 

UT20B5:  SKIPN  DSBTBL(ACI) 

S0J6E  AC1,UT20B5 

JUMP6E  AC1,UT20B7 


;Load  max  dn*\/e  number 

;This  drive  selected? 

:Ho,   loop 

;A  drive  has  been,  ask  if  more 


;Here  to  restart  dialog  with  user,  print  helpful  message  first. 

UT20B0:  PMS6F   <**ENTER  HASSBUS  CONTROLLER  DEVICE  CODE,  UNIT  NUMBER' 3DE VICE  CODES  ARE  IN  TH 

E  RANGE  270-274  (RHIO),  540-574  (RH20)^]UNIT  NUMBER  IS  IN  THE  RANGE  0-7'^>'^   ^ 

E  IN  THE  RANGE  270-274  (RHIO),  540-574  (RH20)"3UNIT  NUMBER  IS  IN  THE  RANGE  0-7\\]* 

.-Get  drive  number,  if  OK  add  drive  to  list,  ask  for  more  drives  and  loop. 


UT20B1:  GO 

JRST 
GO 

UT20B7:  PMSGF 
PSIXMF 
TTIYES 
JRST 
JRST 


UT20D 

UT20B0 

UADRV 


;Get  MBC, DRIVE, TYPE 
;LosinQ..  restart 
;Add  tne  drive 


<MNY  MORE  DRIVES  TO  TEST?  >'^ 
CSIXBITVANY  MORE  DRIVES  TO  TEST?  M" 

;Ask  Y  or  R 
USTEX1  ;Nope 

UT2061  ;Yes,  loop  for  more 


—■  -■  I  J»iliW|i>>  i..jaltfiiWiw*'f-  WW.  W  inf  i|«l|Wil|i»ii 


ir|iiiiUiiliiMiiiiliiiii||ii.i|)MlMiiiiiniliw»iii 
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SEQ  ^212 


7638 

7639 
7640 

;Here  to  load  up  the  drive  paramet( 

7641 
7642 

041051 

UT20D:  PMS6F 

<'^MBC,UNIT?  > 

7643 

041051 

037  04  0  00  071372 

PSIXMF 

CSIXBIT\*MBC,UNIT? 

7644 

041052 

037  03  0  00  000003 

TTIOCT 

7645 

041053 

254  00  0  00  041213 

JRST 

UT20E1 

7646 

041054 

242  00  0  00  Hint 

LSH 

-2 

7647 

041055 

305  00  0  00  000056 

CAI6E 

56 

7648 

041056 

254  00  0  00  041213 

JRST 

UT20E1 

7649 

041057 

307  00  0  00  000057 

CAI6 

57 

7650 

041060 

254  00  0  00  041074 

JRST 

UT20D1 

7651 

041061 

305  00  0  00  000074 

CAIGE 

74 

7652 

041062 

254  00  0  00  041213 

JRST 

UT20E1 

7653 

041063 

307  00  0  00  000077 

CAIG 

11 

7654 

041064 

254  00  0  00  041074 

JRST 

UT2CD1 

7655 

041065 

301  00  0  00  000130 

GAIL 

130 

7656 

041066 

303  00  0  OC  000137 

CAILE 

137 

7657 

041067 

254  00  0  00  041213 

JRST 

UT20E1 

7658 

041070 

332  00  0  00  077721 

SKIPE 

RHIO 

7659 

041071 

254  00  0  00  041215 

JRST 

UT20E2 

7660 

041072 

476  00  0  00  ^11122 

SETOM 

RH20 

7661 

041073 

254  00  0  00  041077 

JRST 

UT20DA 

7662 

041074 

332  00  0  00  ^11122 

UT20D1:  SKIPE 

RH20 

7663 

04107: 

254  00  0  00  041215 

JRST 

UT20E2 

7664 
7665 
^666 

041076 

476  00  0  00  077721 

SETOM 

RHIO 

041077 

242  00  0  00  000010 

UT20DA:  LSH 

•D8 

7667 

041100 

207  00  0  00  000000 

MOVSS 

7668 

041101 

2ui  00  0  00  000012 

MOVEM 

M8CN 

7669 

041102 

260  17  0  00  063665 

GO 

CHNSEL 

7670 

041103 

202  01  0  00  100053 

MOVEM 

AC1,MSTRB*.MSRCH 

7671 

041104 

242  01  0  00  000003 

LSH 

AC1,3 

7672 

041105 

200  00  0  00  030231 

MOVE 

$TTCHR 

7673 

041106 
041107 

405  00  0  00  000177 

AND  I 

177 

7674 

302  00  0  00  000054 

CAIE 

7675 
7676 
7677 

041110 

254  00  0  00  041227 

JRST 

UT20E7 

041111 

037  03  0  00  000003 

TTIOCT 

7678 

041112 

254  00  0  00  041221 

JRST 

UT20E4 

7679 

041113 

301  00  0  00  000000 

CAR 

0 

7680 

041  lU 

303  00  0  00  000007 

CAILE 

7 

7681 

041115 

254  00  0  00  041221 

JRST 

UT20E4 

7682 

041116 

336  00  0  00  030510 

SKIPN 

TTNBRF 

7683 

041117 

254  00  0  00  041221 

JRST 

UT20E4 

7684 

041120 

202  00  0  00  100055 

MOVEM 

ACO,MSTRB^.MSRUN 

7685 

041121 

434  00  0  00  000001 

I  OR 

AC1 

7686 

041122 

202  00  0  00  000013 

MOVEM 

DRIVE 

7687 

041123 

550  11  0  13  100747 

HRRZ 

DSBP,DSBTBL(DRIVE) 

7688 

041124 

326  11  0  00  041127 

JUMPN 

DSBP,UT20DD 

7689 

041125 

200  11  0  00  101156 
2^2   11  0  13  100747 

MOVE 

DSBP,FRECOR 

7690 

041126 

MOVEM 

DSBP,DSBTBL(DRIVE) 

to  run  under  TOPS-20 


\] 


*; Prompt  him 


GET  THE  OCTAL  NUMBER 

INPUT  ERROR  -  TRY  AGAIN 

CHECK  THE  RANGE  NOW 

AT  LEAST  270?? 

NO  -  DIE  !1I 

POSSIBLY  274? 

YUP  -  ITS  AN  RHIO... 

OR  EVEN  360? 

NOPE  -  DIE  1 ! ! 

OR  374  (LAST  OF  RHiO'S) 

YUP 

COULD  EVE.N  BE  INTO  RH20  -  540 

OR  IS  IT'''' 

NO  -  YOU'lOSE!!  -  DIE  ! 1 1 

Its  an  RH20,  skip  if  no  RHIO 

Cannot  ^^%,   return 

IT  RH20  MBC 

COMMON  CODE 

Its  an  RHIO,  must  not  be  RH20  if  RHIO 

Can't  mix 

SETUP  FOR  RHIO 

POSITION  ''HE  # 

THEN  PUT  IT  IN  LEFT  SIDE 

SAVE  THE  # 

GET  THE  MBC  UNIT  # 

Save  channel  number 

PUT  IT  IN  THE  PROPER  PLACE 

GET  THE  LAST  CHARACTER  TYPED 

Strip  parity  if  there 

Comma  after  MBC? 

No 

GET  THE  UNIT  NUMBER 
PRINT  ERROR  MESSAGE 
Check  range  0 

to  7 
Out  of  range 
INPUT  A  CHAR  ? 
NO 

Save  unit  number 
ADD  IN  THE  MBC  UNIT  * 
SAVE  THE  DRIVE  # 
GET  DSB  POINTER 
Jump  if  its  asiigned 
Get  first  free  address 
Save  it  in  the  table 


MMMM 


DDRPl  - 
0DRP13 

7691 

7692 

7693 

7694 

7695 

7696 

7697 

7698 

7699 

7700 

7701 

7702 

7703 

770A 

7705 

7706 

7707 

7708 

7709 

7710 

7711 

7712 

7713 

7714 

7715 

7716 

7717 

7718 

7719 

7720 

7721 

7722 

7723 

7724 

7725 

7726 

7727 

772S 

7729 

7730 

7731 

7732 

7733 

773^ 

7735 

7736 

7737 

7718 
7739 
7740 
7741 
77U2 
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SEQ  0273 


041127  202  12  0  11  000021 


041130 
041131 
041132 
041133 
041134 
041135 

041136 
041137 

041140 
041141 

041142 
041143 

041144 

041145 

041146 

041147 


041150 
041151 
041152 

041153 
041154 
041155 

041.56 
041157 

041160 
041161 


476  00 

200  01 

201  02 
104  00 
320  16 
200  01 

603  01 
254  00 

603  01 
254  00 

603  01 
254  00 

607  01 

037  04 

607  01 

037  04 


0  00  100054 
0  00  071374 
0  00  100053 
0  00  000555 
0  00  041223 
0  00  100056 

0  00  400000 
0  00  0h1225 

0  00  100000 
0  00  041233 

0  00  040000 
0  00  041235 

0  00  004000 

0  00  071375 

0  00  010000 

0  00  071402 


603  01  0  00  002000 
33A  01  0  00  07U07 
634  01  0  00  000001 

037  04  0  00  071410 
135  CO  0  00  07U14 
306  00  0  00  000001 

661  01  0  00  542001 
306  00  0  00  000005 

661  01  0  00  542200 
306  00  0  00  000006 


041162  661  01  0  00  542100 

041163  607  01  0  00  000301 

041164  254  00  0  00  041237 


UT20DD:  MOVEM   MBCN,.CNUM(DSBP) 


;SAVE  IN  THE  DSB  AREA  ALSO 


;Have  a  valid  unit  type  in  ACO  and  drive  number  in  DRIVE.  Check  status 
;of  given  unit. 


SETOM   MSTR8+.MSRCT 

MOVE    AC1,C4,,.MSRUS] 

MDVEI   Ar2,MSTRB 

MSTRX 

ERJMP   UT20E5 

MOVE    ACKMSTRB^.MSRST 

TXNE    ACKMSXMNT 

TLNE  AC1-(..TX1)» 
JRST    UT20E6 
TXNE    ACUMSXDIA 

TLNE  AC1-(..TX1)» 
JRST    UT20E9 
TXNE    AC1.MSX0FL 

TLNE  AC1-(..TX1)» 
JRST    UT20EA 

ACI.MSZHBB 


;Ctrl  -1,  Chan  and  unit  already  setup 

; size,, function  code 

;Point  to  arg  block 

;6et  status  of  unit 

; Error 

;Load  unit  status 

*:Unit  part  of  mounted  structure? 

•Yes 

^; Diagnostic  mode? 

;Yes 

''.•Unit  is  offline 

;Yes 

*;Bad  home  blocks? 


TXNN    

TLNN  AC1,(..TX1)» 
PMS6F   <X  UNIT  HAS  VALID  HOME  BL0CKS*>* 
PSIXMF  CSIXBITVX  UNIT  HAS  VALID  HOME  BLOCKS*.\]* 
TXNN    ACI.MSXBBB  *;Bad  home  blocks? 

TLNN  AC1,(..TX1)» 
PMS6F   <X  UNIT  HAS  VALID  BAT  BLOCICS*>* 
PSIXMF  [SIXBITVX  UNIT  HAS  VALID  BAT  BLOCKS\\r 

;Unit  is  not  in  maint  mode,  is  online,  and  is  not  mounted.  Start  loading 
;device  type  and  write  lock  bits.  Mcke  sure  its  an  RP04/5/6. 


TXNE    AC1,MSXWLK  *;Unit  write  locked? 

TLNE  AC1,(..TX1)» 
SKIPA   AC1,[.WRTL]  ;Yes  load  wnte  locked  bit 

TDZA    AC1,AC1  ;Nope 

PMSGF   <X  UNIT  IS  WRITE  LOCKED*>  *;Yes 
PSIXMF  CSIXBITXX  UNIT  IS  WRITE  LOCKED*  \] 
LDB     AC0,LPOINT  9,MSTRB^.MSRST,17]  .-Toad  unit  type 
CAIN    AC0,.MSRP4  ;RP04? 

TXO     AC1,.OPR1.0NLN:.SWRTL!.PWR!.RP04  V-Yes 

TLO  AC1,(..TX1)» 
CAIN    AC0,.MSRP5  ;RP05? 

TXO     AC1,.0PRI.0NLN!.SWRTL!  .PWR!.RP05  ".-ves 

TLO  AC1,(..TX1)» 
CAIN    AC0,.MSRP6  ;RP06? 

TXO     AC1,.OPR:.ONLN1.SWRTL!.PWR!.RP06  *;Yes 

TLO  AC1,(..TX1)» 
TXNN    AC1,.RP04:.RP05:.RP06   \-0r  of  these? 

TLNN  AC1,(..TX1)>> 
JRST    UT?0EB  ;Nope 


L_ 


MilA^kMMiiMi 


ii*»iMfiM»ii>iMX  I*  'I  "H-    ' 


DDRPl    - 
DDRPI3 

7743 

7745 

77A6 

77^7 

7748 

7749 

7750 

7751 

7752 

7753 

7754 

7755 

7756 

7757 

7758 

7759 

7760 

7761 

7762 

7763 

7764 

7765 

7766 

7767 

7768 

7769 

7770 

7771 
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SEQ  0274 


DDI 
DDI 


041165 
041166 
041167 
041170 
041171 
041172 
041173 
041174 
041175 
041176 
041177 
041200 
041201 
041202 
041203 
041204 

041205 
041206 
041207 
041210 


041211 
041212 


540  01 
202  01 
201  00 
603  01 

201  00 

202  00 

201  00 

202  00 

200  00 
242  00 
271  00 
504  00 
260  17 
202  00 

201  00 

202  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
13 
00 
00 
00 
11 
00 

11 

00 
00 
00 

11 

00 

11 

00 

11 


00001 1 
100747 
000617 
000100 
001437 
000026 
005000 
000027 
101164 
000010 
000023 
000026 
045573 
000031 
000023 
000030 


201  00  0  00  000007 

202  00  0  00  100670 

201  00  0  00  000077 

202  00  0  00  100671 


350  00  0  17  000000 
263  17  0  00  000000 


;Unit  is  valid  to  use.  Set  up  DS8  pointer,  track  size,  and  max  cyl/surf  to  use 


HRR 

MOVEM 

MOVE  I 

TLNE 

MOVE  I 

MOVEM 

MOVE  I 

MOVEM 

MOVE 

LSH 

ADDI 

HRL 

60 

MOVEM 

MOVE  I 

MOVEM 

MOVE  I 
MOVEM 
MOVE  I 
MOVEM 

;Here  to  give 

UT20S2:  AOS 
RTN 


AC1  D^SP 

aci!dsbtbl(drive) 

AC0,^D400-1 

AC1,(.RP06) 

AC0,'*D800-1 

AC0,.MAXCY(DSBP) 

5006 

.TKSIZ(DSBP) 

MAXSUR 

*D8 

SECTIO 

.MAXCY(DSBP) 

L06BLK 

.MXBLK(DSBP) 

SECTIO 

.MXSEC(DSBP) 

7 

RHMAX 
77 
DRMAX 

skip  return  to  add  unit 

(P) 


;GET  DSB  POINTER 

;SAVE  TABLE  DATA 

;Max  cyl  TOPS-20  allows  for  4/5 

;WAS  IT  A  RP06 

;Yes  get  TOPS-20  allows  get  its  max  cyl 

;SAVE  IT 

;GET  THE  TRACK  SIZE 

;SAVE  IT  IN  THE  DSB  AREA 

;GET  THE  #  SURFACES 

.-POSITION  IT 

;ADD  IN  THE  ff   SECTORS 

;GET  THE  LAST  CYL  AVAIL 

.•Compute  the  largest  block  number 

;SAVE  IT 

;GET  THE  »   10  FORMATTED  SECTORS 

;AND  SAVE  IT 


;SET  MAX  MBC  TO  7 
;AND  MAX  DRIVES  TO  77 
to  drives  to  test. 


;6ive  skip  return 
;yes  return 


r 


ODRPI  - 
DDRPI3 

7772 

7773 

777^ 

7775 

7776 

7777 

777% 

7779 

7780 

7781 

7782 

7783 

778^ 

7785 

7786 

77B7 

7788 

7789 

7790 

7791 

7792 

7793 

779A 

7795 

7796 

7797 

7798 

7799 

7800 

7801 

7802 

7803 

780A 

7805 

7806 

7807 

7808 

7809 

7810 

7811 

7812 

7813 

78U 

7815 

7816 

7817 

7818 


RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  25 
MAC     28-Aug-55  15:A9        SPECIAL  PROGRAM  SETUP  -  INIT 


SEQ  0275 


041 21 3 
041213 
041214 

041215 
041215 
041216 

041217 
041217 
041220 

041221 
041221 
041222 

041223 
041223 
041224 

041225 
041225 
041226 

041227 
041227 
041230 


041231 
041231 
041232 

041233 
041233 
041234 

041235 
041??5 
041^36 

041237 
04 1 237 
041240 


037  04  0  00  071415 
263  17  0  00  000000 

UT20E1 : 

PMSGF 

PSIXMF 

RTN 

037  04  0  00  071427 
263  17  0  00  000000 

UT20E2: 

PMSGF 

PSIXMF 

RTN 

037  04  0  00  071441 
263  17  0  00  000000 

UT20E3: 

PMSGF 

PSIXMF 

RTN 

037  04  0  00  071453 
263  17  0  00  000000 

UT20E4: 

PMSGF 

PSIXMF 

RTN 

037  04  0  00  071461 
263  17  0  00  000000 

UT20E5: 

PMSGF 

PSIXMF 

RTN 

037  04  0  00  071470 
263  17  0  00  000000 

UT20E6: 

PMSGF 

PSIXMF 

RTN 

037  04  0  00  071477 
263  17  0  00  000000 

UT20E7: 

PMSGF 

PSIXMF 

RTN 

037  04  0  00  071507 
263  17  C  00  000000 

UT20E8: 

PMSGF 

PSIXMF 

RTN 

037  04  0  00  071520 
2c3  17  0  00  000000 

UT20E9: 

PMSGF 

PSIXMF 

RTN 

037  04  G  00  071530 
263  1?  0  00  000000 

UT20EA: 

PMSGF 

PSIXMF 

RTN 

037  04  0  00  071534 
263  17  0  00  000000 

UT20EB; 

PMSGF 

PSIXMF 

RTN 

;Here  to  report  the  various  TOPS-20  dialog  errors 

<''?  ENTER  A  MBC  DEVICE  CODE,  IN  RANGE  270-274  OR  540-574>;  „ /^^, 
CSIXBITX'^?  ENTER  A  MBC  DEVICE  CODE,  IN  RANGE  270-274  OR  540-574.\]^ 

<*?  CANNOT  TEST  DRIVES  ON  RHIO  AND  RH20  MBC  AT  SAME  TIME!>*  _'  /^ 
CSIXBITX'^?  CANNOT  TEST  DRIVES  ON  RHIO  AND  RH20  MBC  AT  SAME  TIMEI.\3' 

<*?  DRIVE  TYPE  NOT  4,  5,  OR  6  -  CAN  ONLY  TEST  RP04/05/06!>*  ^^ /,  ;  ^ 
CSIXBITV-^?  DRIVE  TYPE  NOT  4,  5,  OR  6  -  CAN  ONLY  TEST  RP04/05/06l.\] 

<^?  DRIVE  NUMBER  NOT  IN  RANGE  0  TO  7>* 
CSIXBITX*?  DRIVE  NUMBER  NOT  IN  RANGE  0  TO  7.\]* 

<*?  ERROR  READING  STATUS  OF  DISK  UNIT>* 
CSIXBITX*?  ERROR  READING  STATUS  OF  DISK  UNIT.\]* 

<*?  UNIT  IS  PART  OF  A  MOUNTED  STRUCTURE !>* 
CSIXBITX*?  UNIT  IS  PART  OF  A  MOUNTED  STRUCTURE  I. ND'^ 

<*?  MBC  NOT  FOLLOWED  BY  COMMA  AND  DRIVE  NUMBER>* 
CSIXBITV?  MBC  NOT  FOLLOWED  BY  COMMA  AND  DRIVE  NUMBER.X]* 


<'^?  DRIVE  NUMBER  NOT  FOLLOWED  BY  COMMA  AND  DRIVE  TYPE>* 
CSIXBIT\*?  DRIVE  NUMBER  NOT  FOLLOWED  BY  COMMA  AND  DRIVE  TYPE.X]' 

<*?  DRIVE  IS  IN  USE  BY  A  DIAGNOSTIC  PROGRAM>* 
CSIXBITX*?  DRIVE  IS  IN  USE  BY  A  DIAGNOSTIC  PROGRAM_\]^ 


DDI 
DDI 


<•?  DRIVE  IS  OFFLlNb>* 
CSIXBITX*?  DRIVE  IS  OFFLINE. \]' 


<-?  DRIVE  IS  NOT  A  RP04/RP05/'PP06>* 
[SIXBITN*?  DRIVE  15  NOT  A  RP0^/RP05/RF06.-O* 


DDRPl  - 
DORP I 3 

7819 

7820 

7821 

7822 

7823 

782A 

7825 

7826 

7827 

7828 

7829 

7830 

7831 

7832 

7833 

783A 

7835 

7836 

7837 

7838 

7839 

78A0 

78A1 

7842 

78A3 

78A4 

7845 

7846 

7847 

7848 

7849 

7850 

7851 

7852 

7853 

7854 

7855 

7856 

7857 

7858 

7859 

7860 

7861 

7862 

7863 

7864 

7865 

7866 

7867 

7868 

7869 

7870 

7871 

7S72 

7873 
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;-HERE  TO  PROCESS  ERRORS  DURING  USER  MODE  START  UP  ON  TOPS-10 

. /If*******  ♦♦*♦♦*♦*»•»♦♦♦♦♦♦♦♦♦♦*»♦**♦»♦»********  ********^*  **♦♦*♦*♦♦♦♦♦*♦♦♦♦ 


041241 

041241  037  04  0  00  071542 

041242  254  00  0  00  041272 


041243 
041243 
041244 

041245 
041246 

041247 
041250 

041251 
041252 

041253 
041254 

04125S 
041255 
041256 
041257 

041260 
041261 

041262 
041263 

041264 
041264 
041265 

041266 
04126:^ 
041<>70 
041271 

041272 
041272 
041273 
041274 

041275 
041275 
041276 
041277 
041300 


037  04  0  00  071550 
260  17  0  00  041362 

037  04  0  00  071556 
254  00  0  00  041272 

306  01  0  00  000002 
254  00  0  00  041255 

037  04  0  00  071565 
260  17  0  00  041362 

037  04  0  00  071566 
254  00  0  00  041272 


037  04  0  00  071576 
260  17  0  00  041362 
603  06  0  00  600000 

0:)'  04  0  00  071577 
607  06  0  00  600000 

037  04  0  00  071602 
254  00  0  00  040601 


037  04  0  00  071565 
260  17  0  00  041362 

037  04  0  00  071612 
200  00  0  00  100576 
037  01  0  00  000002 
037  01  0  00  000042 


037  04  0  00  071626 
037  12  0  00  000003 
254  00  0  00  040550 


037  04  0  00  071632 
260  17  0  00  041362 
037  01  0  00  000042 
254  00  0  00  041272 


STRER1:  PMSGF 
PSIXMF 
JRST 

STRER2:  PMSGF 
PSIXMF 
GO 

PMSGF 
PSIXMF 
JRST 

STRER3:  CAIN 
JRST 
PMSGF 
PSIXMF 
GO 

PMSGF 
PSIXMF 
JRST 

STRE3m:  PMSGF 
PSIXMF 
GO 
TLNE 
PMSGF 
PSIXMF 
TLNN 
PMSGF 

JRST 

STRER5:  PMSGF 
PSIXMF 
GO 

^     PMSGF 

MOVE 

FNTSXF 

PNTCIF 

STRE5A:  PMSGF 
PSIXMF 
TTICLR 
JRST 


DDBNOK 


PMSGF 

PSIXMF 

GO 

PNTCIF 

JRST 


<*?  MISSING  OR  ILLEGAL  INPUT... >'^ 
rSIXBITV*?  MISSING  OR  ILLEGAL  INPUT... _\]" 
STRE5A 

<*?  THIS  PROGRAM  IS  UNABLE  TO  TEST  ••>'^    ,,  ^ 
CSIXBITV^?  THIS  PROGRAM  IS  UNABLE  TO  TEST  ••.\]* 
PRTDRV  ; Print  drive  name 

<"  -  RUN  DDRPI  ON  AN  RP04/05/06  ONLY!>^ 
CSIXBITX"  -  RUN  DDRPI  ON  AN  RP04/05/06  0NLY1.\] 
STRE5A  ;Reprompt  the  user 


••  \J 


;Is  pack  mounted? 
'No  pack  mounted 
*;Here  if  pack  stat 


us  not  zero 


AC1,2 

STRE3A 

<*?  ••> 

CSIXBIT\*? 

PRTDRV   •  -"       ;Print  6r\M^   name 

<••  IS  DOWN  AND  CANNOT  BE  SELECTED  FOR  TESTING... >* 

CSIXBITV  IS  DOWN  AND  CANNOT  BE  SELECTED  FOR  TESTING. .  ..\3 

STRE5A 


•;Here  if  status  is  "no  pack  mounted' 

.-Print  drive  name 

;No  pack  mounted  but  online  unit? 

*; Of* line  and  no  pack  mounted 


CSIXBIT\*X  ".XJ 

PRTDRV 

AC,(1B0!1B1) 

<••  IS  0FFLiME> 

lSIXBITX"  .S  OFFLINE.N] 

ACCIBOIIBI)  ;Skip  if  online  but  no  pack  mounted 

<"  IS  ONLINE  WITH  POSSIBLY  BAD  HOM  OR  BAT  BLOCKS>* 

CSIXBITX"  IS  ONLINE  WITH  POSSIBLY  BAD  HOM  OR  BAT  BLOCKS.V]* 

USriA  .-Continue  -  OPR  can  deselect  it  later 


SEQ  0276 


DO 
DD 


<*?  ••>  *;Start  with  crlf  and  quote 

[SIXBITX*?  ••  \J 

PRTDRV  -Print  drive  nane 

<"  IS  NOT  A  PHYSICAL  NAMt...nHE  PHYSICAL  NAME  FOR  THIS  DEVICE  IS  '*>* 


PPLIST^15 


I  W  M  M  I 


;GET  THE  NAME 
;AND  PRINT  IT 
.-End  the  string 


<"*TRY  AGAIN... *NAME  ♦>  •.-Here  to  reprompt  the  user 
CSIXBIT\*MRY  AGAIN. ..•NAME  ♦.V] 

.'Clean  input  buffer 
USTINP  .-Let  him  try  again 

<•?  CAN'T  FIND  MONITOR  "DDB"  ADDRESS  FOl  ">* 
CSIXBITX*?  CAN'T  FIND  MONITOR  "DDB"  ADDRESS  FOR  '\\Y 
PRTDRV  .-Print  it 

•"--'  ;End  the  quote 

STRE5A  ;ASK  FOR  NAME  AGAIN 


-     i«iTiiiiJiU>lii.i|iiriiiiilHi 


DDRPl  - 
DDRP13 

787A 

7875 

7876 

7877 

7878 

7879 

7880 

7881 

7882 

7883 

788A 

7885 

7886 

7887 

7888 

7889 

7890 

7891 

7892 

7893 

789A 

7895 

7896 

7897 

7898 

7899 

7900 

7901 

7902 

7903 

790A 

7905 

7906 

7907 

7908 

7909 

7910 

7911 

7912 

7913 

79U 

7915 

7916 

7917 

7918 

7919 

7920 

7921 

7922 

7923 

792A 

7925 

7926 
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r 


SEQ  ^211 


DD 
DD 


041301 
041302 

041303 
041304 
041305 
041306 
041307 
041310 

041311 
041312 

041313 
041314 


403  13  J  00  077575 
200  15  0  00  100671 


336  00 
254  00 
550  11 
322  11 
332  00 
254  00 


0  13  100/47 
0  00  041354 
0  13  100747 
0  00  041354 
0  00  077575 
0  00  041316 


037  04  0  00  071641 
336  00  0  00  030516 

037  04  0  00  071647 
332  00  0  00  030516 


041315  037  04  0  00  071654 


041316 
041317 
041 32C 
041321 
041322 
041323 
041324 

041325 
041326 
041327 
041330 
041331 
041332 
041333 
041334 
041335 

041336 
041337 

041340 
041341 

041342 
041343 
041344 
041345 
041346 
041347 


350  00 
037  01 
332  00 
254  00 
200  00 
037  01 
037  01 

200  12 
135  00 
037  03 
037  01 
200  00 
037  02 
037  01 
200  00 
603  00 


0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 

11 

00 
00 

11 

00 
00 
00 

II 

0 

1 

00 


077575 
030242 
030516 
041325 
000022 
000002 
00001 1 

000021 
070150 
000001 
00001 1 
000013 
000001 
00001 1 
100747 

000100 


037  02  0  00  071657 
603  00  0  00  000200 

037  02  0  00  071660 
603  00  0  00  000001 

037  ^2  0  00  071661 
332  00  0  00  030516 
254  00  0  00  041350 

037  01  0  00  oooon 

200  00  0  n  000023 
037  01  0  00  000002 


•HERE  TO  REPORT  THE  USER  SELECTED  DRIVES  FOUND 


USRDRV:  SETZB 
MOVE 

USRDR1:  SKIPN 
JRST 
HRR2 
JUMPE 
SKIPE 
JRST 
PMS6F 
PSIXMF 
SKIPN 
PMS6F 
PSIXMF 
SKIPE 
PMS6F 
PSIXMF 

USRDR4:  AOS 

PCRLF 

SKIPE 

JRST 

MOVE 

PNTSXF 

PNTCIF 

U3RDR5:  MOVE 
LD6 
PNT3F 
PNTCIF 

MOVE 

PNT2F 

PNTCIF 

MOVE 

TLNE 

PMSG 

PSIXM 

TLNE 

PMSG 

PSIXM 

TLNE 

PMSG 

PSIXM 

SKIPE 

JRST 

PNTCIF 

MOVE 

PNTSXF 


DRIVE, DRCNT 
REPT,DRMAX 


DSBT8L(DRIVE) 

USRDR2 

DSBP,DSBTBL(DRIVE) 

DSBP,USRDR2 

DRCNT 

USRDR4 


CLEAR  DRIVE  AND  COUNTER 

SETUP  MAX  #  DRIVES  IN  LOOP  COUNTER 


Has  this  drive  been  around  yet? 

NO 

GET  THE  DSB  POINTER  ADDRESS 

JUMP  IF  NONE  AVAILABLE 

PRINT  THE  HEADER?? 

Nope 

<*PREVIOUSLY  CONFIGURED  UNITS**>* 

CSIXBIT\*PREVIOUSLY  CONFIGURED  UNITS**.\3* 

MONTYP  ;Skip  if  pack  name  not  known 

<NAME]MBC]DRIVE]TYPE]PACK  ID>* 

CSIXBIT\NAME]MBC]DRIVEJTYPE]PACK  ID^\J* 

MONTYP  ;Skip  if  no!  TOPS-20  user  mode 

<MBCJDRIVE3TYPE>* 

[SIXBIT\MBC]DRIVE]TYPE  \]* 


DRCNT 

MONTYP 
USRDR5 
.DNAME(DSBP) 


II 


•• 


MBCN,.CNUM(DSBP) 
[POINT  9,MBCNJ1] 


M: 


DRIVE 


DSBTBL(DRIVE) 

(.RP06) 

(RP06)* 

[SIXBIT\RP06  \] 

(.RP05) 

(RP05)* 

CSIXBIT\RP05  \] 

(.RP04) 

(RP04)* 

CSIXBIT\RP04  \] 

MONTYP 

USRDR3 
II      I  • 

.PKID(DSBP) 


;COUNT  THIS  DRIVE 

;Skip  if  exec  mode  or  TOPS-10 
;Must  be  TOPS-20  user  mode 
;GET  THE  PHYSICAL  NAME  ID 
; PRINT  THE  NAME 


;GET  THE  MBC  DEVICE  CODE  # 
;PRINT  THE  MBC  # 

;GET  THE  DRIVE  NUMBER  AGAIN 

;PRINT  THE  DRIVE  # 

;Tab 

;Get  the  DSB  flags 

;RP06? 

;Yes 

;RP05? 
;Yes 

;RP04? 
;Yes 

;Skip  if  exec  mode  or  TOPS-10 
; TOPS-20  user  mode 

;GET  THE  SIXBIT  ID  NAME 
;AND  PRINT  IT 


MiMiW*M 
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SEQ  0278 


p" 

jDi 
Dl 


7927 

7928 

7929 

7930 

7931 

7932 

7933 

793A 

7935 

7936 

7937 

7938 

7939 

79A0 

79A1 

79A2 

79A3 

79AA 

79A5 

79A6 

79A7 


0A1350  A02  00  0  11  000035 

0A1351  205  00  0  11  000035 

0A1352  5A1  00  0  11  000036 

0A1353  251  00  0  11  000053 

0A135A  350  00  0  00  000013 

0A1355  367  15  0  00  0A1303 

0A1356  336  00  0  00  077575 

0A1357  037  OA  0  00  071662 

0A1360  037  01  0  00  0302A2 

0A1361  263  17  0  00  000000 


0A1362  261  17  0  00  000000 

0A1363  200  00  0  00  100561 

0A136A  037  01  0  00  000002 

0A1365  262  17  0  00  000000 

0A1366  263  17  0  00  000000 


USRDR3:  SETZM 
MOVSI 
HRRI 
BLT 

USRDR2:  AOS 

REPTLP 

SKIPN 

PMS6F 

PSIXMF 

PCRLF 

RTN 


.SCNAD(DSBP) 
.SCNAD(DSBP) 
.SCNAD^KDSBP) 
.HLDOH(DSBP) 

DRIVE 

USRDR1 

DRCNT 

<*X  NO  DRIVES 

CSIXBIT\*X  NO 


; CLEAR  THE  CMD  AREA  IN  THE  DSB 

;BUILD  A  BLT  WORD 

; ZAP.., CMD  AREA  CLEARED! 

;BUMP  THE  DRIVE  NUMBER 

;LOOP  BACK 

;ANY  FOUND  SELECTED??? 
SELECTED  FOR  TESTING*>* 
DRIVES  SELECTED  FOR  TESTING*.\3* 


;Here  to  print  the  drive  name 

PRTDRV:  PUT 

MOVE    PPL  I  ST 

PNTSXF 

GET 

RTN 


;GET  THE  DRIVE  NAME  AS  TYPED 
;AND  PRINT  IT 


L. 


DDRPl  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15     MACRO  2538(1242)   15:51  28-Aug-85  Page  29 
DDRPI3    MAC  28-Aug-85  15:49  SPECIAL  PROGRAM  SETUP  -  I NIT 


SEQ  0279 


D! 
D 


7948 

7949 

7950 

7951 

7952 

7953 

7954 

7955 

7956 

7957 

7958 

7959 

7960 

7961 

7962 

7963 

7964 

7965 

7966 

7967 

7968 

7969 

7970 

7971 

7972 

7973 

7974 


041367 
041370 
041371 
041372 
041373 
041374 
041375 
041376 
041377 
041400 
041401 

041402 
041403 
041404 
041405 
041406 
0414C7 
041410 
041411 


201  00 

202  00 
402  00 
<»02  00 

201  00 

202  00 
260  17 
476  00 
001  00 
402  00 
200  01 


200 
312 
254 
514 
541 
251 
476 
260 


00 
00 
00 
00 
00 
00 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

1 

0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 

11 
11 

00 
00 


000200 
100733 
100730 
100731 
000002 
100732 
040071 
077650 
000000 
077650 
100735 

000001 
067771 
041412 
000001 
000152 
000351 
077512 
036520 


•♦BATSET  —  ROUTINE   TO  SETUP  THE  DSB  "BAT"  AREA  WHEN  IN  USER  MODE 


041412     263  17  0  00  000000 


BATSET:  MOVEI 
MOVEM 
SETZM 
SETZM 
MOVEI 
MOVEM 
GO 

SETOM 
READ 
SETZM 
MOVE 

MOVE 

CAME 

JRST 

HRLZ 

HRRI 

BLT 

SETOM 

GO 

RTN 


BLKSIZ 

.SIZE 

.CYLIN 

.SURF 

2 

.SECT 

CLRBLK 

NALTM 

NALTM 
ACh.BUFF 

aACI 

[SIXBIT  /BAT/D 

AC1 

.BAT(DSBP) 

.BAT•^177(DSBP) 

AUTBAT 

HRDOUT 


GET  THE  SECTOR  SIZE  < 
SAVE  IT 

POINT  TO  CYLINDER  000 
AND  SURFACE  00 

SETUP  TO  READ  1ST  BAT  BLK 

CLEAR  SOME  THINGS  AND  SETUP  FLAGS/POINTERS 

SET  INHIBIT  ALTMODE  CHK  FLG 

ISSUE  THE  READ  TO  GET   THE  BAT  DATA 

CLEAR   IT  NOW 

GET  THE  READ  BUFFER  ADDR. 

GET  THE   1ST  BAT  WORD 
IS  IT  THE  BAT  BLK  DATA? 
NO  -  GET  OUT  NOW 

YES  -  PREPARE  TO  SAVE   THE  BAT  BLK 
GET  THE  DSB  BAT  ADDR 
SAVE  THE  BAT  BLK 
SET  THE  AUTO  PROCESS  FLAG 
•THEN  DELETE  ALL  HARD  ERROR  SPOTS 


^tui-^^imu   ■■ifc^lBi- 
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SEQ  02S0 


D 
D 


7975 

7976 

7977 

7978 

7979 

7980 

7981 

7^  ^2 

7983 

798A 

7985 

7986 

7987 

7988 

7989 

7990 

7991 

7992 

7993 

799A 

7995 

7996 

7997 

7998 

7999 

8000 

8001 

8002 

8003 

8004 

8005 

8006 

8007 

8008 

8009 

8010 

8011 

8012 

8013 

8014 

8015 

8016 

8017 

8018 


041413  261  17  0  00  000001 

041414  261  17  0  00  000002 

041415  261  17  0  00  000003 

041416  261  17  0  00  000004 

041417  261  17  0  00  000006 

041420  402  00  0  00  000006 

041421  335  01  0  06  030146 

041422  254  00  0  00  041453 


0  00  101156 
0  00  101156 
0  06  030147 
0  00  000001 
0  00  000003 
0  00  041451 


0  00  044000 
0  00  777767 
0  00  000002 
0  00  001000 
0  00  000004 
0  00  000003 

0  00  000044 
0  00  041450 
0  00  000003 
0  00  000044 
0  00  041461 
0  00  000003 
0  00  000044 
0  00  000001 
0  00  041437 
0  00  041461 


041h51  271  06  0  00  000002 
041452  254  00  0  00  041421 


041423 

317  01 

041424 

200  01 

041425 

200  03 

041426 

274  03 

041427 

337  00 

041430 

254  00 

041431 

231  01 

041432 

242  02 

041433; 

213  00 

0414314 

231  03 

041435 

336  00 

041436 

370  00 

041437 

307  03 

041440 

254  00 

041441 

261  17 

041442 

201  03 

041443 

260  17 

041444 

262  17 

041445 

275  03 

041446 

350  00 

041447 

254  00 

041450 

260  17 

;-*CLRFRE  —  ROUTINE  TO  CLEAR  ALL  BUFMAP  BIT  OF  USABLE  MEMORY  AREAS 


CLRFRE:  PUT 
PUT 
PUT 
PUT 
PUT 


CLRNXT: 


SETZM 

SKIP6E 

JRST 

CAM6 

MOVE 

MOVE 

SUB 

SKIPG 

JRST 


AC1 
AC2 
AC3 
AC4 
AC 

AC 

AC1,MEMSIZ(AC) 

CLREXT 

ACUFRECOR 

ACUFRECOR 

AC3,MEMSIZ+1(AC) 

AC3,AC1 

AC3 

CLRFNO 


;SAVE  SOME  AC'S 


;NOW  CLEAR  USABLE  MEMORY 


CLRUM:  IDIVI 
LSH 
MOVNS 
IDIVI 
SKIPN 
SOS 

CLRFLP:  CAIG 
JRST 
PUT 
MOVEI 
GO 
GET 
SUB  I 
AOS 
JRST 
GO 

CLRFNO:  ADDI 
JRST 


AC1,<'^D36*1000> 

AC2,-'^D9 

AC2 

AC3J000 

AC4 

AC3 

AC3/D36 

AC3 

AC3,'^D36 

CLRWD 

AC3 

AC3/D36 

AC1 

CLRFIP 

CLRWD 

AC, 2 
CLRNXT 


CLEAR  MEMSIZ  INDEX  POINTER 
LOAD  THE  MEMORY  START  ADDR 
NO  MORE  TO  BE  PROCESSED 

ADDR  BELOW  1ST  FREE  OF  PGM? 

YES  -  MAKE  FRECOR  THE  START  ADDR 

GET  THE  MEMORY  END  ADDR 

CALC  AMOUNT  OF  MEMORY  TO  CLEAR 

ANYTHING  TO  CLEAR?? 

NO 


CALC  BUFMAP  WORD  ADDRESS 

POSITION  REMAINDER 

GET  THE  NEG  COUNT  FOR  A  MASK 

CALC  M   BITS  TO  BE  CLEARED 

REMAINDER? 

NO  -  ADJUST  THE  COUNT 

LOTS  OF  BITS? 

NOPE 

YES 

CLEAR  A  CHUNK  OF  BITS 

NOW 

GET  THE  ORRIG  COUNT 

UPDATE  IT 

AND  POINT  TO  THE  NEXT  BUFMAP  WORD 

LOOP  BACK 

CLEAR  REMAINDER  OF  BITS 

UPDATE  MEMSIZ  POINTER 

PROCESS  NEXT  MEMSIZ  TABLE  ENTRY 


L 


r 
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SEQ  0281 


8019 

8020 

8021 

8022 

8023 

8024 

8025 

8026 

8027 

8028 

8029 

8030 

8031 

8032 

8033 

8034 

8035 

8036 

8037 

8038 

8039 

8040 

8041 

8042 

8043 

8044 

8045 

8046 

8047 

8048 

8049 

8050 

8051 

8052 

8053 

8054 

8055 

8056 

8057 

8058 

8059 

8060 

8061 

8062 

8063 

8064 

8065 

8066 


041453  262  17  0  00  000006 

041454  262  17  0  00  000004 

041455  262  17  0  00  000003 

041456  262  17  0  00  000002 

041457  252  17  0  00  000001 
041460  263  17  0  00  000000 


041461 

303  01 

041462 

254  00 

041463 

205  04 

041464 

213  00 

041465 

240  04 

041466 

200  03 

041467 

402  00 

041470 

246  03 

041471 

432  03 

041472 

432  04 

041473 

263  17 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
03 
00 
00 
02 
01 
01 
00 


000022 
041473 
400000 
000003 
000000 
000004 
000004 
000000 
101057 
101060 
000000 


041474 

041475 

041476 

041477 

041500 

041501 

041502 

041503 

041504 

041505 

041506 

041507 

041510 

041511 

041512 

041513 

041^14 

041515 

041516 

041517 

041520 

041521 


402  00 
402  00 
402  00 
476  00 


0 
0 
0 
0 
coj  17  0 
310  00  0 


334  00 
332  00 
263  17 
402  00 
205  00 
541  00 
251  00 
332  00 
263  17 
402  00 
205  00 
541  00 
251  00 
260  17 
402  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


;ALL  DONE... EXIT 

CLREXT:  GET  AC 

GET  AC4 

GET  AC3 

GET  AC2 

GET  AC1 
RTN 

CLRWD:  CAILE  AC1,''D18 

JRST  CLRWDX 

MOVSI  AC4, 400000 

MOVNS  AC3 

ASH  AC4,(AC3) 

MOVE  AC3,AC4 

SETZM  AC4 

LSHC  AC3,(AC2) 

XORM  AC3,BUFMAP(AC1) 

XORM  AC4,BUFMAP+1(AC1) 

CLRWDX:  RTN 


.•RESTORE  THE  AC'S  USED 


;AND  EXIT 

;AT  END  OF  CURRENT  MAP  TABLE 
;YES  NO  MORE  ENTRIES 
; SETUP  TO  BUILD  A  MASK 

;BUILD  THE  MASK  WORD 
.-RESET  AC3  TO  MASK 
.•CLEAR  MASK+1 
.•BUILD  A  2  WORD  MASK 
.•CLEAR  BITS  IN  MASK  WORD  1 
;AND  IN  MASK  WORD  2 


;*CDRDSB  —  ROUTINE  TO  CLEAR  THE  COMMAND  AREA  OF  ALL  SELECTED  DRIVES 

.•DON'T  CARE  IF  WRT  LOCKED! 
;INIT  FOR  SELECT 


.•SELECT  A  DRIVE 


ALL  SELECTED 

AT  LOG  BLK  0?? 

NO  -  EXIT 

CLEAR  CMD  AREA 

BUILD  A  BLT  WORD  TO  CLEAR 

THE  DSB  CMD  AREA 

ZAP... ALL  CLEAR  NOW 

IN  USER  MODE? 

YES  -  EXIT  NOW 

NO  -  ALSO  CLEAR  THE  MBC  COMMAND  AREA 

BUILD  A  BLT  WORD  TO  CLEAR  AREA 
ZAP... MBC  AREA  CLEAR  NOW 


00  077633 

CDRDSB:  SETZM 

LOCKFG 

00  077753 

SETZM 

SEQADR 

00  077754 

SETZM 

SEQDRV 

00  00001]! 

SETOM 

DRIVE 

00  045650 

CDSB1 :  GO 

SELECT 

00  000000 

CAM 

00  000000 

SKI  PA 

00  077576 

SKIPE 

DSKAD 

00  000000 

RTN 

11  000035 

SETZM 

.SCNAD(DSBP) 

11  000035 

MOVSI 

.SCNAD(DSBP) 

11  00003  6 

HRRI 

.SCNAD^KDSBP) 

11  000053 

BLT 

.HLDQH(DSBP) 

00  0:i0037 

SKIPE 

USER 

00  000000 

PTN 

10  000003 

SETZM 

.PBAR(CSBP) 

10  000003; 

MOVSI 

.PBAR(CSBP) 

10  000004 

HRRI 

.PBAR*1(CSBP) 

10  000014 

BLT 

.SSCN(CSBP) 

00  042657 

GO 

MBCCLR 

10  000015 

SETZM 

.RETWD(CSBP) 

00  041500 

JRST 

CDSB1 

CLEAR  THE  RETRY  WORD 
•SELECT  NEXT  DRIVE 


FOR   THIS  RH 


L. 


<MMH 


MMMi 


L. 


DDRPl  - 
DDRPI3 

8067 

8068 

8069 

8070 

8071 

8072 

8073 

807A 

8075 

8076 

8077 

8078 

8079 

8080 

8081 

8082 

8083 

8084 

8085 

8086 

8087 

8088 

8089 

8090 

8091 

8092 

8093 

8094 


RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  Z538(1242)  15:51  28-Aug-85  Page  32 
MAC     28-Aug--85  15:49        RH10/RH20  RP04/05/06  MASSBUS  CONFIGURATOR 

SUBTTL  RH10/RH20  RP04/05/06  MASSBUS  CONFIGURATOR 

♦CONFIG  —  THIS  ROUTINE  WILL  DETERMINE  IF  EITHER  AN  RHIO  OR  AN  ^  ^  ^^ 

♦  RH20  EXISTS  AND/OR  IF  ANY  RP04/05/06'S  EXIST  ON  THE  MASSBUS.  IF 

♦  BOTH  TYPE  MASSBUS  CONTROLLERS  EXIST,  THE  OPERATOR  WILL  BE 

♦  REQUIRED  TO  INDICATE  WHICH  MASSBUS  CONTROLLER  IS  TO  BE 

♦  USED  BY  THE  PROGRAM.  NO  ATTEMPT  WILL  BE  MADE  TO  RUN  WITH 

♦  BOTH  TYPE  CONTROLLERS  AT  THE  SAME  TIME  I 


r 


SEQ  0282 


041522  402  00  0  00  ^77722 

041523  402  00  0  00  077721 


041524  205  12  0  00  027000 

041525  201  01  0  00  000020 

041526  260  17  0  00  063522 

041527  201  01  0  00  000010 

041530  260  17  0  00  063544 

041531  260  17  0  00  041642 

041532  270  12  0  00  071670 

041533  317  12  0  00  071671 

041534  254  00  0  00  041525 

041535  315  12  0  00  071672 
04153d  205  12  0  00  036000 
041537  317  12  0  00  071673 
041540  254  00  0  00  041525 


CONFIG:  SET2M   RH20/lf 
SETZM   RH10# 


; Clear  RH20  found  flag 
.-Clear  RHiO  found  flag 


;LOOK  FOR  RHIO  TYPE  MASSBUS  CONTROLLERS 

CONFIO:  MOVSI   MBCN, (<RM0>B11)        ;GET  DEVICE  CODE  FOR  RMO 


n 


CONFGA:  MOVEI   1,20 
GO      .CONO 
MOVEI   1,10 

.C0NS2 

C0NFG1 
ADD     MBCN,[1B9] 
CAMG    MBCN,C<RH1>B11] 
JRST    CONFGA 
CAMGE   MBCN,C<RM2>Bin 
MOVSI   MBCN,(<RM2>B11) 
CAMG    MBCN,[<RM5>B11] 
JRST    CONFGA 


;GET  STOP  XFR  BIT 

.-SEND  A  CONO  TO  THE  CONTROLLER 

.-TEST  DONE  BIT  SET 

;DID  IT  RESPOND? 

;YES  -  GEN  AN  RHiO  CSB  AREA 

;N0  -  UPDATE  MBC  #  FOR  NEXT  MBC 

;END  OF  MBC  NUMBERS  FOR  RHiO? 

;N0  -  TRY  NEXT  RHIO  NUMBER 

; BE LOW  RM2  NUMBER? 

;YES  -  START  AGAIN  AT  RM2 

.-DONE  WITH  RHIO'S?? 

;N0  -  TRY  NEXT  CONTROLLER  NUMBER 
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SEQ  0283 


8095 

8096 

8097 

8098 

8099 

8100 

8101 

8102 

8103 

81 OA 

8105 

8106 

8107 

8108 

8109 

8110 

8111 

8112 

8113 

8114 

8115 

8116 

8117 

8118 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
8126 
8127 

8128 

8129 

8130 

8131 

8132 

8133 

8134 

8135 

8136 

8137 

8138 

8139 

8140 

8141 

8142 

8143 

8144 

8145 

8146 
8147 

8148 
8149 


041541     205  12  0  00  054000 


041542 
041543 
041544 
041545 
041546 
041547 
041550 
041551 

041552 
041553 
041554 

041555 
041556 
041557 


205  01  0 
260  17  0 
254  00  0 
201  01  0 
260  17  0 
201  01  0 
260  17  0 
260  17  0 


00  400000 
00  063544 
00  041552 
00  000020 
00  063522 
00  000010 
00  063544 
00  041666 


270  12  0  00  071670 
607  12  0  00  020000 
254  00  0  00  041542 

336  00  0  00  077721 
332  00  0  00  077722 
254  00  0  00  041562 


041560     037  04  0  00  071674 


041561     037  15  0  00  000004 


041562 
041563 
04156'. 

041565 
041565 

041566 
041567 
041570 
041571 
041572 
041573 

041 57a 

041575 


332  00  0  00  07772^ 
336  00  0  00  077722 
254  00  0  00  041601 


037  04  0  00  071706 

037  10  0  00  000003 
254  00  0  00  041620 
316  00  0  00  071734 
254  00  0  00  041577 
312  00  0  00  071735 
254  00  0  00  041624 

402  00  0  00  077721 
262  17  0  00  077t20 


;N0W  LOOK   FOR  RH20  TYPE   CONTROLLERS 
CONF20:   MOVSI       M6CN,  (<RHO>Bn  ) 


CONFGB:   MOVSI 
GO 
JRST 
MOVE  I 
GO 

MOVE  I 
GO 
60 

CONFGH:  ADD 
TLNN 
JRST 


AC1,(1B0) 

.CONSZ 

CONFGH 

1,20 

.CONO 

IJO 

.CONSZ 

C0NFG2 

MBCN,[1B9] 

MBCN,(200B11) 

CONFGB 


;Load  M6CN  with  first  RH20  dev  code 

;Get  KLIPA  bit 

;KLIPA  ? 

;YES  SKIP  OVER 

;GET  STOP  XFR  BIT 

; ISSUE  A  CONO  TO  RH20  MBC 

;TEST  FOR  COMMAND  DONE 

;RH20  RESPOND? 

;YES  -  GEN  AN  RH20  CSB  AREA 

.•UPDATE  THE  MBC  NUMBER 

;PAST  THE  LAST  RH20  MBC  #  ?? 

;N0  -  TRY  THE  NEXT  RH20  MBC  NUMBER 


CONFGC: 


SKIPN 

SKIPE 

JRST 

PMSGF 

PSIXMF 


RHIO  ;ANY  RHIO'S  ? 

RH20  ;0R  ANY  RH20'S  ? 

CONFGD  ;YES  -  SOMEBODY  RESPONDED! 

<*N0  MASSBUS  CONTROLLERS  DETECTED  BY  PROGRAM. .  .ABORTINO* 

[SIXBITV^NO  MASSBUS  CONTROLLERS  DETECTED  BY  PROGRAM. . .ABORT I N6.\]* 


;#***** 


#♦♦♦♦• 


FATL^LALL 
♦»♦»••»»•♦»♦•♦♦♦♦♦♦♦♦♦♦*♦♦ fc *•♦♦♦♦♦•♦♦♦*♦♦♦*•*♦♦♦♦•♦**♦♦♦♦♦*♦♦♦♦ 

^fff^  A     TTTTT     A  L  ! 

F        A  A      T      A  A  L  f 

F       AA  AA     I  AA  AA  L  J 

FFF     AAAAA     1  AAAAA  L  } 

A       A  t  A       A  L  i 

A       A  f  A       A  L 

A  AT  A  A  LLLLL  ! 
♦♦♦♦♦•♦»»♦•»•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦****♦••••••♦•••*♦•♦♦♦♦♦♦♦•♦*♦*♦♦♦♦♦ 

FATAL 


SALL* 

;TEST  THE  CONTROLLER  FLAGS  FOR  EXSISTANCE  OF  BOTH  RHlOS  AND  RH20S 


CONFGD:  SKIPE  RHlO 
SKIPN  RH20 
JRST    CONFDC 


;IS  THERE  AN  RHlO  AVAILABLE? 

;AND  AN  RH20? 

;N0  -  ONLY  ONE  TYPE  EXISTS. .  .PROCEED 


CONFBO:  PMSGF   <*80TH  AN  RHlO  AND  RH20  TYPE  MASSBUS  CONTROLLER  EXIST  ON  THE  SYSTEM*TYPE 
HER  "RHlO"  OR  "RH20"  FOR  THE  MBC  TYPE  TO  BE  USED.**> 


EIT 


:ONFDA:  TTSIXB 

JRST  CONFGE 

CAMN  [SIXBIT  /RHlO/] 

JRST  CONFDB 

CAME  CSIXBIT  /RH20/] 

JRST  CONFGF 

SETZM  RHlO 

GET  GARBAG 


; INPUT  THE  ANSyER 

.-CHECK  FOR  NO  RESPONSE  FROM  OPR 

;yAS  "RHlO"  TYPED? 

;YES  -  USE  THE  RHlO  ALONE 

.-WAS  RESPONSE  "1H20"  ?? 

;N0  -  ERROR  INPUT 

.•CLEAR  THE  RHlO  FLAG 
;FIX  THE  STACK 


r 
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8150 
8151 
8152 
8153 
8154 
8155 
8156 


MAC  "28-Aug-85  15:49 

0A1576  254  00  0  00  041541 

041577  402  00  0  00  077722 

041600  262  17  0  00  077620 

041601  332  00  0  00  077721 

041602  254  00  0  00  041611 


RH10/RM20  RP04/05/06  MASSBUS  CONFIGURATOR 


SEQ  0284 


JRST  CONF20 

CONFDB:    SETZM  RH20 

GET  GARBAG 

CONFDC:    SKIPE  RHIO 

JRST  CONFDD 


;RESET   THE  RH20  CSB  AREA 
; CLEAR   THE  RH20  FLAG 


;IS  MBC  AN  RH10? 

;YES  -   SETUP  RH10   STUFF 


,,^^t>tv^M»l>Mll»)' 


iri«w».'it  n*i»wit>i« 
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SEQ  0285 


8157 

8158 

8159 

8160 

8161 

8162 

8163 

8164 

8165 

8166 

8167 

8168 

8169 

8170 

8171 

8172 

8173 

8174 

8175 

3176 

8177 

8178 

8179 

8180 

8181 

8182 

8183 

8184 

8185 

8186 

8187 

8188 

8189 

8190 

8191 

8192 

8193 


041603 
041604 
041605 
041606 
041607 
041610 

041611 
041612 
041613 
041614 


041615 
041616 
041617 

041620 
041621 
041622 


476  00 

201  00 

202  00 

201  00 

202  00 
254  00 


0  00  077653 
0  00  003600 
0  00  100666 
0  00  775000 
0  00  100667 
0  00  042053 


201  00  0  00  020000 

202  00  0  00  100666 

201  00  0  00  736200 

202  00  0  00  100667 


332  00  0  00  030041 
402  00  0  00  100016 
254  00  0  00  042053 

333  00  u  00  030225 
254  00  0  00  041624 
037  04  0  00  071736 


041623     037  15  0  00  000004 


.•SETUP  DEPENDANT   CONTROLLER  PARAMETERS 


CONFDD: 


SETOM 
MOVE  I 
MOVEM 
.^OVEI 
MOVEM 
JRST 

MOVE] 
MOVEM 
MOVE  I 
MOVEM 


NOBAK 

•D1920 

MAXUD 

775000 

RHERR 

CONDRV 

*D8192 
MAXUD 
736200 
RHERR 


;N0  BACKUP  COMMANDS  ALLOWED 

;6ET  MAX  XFR  WORD  COUNT  FOR  CHANNEL 

;AND  SAVE   IT   (RH20) 

;6ET  RH20  ERROR  BITS 

;AND  SAVE   IT 

.-DETERMINE  WHAT  DRIVES  EXIST 


;MAX  XFR  WORD  COUNT  FOR 
.•DATA  CHANNEL    (DF10) 
;GET  RH10  ERROR  BITS 
;AND   SAVE   IT 


RH10 


.-FIX  VECTOR  FLAG  SO  WE  WON'T  VECTOR  ON  A  KL/RHIO  SYSTEM 


SKIPE       KLFLG 
SETZM       VECTOR 
JRST         CONDRV 


;IS  THIS  A 
;YES...  NO 
.•DETERMINE 


KLIO  ? 

VECTORING  WITH  RHIO 

WHAT  DRIVES  EXIST 


CONFGE:    SKIPLE  STWCNT  ;DID   THE  OPR  RESPOND? 

JRST  CONFG^  ;YES  -  BUT   TYPED  WRONG 

PMSGF  <*N0  RESPONSE  FROM  OPERATOR. . .CAN'T  CONTINUE. . .ABORTING> 
FATL 

* 


ffrff 

A 

TTTTT 

A 

f 

A  A 

A  A 

F 

AA  AA 

AA  AA 

FFF 

AAAAA 

AAAAA 

F 

A       A 

A       A 

f 

A       A 

A       A 

F 

A       A 

A       A 

LLLLL 

SALL 


FATAL 


-  MillfilU  rjiaiiM'!J»JilllllTHWi,llili«|i|i 


MMIMhHMMMiiHMlrilfiNlM^^ 


DDRPl  - 
DDRP13 

81 9A 

8195 

8196 

8197 

8198 

8199 

8200 

8201 

8202 

8203 

8204 

8205 

8206 

8207 

8208 

8209 

8210 

8211 

8212 

8213 

82U 

8215 

8216 

8217 

8218 

8219 

8220 

8221 

8222 

8223 

8224 

8225 

8226 

8227 

8228 

8229 

8230 

8231 

8232 

8233 

8234 


RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  1538(1242)  15:51  28-Aug-85  Page  35 
MAC     28-Aug--85  15:49        RH10/RH20  RP04/05/06  MASSBU5  CONFIGURATOR 


SEQ  0286 


041624 
0^,1625 

041626 
041627 
041630 
041631 
041632 
041633 
041634 
041635 

041636 
041637 
041640 
041641 


037  04  0  00  071750 
254  00  0  00  041566 


332  00  0 
254  00  0 
332  00  0 
402  00  0 
7  004  20 
332  00  0 
254  00  0 
254  00  0 


00  030037 
00  041636 
00  077651 
00  077656 
0  00  000400 
00  077721 
00  041524 
00  041541 


260  17  0  00  041301 
260  17  0  00  040040 
260  17  0  00  040542 
263  17  0  00  000000 


041642 

261  17 

041643 

350  03 

041644 

402  00 

041645 

200  01 

041646 

260  17 

041647 

300  00 

041650 

260  17 

041651 

260  17 

041652 

60?  01 

041653 

ly   00 

041654 

602  01 

041655 

25'.  00 

041656 

201  00 

041657 

202  00 

041660 

201  00 

041661 

202  00 

041662 

201  00 

041663 

202  00 

041664 

402  00 

041665 

254  00 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 
077721 
000013 
071756 
063147 
000000 
042657 

063540 
736200 
041721 
000040 
041727 
000005 
1 00670 
000057 
100671 
000520 
100663 
100665 
0A1751 


C0NF6F: 
RCONFG: 


PMSGF 
JRST 

SKIPE 

JRST 

SKIPE 

SET2M 

CONO 

SKIPE 

JRST 

JRST 


RCONFU:  60 
GO 
GO 
RTN 


<**?  ^YPE 
CONFDA 

USER 

RCONFU 

NEUDRV 

ONCE 

PKPIOFF 

RH10 

CONF10 

CONF20 

USRDRV 
INTMAP 
USTRT1 


••RH10"  OR 


"R'H20"  ONLY  *> 
; INPUT  AGAIN 


IN  USER  MODE?? 

YES  -  DO  THE  USER  INIT  PORTION 

CONFIGURATION  CHANGE? 

YES 

KILL  PI  SYSTEM 

IS  THE  MBC  AN  RHIO? 

Yes,  configure  RHiOs 

No,  loop  to  configure  RH20s 

TELL  OPR  WHAT  DRIVES  REQUESTED 
RESET  THE  BUFMAP  TABLE 
ASK  OPR  FOR  A  UNIT  TO  TEST 
•THEN  EXIT 


.-THIS  IS  WHERE  THE  RHIO  CSB  AREA  IS  GENERATED 

; ENTERED  WITH  THE  'TIBCN"  LOADED  WITH  THE  PROPER  MBC  NUMBER 


C0NFG1:  PUT  AC1 

AOS  AC3,RH10 

SETZM  DRIVE 

MOVE  AC1,CDRAS1377] 

GO  LDREG 

CAI 

GO  MBCCLR 

GO  .CONI 

TRNE  AC1, 736200 

JRST  STCKER 

TRNE  AC1,40 

JRST  STCKAT 

MOVE I  5 

MOVEM  RHMAX 

MOVEI  *DA7 

MOVEM  DRMAX 

MOVEI  520 

MOVEM  C8ASE 

SETZM  JMPWD 

JRST  CS8C0M 


SAVE  AC1 
SET  I   COUNT 


THE  RHIO  FLAG 


CLEAR  ATTNS 

WRT  ATTN  REG 

NO  OP  RTN 

ISSUE  A  MASSBUS  INIT 

GET  THE  CONI  STATUS  OF 

ANY  ERROR  PRESENT? 

YES  -  REPORT  IT 

IS  ATTENTION  UP? 

YES  -  REPORT  IT 


MBC 


SET  THE  MAX  MBC  TO  5 


SET  THE 
GET  THE 
SAVE  IT 


MAX  DRIVES 
START  ADDR 


TO  48.  (57  OC 
FOR  CHN 


SEi  UP  THE  CSE  NOW 
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SEQ  0287 


DD 
DD 


8235 

8256 

8237 

8238 

041666 

332  00  0 

8239 

041667 

254  00  0 

82A0 

041670 

261  17  0 

8241 

041671 

350  03  0 

8242 

041672 

402  00  0 

8243 

041673 

201  01  0 

824A 

041674 

260  17  0 

8245 

041675 

200  01  0 

8246 

041676 

260  17  0 

8247 

041677 

300  00  0 

8248 

041700 

260  17  0 

8249 

041701 

260  17  0 

8250 

041702 

602  01  0 

8251 

041703 

254  00  0 

8252 

041704 

602  01  0 

8253 

041705 

254  00  0 

8254 

041706 

201  00  0 

8255 

041707 

202  00  0 

8256 

041710 

201  00  0 

8257 

041711 

202  00  0 

8258 

041712 

201  00  0 

8259 

041713 

202  00  0 

8260 

041714 

205  00  0 

8261 

041715 

202  00  0 

8262 

041716 

201  00  0 

8263 

041717 

202  00  0 

8264 

041720 

254  00  0 

00  077721 
00  041565 
00  000001 
00  077722 
00  000013 
00  000400 
00  063522 
00  071756 
00  063147 
00  000000 
00  042657 
00  063540 
00  775000 
00  041721 
00  000200 
00  041727 
00  000007 
00  100670 
00  000077 
00  100671 
00  377000 
00  100663 
00  200000 
00  100665 
00  000060 
00  1C0664 
00  041751 


THIS  SECTION  SETS  THE  PARAMETERS  FOR  RH20  TYPE  CONTROLLERS 


C0NFG2:  SKIPE  RH^O 

JRST  CONfBO 

PUT  AC1 

AOS  AC3,Rhc;0 

SETZM  DRIVE 

MOVEI  1,400 

60  .CONO 

MOVE  ACKCDRAS 13773 

GO  LDREG 

CAI 

60  MBCCLR 

GO  .CONI 

TRNE  AC1, 775000 

JRST  STCKER 

TRNE  AC1,200 

JRST  STCKAT 

MOVEI  7 

MOVEM  RHMAX 

MOVEI  *D63 

MOVEM  DRMAX 

MOVEI  377000 

MOVEM  CBASE 

MOVSI  (1B1) 

MOVEM  JMPWD 

MOVEI  60 

MOVEM  ZFILL 

JRST  CSBCOM 


WAS  THERE  AN  RHIO? 
WHOOPS  -  TELL  THE  OPR 
SAVE  AC1 
COUNT  &  SET  THE  RH20  FLA6 

MASS  EN  RIT 
EN  MASSBUS 

CLEAR  ALL  ATTNS 

ISSUE  A  MASSBUS  INIT 

6Er  THE  CONI  STATUS  OF  MBC 

ANY  ERROR  PRESENT? 

YES  -  REPORT  IT 

IS  ATTENTION  UP? 

YES  -  REPORT  IT 

SET  MAX  MBC  TO  7 

SET  MAX  DRIVES  TO  64. 
6ET  THE  EPT  ADDR 
SAVE  IT 

SAVE  THE  RH20  JUMP  CHN  WORD 
6ET  THE  OFFSET  FOR  ZERO  FILL 
SAVE  IT 
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<*MBC  #> 

[POINT  9,MBCNJ1]  ; GET  THE  MBC  DEVICE  CODE  # 

;AND  PRINT   IT 
<DETECTS  A  STUCK  ERROR  CONDITIONI*> 
CONIPT  ;PRINT  THE  CONI   STATUS 

STCKMS  ;G0  TO  COMMON  MESSAGE  PRINTER 

<*MBC  0> 

[POINT  9,M8CN,113  ;GET  THE  MBC  DEVICE  CODE  M 

;PRINT  IT 
<DETECTS  A  STUCK  ATTENTION  LINE!*> 
CONIPT  ; PRINT  THE   CONI   STATUS 

ACK(DRAS)  ;READ  THE  ATTENTION  REGISTER 

DRR^G  ;READ   IT  NOW 


SEQ  0288 


r 

I  DC 
DC 


8265 

8266 

041721 

037  04  0  00  071757 

STCKER:   PMSGF 

8267 

041722 

135  00  0  00  070150 

LDB 

8268 

041723 

037  03  0  00  000001 

PNT3F 

8269 

041724 

037  04  0  00  071761 

PMSGF 

8270 

041725 

260  17  0  00  064471 

GO 

8271 
8272 
8273 

041726 

254  00  0  00  041741 

JRST 

041727 

037  04  0  00  071757 

STCKAT:   PMSGF 

8274 

041730 

135  00  0  00  070150 

LDB 

8275 

041731 

037  03  0  00  000001 

PNT3F 

8276 

041732 

037  04  0  00  071767 

PMSGF 

8277 

041733 

260  17  0  00  064471 

GO 

8278 

041734 

205  01  0  00  0400QQ 
260  17  0  00  057135 

MOVSI 

8279 

041735 

GO 

8280 

041736 

310  00  0  00  OOOOOO 

CAM 

8281 

041737 

310  00  0  00  OOOOOO 

CAM 

8282 
8283 
8284 

041740 

260  17  0  00  064523 

GO 

041741 

332  00  0  00  077721 

STCKMS:    SKIPE 

8285 

041742 

370  03  0  00  077721 

SOS 

8286 

041743 

332  00  0  00  077722 

SKIPE 

8287 

041744 

370  03  0  00  077722 

SOS 

8288 

041745 

037  04  0  00  071775 

PMSGF 

8289 

041746 

037  04  0  00  072004 

PMSGF 

8290 

041747 

262  17  0  00  000001 

GET 

8291 

041750 

263  17  0  00  OOOOOO 

RTN 

REGPNT 


;AND  PRINT   THE  RESULTS 


RH10 

AC3-RH10 

RH20 

AC3,RH20 

<'^THIS  MBC  CAN  NOT  BE  SELECTED  FOR   TEST!> 

<*SUGGEST  RUNNING  A  BASIC  CONTROLLER  OR  DEVICE  DIAGNOSTIC 1*> 

AC1 


m^m       .  iMwtlfc 


I 

L 
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SEQ  0289 


,01 
Dl 


8292 

8293 

8294 

8295 

8296 

8297 

8298 

8299 

8300 

8301 

8302 

8303 

8304 

8305 

8306 

8307 

8308 

8309 

8310 

8311 

8312 

8313 

8314 

8315 

8316 

8317 

8318 

8319 

8320 

3321 

8322 

8323 

8324 

8325 

8326 

8327 


041751 
041752 
041753 

041754 
041755 

041756 
041757 
041760 
041761 
041762 
041763 


041764 
041765 


; CHECK  TABLE   FOR  EXISTANCE  OF   COMMON  CSB  AREA  ALREADY 


260  17  0  00  063665 
332  10  0  01  101047 
254  00  0  00  041764 

200  10  0  00  101156 
202  10  0  01  101047 

402  00  0  10  000000 
504  00  0  00  000010 

:4i  00  0  10  000001 

251  00  0  10  000044 

201  00  0  00  000044 
272  00  0  00  101156 


553  00  0  00  000010 
260  17  0  00  042657 


041766 

260  17 

041767 

202  01 

041770 

40?  00 

041771 

3:>2  00 

041772 

254  00 

041773 

6C3  01 

041774 

476  00 

041775 

402  00 

041776 

260  17 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
10 
00 
00 
00 
00 
00 
10 
00 


063540 
000000 
077611 
077721 
041775 
004000 
077611 
000015 
06i665 


CSBCOM:   60  CHNSEL 

SKIPE       CSBP,CSBTBL(AC1) 
JRST         CSBINT 


MOVE 
MOVEM 

CSBCLR:   SETZM 
HRL 
HRRI 
BLT 
MOVE  I 
ADDM 


CS8P,FREC0R 
CS8P,CSBTBL(AC1) 

.RHCONKCSBP) 

CSBP 

KCSBP) 

.CSBEND(CSBP) 

CSBSI2 

FRECOR 


.•DETERMINE   THE  MBC  # 

;SKIP  IF   CSB  AREA  NEEDS  TO  BE  GENERATED 

;N0  CSB  GENERATION  NEEDED 

;GET  THE   FREE   CORE  POINTER  ADDRESS 
.•SETUP  THE  CSB  TABLE  POINTER 

.•CLEAR  THE  FIRST  LOCATION  IN  CSB 
;BUILD  A  'BLT"  POINTER  TO  CLEAR  CSB 
;ARFA  ASSIGNED  FOR  THIS  CONTROLLER 
;D0  IT  NOW... ZAP  ZAP  ZAP 
;GET  THE  SIZE  OF   THE   CSB  AREA 
.•UPDATE   THE  FREE  CORE  POINTER 


.-THE  ASSIGNED  CSB  AREA   IS  NOW  CLEARED.    THE  CSB  POINTER  IS  LOADED 
;AND  THE  MBC  POINTER  IS  LOADED  -  PROCEED  TO  CLEAR  THE  MBC  SELECTED 
;AND  LOAD  THE  ASSIGNED  CSB  AREA 


CSBINT:   HRRZS       CSBP 
GO  MBCCLR 


.•STRIP  CSB  POINTER 

.•CLEAR  THE  MASSBUS  CONTROLLER 


;NOW  THE  CONTROLLER  IS   CLEARED... 

;READ  THE  STATUS  OF   THE   CONTROLLER  INTO  THE  CSB  AREA 


CSBSTA: 


GO  .CONI 

MOVEM  AC1.. RHCONKCSBP) 

SETZM  FLAG 

SKIPN  RH10 

JRST  .O 

TLNE  AC1.(1B6) 

SETOM  FLAG 

SETZM  .RETWD(CSBP) 

GO  CHNSEL 


.•GET   THE   CONI   STATUS  OF   THE  MBC 
.•STORE   THE   RESULTS   IN  THE   CSB  AREA 

;MBC   =  RH10?? 

;N0 

;22  BIT  DF10  ?? 

•YES 

) CLEAR   THE  RETRY  INDICATOR  WORD 

;GET   THE  MBf  # 


ii|aMWMiwM#Mna«lMiiaiiii«><wMi^^ 


r 


ODRPl  -  RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  5:538(1242)  15:51  28-Aug-85  Page  39 
DDRP13  MAC    28-Aug-85  15:49       RH10/RH20  RP04/05/06  MASSBUS  CONFIGURATOR 


SEQ  0290 


D 
D 


8328 

8329 

8330 

8331 

8332 

8333 

8334 

8335 

8336 

8337 

8338 

8339 

8340 

8341 

8342 

8343 

8344 

8345 

8346 

8347 

8348 

8349 

8350 

8351 

8352 

8353 

8354 

8355 

8356 

8357 

8358 

8359 

8360 

8361 

8362 

8363 

8364 

8365 

8366 

8367 

8368 

8369 

8370 

8371 

8372 

8373 

8374 


041777 
042000 
042001 
042002 
042003 
042004 
042005 
042006 
042007 
042010 
04201 1 
042012 
042013 
042014 
042015 
042016 
042017 

042020 
042021 
042022 
042023 
042024 
042025 
042026 
042027 
042030 
042031 
042032 
042033 
042034 

042035 
042036 
042037 
042040 
042041 
042042 
042043 
042044 
042045 
042046 
042047 
042050 
042051 
042052 


336  00  0 
254  00  0 
336  00  0 
254  00  0 
200  00  0 
334  00  0 
200  00  0 
434  00  0 


242  01 
332  00 
271  01 
332  00 
271  01 
202  01 
271  01 
202  00 
202  01 

332  00 
260  17 
202  12 
205  01 
336  00 
254  00 
540  01 
275  01 
334  00 
271  01 
260  17 
2oJ  17 
263  17 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  100016 
00  042007 
00  077722 

00  042005 

01  042043 

00  000000 

01  042035 
00  072016 
00  000002 
00  077721 
00  000520 
00  077722 
00  377000 
10  00002/^ 

00  000003 

01  000000 
10  000002 


00 
00 
10 
00 
00 
00 
10 
00 
00 
10 
00 
00 
00 


100016 
042666 
000020 
noOOU 
0.7611 
042031 
000027 
000430 
000000 
000030 
063557 
000001 
000000 


101243 
101256 
101271 
101304 
101317 
101332 
101345 
101360 
101373 
101406 
101421 
101434 
101447 
101462 


SKIPN 

JRST 

SKIPN 

JRST 

MOVE 

SKIPA 

MOVE 

I  OR 

LSH 

SKIPE 

ADDI 

SKIPE 

ADDI 

MOVEM 

ADDI 

MOVEM 

MOVEM 

SKIPE 

GO 

MOVEM 

MOVSI 

SKIPN 

JRST 

HRR 

suei 

SKIPA 

ADDI 

GO 

GET 

RTN 

VADDR1:  RMOINT 
RMIINT 
RM2INT 
RM3INT 
RM4INT 
RM5INT 

VADDR2:  RHOINT 
RHIINT 
RH2INT 
RH3INT 
RH4INT 
RH5INT 
RH6INT 
RH7INT 


VECTOR 

.*7 

RH20 

.♦3 

VADDR2(AC1) 

VADDRKACI) 

CJSR] 

AC1-2 

RHIO 

ACl-520 

RH20 

AC1J77000 

AC1,.CBASE(CSBP) 

AC1,3 

(ACb 

AC1,.IVAR(CSBP) 

VECTOR 

LDVECT 

MBCN,.MBCN(CSBP) 

AC1,*D12 

FLAG 

.♦4 

AC1,.CBASE(CS8P) 

AC1,430 

AC1,.CMDLST(CSBP) 

CHINIT 

AC1 


USING  VECTORING?? 

NOPE 

MBC  TYPE  =  RH20?? 

NOPE 

YES  -  GET  THE  VECTOR  ADDRESS 


;GET  KI10  VECTOR  ADDRESS 


POSITION  FOR  CHANNEL  # 

IS  IT  AN  RHIO? 

YES  -  CHANNEL  BASE  IS  520 

IS  IT  AN  RH20? 

SETUP  RH20  BASE  NUMBER  FOR  EPT 

SAVE  THE  CHANNEL  BASE  # 

POINT  TO  4TH  ENTRY  SLOT  IN  EPT  ADDR 

SAVE  THE  VECTOR  Ii^STRUCTION 


LOAD  THE  VECTOR  ADDR 

SAVE  THE  MBC  #  IN  CSB  AREA 

GET  THE  SIZE  OF  THE  CHN  LIST 

22   BIT  MODE  DF10? 

NO 

YES  -  RESET  THE  CHN  LIST  POINTER 

POINT  BELOy  iHE   CBASE  AREA 

AND  THE  START  ADDR  OF  LIST 
INH  THE  CHANNEL 
RESib  E  ACl  ORRIGINAL  CONTENTS 
EXIT  THIS  SECTION 

VECTOR  ADDRESS  FOR  RHIO  "RMO"  (270) 


RM1 

rm; 

rm! 

RM4 
RM5 


274 
360 
364 
370 
374 


VECTOR  ADDRESS  FOR  RH20  "RHO"  (540) 


RHI 
RH2 
RH3 
RH4 
RH5 
RH6 
RH7 


544 

550 
554 
560 
564 
570 
574 


""^ 


v 
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SEQ  0291 


C 
D 


8375 

8376 

8377 

8378 

8379 

8380 

8381 

8382 

8383 

838A 

8385 

8386 

8387 

8388 

8389 

8390 

8391 

8392 

8393 

839A 

8395 

8396 

8397 

8398 

8399 

8A00 

8401 

8402 

8403 

8404 

8405 

8406 

8407 

8408 

8409 

8410 

8411 

8412 

8413 

8414 

8415 

8416 

8417 

8418 

8419 

8420 

8421 

8422 

8423 

8424 

8425 

8426 

8427 


042053 
042054 
042055 
042056 
042057 
042060 

042061 
042062 

042063 
042064 
042065 
042066 
042067 
042070 
042071 
042072 


042073 
042074 
042075 
042076 
042077 

042100 
042101 
042102 

042103 
042104 
042105 
042 1 06 
042107 
042110 
042111 
042112 
042113 
042114 
042115 
042116 
042117 
042120 


403  06 
336  00 
254  00 
200  00 
202  00 
205  12 


0  00  077575 
0  00  077721 
0  00  042073 
0  00  077721 
0  00  101160 
0  00  027000 


332  00  0  06  101047 
260  17  0  00  042167 

270  12  0  00  071670 
317  12  0  00  071671 
344  06  0  00  042061 
315  12  0  00  071672 
205  12  0  00  036000 
317  12  0  00  071673 
344  06  0  00  042061 
254  00  0  00  042103 


200  00  0  00  077722 
CK)1  00  0  00  101160 
205  12  0  00  054000 
332  00  0  06  101047 
260  17  0  00  042167 

270  12  0  00  071670 
317  12  0  00  072017 
344  06  0  00  042076 


254 
037 


00 
10 


606  00 
254  00 


332  00  0 
0 
0 
0 
0 
200  00  0 
307  00  0 
254  00  0 
037  04  0 
200  00  0 
037  01  0 
037  04  0 
037  01  0 
254  00  0 


00  077656 
00  042131 
00  000002 
00  200000 
00  042131 
00  101160 
00  000001 
00  042131 
00  072020 
00  101160 
00  000001 
00  072030 
00  000003 
00  042131 


!-*C0NDRV  —  THIS  ROUTINE  DETERMINES  THE  EXISTANCE  OF  DRIVES  ON 

♦  THE  SELECTED  MASSBUS  CONTROLLER.  THIS  ROUTINE  WILL  POLL 

*  ALL  DRIVES  AND  SETUP  THE  DSB  TABLE  POINTERS 
;♦     AND  GENERATE  A  DRIVE  DSB  AREA  -  IF  NEEDED. 


CONDRV:  SET2B 
SKIPN 
JRST 
MOVE 
MOVEM 
MOVSI 

C0NDR1:  SKIPE 
GO 

ADD 

CAMG 

AOJA 

CAMGE 

MOVSI 

CAMG 

AOJA 

JRST 


AC,DRCNT# 

RH10 

C0NDR2 

RHIO 

M8CLIM 

MBCN,«RM0>B11) 

CSBTBLCAC) 
DRVDSB 

MBCN,[1B9] 

MBCN,C<RM1>B11D 

ACCONDRI 

MBCN,[<RM2>Bin 

MBCN,«RM2>B11) 

MBCN,C<RM5>B11] 

ACCONDRI 

C0NDR3 


CLEAR  THE  DRIVE  COUNTER 
ANY  RH10S  AROUND? 
NO  -  MUST  HAVE  RH20S 
GET  THE  #  OF  RHIOS 

LOAD  MBCN  WITH  RHA  DEVICE  CODE 

IS  THERE  A  CSB  AREA  FOR  THIS  MBC? 
YES  -  NOW  LOOK  FOR  DRIVES 

NO  -  UPDATE  MBCN  FOR  NEXT  MBC 

ALL  DONE  WITH  RHlOS? 

NO  -  TRY  THE  NEXT  MBC 

BELOW  THE  RM2  DEVICE  CODE?? 

YES  -  START  AGAIN  AT  RM2 

DONE  WITH  RH10*S?? 

NO  -  KEEP  TRYING 

DONE... NOW  CHECK  FOR  ANY  DRIVES 


;THIS  SECTION  LOOKS  FOR  RH20  TYPE  MBC 


C0NDR2:  MOVE 
MOVEM 
MOVSI 
SKIPE 
GO 

ADD 

CAMG 

AOJA 


C0NDR3: 


SKIPE 

JRST 

SWITCH 

TRNN 

JRST 

MOVE 

CAIG 

JRST 

PMSGF 

MOVE 

PNT1F 

PMSGF 

TTIYES 

JRST 


RH20 

MBCLIM 

MBCN,(<RH0>B11) 

CSBTBL(AC) 

DRVDSB 

MBCN,C1B9] 

MBCN,C<RH7>B11] 

AC,CONDR2+3 

ONCE 
NOMBCL 


VARIAB 
NOMBCL 
MBCLIM 
1 

NOMBCL  ..WW   ., 

<*LIMIT  SIMULTANEOUS  OPERATIONS  TO  LESS 
MBCLIM  ;GET  THE  LIMIT 

;PRINT  IT 

<CONTROLLER(S)?> 

;Y  OR  N  RESPONSE 
NOMBCL  ;N0 


GET  THE  FIRST  RH20  CONTROLLER  # 
IS  THERE  A  CSB  AREA  FOR  IT? 
YES  -  NOW  LOOK  FOR  DRIVES 

UPDATE  MBC  #  FOR  NEXT  MBC 

DONE  WITH  RH20S? 

NO  -  TRY  NEXT  MBC  NUMBER 

HERE  BEFORE?? 
YES 

NO  -  READ  THE  SWITCHES 
DESIRE  CHANGES?? 
NO 

GET  THE  LIMIT 
MORE  THAN  1  NOW? 
NO  -  NO  CHANGE  NEEDED 

THAN  ^ 
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SEQ  0292 


r 


I 


8428 

8429 

042121 

037  04  0  00  072033 

MBCLI :  PMSGF 

<*^SET  LIMIT  (UP 

8430 

042122 

200  00  0  00  101160 

MOVE 

MBCLIM 

8431 

042123 

037  01  0  00  000001 

PNTIF 

8432 

042124 

037  04  0  00  072037 

PMSGF 

<)  #> 

6433 

042125 

037  03  0  00  000003 

TTIOCT 

8434 

042126 

254  00  0  00  042121 

JRST 

MBCLI 

8435 

042127 

405  00  0  00  000007 

AND] 

7 

8436 

042130 

202  00  0  00  101160 

MOVEM 

MBCLIM 

8437 

042131 

260  17  0  00  042133 

NOMBCL:  GO 

CORSET 

8438 
8439 
8440 
8441 
8442 

042132 

254  00  0  00  043054 

JRST 

CONPRT 

;THIS  ROUTINE  SETS  THE  USED  CORE 

042133 

261  17  0  00  000000 

CORSET:  PUT 

ACO 

8443 

042134 

261  17  0  00  000001 

PUT 

ACl 

8444 

042135 

261  17  0  00  101103 

PUT 

SCNTBL 

8445 

042136 

200  01  0  00  101156 

MOVE 

AC1,FREC0R 

8446 

042137 

622  01  0  00  000777 

TRZE 

ACl, 777 

8447 

042140 

271  01  0  00  001000 

ADD  I 

AC 1,1 000 

8448 

042141 

200  00  0  00  000001 

MOVE 

ACl 

8449 

042142 

037  11  0  00  000002 

MEMSEG 

8450 

042143 

310  00  0  00  000000 

CAM 

8451 

042144 

326  00  0  00  042146 

JUMPN 

.-^2 

8452 

042145 

037  14  0  00  000004 

ERRHLT 

8453 

042146 

316  00  0  00  077735 

CAMN 

SAVMAP 

8454 

042147 

254  00  0  00  042151 

JRST 

.+2 

8455 

042150 

202  00  0  00  077735 

MOVEM 

SAVMAP 

8456 

042151 

202  01  0  00  101157 

MOVEM 

AC1,FREBUF 

8457 

042152 

274  01  0  00  030145 

SUB 

AC1,MEML0W 

8458 

042153 

5 1 '  00  0  00  000001 

HRLZS 

ACl 

8459 

042154 

540  01  0  00  030145 

HRR 

AC1,MEML0W 

8460 

042155 

202  01  0  00  101103 

MOVEM 

ACl, SCNTBL 
SCNTBL 

8461 

042156 

201  00  0  00  101103 

MOVE  I 

8462 

042157 

202  00  0  00  101154 

MOVEM 

SCNADD 

8463 

042160 

260  17  0  00  044606 

GO 

SETMAP 

8464 

042161 

201  00  0  00  101103 

MOVE] 

SCNTBL 

8465 

042162 

202  00  0  00  101154 

MOVEM 

SCNADD 

8466 

042163 

262  17  0  00  101103 

GET 

SCNTBL 

8467 

042164 

262  17  0  00  000001 

GET 

ACl 

8468 

042165 

262  17  0  00  000000 

GET 

ACO 

8469 

042166 

263  17  0  00  000000 

RTN 

TO 


;GET  THE  LIMIT 
;PRINT  IT 

; INPUT  THE  NUMBER 

.•INPUT  ERROR 

.-STRIP  IT  TO  1  DIGIT 

.-SAVE  NUMBER 

.•SETUP  USED  CORE  BITS  IN  BUFMAP 

.•PRINT  THE  CONFIGURATION  RESULTS 


;SAVE  SOME  AC'S 


AND  THE  SCNTBL  POINTER 
GET  1ST  FREE  PGM  ADDRESS 
ZAP  K  REMAINDER  BITS 
&  MAKE  IT  EVEN  LIMIT 
COPY  TO  ACO 
RE-MAP  ADDRESS 

JUMP  IF  OK 

9?  yHOOPS ' ' 

SAME  END  RESULT  OF  THE  MAP? 

YES  -  SKIP  OVER 

NO  -  SAVE  NEW  MAP  RESULTS 

AND  NEW  FREBUF  ADDR 

SUBTRACT  1ST  FREE  ADDRESS 

PUT  SIZE  IN  LEFT  SIDE 

FINISH  ENTRY  WORD  FOR  "SETMAP* 

SAVE  THE  WORD 

POINT  TO  ENTRY  WORD 
•SET  THE  USED  K  BITS  IN  BUFMAP 


;POINT  TO  1ST  ENTRY  IN  SCNTBL 


\ 


r 


DORPl  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B^^^^^        28-Aug-85  Page  42 
DDRPI3  MAC    28-Aug-85  15:49       RH10/RH20  RP04/05/06  MASSBUS  CONFIGURATOR 


SEQ  0293 


8470 

8471 

8472 

8473 

8474 

8475 

8476 

8477 

8478 

8479 

8480 

8481 

8482 

8483 

8484 

8485 

8486 

8487 

8488 

8489 

8490 

8491 

8492 

8493 

8494 

8495 

8496 

8497 

8498 

8499 

8500 

8501 

8502 

8503 

8504 

8505 

8506 

8507 

8508 

8509 

8510 

8511 

8512 

8513 

8514 

8515 


042167 
042170 
042171 
042172 


042173 
042174 
042175 
042176 

042177 
042200 


042201 

042202 

042203 

042204 

042205 

042206 

042207 

042210 

04221 1 

042212 

042213 

042214 

042215 

042216 

042217 

042220 

042221 

042222 
042223 
042224 
042225 
042226 


261  17  0  00  000006 
402  00  0  00  000013 
242  06  0  00  000003 
4! 7  06  0  00  000013 


550  11  0  06  100747 

322  11  0  00  042177 

302  11  0  00  100636 

254  00  0  00  042205 

200  11  0  00  101156 
542  11  0  06  100747 


402  00 
505  00 
541 
251 


00 
00 


402  00 
504  00 


541 

<3 


00 
00 
510  02 
621  02 
205  01 
260  17 
254  00 
254  00 
661  02 
606  01 
254  00 


0  11  000054 
0  11  000054 
0  11  000055 
0  11  000353 
0  11  000000 
0  00  000011 
0  11  000001 
0  11  000053 
0  06  100747 
0  00  037577 
0  00  000010 
0  00  057135 
0  00  042371 
0  00  042213 
0  00  040000 
0  00  004000 
0  00  042365 


205  01  0  00  000010 
270  01  0  00  072040 
260  17  0  00  057135 
254  00  0  00  042371 
254  00  0  00  042222 


•♦DRVDSB  —  ROUTINE  TO  LOOK  FOR  AVAILABLE  DRIVES  AND  TO  SETUP 
;♦     A  DRIVE  DSB  AREA 


DRVDSB: 


PUT 
SET2M 
LSH 
I  ORB 


AC 

DRIVE 
AC, 3 
AC, DRIVE 


;BUILD  A  DSB  AREA  -  IF  NEEDED 

HRRZ  DSBP,DSBTBL(AC) 

JUMPE  DSBP,.+3 

CAIO  DSBP,SNAP 

JRST  DRVCKA 

MOVE    DSBP,FRECOR 
HRRM    DSBP,DSBTBL(AC) 

; CLEAR  THE  DSB  AREA 


DSBCLR:  jETZM 
HRLI 
HRRl 
BLT 

DRVCKA:  SETZM 
HRL 
HRRI 
BLT 
HLLZ 
TLZ 
MOVSI 
GO 

JRST 
JRST 
TLO 
TRNN 
JRST 

DRVCKB:  MOVSI 
ADD 
GO 

JRST 
JRST 


.DCK(DSBP) 

.DCK(DSBP) 

.DCK+KDSBP) 

.DSBEND(DSBP) 

.DCR(DSBP) 

DSBP 

KDSBP) 

.HLDQH(DSBP) 

AC2,DSBTBL(AC) 

AC2,37577 

AC1,(DRCR!1B14) 

DRREG 

DRVCKC 

.-3 

AC2,(.PWR) 

ACKDVA 

DRVCKD 

AC1,(1B14) 

AChCDRDT] 

DRREG 

DRVCKC 

DRVCKB 


SAVE  AC 

CLEAR  THE  DRIVE  NUMBER 

JUSTIFY  FOR  INDEXING  INTO  DSBTBL 

START  WITH  DRIVE  0 


GET  THE  DSB  POINTER 

ANY  DSB  AT  ALL? 

YES  -  BUT  IS  IT  UNKNOWN  AREA?? 

NO  -  MUST  KNOW  WHAT  I  HAVE 


;GET  THE  FREE  CORE  ADDRESS 

;AND  SETUP  THE  DSBTBL  POINTER  TO  IT 


CLEAR  THE  FIRST  LOCATION  IN  DSB 

OUTSIDE  OF  THE  STORAGE  AREAS 

THEN  CLEAR  THE  REST  OF  THE  DSB  AREA 

ZAP  THE  AREA  NOW 

PREPARE  TO  CLEAR  THE  1ST  PART  OF  THE  DSB 

BUILD  A  BLT  WORD  TO  CLEAR  THE  AREA 

CLEAR  IT  NOWI 

GET  DRIVE  STATUS 

KEEP  ONLY  .OPR  &  .SWRTL 

DON'T  REPORT  RAE  FAILURE 

READ  IT 

NO  RESPONSE 

ERROR  -  TRY  AGAIN 

SET  THE  POWER  UP  FLAG 

DEVICE  AVAILABLE?? 

NOPE  I 

DON'T  REPORT  AN  RAE  ERROR  IF  DETECTED 

SETUP  TO  DRIVE  TYPE  REGISTER 

READ  IT  NOW 

SOME  ERROR  DETECTED  WHILE  READING 

ERROR  -  TRY  AGAIN 
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SEQ  0294 


8516 

8517 

8518 

8519 

8520 

8521 

8522 

8523 

8524 

8525 

8526 

8527 

8528 

8529 

8530 

8531 

8532 

8533 

8534 

8535 

8536 

8537 

8538 

8539 

8540 

8541 

8542 

8543 

8544 

8545 

8546 

8547 

8548 

8549 

8550 

8551 

8552 

8553 

8554 

8555 

8556 

8557 

8558 

8559 

8560 

8561 

8562 

8563 

8564 

8565 

8566 

8567 

8568 

8569 

8570 


042227 
042230 
042231 
042232 
042233 

042234 
042235 
042236 

042237 
042240 
042241 

042242 
042243 
042244 
042245 


202  01  0  11  000006 
405  01  0  00  Mllll 
302  01  0  00  020020 
306  01  0  00  024020 
661  02  0  00  000001 

302  01  0  00  020021 
306  01  0  00  024021 
661  02  0  00  000200 

302  01  0  00  020022 
306  01  0  00  024022 
661  02  0  00  000100 

607  02  0  00  000301 
254  00  0  00  042375 
602  01  0  00  004000 
661  02  0  00  001000 


042246 
042247 
042250 
042251 

042252 
042253 
042254 
042255 
042256 
042257 
042260 
042261 
042262 
042263 
042^^64 
042265 

042266 
042267 

042270 
042271 

042272 
042273 
042274 
042275 


201  01  0  00  000632 

603  02  0  00  000100 

201  01  0  00  001456 

iKii   01  0  11  000026 


200  01 
260  17 
310  00 
254  00 
202  01 
405  01 
200  01  0 
260  17  0 
310  00 
254  00 
202  01 
405  01 


0  00  072041 
0  00  057135 
0  00  000000 
0  00  042252 
0  11  000015 
0  00  Mllll 
00  072042 
00  057135 
0  00  000000 
0  00  042260 
0  11  000001 
0  00  Mllll 


606  01  0  00  010000 
254  00  0  00  042300 

606  01  0  00  000600 
254  00  0  00  042300 

661  02  0  00  100000 
602  01  0  00  004000 
1  02  0  00  004000 
0  00  0  00  077575 


; CHECK  FOR  THE  PROPER  DRIVE  TYPE 

MOVEM  AC1,.DDT(DSBP) 

ANDI  AC1,RDAT 

CAIE  AC1,RP04SP 

CAIN  AC1,RP04DP 

TLO  AC2,(.RP04) 

CAIE  AC1,RP05SP 

CAIN  AC1,RP05DP 

TLO  AC2,(.RP05) 

CAIE  AC1,RP06SP 

CAIN  ACURP060P 

TLO  AC2,(.RP06) 

TLNN  AC2,(.RP04!.RP05!.RP06) 

JRST  SOMDRV 

TRNE  ACUDTDRR 

TLO  AC2,(.DUAL) 


SAVE  THE  DRIVE'S  DRIVE  TYPE 
STRIP  ALL  BUT  DRIVE  DATA 
SINGLE  PORT  RP04? 
OR  DUAL  PORT  RP04? 
YES  SET  STATUS  BIT 

SINGLE  PORTED  RP05 
DUAL  PORTED  RP05 
YES  SET  STATUS  BIT 

SINGLE  PORTED  RP06 
DUAL  PORTED  RP06 
YES  SET  STATUS  BIT 

FIND  A  SUPPORTED  DRIVE 
NO 

DUAL  PORTED  DRIVE 
•YES  STATUS  BIT 


REG 


;NOW  THE  DSB  AREA  ASSIGNED  HAS  BEEN  CLEARED 
.•SETUP  SOf"E  STATUS  BITS  IN  THE  DSBTBL  POINTER  WORD 


; SETUP  THE  MAX  #  OF  CYL  THIS  DRIVE 

MOVEI  AC1,*D410 

TLNE  AC2,(.RP06) 

HOVE I  AC1,*D814 

WOVEM  AC1,.WAXCY(DSBP) 

MOVE  AC1,[DRER3] 

GO  DRREG 

CAM 

JRST  .-3 

MOVEM  AC1,.DER3(DSBP) 

ANDI  ACKRDAT 

MOVE  AC1,[DRSR] 

GO  DRREG 

CAM 

JRST  .-3 

MOVEM  AC1,.DSR(DSBP) 

ANDI  AC1.RDAT 

TRNN  AC1.M0L 

JRST  STAEXT 

TRNN  ACKDPRIDRY 

JRST  STAEXT 

TLO  AC2,(.0NLN) 

TRNE  AC1,WRTL0K 

TLO  AC2,(.yRTL) 

AOS  DRCNT 


MAX  CYL  RP04/05 
IS  IT  A  06 
YES  GET  ITS  MAX  CLY 
SAVE  MAX  CYL 

SETUP  TO  READ  E'>R0R  REG  nl 
READ  IT  NOU 

HANG  ON  FATAL  ERROR 

SAVE  THE  DRIVE  ERROR  REG  #3  DATA 

STRIP  OUT  JUNK  BITS 

SETUP  TO  READ  THE  STATUS  REGISTER 

READ  THE  DRIVE  STATUS  REGISTER 

HANG  ON  A  FATAL  ERROR 

SAVE  THE  STATUS  REG  IN  DSB  AREA 

STRIP  ALL  BUT  DRIVE  DATA 

MEDIUM-ON-LINE  SET? 

NO  -  PROCEED  TO  NEXT  DRIVE 

DRIVE  PRESENT  AND  READY? 
NO  -  PROCEED  TO  NEXT  DRIVE 

YES  -  SET  THE  STATUS  BIT 
DRIVE  WRITE  LOCKED? 
YES  -  SET  'HE  WRITE  LOCK  STATUS 
•COUNT  THE  DRIVE 


IIW«MP*| 


r 
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SEQ  0295 


8571     042276     436  02  0  13  100747 


lORW         AC2,DSBTBL(DRIVE) 


;SAVE   THE   LE'^T   SIDE  PARAMETERS 


~.itm>*« 


iiiiiiii«-iii"i.iiiriiiin Ill'  111  II  m.r 
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SEQ  0296 


8572 
8573 
8574 
8575 
8576 
8577 

8578 

8579 

8580 

8581 

8582 

8583 

8584 

8585 

8586 

8587 

8588 

8589 

8590 

8591 

8592 

8593 

8594 

8595 

8596 

8597 

8598 

8599 

8600 

8601 

8602 

8603 

8604 

8605 

8606 

8607 

8608 

8609 

8610 

8611 

8612 

8613 

8614 

8615 

8616 

3617 

8618 
8619 
8620 


^i^2277    260  17  0  GO  042410 


042300 
042301 
042302 
042303 
042304 
042305 
042306 
042307 
042310 
042311 
042312 
042313 
042314 
042315 

042316 
042317 
042320 
042321 

042322 
042323 
042324 
042325 
042326 
042327 
042330 
042331 
042332 
042333 
042334 
042335 
042336 
042337 

042340 
042 ?4^ 
042i42 
042343 

042344 

042345 

042346 
042347 


540  02 
510  00 
404  00 
434  02 
202  02 
200  01 
260  17 
310  00 
254  00 
202  01 
603  02 
260  17 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


06 
06 
00 
00 
06 
00 
00 
00 
00 
11 
00 
00 
00 
00 


100747 
100747 
072043 
000000 
100747 
072044 
057135 
000000 
042305 
000010 
001000 
042316 
042322 
042350 


200  01  0  00  072045 
260  17  0  00  063147 
254  00  0  00  042316 
263  17  0  00  000000 


260  17 
201  01 
260  17 
254  00 
201  00 
2oJ  17 
260  17 


0 
0 
0 
0 
0 
0 
0 


205  01  0 
260  17  0 
254  00  0 
300  00  0 
606  01  0 
254  00  0 
263  17  0 


00  042657 
00  000007 
00  063147 
00  042340 
00  001130 
00  042726 
00  042657 
00  010000 
00  057135 
00  042340 
00  000000 
00  000200 
00  042344 
00  000000 


037  04  0  00  072046 
260  17  0  00  054562 
037  00  0  00  030242 
263  17  0  00  000000 

037  04  0  00  072056 
260  17  C  00  054562 
037  00  0  00  03024? 
263  17  0  00  000000 


.-DETERMINE  THE  PACK  FORMAT  AND  SET  THE  PROPER  DSBTBL  STATUS  BITS 
GO     PKFORM  ;DETERMINE  PACK  FORMAT 


STAEXT: 


HRR 

HLLZ 

AND 

lOR 

MOVEM 

MOVE 

GO 

CAM 

JRST 

MOVEM 

TLNE 

GO 

GO 

JRST 


DRRELS:  MOVE 
GO 

JRST 
RTN 


DRECL: 


CERR1: 


CERR2: 


GO 

MOVE  I 

GO 

JRST 

MOVE  I 

GO 

GO 

MOVSI 

GO 

JRST 

CAI 

TRNN 

JRST 

RTN 

PMSGF 
GO 
PCRL 
RTN 

PMSGF 
GO 
PCRL 
RTN 


AC2,DSBTBL(AC) 

DSBTBL (AC) 

C.OPRJ.SyRTLl.FII! 

AC2,AC0 

AC2,DSBTBL(AC) 

ACnCDRSN] 

DRREG 

.-3 

AC1,.DSN(DSBP) 

AC2.(.DUAL) 

DRRELS 

DRECL 

DRVNXT 

AC1,CDRCR!RELSE3 

LDREG 

DRRELS 


MBCCLR 

AC1,7 

LDREG 

CERR1 

*D600 

yAITIT 

MBCCLR 
AC1,(DRSR) 
DRREG 
CERR1 

AC1,DRY 
CERR2 


;ADD  IN  THE  DSB  AREA  ADDRESS 
;GET  THE  STATUS  BITS 
VIRGD       ;SAVE  SOME  STATUS 
;PUT  THE  WORDS  TOGETHER 
;SAVE  THE  DRIVE  STATUS  &  POINTER 
; PREPARE  TO  READ  SERIAL  * 
;READ  IT 

.-ERROR  DETECTED  -  DO  IT  AGAIN 

;SAVE  THE  RESULTS  IN  DSB  AREA 

.-DRIVE  DUAL  PORTED? 

;YES  -  ISSUE  A  RELEASE  CMD 

.-RECAL  THE  DRIVE 

.-PROCESS  THE  NEXT  DRIVE 

.-PREPARE  TO  RELEASE  THE  DRIVE 
;D0  IT  NOW! 
.-ERROR  -  TRY  AGAIN 


.-CLEAR  RH 

.-GET  RECAL  COMMAND 

;J0  RECAL 

.-CBTO  ERROR  REPORT 

.-WAIT  FOR  RECAL  TO  COMPLETE 
.-CLEAR  ATA 
.-READ  STATUS  REG 

;CBTO  ERROR  REPORT 
; NO-OP  RTN 
.-DRIVE  READY 
.-NO  TIMEOUT  REPORT 


<*CBTO  ERROR  OCCURED  DURING  CONFIGURATION  ON  > 
PNTDRF 


<TIMEDOUT  DOING  RECAL  IN  CONFIGURATION  0N> 
PNTDRF 
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SEQ  0297 


8621 

8622 

8623 

8624 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 

8634 

8635 

8636 

8637 

8638 

8639 

8640 

8641 

8642 

8643 

86A4 

8645 

8646 

8647 

8648 

8649 

8650 

8651 

8652 

8653 

8654 

8655 

8656 

8657 

8658 

8659 

8660 

8661 

8662 

8663 

8664 

8665 


042350 
042351 
042352 
042353 
042354 
042355 
042356 
042357 
042360 
042361 
042362 
042363 
042364 

042365 
042366 
042367 
042370 

042371 
042372 

042373 
042374 


200 
603 

31? 
254 

201 
272 
405 
350 
305 
254 
402 
262 
263 


00 
00 
11 
JO 
00 
00 
13 
00 
13 
00 
00 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


06 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


100747 
000301 
101156 
042356 
000353 
101156 
000007 
000013 
00001 0 
042373 
00001 3 
000006 
000000 


661  02  0  00  000010 
541  02  0  00  100636 
202  02  0  06  100747 
254  00  0  00  042350 

402  00  0  06  100747 
254  00  0  00  042350 

405  06  0  00  000070 
254  00  0  00  042172 


042375 
042376 
042377 
042400 
042401 

042402 
042403 

04240^. 
042^05 
042406 
042407 


402  00  0  00  000002 
302  01  0  00  000002 
306  01  0  00  000003 
334  00  0  00  000000 
254  00  0  00  0^2404 

661  02  0  00  000002 
254  00  0  00  042366 

606  01  0  00  000010 
254  00  0  00  042365 
661  02  0  00  000004 
254  00  0  00  042366 


;THE  DSBTBL  POINTER  HAS  BEEN  GENERATED  AND  ENTERED   IN  THE  PROPER 
)SLOT  FOR  THE   SELECTED  DRIVE  AND  A  DSB  AREA  IS  AVAILABLE  AN  CLEARED 


DRVNXT: 


MOVE 

TLNE 

CAME 

JRST 

MOVE  I 

ADDM 

AND  I 

AOS 

CAIGE 

JRST 

SETZM 

GET 

RTN 


DRVCKD:    TLO 
NOTDRV:   HRRI 
MOVEM 
JRST 

DRVCKC:   SETZM 
JRST 


DSBTBL (AC) 

(.RP04I.RP05:.RP06) 

DSBPJRECOR 

.♦3 

DSBSIZ 

FRECQR 

DRIVE, 7 

DRIVE 

DRIVE, 10 

DRNXLP 

DRIVE 

AC 


AC2,(.UNKN) 
AC2,SNAP 
AC2,DSBTBL(AC) 
DRVNXT 


DRNXLP 


AND  I 
JRST 


DSBTBL (AC) 
DRVNXT 

AC,  70 
DRVDSB*3 


;A  DRIVE  HAS  BEEN  DETECTED  ON 

.-DETERMINE   THE  DRIVE   TYPE   -   IF 

SOMDRV:    SETZM  AC2 

CAIE  AC1,RS04N 

CAIN  AC1,RS04I 

SKIPA  ^ 

JRST  .♦! 

TLO  AC2,(.RS04) 

JRST  NOTDRV 

TRNN  AC1,10 

JRST  DRVCKD 

TLO  AC2,(.TU16) 

JRST  NOTDRV 


GET  THE   TABLE   STATUS 

SUPPORTED  DRIVE   TYPE 

OR  AT  SAME  ADDR? 

NO  UPDATE  OF   FRECOR  NEEDED 

YES  -  UPDATE  NOW 

STRIP  TO  1   DIGIT  NUMBER 
UPDATE   THE  DRIVE  NUMBER 
DONE  WITH  THIS  CONTROLLER? 
NO  -  LOOK  FOR  THE  NEXT  DRIVE 
YES  -  CLEAR  THE  DRIVE  # 
RESTORE  AC 
AND  EXIT   THIS  SECTION 

SET  THE  UNKNOWN  DEVICE  FLAG 
POINT   TO  A  COMMON  AREA 
SAVE   THE   DEVICE  STATUS   TABLE 
LOOK  AT    THE  NEXT   DRIVE 

;STRIP  POINTER 
.•SELECT  ANOTHER  DRIVE 

.•STRIP  THE   DRIVE  NUMBER 


THE  MASSBUS  BUT   ITS  NOT   SUPPORTED 
POSSIBLE   AND   SETUP   THE  PROPER  BIT 


WORD 


RS04  NORMAL? 

OR  RS04   INTERLEAVED? 

YES 

NO  -  CHECK   FOR  A   TU16 

;SET   THE   RS04   STATUS  BIT 
;AND  EXIT 


IS    IT   A   TU16   ??? 
NO  -  MUST   BE   UNKNOWN   TYPE: 
YES  -   SET    THE    TU16   STATUS  BIT 
AND  EXIT 


wwiwii-iiii.  ii>iP-iiiiM«Mai»i 
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SEQ  0298 


8666 

8667 

8668 

8669 

8670 

8671 

8672 

8673 

8674 

8675 

8676 

8677 

8678 

8679 

8680 

8681 

8682 

8683 

8684 

8685 

8686 

8687 

8688 

8689 

8690 

8691 

8692 

8693 

8694 

8695 

8696 

8697 

8698 

8699 

8700 

8701 

8702 

8703 

8704 

8705 

8706 

8707 

8708 

8709 

8710 

8711 

8712 

8713 

8714 

8715 


042410 

042411 

042412 

042413 

042414 

042415 

042416 

042417 

042420 

042421 

042422 

042423 

042424 

042425 

042426 

042427 

042430 

042431 

042432 

042433 

042434 

042435 

042436 

042437 
042440 
042441 
042442 
042443 
042444 
042445 
042446 
042447 
042450 
042451 
042*^52 
042453 
042454 
042455 
042456 
042457 
042460 
042461 


261 

261 

261 

200 

260 

550 

550 

202 

260 

200 

260 

254 

200 

260 

254 

201 

202 

260 

476 

403 

205 

260 

254 


17 
17 
17 
13 
17 
10 
00 
00 
17 
01 
17 
00 
01 
17 
00 
00 
00 
17 
00 
00 
01 
17 
00 


200  01 
260  17 
254  00 

200  01 
271  01 

201  02 

202  02 
201  03 
260  17 
260  17 
201  00 
260  U 
200  01 
260  17 
254  00 
205  01 
260  17 
254  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
01 
01 
01 
00 
00 
00 
00 
00 
00 
00 
00 

11 

00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 

000002 

000003 

000006 

063665 

101047 

i 0071 2 

100672 

042657 

072065 

063147 

042421 

072066 

063147 

042424 

000001 

000024 

042705 

100004 

077520 

110000 

063147 

042434 

100667 
063544 
042654 
101156 
000353 
000404 
100733 
000202 
063674 
042503 
000310 
042705 
100667 
063547 
042645 
020000 
057135 
042540 
042456 


•  /If***  *************♦♦*****♦********♦♦*♦♦*♦*♦♦*♦*****♦♦*♦♦*•**♦**♦♦♦♦*♦♦♦♦♦ 

)*PKFw.  M  —  ROUTINE  TO  DETERMINE  THE  DISK  PACK  FORMAT 

;♦      AND  EXIT  WITH  THE  PROPER  "DSBTBL"  STATUS  BIT  SET 

;♦      INDICATING  PACK  FORMAT. 
•4f*********«**»»*»»****t»*********t*********»***************************** 


PKFORM:  PUT 
PUT 
PUT 
MOVE 
GO 

HRR2 
HRRZ 
MOVEM 
GO 

MOVE 
GO 

JRST 
MOVE 
GO 

JRST 
MOVE  I 
MOVEM 
GO 

SETOM 
SETZB 
MOVSI 
GO 
JRST 


PKFRMA: 


MOVE 

GO 

JRST 

MOVE 

ADD  I 

MOVE  I 

MOVEM 

MOVE  I 

60 

60 

MOVE  I 

GO 

MOVE 

GO 

JRST 

MOVSI 

GO 

JRST 

JRST 


AC1 

AC2 

AC3 

DRIVE, AC 

CHNSEL 

CS8P,CSBTBL(AC1) 

CADTBL(ACI) 

SCLP(ACI) 

MBCCLR 

AC1,CDRDCA] 

LDREG 

.-2 

ACKCDRCRIPAKACK] 

LDREG 

.-2 

1 

.SELAD(DSBP) 

UAITMS 

TENFLG# 

AC0,8LK13F# 

ACK^DROFF) 

LDREG 

.-2 

AC1,RHERR 

.C0NS2 

PKFRME 

AC1,FREC0R 

AC1,DSBSIZ 

AC2,404 

AC2,.SIZE 

AC3,202 

GENCCy 

PKREAD 

•D200 

WAITMS 

AC1,RHERR 

.CONSO 

PKFRMB 

AC1,(DRER1) 

DRREG 

PKUKFM 


;SAVE  SOME  AC'S 


GET  THE  M8C  UNIT  NUMBER 
LO^D  THE  CSBTBL  POINTER 

UPDATE  THE  CHANNEL  POINTER 
CLEAR  THE  MBC 

SET  THE  DESIRED  CYLINDER  TO  0 
ERROR  -  TRY  AGAIN 
SETUP  TO  DO  A  PACK  ACKNOWLEDGE 
DO  IT 

READ  HOME  &  BAT  BLOCKS 

SAVE  THE  LOGICAL  BLOCK  # 

WAIT  FOR  1  MSEC 

SET  THE  10  FORMAT  FLAG 

CLEAR  THE  LOG.  BLK.  13  LSED  FLAG 

SETUP  TO  LOAD  THE  DRIVE  OFFSET  REG 

LOAD  THE  OFFSET  REGISTER 


GET  THE  ERROR  DATA 

SKIP  IF  ALL  OK 

ERROR  -  DO  SOMETHING  ABOUT  IT 

SETUP  THE  CHANNEL  TO  READ  INTO  A 

X.'R  TO  FREE  MEMORY  SPOT  THE 

"HUM"  ft  "BAT"  BLOCK  DATA 

SAVE  THE  XFR  SIZE 

1  SECTOR  PLUS  2  HEADER  WORDS 

SETUP  THE  CHANNEL  NOW 

ISSUE  A  READ  HEADER  &  DATA  COMMAND 

WAIT  FOR  "DONE"  OR  200  MSEC 

TO  TIMEOUT 

GET  THE  ERROR  BITS  AGAIN 

ANYTHING  UP?? 

NO  -  PACK  FORMAT  IS  NOW  KNOWN 

SETUP  TO  READ  THE  ERROR  REG 

IN  THE  DRIVE 

FATAL  -  DRIVE  NOT  THERE  ANYMORE 

HANG  ON  ERROR 


•WMM 


r 
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SEQ  0299 


8716 

8717 

8718 

8719 

8720 

8721 

8722 

8723 

8724 

8725 

8726 

8727 

8728 

8729 

8730 

8731 

8732 

8733 

8734 

8735 

8736 

8737 

8738 

8739 

8740 

8741 

8742 

8743 

8744 

8745 

8746 

8747 

8748 

8749 

8750 

8751 

8752 

8753 

8754 

8755 

8756 

8757 

8758 

8759 

8760 

8761 

8762 

8763 

8764 

8765 

8766 

8767 

8768 


042462 
042463 
042464 
042465 
042466 
042467 
042470 
042471 
042472 
042473 

042474 
042475 

042476 
042477 
042500 
042501 
042502 


042503 
042504 
04250S 
042506 
042507 
042510 
042511 
042512 
042513 
042514 
042515 
042516 
042517 

042520 
042521 
042522 
042523 
04252'. 
042d25 
042526 
042527 
042530 
042531 
042532 
042533 
042534 
042535 
042536 
042537 


202  01 
260  17 
336  00 
254  00 
201  01 
505  01 
402  00 
260  17 
254  00 
254  00 


332  00  0  00  077520 
254  00  0  00  042540 

201  00  0  00  000012 

202  00  0  11  000024 
476  00  0  00  077520 
476  00  0  00  100004 
254  00  0  00  0^2434 


0  11  000002 

MOVEM 

0  00  042657 

GO 

0  00  100004 

SKIPN 

0  00  042474 

JRST 

0  00  010000 

MOVE  I 

0  00  110000 

HRLI 

0  00  100004 

SEiZM 

0  00  063147 

GO 

0  00  042466 

JRST 

0  00  042437 

JRST 

332  00 

254  00 
205  01 
540  01 
260  17 

255  00 
037  03 
2v;J  01 
200  02 
242  02 
434  01 
260  17 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
11 
00 
00 
00 
00 
10 
00 
00 
00 
00 


017722 
042520 
050000 
000024 
063147 
000000 
000004 
072067 
000027 
000006 
000002 
063375 
000000 


550  01  0 
260  17  0 
200  00  0 
272  00  0 
272  00  0 
231  00  0 
336  00  0 
336  00  0 
350  00  0 
213  00  0 
405  00  0 
242  00  0 
435  00  C 
202  00  0 
260  17  0 
263  17  0 


11  000024 
00  063447 
00  100733 
11  000144 
11  000145 
00  000202 
00  000001 
00  000000 
00  000000 
00  OOOQOO 
00  001^77 

00  000006 
00  200073 
00  000001 
00  063452 
00  000000 


PKFMA1 : 


SKIPE 
JRST 

MOVE  I 
MOVEM 
SETOM 
SETOM 
JRST 


ACU.DERKDSBP) 

MBCCLR 

TENFLG 

PKFMA1 

AC1,FMT22 

AC1,(DR0FF) 

TENFLG 

LDREG 

.-4 

PKFRMA 

BLK13F 
PKUKFM 

12 

.SELAD(DSBP) 

BLK13F 

TENFLG 

PKFRMA-3 


SAVE  THE  ERROR  RESULTS 

CLEAR  THE  MBC 

1ST  TIME  HERE? 

NO  -  TRY  THE  2ND  BAT  BLK  AREA 

SETUP  OFFSET  REG  TO  TRY  11  MODE 

ADD  IN  THE  REGISTER  M 

CLEAR  THE  10  FORMAT  FLAG 

LOAD  THE  OFFSET  REGISTER 

ERROR  -  TRY  AGAIN 


;TRIED  BLOCK  13  ALREADY? 

;YES  -  PACK  IS  IN  UNKNOWN  FORMAT 


.'SETUP  TO  TRY 
;AND  SAVE  IT 
;SET  THE  USED 
.•SETUP  TO  TRY 
.•READ  LOG  BLK 


LOG.  BLK.  'i2  &  13 

BLK  13  FLAG 
10  FORMAT 
13 


.•ROUTINE  TO  ISSUE  A  READ  HEADER  AND  DATA  COMMAND 


PKREAD:  SKIPE 
JRST 
MOVSI 
HRR 
60 
JFCL 
CURTBI 
HOVE 
MOVE 
LSH 
I  OR 
GO 
RTN 


PKRD2: 


HPRZ 

GO 

MOVE 

ADDM 

ADDM 

IDIVI 

SKIPN 

SKIPN 

AOS 

MOVNS 

AND  I 

LSH 

lOR] 

MOVEM 

GO 

p]N 


RH20 

PKRD2 

AC1,(DRDTS) 

AC1,.SELAD(DSBP) 

LDREG 


AC1.CDXES1RDHDJ 

AC2,.CBASE(CSBP) 

AC2,6 

AC1,AC2 

LDCR 


AC1..SELAD(DSBP) 

LDSBAR 

.SIZE 

.WDXFR(DSBP) 

.WDRD(DSBP) 

202 

AC1 


1777    • 

6 

DTES!RDHD 

AC! 

LDSTCR 


MBC  A  RH20? 

YES 

SETUP  TO  LOAD  THE  DRIVE  ADDRESS  REG 

GET  THE  LOG.  BLK  M 

LOAD  THE  DRIVE  REGISTER 

NO  ACTION  WANTED  IF  ERROR  DEIECTED 

ZAP  THE  CACHE  iU    IT  EXISTS) 

PREPARE  TO  READ  HEADERS  AND  DATA 

GET  THE  CHANNEL  LOCATION 

POSITION  IT 


;START  THE  TRANSFER  IN  RHIO 


GET  THE  LOG.  BLK  # 

LOAD  THE  RH20  2ND  BLK  ADDR  REG 

GET  THE  XFR  SiZE 

UPDATE  THE  #  WORDS  XFR 

AND  THE  »   READ 

CALC  #  BLOCKS  IN  XFR 

REMAINDER 

OR  NO  WHOLE  BLOCKS 

THEN  ♦I  TO  BLK  COUNT 

NEGATE  THE  BLr.  COUNT 

I   STRIP  IT 

POSITION   IN  FIELD 

GET   THE    ^UNCTION 

SAVE   FOR   THE    LDAD   CHD 

STAPT    THE   DATA   TPANS^ER 
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SEO  0300 


DC 
DC 


8769 

8770 

8771 

8772 

8773 

8774 

8775 

8776 

8777 

8778 

8779 

8780 

8781 

8782 

8783 

8784 

8785 

8786 

8787 

8788 

8789 

8790 

8791 

8792 

8793 

8794 

8795 

8796 

8797 

8798 

8799 

8800 

8801 

8802 

8803 

8804 

8805 

8806 

8807 

8808 

8809 

8810 

8811 

8812 

8813 

8814 

8815 


042540 
042541 
042542 
042543 
042544 
042545 
042546 

042547 

042550 

042551 

042552 

042553 

042554 

042555 

042556 

042557 

042560 

C42561 

042562 

042563 

042564 

042565 

042566 

042567 

042570 

042571 

042572 

042573 

042574 

042575 

042576 

042577 

042600 

042601 

042602 

042603 

042604 

042605 

042606 

04260^ 

042o10 

042611 

042612 

042613 

042614 


200  00  0  13  100747 

PKUKFM:  MOVE 

DS6T8L (DRIVE) 

661  00  0  00  010000 

TLO 

(.VIR6) 

402  00  0  00  077656 

SETZM 

ONCE 

476  00  0  00  100004 

SETOM 

TENFL6 

205  01  0  00  110000 

MOVSl 

AC1,(DR0FF) 

260  17  0  00  063147 

GO 

LDRE6 

310  00  0  00  000000 

CAM 

202  00  0  13  100747 

PKFMEX:  MOVEM 

DSBT8L(DRIVE) 

550  00  0  00  101164 

HRRZ 

MAXSUR 

242  00  0  00  000010 

LSH 

^D8 

271  00  0  00  000023 

ADD] 

^D19 

336  00  0  00  100004 

SKIPN 

TENFL6 

271  00  0  00  000002 

ADDI 

2 

550  11  0  13  100747 

HRRZ 

DSBP,DSBTBL(DRIVE) 

504  00  0  11  000026 

HRL 

.MAXCY(DSBP) 

260  17  0  00  045573 

60 

L068LK 

202  00  0  11  000031 

MOVEM 

.MXBLK(DSBP) 

201  00  0  00  005000 

MOVE  I 

5000 

336  00  0  00  100004 

SKIPN 

TENFL6 

271  00  0  00  000400 

ADDI 

400 

202  00  0  11  000027 

MOVEM 

.TKSIZ(DSBP) 

201  00  0  00  000023 

MOVE] 

SECT10 

336  00  0  00  100004 

SKIPN 

TENFL6 

201  00  0  00  000025 

MOVE  I 

SECT11 

202  00  0  11  000030 

MOVEM 

.MXSEC(DSBP) 

200  01  0  00  101156 

MOVE 

AC1,FREC0R 

271  01  0  00  000353 

ADDI 

AC1,DSBSIZ 

554  02  0  01  000001 

HLRZ 

AC2J(AC1) 

cKjl   02  0  11  000020 

MOVEM 

AC2,.PKSN(DSBP) 

260  17  0  00  042657 

GO 

MBCCLR 

260  17  0  00  063665 

GO 

CHNSEL 

550  00  0  01  100712 

HRRZ 

CADT8L(AC1) 

202  00  0  01  100672 

MOVEM 

SCLP(ACI) 

260  17  0  00  042666 

GO 

LDVECT 

205  01  0  00  040000 

MOVSl 

AC1,(DRAS) 

271  01  0  00  000377 

ADDI 

AC1,377 
LDRE6 

260  17  0  00  063147 

60 

310  00  0  00  000000 

CAM 

200  00  0  00  101156 

MOVE 

FRECOR 

271  00  0  00  000557 

ADDI 

DS8S1Z+204 

200  01  1  00  000000 

MOVE 

AC1,aAC0 

316  01  0  00  067771 

CAMN 

ACKCSIXBIT  /BAT/] 

254  00  0  00  042615 

JRST 

PKFMXI 

260  17  0  00  036657 

60 

6EN8AT 

254  00  0  00  042641 

JRST 

PKFMX3 

6ET  THE  DRIVE  STATUS  BITS 
SET  THE  UNKNOWN  FORMAT  BIT 
PRINT  L0N6  FORMAT 
DEFAULT  TO  TEN  FORMAT  PARAMS 
RESET  DRIVE  OFFSET  RE6 


SAVE  THE  STATUS 

6ET  THE  MAX  if   OF  SURFACES 

POSITION  IT 

ADD  IN  THE  »   OF  PDP-10  SECTORS 

PDP-10  FORMAT  PACK? 

NO  -  ADJUST  #  OF  SECTORS  FOR  PDP-11  FORMAT 

SETUP  DSB  TABLE  PTR 

ADD  IN  THE  MAX.  H   CYLINDERS 

CALC.  THE  #  OF  L06ICAL  BLKS  ON  PACK 

AND  SAVE  THE  ft   IN  THE  DRIVE'S  DSB 

6ET  THE  TRACK  SIZE  FOR  PDP-10 

11  FORMAT  PACK? 

YES  -  ADJUST  THE  SIZE 

SAVE  IT  IN  THE  DSB  AREA 

6ET  »   SECTORS  FOR  A  PDP-10  PACK 

10  FORMAT  PACK? 

NOPE  ! 

SAVE  THE  »   SECTORS  /  TRACK 

6ET  THE  FIRST  FREE  AREA  IN  P6M 

6ET  ACTUAL  LOCATION  # 

SAVE  THE  SERIAL  #  OF  DRIVE  FORMATTED  ON 

CLEAR  THE  MBC 


AND  LOAD  THE  VECTOR  ADDRESS 
CLEAR  THE  ATTENTION  SUMM.  REG 
CLEAR  ALL  DRIVES 
DO  IT 

PREPARE  TO  SAVE  THE  BAT  BLK 
POINT  TO  THE  'BAT"  BLK  DATA 
GET  THE  1ST  BAT  BLK  WORD 
IS  IT  THE  BAT  BLK  DATA? 
YES  -  SKIP  THE  GENERATE 
GENERATE  A  QAT  BLK  AREA 
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SEQ  0301 


r 

iDI 
Dl 


8816 

8817 

8818 

8819 

8820 

8821 

8822 

8823 

8824 

8825 

8826 

8827 

8828 

8829 

8830 

8831 

8832 

8833 

8834 

8835 

8836 

8837 

8838 

8839 

8840 

8841 

8842 

8843 

8844 

8845 

8846 

8847 

8848 

8849 

8850 

8851 

8852 

8853 

8854 

8855 

8856 

8857 

8358 


042615 
042616 
042617 

042620 
042621 
042622 
042623 
042624 

042625 
042626 
042627 
042630 
042631 
042632 

042633 
042634 
042635 
042636 
042637 
042640 

042641 
042642 
042643 
042644 


042645 
042646 
042647 
042650 
042651 
042652 
042653 

042654 
042655 
042o56 


207  00  0  00  000000 
541  00  0  11  000152 
251  00  0  11  000351 

200  00  0  00  101156 
271  00  0  00  000355 
200  01  1  00  000000 
312  01  0  00  072070 
254  00  0  00  042633 


350  00 
200  01 
202  01 
271  00 
200  01 
202  01 


0  00  000000 

1  00  000000 
0  11  000023 

0  00  000003 

1  00  000000 
0  11  000022 


201  00  0  00  000353 
272  00  0  00  101156 
476  00  0  00  077512 

261  17  0  00  000006 
260  17  0  00  036520 

262  17  0  00  000006 

262  17  0  00  000003 
262  17  0  00  000002 

262  17  0  00  000001 

263  17  0  00  000000 


200  00 
336  00 
661  00 
332  00 
621 
621 


00 
00 


254  00 


0  13  100747 
0  00  100004 
0  00  020000 
0  00  100004 
0  00  020000 
0  00  010000 
0  00  042547 


037  04  0  00  072071 
260  17  0  00  042657 
254  00  0  00  042437 


PKFMX1:  MOVSS 
HRRI 
BLT 

PICFMX2:  MOVE 
ADD  I 
MOVE 
CAME 
JRST 

AOS 

MOVE 

MOVEM 

ADD  I 

MOVE 

MOVEM 


PKFMX4: 


MOVE  I 

ADDM 

SETOM 

PUT 

60 

GET 


PKFMX3:  GET 
GET 
GET 
RTN 


.BAT(DSBP) 
.BAT'H77(DSBH) 

FRECOR 

DSBSIZ*2 

ACUaACO 

ACUCSIXBIT/HOM/] 

PKFMX4 


ACl,aACO 
AC1,.PKID(DSBP) 

AC1,aAC0 
AC1,.DNAME(DSBP) 

DS8SIZ 

FRECOR 

AUTBAT 

AC 

HRDOUT 

AC3 
AC2 
AC1 


;YES  -  BUILD  A  BLT  WORD  TO 
;SAVE  THE  BAT  BLK  DATA 
;ZAP...ITS  SAVED! 

; PREPARE  TO  LOOK  AT  THE  "HOM"  BLK 
.•POINT  TO  ••HOM"  BLK  DATA 
;6ET  THE  1ST  HOM  BLK  WORD 
;IS  IT  THE  HOME  BLOCK?? 
;N0  -  EXIT 

;YES  -  POINT  TO  THE  2ND  WORD  IN  HOM  BLK 

;GET  THE  PACK  NAME 

;SAVE  THE  NAME 

;POINT  TO  STR  NAME 

;GET  IT 

;AND  SAVE  IT 

;YES  -  UPDATE  FRECOR 

.•UPDATE  FRECOR  ADDR. 

;SET  THE  AUTO  PROCESS  FLAG 

;SAVE  IMPORTANT  AC 

;AND  DELETE  THE  HARD  SPOTS 


.•RESTORE  AC'S  USED 


.•DISK  PACK  FORMAT  IS  KNOWN... SET  THE  PROPER  'DSBTBL"  STATUS  BITS 


PKFRMB:  MOVE 
SKIPN 
TLO 
SKIPE 
TLZ 
TLZ 
JRST 


DSBTBL(DRIVE) 

TENFLG 

(.F11) 

TENFLG 

(.FID 

(.VIRG) 

PKFMEX 


.-GET  THE  STATUS  BITS 

;IS  IT  PDP-10  FORMAT? 

;N0  -  IT  MUST  BE  PDP-11  FORMAT 

.•CLEAR  THE  BIT  IF  PDP-10  FORMAT 
;CLEAn  THE  UNKNOWN  FORMAT  BIT 
;AND  EXIT 


PKFRISE: 


PMSGF 

GO 

JRST 


<*MASSBUS  CONTROLLER  ERROR  DETECTED 

MBCCLR 

PKFRMA  ;TRY  AGAIN 


-  SHOULD  BE  CLEARED> 
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SEQ   0302 


r 

D 
D 


8859 

8860 

8861 

8862 

8863 

886A 

8865 

8866 

8867 

8868 

8869 

8870 

8871 

8872 

8873 

8874 

8875 

8876 

8877 

8878 

8879 

8880 

8881 

8882 

8883 

8884 

8885 

8886 

8887 

8888 

8889 

8890 

8891 


042657 
042660 
042661 
042662 
042663 
042664 
042665 


042666 
042667 
042670 
042671 
042672 
042673 
042674 
042675 
042676 
042677 
042700 
042701 
042702 

042703 
042704 


261 
201 
332 
435 
260 
262 
263 


17 
01 
00 
01 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
CO 


000001 
002000 
077722 
000600 
063*^22 
000001 
000000 


261  17 
336  00 
254  00 
550  01 
260  17 
254  00 
332  00 
254  00 
336  00 
254  00 
550  01 
661  01 
260  17 


00 
00 
00 
10 
00 
00 
00 
00 
00 
00 
10 
00 
00 


000001 
077722 
042674 
000002 
063455 
042703 
030040 
042700 
030041 
042703 
000002 
000002 
063402 


♦MBCCLR  -  ROUTINE  TO  CLEAR  THE  MASSBUS  CONTROLLER  (EITHER  RHIO  OR  RH20) 
/If************************************************************************ 


MBCCLR: 


PUT 

MOVE  I 

SKIPE 

lORI 

GO 

GET 

RTN 


AC1 

AC1-RHCLR 

RH20 

AC1,MBE!RCLPA 

.CONO 

ACl 


•SAVE  ACl 

;•  PREPARE  TO  CLEAR  THE  RH10 

;IS  IT  AN  RH20  TYPE? 

;YES  -  NOW  ENABLE  THE  MASSBUS 

.•EXECUTE  THE  COMMAND 

.•RESTORE  ACl 

;AND  EXIT 


/If************************************************************************ 
*LDVECT  —  ROUTINE  TO  LOAD  THE  INTERRUPT  VECTOR  ADDR  IF  NECESSARY 
4f***********************************************^- ********  **************** 


LDVECT: 


262  17  0  00  000001 

263  17  0  00  000000 


LDVCCX: 


PUT 

ACl 

SKIPN 

RH20 

JRST 

.+4 

HRRZ 

AC1..IVAR(CSBP) 

GO 

LDIVR6 

JRST 

LDVECX 

SKIPE 

KAIFLG 

JRST 

.+3 

SKIPN 

KLFLG 

JRST 

LDVECX 

HRRZ 

AC1..IVAR(CSBP) 

TLO 

AC1.(1B16) 

GO 

LDIAR 

GET 

ACl 

RTN 

;SAVE  ACl 

;MBC  =  RH20?? 

.-NOPE 

.-GET  THE  VECTOR  ADuRESS 

;LOAD  THE  RH20  VECTOR  ADDRESS 

.-AND  EXIT 


.-NOPE  -  EXIT 

.YES  -  GET  THE  ADDRESS 

;SEi  KI  :.KJ   BIT 

.-LOAD  THE  VECTOR  ADDRESS  IN  RHIO 
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SEQ  0303 


C 
C 


8892 

8893 

8894 

8895 

8896 

8897 

8898 

8899 

8900 

8901 

8902 

8903 

8904 

8905 

8906 

8907 

8908 

8909 

8910 

8911 

8912 

8913 

8914 

8915 

8916 

8917 

8918 

8919 

8920 

8921 

8922 

8923 

8924 

8925 

8926 

8927 

8928 

8929 

8930 

8931 

8932 

8933 

8934 

8935 

8936 

8937 

8938 

8939 

8940 

8941 


042705 
042706 
042707 
042710 
042711 
042712 
042713 
042714 
042715 
042716 
042717 
042720 
042721 
042722 
042723 
042724 
042725 

042726 
042727 
042730 
042731 
042732 
042733 
042734 
042735 
042736 
042737 
042740 
042741 
042742 
042743 
042744 
042745 
042746 

042/47 
042750 
042751 
042752 
042753 
042754 
042755 


336 
263 
261 
261 
261 
202 
201 
260 
200 
332 
200 
260 
367 
262 
262 
262 
263 

336 
263 
261 
261 
261 
261 
2o' 
261 
200 
336 
200 
200 
200 
200 
402 
220 
254 

262 
262 
262 
262 
262 
262 
263 


00 
17 
17 
17 
17 
00 
00 
17 
01 
00 
01 
17 
02 
17 
17 
17 
17 

00 
17 
17 
17 
17 
17 
17 
17 
01 
00 
01 
02 
03 
04 
00 
00 
00 

17 
17 
17 
17 
17 
]7 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 


000000 
000000 
000000 
000001 
000002 
000002 
000001 
042726 
072103 
077721 
072104 
063547 
042713 
000002 
000001 
000000 
000000 

000000 
000000 
000000 
000001 
000002 
000003 
000004 
000005 
072105 
030041 
067656 
072106 
072107 

072110 
000005 
100041 
000001 

000005 
000004 
000003 
000002 
000001 
000000 
000000 


!-*WAIT«S  —  ROUTINE  TO  "WAIT"  FOR  (UP  TO)  A  SPECIFIED  AMOUNT  OF  TIME 

;♦      ACO  CONTAINS  THE  TIME  IN  MILLI-SfcCONDS 

•4f*»* **♦**♦♦*«**♦*♦**»♦♦♦♦ ♦**♦♦♦♦♦**♦♦♦*♦♦*♦*♦**♦♦♦**♦♦**♦♦*♦***♦♦*♦♦♦♦*♦♦ 


yAITMS:  SKIPN 
RTN 
PUT 
PUT 
PUT 
MOVEM 

WAITA:  MOVE  I 
GO 
MOVE 
SKIPE 
MOVE 
GO 
SOJG 
GET 
GET 
GET 
RTN 


WAITIT: 


yAITEX: 


SKIPN 

RTN 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

MOVE 

SKIPN 

MOVE 

MOVE 

MOVE 

MOVE 

SETZM 

IMUL 

JRST 

GET 
GET 
GET 
GET 
GET 
GET 
RTN 


ACO 

AC1 

AC2 

AC2 

1 

WAITIT 

AC1.CDRATTN1D0NEJ 

RH10 

ACUCATTNIDONE] 

.CONSO 

AC2, WAITA 

AC2 

AC1 

ACO 


ANY  TIME?? 

NO  -  EXIT 

YES  -  SAVE  SOME  AC'S 


SAVE  THE  TIME  TO  WAIT 

GET  1  MSEC  TIME 

STALL  FOR  1  MSEC 

NOW  SEE  IF  MBC  HAS  ATTN  OR  DONE  UP 

AM  I  AN  RH10?? 

YES 

DO  A  CONSO  MBC, AT TNI  DONE 

NO  -  WAIT  ANOTHER  1  MSEC 


ACO 

AC1 

AC2 

AC3 

AC4 

AC5 

AC1,[SKIP  TICKS(AC5)] 

KLFL6 

AC1,CC0NS0  APR  J 

AC2, [CONSO  540J 

AC3,LS0JN  AC0,AC1] 

AC4,[JRST  WAITEX] 

AC5 

ACOJIMCNT 

AC1 

AC5 
AC4 
AC3 
AC2 

AC1 
ACO 


ANY  TIME  CALLED? 

NO  -  EXIT 

YES  -  SAVE  SOME  AC'S 


;LOAD  THE  TIMER  INTO  THE  AC'S 

;CPU  IS  A  KA  OR  KI 

;6ET  A  DUMMY  MASSBUS  CMD 


,CALC  THE  AMOUNT  OF  LOOPS  NEEDED 
;START  THE  TIMER 


;EXIT 


Murmwmi.ni)— »««»m«» 
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SEQ  0304 


[ 


8942 

8943 

8944 

8945 

8946 

8947 

8948 

8949 

8950 

8951 

8952 

8953 

8954 

8955 

8956 

8957 

8958 

8959 

8960 

8961 

8962 

8963 

8964 

8965 

8966 

8967 

8968 

8969 

8970 

8971 

8972 

8973 

8974 

8975 

8976 

8977 

8978 


042756 
042757 
042760 

042761 
042762 
042763 
042764 
042765 
042766 
042767 
042770 
042771 
042772 
042773 
042774 


403  01  0  00  000015 
336  00  0  00  030041 
254  00  0  00  043036 


200  00 
037  13 

402  00 
200  01 
200  02 
200  03 
200  04 

403  07 
336  00 
254  00 
402  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


067545 
000004 
000000 
072106 
072111 
067654 
072112 
030054 
030054 
042771 
030054 
000001 


042775  202  00  0  00  077740 

042776  402  00  0  00  000000 

042777  037  13  0  00  000004 


043000  7  024  20  0  00  005000 

043001  201  01  0  00  377000 

043002  271  01  0  00  000510 

043003  402  00  0  01  000000 

043004  402  00  0  01  000001 

043005  7  024  20  0  00  002000 


SUBTTL  ROUTINE  TO  CALIBRATE  THE  SYSTEM  CLOCK 

)*SETTIM  —  CLOCK  CALIBRATION  FOR  A  KAIO,  KI10,  OR  KLIO  POWER 
;•♦     LINE  CLOCK.  USES  "MTROP"  FOR  KLiO 


SETTIM:  SETZB 
SKIPN 
JRST 

MOVE 

CLOKOP 

SET2M 

MOVE 

MOVE 

MOVE 

MOVE 

SETZB 

SKIPN 

JRST 

SETZM 

JRST 


ACKREPT 

KLFL6 

SETKAI 

CAOS  TICKS] 

ACO 

ACKCCONSO  540  J 

AC2,CSKIPN  TICKS(7)] 

AC3,CA0JA  AC1] 

AC4,CJRST  STMKLl] 

AC7, TICKS 

TICKS 

.-1 

TICKS 

AC1 


.•CLEAR  SOME  WORK  AC'S 

;KL10?? 

;N0 

;6ET  THE  KL  INST»^UCTION  FOR  MTROP 

;INIT  THE  KL  CLOCK 

; CLEAR  THE  COUNTER 

;LOAD  THE  AC'S  WITH  THE  COUNT  LOOP 


STMKLl:  MOVEM  SAVTIM# 

SETZM 
CLOKOP 

;TURN  ON  TIME  BASE  METER  FOR  PTIME 

CONO  24,5000 

MOVEI  AC1, 377000 

ADDI  AC1-510 

SETZM  (ACT) 

SETZM  KACD 

CONO  24,2000 


;STAY  HERE  TILL  CLOCK  TICKS 

; CLEAR  THE  FLAG 
; START  TIMING  NOW 

;SAVE  THE  COUNT 
.-KILL  THE  CLOCK 


;STOP  METER  ♦  CLEAR 
;GET  BASE  ADDR  FOR  EPT 
.•OFFSET  FOR  METER  READING  LOCS 
.•CLEAR  THE  LOCATIONS  ZAP  ZAP 

.-START  THE  METER 


r 


r 
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SEQ  0305 


8979 

8980 

8981 

8982 

8983 

8984 

8985 

8986 

8987 

8988 

8989 

8990 

8991 

8992 

8993 

8994 

8995 

8996 

8997 

8998 

8999 

9000 

9001 

9002 

9003 

9004 

9005 

9006 

9007 

9008 

9009 

9010 

9011 

9012 

9013 

9014 

9015 

9016 

9017 

9018 

9019 

9020 

9021 

9022 


043006 
043007 
043010 
04301 1 
043012 
04301 3 
043014 
04301 5 
043016 

043017 
043020 
043021 
043022 
043023 
043024 
043025 
043026 
043027 
043030 
043031 
043032 
043033 
043034 
043035 

043036 
043037 
043040 
043041 
043042 

043043 
043044 
043045 

043046 
043047 
043050 
043051 

043052 
043053 


200  01  0 
402  00  0 


336  00 
332  00 
254  00 
037  10 
603  00 
476  00 
254  00 

332  00 
476  00 
221  01 
332  00 
231  01 
336  00 
231  01 


221 
231 


01 
01 


202  01 

201  00 
336  00 
350  00 

202  00 
263  17 


0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  077740 
00  000015 
00  030041 
00  030040 
00  043017 
00  000002 
00  000002 
00  000015 
00  043021 

00  030505 
00  000015 
00  001750 
00  030041 
00  001750 
00  030041 
00  001750 
15  000006 
00  000144 
00  100041 
00  000005 
00  000015 
00  000000 
00  077622 
00  000000 


402  00  0  00  000000 
200  01  0  00  072113 
200  02  0  00  072114 
2uJ  03  0  00  067654 
200  04  0  00  072115 

7  000  34  0  00  001000 
254  00  0  00  043043 
7  000  20  0  00  001000 

7  000  34  0  00  001000 

254  00  0  00  043046 

7  000  20  0  00  001000 

254  00  0  00  000001 

202  00  0  00  077740 
254  00  0  00  043006 


SETTM1 : 


SETKAI: 


STMKAI: 


MOVE 

AC1,SAVTIM 

SETZM 

REPT 

SKIPN 

KLFLG 

SKIPE 

KAIFL6 

JRST 

.-^5 

SWITCH 

TLNE 

KAHZ50 

SETOM 

REPT 

JRST 

•"^3 

SKIPE 

CYCL60 

SETOM 

REPT 

IMULI 

AC1,*D1000 

SKIPE 

KLFLG 

IDIVI 

AC1,*D1000 

SKIPN 

KLFLG 

IDIVI 

AC1,*D1000 

IMULI 

AC1,*D6(REPT) 

IDIVI 

AC1,*D100 

MOVEM 

ACUIMCNT 

MOVE  I 

5 

SKIPN 

REPT 

AOS 

MOVEM 

HERTZ 

RTN 

SETZM 

ACO 

MOVE 

AC1,  :CONSO  270 J 

MOVE 

AC2,  :CONSO  CLKJ 

MOVE 

AC3,:A0JA  AC12 

MOVE 

AC4,CJRST  STMKAn 

CONSO 

APR,CLK 

JRST 

.-1 

CONO 

APR,CLKCLR 

CONSO 

APR,CLK 

JRST 

.-1 

CCNO 

APR,CLKCLR 

JRST 

AC1 

MCVEM 

SAVTIM 

JRST 

SETTM1 

;GET  THE  TICK  COUNT 

•KLIO*" 

)0R  POSSIBLY  A  KA10?? 

;NOPE  -  MUST  BE  EITHER  A  KL  OR  KI 

;GET  THE  SWITCHES 

;KA10  50  HZ  POWER?? 

;YUP 


KI  OR  KL  50  HZ  POWER? 

YUP 

CALC  CONVERSION  FOR  1  MILLISECOND 

KL10  CPU? 

YES  -  NO  SLOP 

KA/KI  CPU? 

YES  -  KA/KI  NO  SLOP 

X  6  OR  5 

CHANGE  TO  1  MSEC  COUNT 
SAVE  THE  1  MSEC  TICK  COUNT 

50  HERTZ? 
NO 


; CLEAR  THE  COUNTER 

;THEN  LOAD  THE  COUNT  LOOP 


.•CLOCK  TICK?? 

;NOT  YET  ...  WAIT  FOR  IT 

;YES  -  CLEAR  IT 

;CLOCI(  TICK  AGAIN? 
;NOT  YET! 
;YES  -  CLEAR  IT 
.•START  TIMING  NOW 

.-SAVE  THE  COUNT 


DDRPI  - 
DDRPI3 

9023 

9024 

9025 

9026 

9027 

9028 

9029 

9030 

9031 

9032 

9033 

9034 

9035 

9036 

9037 

9038 

9039 

9040 

9041 

9042 

9043 

9044 

9045 

9046 

9047 

9048 

9049 
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SUBTTL  MASSBUS  CONFIGURATION  PRINTER/REPORTER        . 


SEQ  0306 


043054 
043055 
043056 


043057 
043060 
043061 
043062 

043063 
043064 

043065 
043066 
043067 
043070 
04307- 
043072 


403  13  0  00  077575 
332  00  0  00  077656 
254  00  0  00  043241 


332  00  0  00  077721 

037  04  0  00  072116 

332  00  0  00  ^iini 

037  04  0  00  072117 

037  04  0  00  072120 

200  15  0  00  100671 


200  00 
603  00 
254  00 
350  00 
367  15 
254  00 


0  13  100747 
0  00  000301 
0  00  043106 
0  00  000013 
0  00  043065 
0  00  043241 


♦••*•• 


•  /(ft**************************************************************** 
)*C0NPRT  —  THIS  ROUTINE  WILL  REPORT  THE  MASSBUS  CONFIGURATION 
*     TO  THE  USER  AND  ASK  "WHAT  DRIVE"  IS  TO  BE  USED  FOR  TESTING. 

;/|f************************************************************************ 


CONPRT:  SETZB  DRIVE, DRCNT 

SKIPE  ONCE 

JRST  SHTPRT 

;PRINT  A  LONG  CONFIGURATION  MAP 


SKIPE 
PMSGF 
SKIPE 
PMSGF 

PMSGF 
MOVE 

CPRTA:  MOVE 
TLNE 
JRST 

CPRTAX:  AOS 

REPTLP 
JRST 


RH10 
<*RH10> 
RH20 
<*RH20> 


;FIRST  TIME  HERE? 

;N0  -  PRINT  SHORT  CONFIGUnATION 


;RH10  CONTROLLER? 
;RH20  CONTROLLER? 


r-  > 


<  MASSBUS  CONFIGURATION*MBC  -  DR  -  STATUS  OF  UNIT  FOUND' 
REPT,DRMAX  ;SETUP  LOOP  COUNTER 


^> 


DSBTBL(DRIVE) 

(.RP04I.RP05I.RP06) 

CPRTB 

DRIVE 

CPRTA 

SHTPRT 


;GET  DRIVE  STATUS  BITS 

;UNIT  RESPOND? 

; YES-REPORT 

; NO-BUMP  DRIVE  # 

;YEILD  A  SUMMARY  TO  OPR 
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SEO  0307 


9050 

9051 

9052 

9053 

9054 

9055 

9056 

9057 

9058 

9059 

9060 

9061 

9062 

9063 

9064 

9065 

9066 

9067 

9068 

9069 

9070 

9071 

9072 

9073 

9074 

9075 

9076 

9077 

9078 

9079 

9080 

9081 

9082 

9083 

9084 

9085 

9086 

9087 

9088 

9089 

9090 

9091 

9092 

9093 


043073 
043074 
043075 
043076 
043077 
043100 
043101 
043102 
043103 
043104 
0431  .5 


043106 
043107 
043110 
043111 
043112 
043113 
0431 K 
043115 
043116 
043117 
043120 
043121 
043122 
043123 
043124 
043125 


043126 
043127 
043130 
04313^ 
043 1 32 
043133 


260  17  0 
200  00  0 
336  00  0 
606  00  0 
263  17  0 
037  04  0 
402  00  0 
402  00  0 
037  02  0 
260  17  0 
263  17  0 


332  00 
254  00 
332  00 
201  12 
350  00 
200  06 
405  06 
242  06 
273  12 
254  00 
200  06 
l^i  06 
242  06 
271  06 
602  06 
271  06 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  043306 
00  030046 
00  030037 
00  200000 
00  000000 
00  072132 
00  101161 
00  101162 
00  000003 
00  044016 
00  000000 


00  077721 
00  043120 
00  077722 
00  000540 
00  077575 
00  000013 
00  000070 

00  mill 

00  000006 
00  043126 
00  000013 
00  11111^ 
00  000002 
00  000270 
00  000100 
00  000060 


200  00  0  00  000006 
037  03  0  00  000001 
137  06  0  00  070150 
513  00  0  00  000012 
037  01  0  00  000055 
037  01  0  00  000040 


•CONFIGURATION  EXIT 

./|f*»****»***»************t  *********************************  *************** 


CPRTEX:  GO 
MOVE 
SKIPN 
TRNN 
RTN 
PMSGF 
SETZM 
SETZM 
TTINO 
GO 
RTN 


TTIDRV  ;INPUT  DRIVE  *'S  FROM  OPR 

CONSW  ;GET  THE  SWITCHES  IN  USE 

USER  ;IN  USER  MODE?? 

VARIAB  .-VARIABLES?? 

;EXIT  WITHOUT  ASKING  OFFSET  QUESTION 

<*ISSUE  OFFSET  TO  ALL  READ  COMMANDS?  > 

.OFSET  .-CLEAR  ANY  EXISTING  OFFSET  VALUE 
.0FST1 


SETOFF 


;YES  -  GET  THE  VALUE 
;EXIT 


./(f*»»*»******»*********  ♦♦♦♦♦♦*♦*♦**♦»♦***********************♦****  ******** 


CPRTB: 


CPRTB1 


SKIPE 

JRST 

SKIPE 

MOVE  I 

AOS 

MOVE 

AND  I 

LSH 

ADDB 

JRST 

MOVE 

LSH 

LSH 

ADDI 

TRNE 

ADDI 


RH10 
CPRTB1 
RH20 

MBCN.RHO 
DRCNT 
AC. DRIVE 
AC,  70 
AC.-1 
MBCN.AC 
CPRTBA 
AC. DRIVE 
AC. -3 
AC. 2 
AC.RMO 
AC. 100 
AC. 60 


.-PRINT  THE  MBC  NUMBER 

CPRTBA;  MOVE  AC 
PNT3F 

DPB  AC. [POINT  9.MBCN.11] 

HLLZS  MBCN 

PNTCIF  ••-" 
PSPF 


RH10? 

LOAD  RHIO  DEVICE  CODE 

RH20? 

LOAD  MBC  #  FOR  RH20 

UPDATE  DRIVE  COUNT 

EXTRACT  THE  MBC  UNIT  H 

FROM  DRIVE  NUMBER 

AND  UPDATE  'TIBCN" 

MBC  NOW  CORRECT  FOR  THIS  DRIVE 

GET  THE  DRIVE  NUMBER 
SAVE  JUST  THE  MBC  NUMBER 

GET  1ST  RHIO  DEVICE  # 
UPPER  OR  LOWER  RANGE?? 
UPPER  -  CORRECT  THE  NUMBER 


GET  THE  MBC  NUMBER 

PRINT  CONTROLLER  NUMBER 

SAVE  THE  MBC  #  CORRECTED 

SAVE  ONLY  THE  LEFT  SIDE  OF  MBCN 
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SEQ  0308 


9094 

9095 

9096 

9097 

9098 

9099 

9100 

9101 

9102 

9103 

9104 

9105 

9106 

9107 

9108 

9109 

9110 

9111 

9112 

9113 

9114 

9115 

9116 

9117 

9118 

9119 

9120 

9121 

9122 

9123 

9124 

9125 

9126 

9127 

9128 

9129 

9130 

9131 

9132 

9133 

9134 

9135 

9136 

9137 

9138 


043134  200  00  0  00  000013 

043135  037  02  0  00  000001 

043136  037  01  0  00  000055 

043137  037  01  0  00  000040 


043140 

043141 

043142 

043143 

043144 

043145 

043146 

043147 

043150 

043151 

043152 

043153 

0''.5154 

0^3155 

043156 

043157 

043160 

043161 

043162 

043163 

043164 

043165 

043166 

043167 
043170 
043171 
043172 
043173 
043174 
043175 
043176 
043 1 77 
043200 
043201 


200  02 
607  02 
254  00 
603  02 
037  02 
603  02 
037  02 
603  02 
037  02 
550  11 
336  00 
254  00 
037  01 
254  00 
550  01 
260  17 
603  02 
037  04 
037  04 
603  02 
0:>'  04 
607  02 
037  04 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


13 
00 
00 
00 
00 
00 
00 
00 
00 
13 
00 
00 
00 
00 

11 

00 
00 
00 
00 
00 
00 
00 
00 


100747 

000301 

043216 

000001 

071661 

000200 

071660 

000100 

071657 

100747 

030037 

043156 

000040 

043160 

000010 

065772 

100000 

072141 

072143 

004000 

072145 

004000 

072147 


603  02  0 
037  04  0 
603  02  0 
037  04  0 
607  02  0 
254  00  0 
037  04  0 
607  02  0 
254  00  0 
037  04  0 
254  00  0 


00  002000 
00  072151 
00  001000 
00  072154 
00  100000 
00  043214 
00  072156 
00  010000 
00  043202 
00  072161 
00  043214 


;PRINT  DRIVE  NUMBER  OF  RESPONDING  DRIVE 


CPRTBB:   MOVE 
PNT2F 
PNTCIF 
PSPF 


DRIVE 


;GET  DRIVE   THAT  RESPONDED 
;PRINT  DRIVE  NUMBER 


; PRINT  DRIVE   TYPE 

CPRTBC:   MOVE  AC2,DSBTBL(DRIVE) 

TLNN  AC2,(.RP04I .RP051 .RP06) 

JRST  CPRTC 

TLNE  AC2.(.RP04) 

PMSG  <RP04> 

TLNE  AC2-(.RP05) 

PMSG  <RP05> 

TLNE  AC2.(.RP06) 

PMSG  <RP06> 

HRRZ  DSBP,DSBTBL(DRIVE) 

SKIPN  USER 

JRST  .+3 

PSPF 

JRST  .+3 

HRRZ  AC1,.DSN(DSBP) 

GO  RIOSER 

TLNE  AC2,(.0NLN) 

PMSGF  <(ONLINE)> 

PMSGF  <,   WRT  > 

TLNE  AC2,(.WRTL) 

PMSGF  <PROTECTED> 

TLNN  AC2,(.WRTL) 

PMSGF  <ENABLED> 

TLNE  AC2,(.SWRTL) 

PMSGF  <,   PGM  WRT  LOCKED> 

TLNE  AC2,(.DUAL) 

PMSGF  <,   DUAL  PORT> 

TLNN  AC2,(.0NLN) 

JRST  CPRTBE 

PMSGF  <*♦♦*♦♦♦♦#♦♦  > 

TLNN  AC2-(.VIRG) 

JRST  CPRTBD 

PMSGF  <UNKNOWN  PACK   FORMAT> 

JRST  CPRTBE 


;GET  DRIVE  STATUS  BITS 
;IS   IT  A  SUPPORTED  DRIVE? 
;N0  -  GO  AROUND  SOME   CODE 


;SETUP  DRIVE  DSB  POINTER 

;IN  USER  MODE?? 

;N0  -  PROCEED 

;YES  -  PRINT  A  SPACE 

;AND  SKIP  SOME  CODE 

;GET  THE  DRIVE  SERIAL  NUMBER 

.-PRINT  SERIAL  NUMBER 

.•DRIVE  ONLINE? 


.•DRIVE  WRITE-LOCKED? 


;PGM  WRITE-LOCKED? 

.-DUAL  PORT? 

;0N  LINE? 

;N0  -  QUIT  NOW 

.•KNOWN  FORMAT? 
;YES 


imf^im'i^  m*'i'*i» 
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;PDP-11    FORMATTED  PACK? 


SEQ  0309 


9139 
9140 

043202 

603  02  0  00  020000 

CPRTBD:   TLNE 

AC2,(.F11) 

9141 

043203 

037  04  0  00  072165 

PMSGF 

<11> 

9142 

043204 

607  02  0  00  020000 

TLNN 

AC2,(.F11) 

9143 

043205 

037  04  0  00  072166 

PMSGF 

<10> 

9144 

043206 

037  04  0  00  072167 

PMSGF 

<  FORMATTED> 

9145 

043207 

332  00  0  00  030037 

SKIPE 

USER 

9146 

043210 

254  00  0  00  043214 

JRST 

CPRTBE 

9147 

043211 

037  04  0  00  072171 

PMSGF 

<  BY> 

9148 

043212 

200  01  0  11  000020 

MOVE 

AC1,.PKSN(DSBP) 

9149 
9150 
9151 

043213 

260  17  0  00  065772 

GO 

R10SER 

043214 

037  01  0  00  030242 

CPRTBE:   PCRLF 

9152 
9153 
9154 

043215 

254  00  0  00  043070 

JRST 

CPRTAX 

043216 

603  02  0  00  000002 

CPRTC:      TLNE 

AC2.(.RS04) 
<RS04> 

9155 

043217 

037  04  0  00  072172 

PMSGF 

9156 

043220 

603  02  0  00  000004 

TLNE 

AC2,(.TU16) 
<TU16> 

9157 

043221 

037  04  0  00  072173 

PMSGF 

9158 

043222 

603  02  0  00  000010 

TLNE 

AC2,(.UNKN) 

9159 

043223 

037  04  0  00  072174 

PMSGF 

<UNKNOWN  UNIT  TYPE> 

9160 

043224 

037  04  0  00  072177 

PMSGF 

<   (CAN'T   TEST)'^> 

9161 

043225 

332  00  0  00  030037 

SKIPE 

USER 

9162 

043226 

254  00  0  00  043070 

JRST 

CPRTAX 

9163 

043227 

205  01  0  00  060000 

MOVSI 

AC1,(DRDT) 

9164 

043230 

260  17  0  00  057135 

GO 

DRREG 

9165 

043231 

254  00  0  00  043214 

JRST 

CPRTBE 

9166 

045232 

254  00  0  00  043227 

JRST 

.-3 

9167 

043233 

606  01  0  00  007777 

TRNN 

AC  1,7777 

9168 

043234 

254  00  0  00  043237 

JRST 

.-►3 

9169 

043235 

2oJ  17  0  00  064523 

GO 

REGPNT 

9170 

043236 

254  00  0  00  043070 

JRST 

CPRTAX 

9171 

043237 

037  02  0  00  072202 

PMSG 

<POSSIBLY  A  MASSBUS  DEVI 

9172 

043240 

254  00  0  00  043070 

JRST 

CPRTAX 

;IN  USER  MODE?? 

;YES  -  SKIP  SOME  CODE 

;GET  SN  WHERE   FORMATTED 
;PRINT  WHERE   FORMATTED 


.•PROCESS  NEXT  DRIVE 

;IS   IT  AN  RS04? 

;IS   IT  A  TU16? 

.•UNKNOWN  MASSBUS  UNIT   TYPE? 

;USER  MODE? 

;YES  -  EXIT  NOW 

;N0  -  READ   THE  DRIVE   TYPE  REG 

.•READ  THE  DRIVE  TYPE  AGAIN 

; FATAL 

.-ANY  DRIVE   TYPE  AT  ALL? 

;AND  PRINT   IT 

CE   SELECTED   TO  OTHER  PORT''> 


W>«ii  HW  I.  M  «WWrtii« 


ii»»i»iiil.-  I'.lilKWii  i!>i|iiir-i||i>jmiiilliiri 


DDRPl   - 
DORP 1 3 

9173 

91 7A 

9175 

9176 

9177 

9178 

9179 

9180 

9181 

9182 

9183 

91 8A 

9185 

9186 

9187 

9188 

9189 

9190 

9191 

9192 

9193 

91 9A 

9195 

9196 

9197 

9198 

9199 

9200 

9201 

9202 

9203 

9204 

9205 

9206 

9207 

9208 
9209 
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)*SHTPRT  —  HERE   STARTS  THE   SHORT   (SUWWARY)    CONFIGURATION  PRINTER 


SEQ  0310 


043241  260  17  0  00  043605 

043242  403  13  0  00  077671 

043243  200  15  0  00  100671 

043244  402  00  0  00  077575 

043245  200  02  0  13  100747 

043246  603  02  0  00  100000 

043247  260  17  0  00  043256 

043250  350  00  0  00  000013 

043251  367  15  0  00  043245 

043252  332  00  0  00  077575 

043253  254  00  0  00  043073 

043254  037  04  0  00  072213 


043255  037  15  0  00  0C0004 


043256  603  02   0  00  000301 

043257  260  17  0  00  043261 
043260  263  17  0  00  000000 


SHTPRT:  GO 

SETZB 

NOVE 

SETZM 


SPRTA: 


MOVE 

TLNE 

GO 

AOS 

REPTLP  SPRTA 


SELPRT 

DRIVE, PFRST# 
REPT.DRMAX 
DRCNT 

AC2,DSBTBL(DRIVE) 

AC2,(.0NLN) 

SPRT8 

DRIVE 


SKIPE 
JRST 


DRCNT 
CPRTEX 


;TELL  OPR  WHAT  DRIVES  ARE  SELECTED 
;GET  #  OF  DRIVES  AVAILABLE 


;GET  DRIVE  STATUS 

;DRIVE  ONLINE? 

;YES  -  REPORT 

;BU«P  DRIVE  # 

;LOOP  TILL  ALL  CHECKED 

;ANY  DRIVES? 
;YES-EXIT  THIS  SECTION 


<*N0  DRIVE'S  AVAILABLE  FOR  TESTING. . .ABORTING> 


PMSGF 
FATL 

'       fffff            A  TTTTT     A  L      i 

F       A  A  T      A  A  L       | 

F  AA  AA  T  AA  AA  L 

fff  AAAAA  T  AAAAA  L 

F  A   A  T  A   A  L 

F  A   A  T  A   A  L 

F  A   A  T  A   A  LLLLL   I 
•#••*♦»*♦♦»•»•♦**•*•••♦♦♦•#♦*•♦••••♦♦•♦♦♦♦•♦♦•♦♦♦•*•••♦♦*♦♦♦•*♦*•**•♦♦ 


SALL 
SPRT8: 


FATAL 


TLNE 
GO 

RTN 


AC2,(.RP04!.RP051.RP06)  ;IS  THE  DRIVE  SUPPORTED  ? 
PDRV  ;YES  -  REPORT  ITS  EXISTANCE 


8 
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SEQ  0311 


9210 

9211 

9212 

9213 

92U 

9215 

9216 

9217 

9218 

9219 

9220 

92;  1 

9222 

9223 

922A 

9225 

9226 

9227 

9228 

9229 

9230 

9231 

9232 


043261 

043262 

043263 

043264 

043265 

043266 

043267 

043270 

043271 

043272 

043273 

043274 

043275 

043276 

043277 

043300 

043301 

043302 

043303 

043304 
043305 


336  00 
254  00 
037  04 
476  00 
350  00 
200  00 
037  17 
037  01 
603  02 
037  01 
603  02 
037  01 
603  02 
037  01 
607  02 
037  01 
037  01 
260  17 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
CO 
00 
00 
00 
00 
00 
00 
00 


077671 

043304 

066356 

077671 

077575 

00001 3 

000003 

000074 

000001 

000064 

000200 

000065 

000100 

000066 

000301 

000077 

000076 
066117 
000000 


037  04  0  00  072223 
254  00  0  00  043264 


PDRV: 

PDRVA: 
PDRVA1 


PDRVB 


SKIPN 

JRST 

PMSGF 

SETOM 

AOS 

MOVE 

PNTOCF 

PNTCIF 

TLNE 

PNTCIF 

TLNE 

PNTCIF 

TLNE 

PNTCIF 

TLNN 

PNTCIF 

PNTCIF 

GO 

PTN 

PHSGF 
JRST 


PFRST 

PDRVB 

<-  > 

PFRST 

DRCNT 

DRIVE 


•  1^1  • 


;FIRST  DRIVE  FOUND? 

; YES-DON' T  PRINT  LEADING  COMMA 

;SET  FLAG 

; COUNT  THE  DRIVE 

;GET  DRIVE  n 


AC2,(.RP04) 
ti/ii 

AC2,(.RP05) 
AC?.,(.RP06) 
AC2,(.RP041.RP06:.RP05I) 


I  i^t  I 


.SPACE 


<**»»»»*DRIVES  <TYPE>  AVAILABLE   =  > 
PDRVA1 


>9 
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SEQ  0312 


9233 

9234 

9235 

9236 

9237 

9238 

9239 

92A0 

92  A 1 

92  A  2 

92A3 

92AA 

92  A  5 

92A6 

92A7 

92A8 

92A9 

9250 

9251 

9252 

9253 

925A 

9255 

9256 

9257 

9258 

9259 

9260 

9261 

9262 

9263 


0A3306 
0A3307 
0A3310 
0A331 1 
0A3312 
0A3313 
0A331A 

0A3315 
0A3316 

0A3317 
0A3320 
0A3321 
0A3322 

0A3323 
0A332A 
0A3325 
0A3326 


332  00  0 
25A  00  0 
332  00  0 
254  00  0 
336  00  0 
037  OA  0 
332  00  0 


00  0300A3 
00  0A3536 
00  077651 
00  0A3323 
00  077656 
00  072231 
00  077656 


037  OA  0  00  072243 
402  00  0  00  077575 

402  00  0  00  030231 
037  10  0  00  000003 
254  00  0  00  043477 
254  00  0  00  043327 

200  00  0  00  030046 
607  00  0  00  000010 
254  00  0  00  043443 
2:>     00  0  00  043310 


./If*  ♦*«♦♦»♦***•*»*»*•***♦♦•♦♦♦**♦**♦****♦*****«***♦**♦***♦***♦**♦**♦  ******* 

i*TTIDRV  —  ROUTINE  TO  DETERMINE  WHAT  DRIVE  OR  DRIVES 

*  ARE   TO  BE   TESTED.     THE  OPERATOR  IS  REQUIRED  TO  SELECT 
;*  DRIVE(S)    TO  BE   TESTED  BY  TYPING  A  TWO  DIGIT  OCTAL 

*  NUMBER  IN  RESPONSE  TO  THE  'lIHAT  DRIVE"  QUESTION.     NO 

*  OPR  RESPONSE  WILL  TAKE  AN  "ALL  DRIVES"  DEFAULT   IN  EXEC 
;*  MODE  AND  WILL  NOT  DEFAULT  TO  ANY  DRIVES  FOR  ONLINE 

;*  (TIMESHARING)   OPERATION. 

•#******^**t***»********************** ************************************ 


TTIDRV:  SKIPE 
JR3T 
SKIPE 
JRST 
SKIPN 
PMS6F 
SKIPE 


INPLP: 


PMSGF 
SETZM 


TTINUM:    SETZM 
TTSIXB 
JRST 
JRST 

SAMDRV:  MOVE 
TLNN 
JRST 
JHST 


MONCTL  ;DIAG.   MON.   CONTROL? 

TSTALL  ;YUP  -  USE  ALL  DRIVES 

NEWDRV  ;HAS  CONFIGURATION  CHANGED? 

SAMDRV  ;YES 

ONCE  .-PRINT  LONG  IF   FIRST   TIME 

<*WHAT  DRIVE(S)    TO  BE   JESJrj   (00  TO  77,   ALL.   H=HELP)    ?*#> 

ONCE  ;S<IP  IF   LONG  PRINT  WANTED 


<*DRIVE(S)    ?  *> 
DRCNT 

STTCHR 

TTIHI.P 
TTDRV 

CONSW 
OPRSEL 
TYPEXT 
TTIDRV*2 


.•RESET  CHARACTER  TYPED 
.•INPUT   IN  SIXBIT 
; ERROR  INPUT 
.•PROCESS 

;GET  THE   SWITCHES 

.•RUNNING  FROM  THE   SWITCHES? 

;YES  -  EXIT 

;N0  -  ASK  OPR   WHAT   DRIVE 


|HMUMik*<M«MWi« 


il[«1ii   liJIililh      itflllMl  i*»Wli*»WiWM>«i|-|illliMii'iiW>iWiil|»».''iirMM^li>i'i««*»iii 
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SEO  0313 


DC 


9264 

9265 

9266 

9267 

9268 

9269 

9270 

9271 

9272 

9273 

9274 

9275 

9276 

9277 

9278 

9279 

9280 

9281 

9282 

9283 

9284 

9285 

9286 

9287 

9288 

9289 

9290 

9291 

9292 

9293 

9294 

9295 

9296 

9297 

9298 

9299 

9300 

9301 

9302 

9303 

9304 

9305 


043327 

043330 

043331 

043332 

043333 

043334 

043335 

043336 

043337 

043340 

043341 

043342 

043343 

043344 

043345 

043346 

043347 

043350 

043351 

043352 
043353 

043354 
043355 


316  00 
254  00 
316  00 
254  00 
316  00 
254  00 
316  00 
254  00 
316  00 
254  00 
312  00  0 
316  00  0 
254  00  C 
316  00  0 
254  00 
316  00 
254  00 
316  00 
254  00 


0  00  072246 

0  00  043713 

0  00  071152 

0  00  030600 

0  00  072247 

0  00  043676 

0  00  072250 

0  00  043640 

0  00  071153 

0  00  043534 

00  071154 

00  071155 

00  043536 

00  067701 

0  00  043555 

0  00  071156 

0  00  043443 

0  00  072251 

0  00  043746 


202  00  0  00  000006 
200  01  0  00  072252 

602  06  0  00  mill 
254  00  0  00  043475 


043356  134  00  0  00  000001 


043357 
043360 

043361 
043362 

043363 
043364 

043365 
043366 


306  00  0 
254  00  0 

306  00  0 
254  00  0 

306  00  0 
254  00  0 

306  00  0 
254  00  0 


00  000041 
00  043420 

00  000044 
00  043427 

00  000060 
00  043651 

00  000045 
00  043701 


;ACO  CONTAINS  SIXBIT  INPUT  -  UP  TO  SIX  CHARACTERS 


/WEALL/] 

/DDT/] 

/PALL/J 

/LOCKED/] 

/H/] 

/A/] 
/ALL/] 

/SELECT/] 

/SAME/] 

/PACKID/] 


TTDRV:  CAWN  [SIXBIT 

JRST  EALLDR 

CAMN  [SIXBIT 

JRST  ENTDDT 

CAWN  [SIXBIT 

JRST  PALLDR 

CAMN  [SIXBIT 

JRST  TYPWLK 

CAMN  [SIXBIT 

JPST  HLPMS6 

CAME  LSIXBIT 

CAMN  [SIXBIT 

JRST  TSTALL 

CAMN  [SIXBIT 

JRST  TYPSEL 

CAMN  [SIXBIT 

JRST  TYPEXT 

CAMN  [SIXBIT 

JRST  TYPID 

MOVEM  AC 

MOVE  AC1, [POINT  6, AC] 

TRNE  AC,-1 

JRST  TYPHLP 

ILDB  AC1 

CAIN  41 

JRST  ADDDRV 

CAIN  44 

JRST  DROPDR 

CAIN  60 

JRST  WRTLDR 

CAIN  45 

JRST  WRTEDR 


PGM  WRITE  ENABLE  ALL  DRIVES? 

YES  -  DO  IT 

ENTER  DDT? 

YES 

PROTECT  (PGM  WRITE  LOCK)  ALL  DRIVES? 

YES  -  DO  IT 

PRINT  PGM  PROTECTED  DRIVES? 

YES  -  REPORT  WHAT  DRIVES  ARE  WRITE  LOCKED 

NEED  HELP? 

YES  -  PRINT  HELP  BLURB 

ALL  OR 

TEST  ALL  DRIVES? 

YES  -  SET  OPR  SELECT  FOR  ALL 

WANT  TO  KNOW  WHAT  WAS  SELECTED? 

YES  -  REPORT 

TEST  THE  SAME  AS  IN  OPR  SELECTED? 

YES  -  EXIT  NOW 

WANT  TO  REPORT  THE  PACK  ID'S?? 

YES  -  DO  IT  NOW 


;SAVE  INPUT 

;BUILD  A  BYTE  POINTER 

;MORE  THAN  3  CHAR  INPUT? 
;YES  -  ERROR 

;N0  -  GET  FIRST  CHAR 

;IS  IT  A  CHAR  "A"  ?? 

;YES  -  OPR  WANTS  TO  ADD  A  DRIVE 

;IS  IT  A  CHAR  "D"  ?? 

;YES  -  OPR  WANTS  TO  DROP  A  DRIVE 

•IS  IT  A  CHAR  "P"  '^'^ 

•YES  -  OPR  WANTS  t6"wRITE-L0CK  A  DRIVE 

•IS  IT  A  CHAR  "E"  '''' 

•YES  -  OPR  WANTS  TO'WRITE  ENABLE  A  DRIVE 
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SEQ  0314 


9306 

9307 

9308 

9309 

9310 

9311 

9312 

9313 

9314 

9315 

9316 

9317 

9318 

9319 

9320 

9321 

9322 

9323 

9324 

9325 

9326 

9327 

9328 

9329 

9330 

9331 

9332 

9333 

9334 

9335 

9336 

9337 

9338 

9339 

9340 

9341 

9342 

9343 

9344 

9345 

9346 

9347 


043367  301  00  0  00  000020 

043370  303  00  0  00  000027 

043371  254  00  0  00  043475 

043372  405  00  0  00  000007 

043373  202  00  0  00  000013 

043374  134  00  0  00  000001 
04"  75  336  00  0  00  000000 
04!  76  254  00  0  00  043415 

043377  306  00  0  00  000041 

043400  254  00  0  00  043504 

043401  306  00  0  00  000044 

043402  254  00  0  00  043521 

043403  306  00  0  00  000060 

043404  254  00  0  00  043660 

043405  306  00  0  00  000045 

043406  254  00  0  00  043710 

043407  301  00  0  00  000020 

043410  303  00  0  00  000027 

043411  254  00  0  00  043475 

043412  405  00  0  00  000007 

043413  242  13  0  00  000003 

043414  270  13  0  00  000000 

043415  53c  00  0  00  077575 

043416  260  17  0  00  043557 

043417  25'.  00  0  00  043422 

043420  260  17  0  00  043451 

043421  254  00  0  00  043475 

043422  200  00  0  13  100747 

043423  661  00  0  00  400000 
0A3424  202  00  0  13  100747 

043425  350  00  0  00  077575 

043426  254  00  0  00  043437 


TSTDRV:  CAIL 
CAILE 
JRST 
AND  I 
MOVEM 

TYPHLP 

7 

DRIVE 

ILDB 

SKIPN 

JRST 

AC1 
ADNUM 

CAIN 
JRST 

41 
ADDALL 

CAIN 
JRST 

44 
DRPALL 

CAIN 
JRST 

60 
WLKALL 

CATN 
JRST 

45 
WEALL 

CAIL 

CAILE 

JRST 

20 
27 
TYPHLP 

AND  I 
LSH 
ADD 
ADNUM:  SKIPN 
60 
JRST 

7 

DRIVE, 3 
DRIVE, ACO 
DRCNT 
CLRSEL 
ADRV 

ADDDRV:  60 

JRST 

6ETDRN 
TYPHLP 

ADRV:   MOVE 
TLO 
MOVtM 
AOS 
JRST 

DSBTBL (DRIVE) 

(.OPR) 

DSBTBL(DRIVE) 

DRCNT 

TYPCOM 

;TEST  TO  SEE  IF  ITS  A  NUMBER 

;FROM  0  TO  7 

;NOPE  -  ERROR  INPUT 

;AND  STRIP  TO  AN  OCTAL  M 

;AND  SAVE  IT 

;6ET  THE  2ND  CHARACTER  TYPED 

;ANY  2ND  NUMBER? 

;N0  -  SKIP  AROUND  CODE 

;IS  IT  AN  "A"  ?? 

;YES  -  ADD  ALL  ON  A  MBC 

;IS  IT  A  "D"  CHARACTER?? 
;YES  -  DROP  ALL  DRIVES  ON  MBC 

•IS  IT  A  "P"  CHAR  '*'* 

)yES  -  WRT  LOCK  ALL 'DRIVES  ON  MBC  MX 

•IS  IT  A  "E"  CHAR  '''' 

)yES  -  WRT  ENAB  ALL 'DRIVES  ON  MBC  MX 

;NOW  CHECK  TO  SEE  IF  ITS  A  LEGAL 
;OCTAL  NUMBER  FROM  0  TO  7 
;NOPE  -  ERROR  INPUT 

;YES  -  STRIP  TO  1  DIGIT 

;ACO  NOW  HAS  DRIVE  # 
;THIS  THE  FIRST  DRIVE? 
;YES  -  CLEAR  ALL  "OPR"  BITS 


;GET  THE  DRIVE  NUMBER 
;NOPE  -  INPUT  ERROR 

;6ET  DRIVE  STATUS 

;SET  THE  OPR  SELECT  BIT 

.•SAVE  STATUS 

.•COUNT  THE  DRIVE 

;G0  TO  COMMON  PROCESSOR 


r 

Dl 
Dl 


I 
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SEQ  0315 


r 

D 
C 


93A8 

93A9 

9350 

9351 

9352 

9353 

9354 

9355 

9356 

9357 

9358 

9359 

9360 

9361 

9362 

9363 

9364 

9365 

9366 

9367 

9368 

9369 

9370 

9371 

9372 

9373 

9374 

9375 

9376 

9377 

9378 

9379 

9380 

9381 

9382 

9383 

9384 

9385 

9386 

9387 

9388 

9389 

9390 

9591 

9392 

9393 

9394 


043427 
043430 

043431 
043432 
043433 
043434 
043435 
043436 

043437 
043440 
043441 
043442 

043443 
043444 
043445 
043446 
043447 
043450 


043451 
043452 
043453 
043454 
043455 
043456 
043457 

043460 
043461 
043462 
043463 
043464 
043465 

043466 
04346:^ 
043^70 
043471 
043472 
043473 
043474 


260  17  0  00  043451 
254  00  0  00  043475 


200  00 
607  00 
254  00 
621  00 
370  00 
202  00 


0  13  100747 
0  00  400000 
0  00  043437 
0  00  400000 
0  00  077575 
0  13  100747 


200  00  0  00  030231 
405  OU  0  00  000077 
306  00  0  00  000054 
254  00  0  00  043317 


037  01 
260  17 
254  00 
476  00 
402  00 
263  17 


0  00  030242 
0  00  043574 
0  00  043315 
0  00  077656 
0  00  077651 
0  00  000000 


0 
0 
0 
0 
405  00  0 
0 
0 


134  00 
301  00 
303  00 
263  17 


00 
202  CO 


2^i 


00  000001 
00  000020 
00  000027 
00  000000 
00  000007 
00  000003 
00  000013 


134  00  0  00  000001 
332  00  0  00  000000 
254  00  0  00  043466 
242  13  0  00  77777S 
350  00  0  17  000000 
263  17  0  00  000000 

301  00  0  00  000020 
303  00  0  00  000027 
263  17  0  00  000000 
405  00  0  00  000007 
270  13  0  00  000000 
350  00  0  17  000000 
263  17  0  00  000000 


OROPDR:  GO 
JRST 

MOVE 

TLNN 

JRST 

TL2 

SOS 

MOVEM 

TYPCOM:  MOVE 
AND  I 
CAIN 
JRST 

TYPEXT:  PCRLF 
GO 
JRST 
SETOM 
SETZM 
RTN 


GETDRN 
TYPHLP 

DSBTBL (DRIVE) 

(.OPR) 

TYPCOM 

(.OPR) 

DRCNT 

DSBTBL (DRIVE) 

$TTCHR 
77 

TTINUM 


ANYDRV 
INPLP 
ONCE 
NEWDRV 


;GET  THE  DRIVE  ft 
; ERROR  RETURN 

;6ET  DRIVE  STATUS 

;IS  THE  DRIVE  SELECTED? 

;N0  -  SKIP  OVER  CODE 

;YES  -  CLEAR  THE  OPR  SELECT  BIT 

; CORRECT  THE  DRIVE  COUNTER 

;SAVE  THE  CORRECTED  STATUS 

;GET  LAST  CHAR  TYPED 

;WAS  IT  A  COMMA? 

; YES-INPUT  ANOTHER  DRIVE 


;SEE  IF  ANY  SELECTED  DRIVES 
;N0  -  ASK  OPR  TO  SELECT  ONE 
;SET  THE  FIRST  TIME  FLAG 
;CLEAR  THE  '>JEW  DRIVE  FLAG 
;EXIT  THE  CONFIGURATION  PRINTER 


.•ROUTINE  TO  EXTRACT  A  DRIVE   AND  LOAD  IT  INTO  'DRIVE' 


GETDRN:  ILDB 
CAIL 
CAILE 
RTN 
AND  I 
LSH 
MOVEM 

ILDB 

SKIPE 

JPST 

LSH 

AOS 

RiN 

CAIL 

CAILE 

RTN 

AND  I 

ADD 

AOS 

RTN 


AC1 

20 

27 

7 
3 

DRIVE 

AC1 

.+4 

DRIVE, -3 
(P) 


20 
27 


DRIVE, AGO 
(P) 


;6ET  THE  1ST  DRIVE  * 
;AND  RANGE  CHECK  IT 
;T0  EXIST  BETWEEN  0  & 
.-ERROR  RETURN 


;GET  THE  2ND  DRIVE  » 
;AN>f   NUMBER  TYPED? 
;YES  -  PROCEED  TO  CHECK  IT 
;N0  -  SINGLE  ff   INPUT 

.•EXIT  *2 

.•CHECK  IT  ALSO 
.-FOR  0  TO  7 
; ERROR  RETURN 

.•MAKE  DRIVE  #  A  2  DIGIT  ff 

.•RETURN  +2 
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r 


SEQ  0316 


9395 

9396 

9397 

9398 

9399 

QAOO 

9A01 

9A02 

9A03 

9A04 

9A05 

9A06 

9A07 

9A08 

9A09 

9A10 

9A11 

9A12 

9A13 

9A1A 

9A15 

9A16 

9A17 

9A18 

9A19 

9A20 

9A21 

9A22 

9A23 

9A2A 

9A25 

9A26 

9A27 

9A28 

9A29 

9A30 

9A31 

9A32 

9A33 

9A3A 

9A35 


0A3A75 
0A3A76 

0A3A77 
OA3500 
0A3501 
0A3502 
0A3503 


0A350A 
0A3505 

0A3506 
0A3507 
0A3510 
OA3511 
0A3512 
OA3513 
0A351A 
OA3515 
0A3516 
0A3517 
0A352C 


0A3521 
0A3522 

0A3523 
0A352A 
0A3525 
0A3526 
0A?527 
0A3530 
0A3531 
0A3532 
0A3533 


037  OA  0  00  072253 
25A  00  0  00  0A3315 

332  00  0  00  030231 
25A  00  0  00  0A3A75 
336  00  0  00  077656 
037  16  0  00  OOOOOA 
25A  00  0  00  0A3316 


201  15  0  00  000010 
2A2  13  0  00  000003 


200  00 
607  00 
25A  00 
603  00 
25A  00 
661  00 
350  00 
202  CO 
350  00 
367  15 
25A  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


13 
00 
00 
00 
00 
00 
00 
13 
00 
00 
00 


1007A7 
100000 
0A3516 
AOOOOO 
0A3516 
AOOOOO 
077575 
1007A7 
00001 3 
0A3506 
0A3A37 


201  15  0  00  000010 
2Hi  13  0  00  000003 


200  00 
607  00 
25A  00 
370  00 
621  00 
202  00 
350  00 
367  15 
25A  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


13 
00 
00 
00 
00 
13 
00 
00 
00 


1007A7 
AOOOOO 
0A3531 
077575 
AOOOOO 
1007A7 
000013 
0A3523 
0A3A37 


TYPHLP:  PMSGF   <*?  TYPE  H  FOR  HELP*> 
JRST    INPLP 


TTIHLP:  SKIPE 
JRST 
SKIPN 
EOPUUO 
JRST 


STTCHR 
TYPHLP 
ONCE 

INPLP^I 


;TeU  him  how  to  get  out  of  it 
;  and  ask  for  more 

.•TIME  OUT  (NO  RESPONSE)? 
; NO-PR I NT  ERROR  MESSAGE 
.-INITIAL  LOAD? 

;N0  -  WAIT  FOR  OPERATOR 


.-ROUTINE  TO  ADD  ALL  DRIVES  ON  A  CONTROLLER 
ADDALL: 


MOVE I  REPT.10 

LSH  DRIVE. 3 

AALLOP:  MOVE  DS8TBL (DRIVE) 

TLNN  (.ONLN) 

JRST  .^6 

TLNE  (.OPR) 

JRST  .♦A 

TLO  (.OPR) 

AOS  DRCNT 

MOVEM  DSBTBL (DRIVE) 

AOS  DRIVE 

REPTLP  AALLOP 

JRST  TYPCOM 


.•SETUP  LOOP  COUNTER 
.•SETUP  DRIVE  POINTER 

.-GET  STATUS 

.•DRIVE  ONLINE? 

;N0  -  SKIP  OVER  SOME  SETUP  CODE 

;YES  -  IS  THE  DRIVE  SELECTED  NOW? 

.•YES  -  SKIP  THE  SETUP 

;N0  -  ADD   IT 

.•UPDATE  THE  DRIVE  COUNT 

.•SAVE   THE   CORRECTED  STATUS 

.-BUMP  DRIVE  COUNT 

;LOOP  TILL  DONE 


.•ROUTINE  TO  DROP  ALL  DRIVES  ON  A  CONTROLLER 


DRPALL:  MOVE  I   REPT.10 
LSH     DRIVE. 3 


; SETUP  THE  LOOP  COUNT 
.•POSITION  THE  MBC  UNIT  0 


DALLOP:  MOVE 
TLNN 
JRST 
SOS 
TLZ 
MOVEM 
AOS 

REPTLP 
JRST 


DSBTBL(DRIVE) 

(.OPR) 

.+A 

DRCNT 

(.OPR) 

DS8TBL(DRIVE) 

DRIVE 

DALLOP 

TYPCOM 


X 


.•THIS  DRIVE  SELECTED  NOW? 
;YES  -  SKIP  THE  SETUP 
;N0  -  CORRECT  THE  DRIVE  COUNT 
.-CLEAR  THE  OPR  SELECTED  BIT 
.-SAVE  THE  CORRECTED  STATUS 
;UPDATE  THE  DRIVE  POINTER 
.-LOOP  TILL  DONE 
.-AND  EXIT 


\ 


<^>iii»>twwiifcw#*wWi"«><*  *»*'»'>■  *^*''"'*''**'''''<'*' 


r 


DDRPl  - 
DDRP13 

9A56 

9A37 

9A38 

9A39 

9AA0 

94  A 1 

9A42 

9443 

9444 

9445 

9446 

9447 

9448 

9449 

9450 

9451 

9452 

9453 

9454 

9455 

9456 

9457 

9458 

9459 

9460 

9461 

9462 

9463 

9464 

9465 

9466 

9467 

9468 

9469 

9470 

9471 

9472 

9473 

9474 

9475 

9476 

9477 

9478 

9479 
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SEQ  0317 


043534 
043535 


043536 
043537 
043540 
043541 
043542 
043543 
043544 
043545 
043546 
043547 
043550 
043551 
043552 
043553 
043554 


043555 
043556 


043557 
043560 
043561 
043562 
043563 
043564 
043565 
043566 
043567 
043570 
04357^ 
043d72 
043573 


037  00  0  00  061605 
254  00  0  00  043315 


200  15 
403  13 
200  00 
607  00 
254 
661 


00 
00 


350  00 
202  00 
350  00 
367  15 
332  00 


254 
332 
254 
254 


00 
00 
00 
00 


0  00  100671 
0  00  077575 
0  13  100747 
0  00  100000 
0  00  043546 
0  00  400000 
0  00  077575 
0  13  100747 
0  00  000013 
0  00  043540 
0  00  077575 
0  00  043437 
0  00  030037 
0  00  040542 
0  00  043241 


260  17  0  00  043612 
254  00  0  00  043315 


261  17  0  00  000013 

261  17  0  00  000000 

402  00  0  00  000013 
200  15  0  00  100671 
200  00  0  13  100747 
621  00  0  00  400000 
202  00  0  13  100747 
350  00  0  00  000013 
367  15  0  00  043563 

403  13  0  00  077575 

262  17  0  00  000000 

262  17  0  00  000013 

263  17  0  00  000000 


;PRINT  THE  HELP  MESSAGE 

HLPMSG:  PNTMSG  HLPOPR 
JRST    INPLP 

.•SETUP  TO  TEST  "ALL"  DRIVES 


TSTALL:  HOVE 
SETZB 

TALLOP:  MOVE 
TLNN 
JRST 
TLO 
AOS 
MOVEM 
AOS 

REPTLP 
SKIPE 
JRST 
SKIPE 
JRST 
JRST 


REPT,DRMAX 

DRIVE. DRCNT 

DSBTBLCDRIVE) 

(.ONLN) 

.♦4 

(.OPR) 

DRCNT 

DSBTBL(DRIVE) 

DRIVE 

TALLOP 

DRCNT 

TVPCOM 

USER 

USTRT1 

SHTPRT 


.-CLEAR  DRIVE  COUNT  &  POINTER 

;GET  DRIVE  STATUS 

;IS  IT  ON  LINE? 

;N0  -  DON'T  SELECT  THIS  DRIVE 

;YES  -  SET  OPR  SELECT 

.•UPDATE  THE  DRIVE  COUNTER 

.•SAVE  THE  CORRECTED  STATUS 

;BUMP  THE  DRIVE  COUNTER 

;LOOP  TILL  DONE 

;ANY  SELECTED?? 

;YES  -  EXIT 

;NO...AM  I  IN  USER  MODE?? 

;YES  -  ASK  OPR  FOR  UNIT  NAMES 

;IN  EXEC. ..ASK  FOR  DRIVE  NUMBERS 


.•PRINT  THE  DRIVES  THAT  HAVE  BEEN  OPR  SELECTED 

;REPORT  WHAT  DRIVES  ARE  SELECTED 


TYPSEL:  GO 

JRST 


SELPTA 
INPLP 


.•CLEAR  ALL  "OPR"  STATUS  BITS  IN  DRIVE  STATUS  TABLE  "DSBTBL" 


CLRSEL: 


PUT 

PUT 

SETZM 

MOVE 

MOVE 

TLZ 

MOVEM 

AOS 

REPTLP 

SETZB 

GET 

GET 

RTN 


DRIVE 

ACO 

DRIVE 

REPT.DRMAX 

DSBTBLCDRIVE) 

(.OPR) 

DSBTBL(DRIVE) 

DRIVE 

.-4 

DRIVE. DRCNT 

ACO 

DRIVE 


; START  AT  DRIVE  00 
.•SETUP  TO  CHECK  ALL  DRIVES 
;GET  THE  DRIVE  STATUS  BITS 
.•CLEAR  THE  BIT 
.•SAVE  THE  STATUS 
.•UPDATE  THE  DRIVE  COUNT 
.•LOOP  TILL  ALL  DONE 
.•CLEAR  DRIVE  COUNT 


;AND  EXIT 


DDRPl  - 
DDRPI3 

9480 

9481 

9482 

9483 

9484 

9485 

9486 

9487 

9488 

9489 

9490 

9491 

9492 

9493 

9494 

9495 

9496 

9497 

9498 

9499 

9500 

9501 

9502 

9503 

9504 

9505 

9506 

9507 

9508 

9509 

9510 

9511 

9512 

9513 

9514 

9515 

9516 

9517 

9518 

9519 

9520 

9521 
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SEQ  0318 


043574 
043575 
043576 
043577 

043600 
043601 

043602 
043603 
043604 


043605 
043606 
043607 
043610 
04361 1 

043612 
043613 

043614 
04361 5 
043616 
04361 7 

043620 
043621 
043622 
043623 
043624 

043625 
043626 
043627 
043630 


402  00  0  00  000013 
200  15  0  00  100671 
331  00  0  13  100747 
254  00  0  00  043602 

350  00  0  17  000000 
263  17  0  00  000000 

350  00  0  00  000013 
367  15  0  00  043576 
263  17  0  00  000000 


336  00  0  00  077656 
263  17  0  00  000000 
037  10  0  00  000002 
603  00  0  00  000200 
263  17  0  00  000000 

037  04  0  00  072257 
201  03  0  00  400000 

403  13  0  00  077671 
200  15  0  00  100671 

261  17  0  00  077575 
40?  00  0  00  077575 

200  02  0  13  100747 

603  02  0  03  000000 

260  17  0  00  043631 

3:)0  00  0  00  000013 

367  15  0  00  043620 

336  00  0  00  077575 

037  02  0  00  070301 

262  17  0  00  077575 

263  17  0  00  000000 


1  i 


9522 
9523 
9524 
9525 
9526 
9527 
9528 

043o31 
043632 
043633 
043634 
043635 
043636 
043637 

332  00  0 
037  04  0 
476  00  0 


350  00 
200  00 
037  02 
263  17 


00  077671 
00  066356 
00  077671 
00  077575 
00  000013 
00  000001 
00  000000 


;HERE  TO  SEE  IF  ANY  DRIVES  ARE  OPR  SELECTED 


ANYDRV:  SET2M 
MOVE 
SKIPL 
JRST 

AOS 
RTN 

AOS 

REPTLP 

RTN 


DRIVE 

REPT^DRMAX 

DSBTBL(DRIVE) 

(?) 


DRIVE 
ANYDRV^-2 


;R0UTINE  TO  PRINT  SELECTED  STATUS  INFO 


SELPRT:  SKIPN 
RTN 
SWITCH 
TLNE 
RTN 

SELPTA:  PMSGF 
MOVE  I 


ONCE 


TXTINH 


SELPT: 


SELPT1 


PSDRV: 


PSDRVI 


SETZB 
MOVE 
PUT 
SET2M 

MOVE 

TLNE 

GO 

AOS 

REPTLP 

SKIPN 
PMSG 
GET 
RTN 

SKIPE 

PMSGF 

SETOM 

AOS 

MOVE 

PNT2F 

RTN 


AC3, 400000 

DRIVE, PFRST 
REPT,DRMAX 
DRCNT 
DRCNT 

AC2,DSBTBL(DRIVE) 

AC2,(AC3) 

PSDRV 

DRIVE 

SELPT1 

DRCNT 

<N0NE> 

DRCNT 


PFRST 
<-  > 

PFRST 
DRCNT 
DRIVE 


; SETUP  THE  LOOP  COUNTER 
;THIS  DRIVE  SELECTED?? 
;N0  -  TRY  THE  NEXT 

;YES  -  SOME  DRIVE  HAS  BEEN  SELECTED 
; RE TURN  ^2 

;BUMP  DRIVE  NUMBER  AND  TRY  AGAIN 
;LOOP  BACK 
;NONE  FOUND! I 


;FIRST  TIME  HERE? 
;YES  -  EXIT 


; SHORT  PRINTOUT? 
;YES  -  EXIT 


<*DRIVES  OPR  SELECTED  =  > 


.-SETUP  TO  PRINT  OPR  SELECTED  STATUS 

; CLEAR  COUNTER  AND  FLAG 
;SETUP  LOOP  COUNT 
;SAVE  DRIVE  COUNT 
; CLEAR  COUNTER 

;GET  DRIVE  STATUS 
;IS  THE  BIT  SET? 
.'PRINT  SELECTED  DRIVE  # 


;ANY  FOUND? 

.•RESTORE   UNTER 
.-AND  EXIT 


DDRPI  - 
DDRPI3 

9529 

9530 

9531 

9532 

9533 

953A 

9535 

9536 

9537 

9538 

9539 

9540 

95A1 

9542 

9543 

9544 

9545 

9546 

9547 

9548 

9549 

9550 

9551 

9552 

9553 

9554 

9555 

9556 

9557 

9558 

9559 

9560 

9561 

9562 

9563 

9564 

9565 

9566 

9567 

9568 

9569 
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SEQ  0319 


043640 
043641 
043642 

043643 
043644 
043645 

043646 
043647 
043650 


043651 
043652 
043653 
043654 
043655 
043656 
043657 


043660 
043661 
043662 
043663 
043664 
043665 
043666 
043667 
043670 
043671 
043672 
043673 
043674 
043675 


260  17  0  00  043643 
260  17  0  00  043646 
254  00  0  00  043315 

037  04  0  00  072263 
201  03  0  00  002000 
254  00  0  00  043614 

037  04  0  00  072270 
201  03  0  00  004000 
254  00  0  00  043614 


260  17 
254  00 
200  00 
603  00 
661  00 
202  00 
254  00 


0  00  043451 
0  00  043475 
0  13  100747 
0  00  100000 
0  00  002000 
0  13  100747 
0  00  043671 


200  15 
242  13 
200  00 
6u'  00 
254  00 
661  00 


0 
0 
0 
0 
0 
0 
202  00  0 
350  00  0 
367  15  0 


200  00 
405  00 
306  00 
254  00 
254  00 


00  000010 
00  000003 
13  100747 
00  100000 
00  043667 
00  002000 
13  100747 
00  000013 
00  043662 
00  030231 
00  000077 
00  000054 
00  043316 
00  043315 


.-PRINT  SUMMARY  OF  DRIVE  WRITE-LOCK  STATUS 


TYPWLK:  60 
GO 
JRST 

SELSWL:  PMSGF 
MOVE  I 
JRST 

SELHWL:  PMSGF 
MOVE  I 
JRST 


SELSUL 
SELHWL 
INPLP 


; PRINT  PROGRAM  WRITE-LOCK  STATUS 
.•PRINT  HARDWARE  WRITE-LOCK  STATUS 
.•RETURN 


<*DRIVES  OPR  WRITE-LOCKED  =  > 

AC3.2000  ;SET  THE  TEST  BIT 

SELPT  ;AND  PRINT 

<*DRIVES  HARDWARE  WRITE-LOCKED  =  > 
AC3.4000  ;SET  THE  TEST  BIT 

SELPT  ;AND  PRINT 


.•ROUTINE  TO  PROGRAM  WRITE  LOCK  A  SINGLE  DRIVE 


WRTLDR:  GO  6ETDRN 

JRST  TYPHLP 

WPDRV:  MOVE  DSBTBLC DRIVE) 

TLNE  (.ONLN) 

TLO  (.SWRTL) 

MOVEM  DSBT8L (DRIVE) 

JRST  TCOMCK 


;GET  THE  DRIVE  NUMBER 

.•ERROR  -  EXIT 

;GET  DRIVE  STATUS 

.•DRIVE  ONLINE? 

;SET  THE  PGM  WRITE-LOCK  STATUS 

;SAVE  THE  CORRECTED  STATUS 

;EXIT 


.•ROUTINE  TO  WRITE-LOCK  ALL  DRIVES  ON  A  CONTROLLER 


WLKALL:  MOVE 
LSH 

WLALL:  MOVE 
TLNN 
JRST 
TLO 
MOVEM 
AOS 
REPTLP 

TCOMCK:  MOVE 
AND  I 
CAIN 
JRST 
JRST 


REPT.10 

DRIVE. 3 

DSBTBL(DRIVE) 

(.ONLN) 

.'^3 

(.SWRTL) 

DS8TBL( DRIVE) 

DRIVE 

WLALL 

$TTCHR 

11 

TflNUM-1 
INPLP 


.•SETUP  LOOP  COUNTER 

.•POSITION  MBCN  IN  POINTER 

;GET  DRIVE  STATUS 

.•DRIVE  ONLINE? 

.•NO 

;YES  -  SET  THE  PGM  WRITE-LOCK 

;SAVE  THE  UPDATED  STATUS 

.•BUMP  THE  DRIVE  COUNT 

;LOOP  TILL  DONE 

;GET  THE  LAST  CHAR  TYPED 

.•STRIP  IT 

;IS  IT  A  COMMA?? 

;YES  -  GET  NEXT  INPUT  NOW 

;N0  -  ASK  "WHAT  DRIVE"  AGAIN 


BIT 


DDRPI  - 
DDRP13 

9570 

9571 

9572 

9573 

957A 

9575 

9576 

9577 

9578 

9579 

9580 

9581 

9582 

9583 

958A 

9585 

9586 

9587 

9588 

9589 

9590 

9591 

9592 
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SEQ  0320 


043676  200  15  0  00  100671 

043677  402  00  0  00  000013 
043700     254  00  0  00  043662 


043701  260  17  0  00  043451 

043702  254  00  0  00  043475 

043703  260  17  0  00  043724 

043704  200  00  0  13  100747 

043705  621  00  0  00  002000 

043706  202  00  0  13  100747 

043707  254  00  0  00  043315 


043710  200  15  0  00  000010 

043711  242  13  0  00  000003 

043712  254  00  0  00  043715 


.-ROUTINE   TO  WRITE-LOCK  ALL  DRIVES 


PALLDR:   MOVE 
SETZM 
JRST 


REPT,DRMAX 

DRIVE 

WLALL 


.•ROUTINE   TO  WRITE-ENABLE  A  SINGLE  DRIVE 


WRTEDR:   GO 

JRST 

UEDRV:     GO 
MOVE 
TLZ 
MOVEM 
JRST 


GETDRN 
TYPHLP 

UEPID 

DSBTBL(DRIVE) 

(.SWRTL) 

DSBTBL(DRIVE) 

INPLP 


.•SETUP  LOOP  COUNTER 
;START  AT  DRIVE  00 
;D0  IT 


;GET  THE  DRIVE  NUMBER 
.•ERROR  -  EXIT 

.•PRINT  THE  PACK   ID   IF   IN  USER  MODE 

;6ET  THE  DRIVE   STATUS 

.•CLEAR  THIS  PGM  WRT  LOCK  STATUS 

;SAVE   THE  CORRECTED  STATUS 

;AND  EMT 


.•ROUTINE   TO  WRITE-ENABLE   ALL  DRIVES  ON  A  CONTROLLER 


WEALL:     MOVE 
LSH 
JRST 


REPT.10 
DRIVE. 3 
WEALLP 


.•SETUP  THE  LOC^  COUNTER 
.•POSITION  MBC  NUMBER 
;AND  DO  IT 


'm9aifmtm»mmmmii* 


8 


DDRPI  - 
D0RP13 

9593 

959A 

9595 

9596 

9597 

9598 

9599 

9600 

9601 

9602 

9603 

960A 

9605 

9606 

9607 

9608 

9609 

9610 

9611 

9612 

9613 

96U 

9615 

9616 

9617 

9618 

9619 

9620 

9621 

9622 

9623 

962A 
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SEQ  0321 


043713  200  15  0  00  100671 

043714  402  00  0  00  000013 


043715 
043716 
043717 
043720 
043721 
043722 
043723 

043724 
043725 
043726 
043727 
043730 
043731 
043732 
043733 
043734 
043735 
043736 
043737 
043740 
043741 
043742 
043743 
043744 
043745 


260  17 

200  00 

621  00 

202  00 

350  00 

367  15 

254  00 

336  00 

263  17 

336  11 

263  17 

553  00 

336  00 

263  17 

037  04 

200  00 

037  01 

037  0> 

200  00 

037  01 

037  04 

037  02 

263  17 

2c  J  17 

254  00 

0  00  043724 
0  13  100747 
0  00  002000 
0  13  100747 
0  00  000013 
0  00  043715 
0  00  043671 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
13 
00 
00 
11 
00 
00 

11 

00 
00 

11 

00 
00 
00 
00 


0  00 
0  00 


030037 
000000 
100747 
000000 
00001 1 
000023 
000000 
072276 
000023 
000002 
072303 
000022 
000002 
072304 
000003 
000000 
077620 
043671 


.-ROUTINE  TO  WRITE-ENABLE  ALL  DRIVES 


EALLDR:  MOVE 
SETZM 

WEALLP:  GO 
MOVE 
TLZ 
MOVEM 
AOS 

REPTLP 
JRST 


WEPID: 


SKIPN 

RTN 

SKIPN 

RTN 

HRRZS 

SKIPN 

RTN 

PMSGF 

MOVE 

PNTSXF 

PMSGF 

MOVE 

PNTSXF 

PMSGF 

TTINO 

RTN 

GET 

JRST 


REPT.DRMAX 
DRIVE 

yEPID 

DS8TBL(DRIVE) 

(.SWRTL) 

DSBT8L (DRIVE) 

DRIVE 

WEALLP 

TCOMCK 

USER 

DSBP,DSBTBL(DRIVE) 

DS6P 
.PKID(DSBP) 

<*PROCEED  TO  WRITE- 
.PKID(DSBP) 

<"  (> 
.DNAME(DSBP) 

<)  ?  > 


GARBAG 
TCOMCK 


SETUP  THE  LOOP  COUNTER 
START  AT  DRIVE  00 

NEED  PACK  ID? 

GET  THE  DRIVE  STATUS 

CLEAR  THE  WRT  LOCK  STATUS  BIT 

SAVE  THE  CORRECTED  STATUS 

UPDATE  DRIVE  POINTER 

LOOP  TILL  DONE 

AND  EXIT 

IN  USER  MODE? 

NO 

ANY  DSBTBL  ENTRY? 

NO 

SAVE  THE  POINTER  FOR  DSB  AREA 

Any  pack  id  available? 
.NO 
ENABLE  "> 

;Load  the  pack  id 
;AND  PRINT  IT 

;load  physical  disk  name 
;and  print  it  too 

;Y  OR  N 

;YES  -  WRITE  ENABLE  THE  DRIVE 

;N0  -  FIX  THE  STACK 

;AND  ASK  FOR  DRIVE  AGAIN 


i 


itut^mmjlfm'i  II.IK1..1IIIIMI 


DDRPI  - 
DDRP13 

9625 

9626 

9627 

9628 

9629 

9630 

9631 

9632 

9633 

963A 

9635 

9636 

9637 

9638 

9639 

9640 

9641 

9642 

9643 

9644 

9645 

9646 

9647 

9648 

9649 

9650 

9651 

9652 

9653 

9654 

9655 

9656 

9657 

9658 

9659 

9660 

9661 

9662 

9663 

9664 

9665 

9666 

9667 

9668 
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SEQ  0322 


043746 

043747 

043750 

043751 

043752 

043753 

043754 

043755 

043756 

043757 

043760 

043761 

043762 

043763 

043764 

043765 

043766 

043767 

043770 

043771 

043772 

043773 

04377A 

043775 

043776 

043777 

04A000 

04400^ 

044002 

044003 

044004 

044005 

044006 

044007 

044010 

044011 

044012 

04401 3 


200  15 

402  00 

403  13 
336  11 
254  00 
607  11 
254  00 
553  00 
336  00 
037  04 
476  00 
332  00 
254  00 
200  06 
242  06 
550  10 
200  12 
135  00 
037  03 
037  01 
200  00 
037  02 
037  01 
200  00 
322  00 
037  01 
037  01 

2uJ  00 
336  00 
200  00 
037  01 
037  01 
350  00 
350  00 
367  15 
336  00 
037  04 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
13 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
06 
10 
00 
00 
00 
00 
00 
00 

11 

00 
00 
00 

11 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


100671 

077575 

077671 

100747 

044007 

000301 

044007 

00001 1 

077671 

072305 

077671 

030037 

044014 

000013 

777775 

101047 

000020 

070150 

000001 

00001 1 

00001 3 

000001 

00001 1 

000022 

04A001 

000002 

000040 

000023 

000000 

072314 

000002 

030242 

077575 

000013 

043751 

077575 

072315 

043315 


044oU  200  12  0  11  000021 
044015  254  00  0  00  0A3767 


.-ROUTINE  TO  REPORT  PACK  ID'S 


TYPID:  MOVE 
SETZM 
SETZB 

TYPID1:  SKIPN 
JRST 
TLNN 
JRST 
HRRZS 
SKIPN 
PMS6F 
SETOM 
SKIPE 
JRST 
MOVE 
LSH 
HRRZ 
MOVE 

TYPIDC:  LDB 
PNT3F 
PNTCIF 
MOVE 
PNT2F 
PNTCIF 
MOVE 
JUMPE 
PNTSXF 
PSPF 
MOVE 
SKIPN 
MOVE 
PNTSXF 
PCRLF 
AOS 

TYPID2:  AOS 

REPTLP 
SKIPN 
PMSGF 
JRST 


REPT.DRMAX  ; SETUP  LOOP  COUNTER 

DRCNt  .-CLEAR  THE  COUNTER 

DRIVE, PFRST  .-SETUP  INDEX 

DSBP,DSBTBL (DRIVE)      .-DRIVE  THERE? 

TYPID2  ;N0 

DSBP,(.RP04I.RP05!.RP06)       ;THIS  DRIVE  AN  RP04/05/06? 

TYPID2  ;N0 

DSBP  ;YES  SAVE  ONLY  THE  ADDRESS 

PFRST  :FIRST  TIME  HERE? 

<•  PACK  IDENTIFICATION*MBC]DRIVE]ID**> 


PFRST 

USER 

TYPIDU 

AC, DRIVE 

AC.-3 

CS8P,CSBTBL(AC) 

MBCN..MBCN(CSBP) 

CPOINT  9.MBCN.11] 


DRIVE 


.DNAME(DSBP) 
.♦3 


.PKID(DSBP) 
CSIXBIT/??????/] 


.-SET  THE  ONCE  ONLY  FLAG 

.-USER  MODE?? 

;YES 

.-SAVE  JUST  THE  MBC  » 

; SETUP  THE  CSB  POINTER 

.-GET  THE  MBC  # 

.-GET  THE  DEVICE  CODE  NUMBER 

;PRINT  IT 

;GET  THE  DRIVE  NUMBER 
;AND  PRINT  IT 

.-GET  THE  DRIVE  NAME 
.-SKIP  IF  NONE 
.-PRINT  IT 


.-GET  THE  SIXBIT 

.-ANY  ID  ?? 

.-NOPE 

.-AND  PRINT  IT 


ID 


DRCNT 

DRIVE 

TYPID1 

DRCNT 

<*DISK 

INPLP 


PACK 


.-COUNT  THIS  DRIVE 
;BUMP  THE  INDEX 
.-LOOP  BACK 
.-PRINTED  ANY?? 
IDENTIFICATION  NOT  KNOWN*> 

.-ALL  DONE. ..EXIT 


TYPIDU: 


MOVE 
JRST 


MBCN..CNUM(DSBP) 
TYPIDC 


.-GET  THE  MBC  NUMBER 


— ,**»|J  ■-r>- 
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SEQ  0323 


9669 

9670 

9671 

9672 

9673 

967A 

9675 

9676 

9677 

9678 

9679 

9680 

9681 

%82 

9683 

9684 

9685 

9686 

9687 

9688 

9689 

9690 

9691 

9692 

9693 

9694 

9695 

969^ 

969/ 

9698 

9699 

9700 

9701 

9702 

9703 

9704 

9705 

9706 

9707 

9708 

9709 

9710 

9711 

9712 


044016 
044017 
044020 

044021 
044022 
044023 
044024 
044025 
044026 


044027 
044030 
044031 
044032 
044033 

044034 
04403S 
044036 
044037 

044040 
044041 
044042 
044043 

044044 
044045 
044046 
044047 

044050 
044051 
044052 
044u53 
044054 


261  17  0  00  000002 
261  17  0  00  000001 
261  17  0  00  000000 


402  00 
402  00 
402  00 
476  00 
402  00 
402  00 


0  00  077753 
0  00  077754 
0  00  077632 
0  00  000013 
0  00  077667 
0  00  077670 


260  17  0  00  045650 
254  00  0  00  044027 
254  00  0  00  044034 
336  00  0  00  077576 
254  00  0  00  044040 

262  17  0  00  000000 
262  17  0  00  000001 

262  17  0  00  000002 

263  17  0  00  000000 

40?  00  0  00  077730 
2uJ  00  0  13  100747 
603  00  0  00  000100 
476  00  0  00  077730 

332  00  0  00  077730 

254  00  0  00  044055 

332  00  0  00  077667 

254  00  0  00  044027 

037  04  0  00  072324 

037  04  0  00  072335 

037  04  0  00  072346 

476  00  0  00  077667 

254  00  0  00  044063 


) ♦SETOFF  -  ROUTINE  TO  ALLOW  THE  OPR  TO  SET  AN  OFFSET  VALUE^  __ 
•*        FOR  ALL  READ  COMMANDS  ISSUED  TO  THE  DRIVES  UNDER  TEST. 

•4f***»»***»*4»**»******»*** ♦»♦*♦**♦*****♦*♦***♦***♦*♦****** *♦♦♦***♦****♦** 


SETOFF:  PUT 
PUT 
PUT 


SET0F1: 


SETZM 
SETZM 
SETZM 
SETOM 
SETZM 
SETZM 


GO 

JRST 

JRST 

SKIPN 

JRST 

GET 
GET 
GET 
RTN 


ST0F1A:  SETZM 
MOVE 
TLNE 
SETOM 

SK I PE 
JRST 
SKIPE 
JRST 

PMSGF 
PMSGF 
PMSGF 
SETOM 
JRST 


AC2 
AC1 
ACO 

SEQADR 

SEQDRV 

LOCKCK 

DRIVE 

PFLG45 

PFLG6 


SELECT 

.-1 

.♦3 

DSKAD 
ST0F1A 

ACO 
AC! 
AC2 


RP06F# 

AC0,DSBTBL(DRIVE) 
AC0,(.RP06) 
RP06F 

RP06F 
SET0F2 
PFLG45# 
SET0F1 


;SAVE  AC '3 


;INIT  FOR  SELECT 


.•SELECT  DRIVE/ADDR 

;NON-TESTABLE   DRIVE  FOUND  SEL  NEXT 

;ALL   SELECTED  RTN 

.-SELECTED  ALL   ONE   TIME 

;N0  CONTINUE 

;YES  EXIT  -  RESTORE  AC'S 


.•CLEAR  RP06  SEL 
.•GET  TABLE  DATA 
.•RP06  ? 
;YES  SET  FLAG 


FLAG 


;RP06  SELECTED  ? 

•YES 

•ASKED  RP04/05  INPUT 

;YES  SELECT  NEXT  DRIVE 


<*TYPE   THE   DECIMAL  OFFSET  VALUE   FOR  RP04 

<TH5  MAXIMUM  OFFSET   IS   ♦  OR  -  1200  MICRO 

<DESIRED  OFFSET   VALUE   -  > 

PFLG45  ;SET   FLAG 

SET0F3 


05'S   *> 
INCHES  *> 


DDRPl  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1 242)  15:51  28-Aug-85  Page  12 
DDRPI3  MAC     28-Aug-85  15:49        MASSBUS  CONFIGURATION  PRINTER/REPORTER 


SEQ  0324 


9713 

9714 

9715 

9716 

9717 

9718 

9719 

9720 

9721 

9722 

9723 

9724 

9725 

9726 

9727 

9728 

9729 

9730 

9731 

9732 

9733 

9734 

9735 

9736 

9737 

9738 

9739 

9740 

9741 

9742 

9743 

9744 

9745 

9746 

9747 

9748 

9749 

9750 

9751 

9752 

9753 

9754 

9755 

9756 


044055 
044056 
044057 
044060 
044061 
044062 

044063 
044064 
044065 
044066 
044067 
044070 
044071 

044072 
044073 
044074 
044075 
044076 

044077 
044100 
044101 
044102 
044103 
044104 
044105 

044106 
044107 
044110 
044111 
044112 

044113 
044114 

044115 
044116 

044  1 17 
044120 


332  00 

254  00 
037  04 
037  04 
037  04 
476  00 

037  04 
254  00 
476  00 
331  00 
254  00 
402  00 
213  00 


0  00  077670 
0  00  044027 
0  00  072352 
0  00  072362 
0  GO  072346 
0  00  077670 


00 
00 
00 
00 
00 
00 
00 


000003 
044113 
077675 
000000 
044072 
C77675 
000000 


201  01  0  00  002260 
332  00  0  00  077730 
201  01  0  00  001130 
313  00  0  00  000001 
254  00  0  00  044115 


403  01 
336  00 
660  02 
231  00 
332  00 
254  00 
434  02 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


0  00 
0  00 


000002 
077675 
000200 
000031 
000001 
044117 
000000 


5:>r  00  0  CO  077730 
202  02  0  00  101161 
332  00  0  00  077730 
202  02  0  00  101162 
254  00  0  00  044027 

037  04  0  00  072375 
254  00  0  00  044063 

037  04  0  00  072404 
254  00  0  00  044063 

037  04  0  00  072416 
254  00  0  00  044063 


SET0F2: 


SET0F3: 


SETERl 


SKIPE 

JRST 

PMSGF 

PMSGF 

PMSGF 

SETOM 

TTIDEC 

JRST 

SETOM 

SKI  PL 

JRST 

SETZM 

MOVNS 

MOVE  I 
SKIPE 
MOVE  I 
CAMLE 
JRST 

SET2B 

SKIPN 

TRO 

IDIVI 

SKIPE 

JRST 

I  OR 

SKIPN 
MOVEM 
SKIPE 
MOVEM 
JRST 

PMSGF 
JRST 


SETER2:  PMSGF 
JRST 


SETER3 


PMSGF 
JRST 


PFLG6#  .-ASKED  RP06  INPUT 

SETOFl  :YES  SELECT  NEXT  DRIVE 

<*TYPE  THE  DECIMAL  OFFSET  VALUE  FOR  RP06'S'^> 
<THE  MAXIMUM  OFFSET  IS  ♦  OR  -  600  MICRO  -  INCHES 
<DESIRED  OFFSET  VALUE  -  > 
PFL66  ;SET  FLAG 


SETER1 
POSF# 
ACO 
.♦3 

POSF 


ACU'*D1200 

RP06F 

AC1.'^D600 

ACO.ACl 

SETfR2 

AC1.AC2 

POSF 

AC2,200 

AC0.'^D25 

ACl 

SETER3 

AC2,AC0 

RP06F 

AC2..0FSET 

RP06F 

AC2,.0FST1 

SET0F1 


;GET   INPUT 

.•INPUT  ERROR 

;SET  POSITIVE   INPUT  FLAG 

.•INPUT  POSITIVE 

•YES 

•NO  CLEAR  FLAG 

.•MAKE  IT  POSITIVE 

;GET  RP04/05  MAX  OFFSET 

; DRIVE  AN  RP06  ? 

;YES  ^*^T  ITS  MAX  OFFSET 

;VALII   PFSET 

;N0 

INIT  AC'S 

•POSITIVE  OFFSET  INPUTED 
;N0  SET  SIGN  BIT 
;CAL  OFFSET  REG  DATA 
;ANY  REMAINDER 
;YES  REPORT  ERROR 
.•INCLUDE  OFFSET  DATA 

;RP06  SELECTED 

;N0  SET  RP04/05  OFFSET 

;RP04/05  SELECTED 

;N0  SET  RP06  0FF3ET 

.•CONTINUE 


<*INPUT  ERROR  ??  -  RETYPE  DESIRED  OFFSET  VALUE  -  > 
SfcT0F3 

<*EXCEEDED  MAXIMUM  OFFSET  -  RETYPE   DESIRED  OFFSET  VALUE   -  > 
SET0F3 

<*OFFSET  MUST  BE   A  EVEN  MULTILABLE   OF   25.   RETYPE   DESIRED  OFFSET   VALUH 
SET0F3 


-  > 


--Mlh#«MMM«M«MMM> 


12 


DDRPl  - 
DDRP13 

9757 
9758 
9759 
9760 
9761 
9762 
9763 
976A 
9765 
9766 
9767 
9768 
9769 
9770 
9771 
9772 
9773 
9774 
9775 
9776 
9777 

9778 
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SUBTTL  "SCNTBL"  ENTRY  PROCESSOR  FOR  A  WRITE/READ  ENTRY 


SEQ  0325 


IND  AN  AVAILABLE  "SCNTBL",  ENTRY  SLOT  AMD  AN 
BUFFER  SLOT  FOR  A  'X/RITE"  OR  "READ"  BUFFER  (WRITE 
).  EXITS  WITH  A  "SCNTBL"  ENTRY  BUILT  AND  ENTERED 
IVES  DSB  AREA.  ALLOCATED  MEMORY  SPACE  IS  THEN 
MAPPED  our  FROM  USE  UNTIL  FREED  FROM  RECLAIM  ROUTINE. 


•♦FNDENT  —  ROUTINE  TO  F 
*     AVAILABLE  MEMORY 
OR  READ  TRANSFER 
INTO  SELECTED  DR 


044121 
044122 
044123 
044124 

044125 
044126 


044127 
044130 


261  17 

261  17 

262  17 
254  00 


0 
0 
0 
0 


00 
00 
00 
00 


101155 
101154 
101155 
044127 


FNDENT: 


PUT 
PUT 
GET 
JRST 


260  17  0  00  044442 
260  17  0  00  044200 


332  00  1  00  101154 
254  00  0  00  044125 


FNDEN1:  60 
60 


SCNOLD 
SCNADD 
SCNOLD 
FNDEN2 

BUFSCN 
FNDENA 


.-CLEAR  ALL  UNUSED  WRITE  BUFFERS 


FNDEN2:  SKIPE 
JRST 


aSCNADD 
FNDEN1 


;SAVE  0RI6INAL  •t)LD"  POINTER 

.-RESET  TO  CURRENT  POINTER 
.-FIRST  TIME  JUMP  AROUND  CODE 

.-SELECT  SCNTBL  ENTRY  ADDRESS 
.-ALL  SELECTED  -  NO  EMPTIES  FOUND 


.-EMPTY  SCNTBL  ENTRY  SLOT? 
;N0  -  TRY  NEXT  SLOT 


M'lMMMrMllMpMHMl^ 
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SEO  0326 


DDI 
ODI 


9779 

9780 

9781 

9782 

9783 

9784 

9785 

9786 

9787 

9788 

9789 

9790 

9791 

9792 

9793 

9794 

9795 

9796 

9797 

9798 

9799 

9800 

9801 

9802 

9803 

9804 

9805 

9806 

9807 

9808 

9809 

9810 

9811 

9812 

9813 

9814 

9815 

9816 

9817 

9818 

9819 

9820 


044131 

044132 

044133 

044134 

044135 

044136 

044137 

044140 

044141 

044142 

044143 

044144 

044145 

044146 

044147 

044150 

044151 

044152 

044153 

044154 

044155 

044156 

044157 

044160 

044161 

044162 

044163 

044164 

044165 

044166 

044167 

044170 

044171 

044172 

044173 

044174 
044175 

044176 
04417:^ 


260  17  0 
254  00  0 
200  01  0 
504  01  0 
200  06  0 
202  01  1 
350  00  0 
514  01  0 
242  01  0 
200  04  0 
301  04  0 
661  01  0 
661  01  0 
350  CO  0 
200  04  0 
275  04  0 


137  04 
202  01 
260  17 
260  17 


200  01  0 
200  02  0 
200  03  0 
325  03  0 
607  03  0 
661  03  0 
202  03  0 
402  00  0 
200  05  0 
2h^  05  0 
434  05  0 
05  0 
05  0 


50'- 
661 


260  17  0 
254  00  0 


00  044725 
00  044174 
00  100735 
00  100733 
00  101154 
00  000006 
00  000006 
00  100734 
00  000006 
00  077545 
00  000002 
00  400000 
13  000000 
00  000001 
00  077552 
00  100163 
00  072432 
00  000006 
00  044606 
00  044222 

00  101154 

01  000000 
01  000001 
00  044164 
00  003700 

00  000100 

01  000001 
00  000004 
00  100731 
00  000010 
00  100732 
00  100730 
00  400000 
00  052711 
00  044176 


260  17  0  00  044200 

254  00  0  00  044127 

262  17  0  00  101155 

263  17  0  00  000000 


FNDEN3: 


60 

JRST 

MOVE 

HRL 

MOVE 

MOVEM 

AOS 

HRLZ 

LSH 

MOVE 

GAIL 

TLO 

TLO 

AOS 

MOVE 

SUBI 

DPB 

MOVEM 

GO 

GO 

MOVE 

MOVE 

MOVE 

JUMPGE 

TLNN 

TLO 

MOVEM 

SETZM 

MOVE 

LSH 

lOR 

HRL 

TLO 

GO 

JRST 


FNDEN4:  GO 

JRST 

FNDENX:  GET 
RTN 


FNDHOL 

FNDEN4 

AC1,.0UFF 

AC1,.S1ZE 

AC.SCNADD 

ACl,aAC 

AC 

AC1,.PATN 

AC1,6 

AC4,CMDNUM 

AC4,2 

AC1,(1B0) 

AC1, (DRIVE) 

ACi 

AC4,C0MBPT 

AC4,C0MBUF 

AC4, [POINT  6, ACI, 26] 

ACI.aAC 

SETMAP 

FNDEND 

ACUSCNADD 

AC2,(AC1) 

AC3J(AC1) 

AC3,.+4 

AC3,3700 

AC3,100 

AC3J(AC1) 

AC4 

AC5,.SURF 

AC5,^D8 

ACS, .SECT 

AC5,.CYLIN 

AC5,(1B0) 

FILLQ 

FNDENX 

FNDENA 
FNDEN2 

SCNOLD 


YES  -  FIND  A  USABLE  MEMORY  SLOT 
UNABLE  TO  FIND  ENOUGH  MEMORY  (CHOKE) 
GET  START  ADDRESS  OF  MEMORY  SLOT 
BUILD  1ST  SCNTBL  ENTRY  WORD  IN  ACI 
GET  ADDRESS  OF  SCNTBL  ENTRY 
SAVE  1ST  SCNTBL  ENTRY  WORD 
UPDATE  ADDRESS  FOR  2ND  SCNTBL  WORD 
GET  PATTERN  NUMBER  OF  DATA  WORD 

GET  THE  COMMAND  NUMBER 

READING?? 

NO  -  MAKE  IT  A  WRITE  PATTERN 

ADD  IN  DRIVE  »   TO  ENTRY  WORD 

SET  THE  IN  USE  COUNT  TO  1 

GET  THE  COMBUF  ADDRESS 

CALC  THE  OFFSET  INTO  COMBUF  STORAGE 

SAVE  IT 

SAVE  2ND  WORD  IN  SCNTBL 

SET  BUFMAP  BITS 

GET  RID  OF  USLESS  WRITE  BUFFERS 

GET  THE  "SCNTBL"  ENTRY  ADDRESS 

GET  THE  1ST  SCNTBL  ENTRY  WORD 

AND  THE  2ND  SCNTBL  ENTRY  WORD 

WRITING? 

YES  -  ANY  PATTERN 

NO  -  FAKE  OUT  TO  .ONES  PATTERN 

SAVE  THE  UPDATED  WORD 

GET  THE  DtSIRED  SURFACE  # 
POSITION  THE  SURFACE  M 
GET  THE  SELECTED  SECTOR  # 
INSERT  THE  DESIRED  CYLINDER  # 

INSERT  COMMAND  IN  ACI  TO  5  IN  DSB 


.-CLEAR  ALL  UNUSED  WRITE  BUFFERS 
;AND  TRY  AGAIN 


L 
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SEO  0327 


9821 

9822 

9823 

982A 

9825 

9826 

9827 

9828 

9829 

9830 

9831 

9832 

9833 

983A 

9835 

9836 

9837 

9838 

9839 

98A0 

98A1 

9842 

9843 

9844 

9845 

9846 

9847 

9848 

9849 

9850 

9851 

9852 

9853 

9854 

9855 

9856 

9857 

9858 

9859 

9860 

9861 

9862 

9863 

9864 

9865 

9866 

9867 

9868 

9869 


044200 
044201 
044202 
044203 

044204 
044205 

044206 
044207 
044210 
04421 1 
044212 
044213 
044214 


261  17  0  00  101155 

261  17  0  00  101154 

262  17  0  00  101155 
254  00  0  00  044206 

260  17  0  00  044442 
254  00  0  00  044216 


200  06 
200  01 
607  01 
254  00 
602  01 
254  00 
260  17 


0 
0 
0 
0 
0 
0 
0 


044215  254  00  0  00  044204 


044216 
044217 
044220 
044221 


044222 
044223 
044224 
044225 

044226 
044227 

044230 
044231 
044232 
044233 
044234 
044235 
044^36 
044237 
044240 
044241 

044242 
044243 


260  17  0  00  044244 
334  00  0  00  000000 
260  17  0  00  047234 
254  00  0  00  044242 


261  17  0  00  101155 
261  17  0  00  101154 
2oJ  17  0  00  101155 
254  00  0  00  044230 

260  17  0  00  044442 
254  00  0  00  044242 


200  06 
200  01 
331  00 
254  00 
602  01 
i:4  00 
135  00 
316  00 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
06 
00 
GO 
00 
00 
00 
00 
00 
CO 


101154 
000001 
000001 
044226 
000777 
044226 
072433 
100734 
044541 
044226 


262  17  0  00  101155 

263  17  0  00  000000 


;HERE  IF  NO  SCNTBL  ENTRY  SLOTS  WERE  EMPTY  OR  NO  MEWORY 


FNDENA:  PUT 
PUT 
GET 
JRST 

FNDEAl:  GO 

JRST 


00  101154 

FNDENB:  HOVE 

06  000001 

MOVE 

00  400000 

TLNN 

00  044204 

JRST 

00  000777 

TRNE 

00  044204 

JRST 

00  044541 

GO 

FNDENC: 


JRST 

GO 

SKI  PA 
GO 
JRST 


SCNOLD 
SCNADD 
SCNOLD 
FNDENB 

BUFSCN 
FNDENC 

AC, SCNADD 

ACIJ(AC) 

ACl.dBO) 

FNDEAl 

ACU777 

FNDEA1 

RECLAM 

FNDEAl 

CMPCHK 

CMDXCT 
FNDEDX 


SAVE  CURRENT  OLD  ADDR 
THEN  RESET  THE  ADDR  TO 
THE  CURRENT  ONE 


.•SELECT  A  SCNTBL  ENTRY 

;ALL  SELECTED  -  CHECK  FOR  DATA  COMPARES 

GET  ENTRY  ADDRESS 

GET  2ND  ENTRY  WORD 

IS  ENTRY  A  WRITE  ENTRY? 

NO  -  TRY  NEXT  ENTRY 

YES  -  IS  USE  COUNT  =  0? 

NO  -  TRY  NEXT  ENTRY 

YES  -  ENTRY  COUNT  =  0  -  RECLAIM  MEMORY 

SPACE  FOR  A  NEW  ENTRY  &  SCNTBL  ENTRY 

POCESS  THE  NEXT  ENTRY 

; CHECK  FOR  ANY  DATA  COMPARES  CAUSE 

;TRY  TO  EXECUTE  ANOTHER  CMD 
;EXIT 


DD 
DD 


;HERE  TO  DELETE  ALL  USLESS  WRITE  BUFFERS  OF  SAME  PATTERN  NUMBER 

;SAVE  THE  OLD  SCNADD  POINTER 
.-RESET  IT  TO  THE  CURRENT  ONE 


FNDEND:  PUT 
PUT 
GET 
JRST 


SCNOLD 
SCNADD 
SCNOLD 
.+3 


FNDEDl:  GO  BUFSCN 

JRST  FNDEDX 

MOVE  AC, SCNADD 

MOVE  ACI.KAC) 

SKIPL  ACl 

JRfT  FNDtDI 

TRNE  ACl. 777 

JRST  FNDEDl 

LDB  [POINT  6.AC1.11] 

CAMN  .PATN 

GO  RECLAM 

JRST  FNDEDl 

FNDEDX:  GET  SCNOLD 
RTN 


;6ET  A  SCNTBL  ENTRY 
.-ALL  DONE  -  EXIT 


GET  THE  SCNTBL  ADDRESS 

GET  THE  2ND  ENTRY  WORD 

IS  IT  A  WRITE  ENTRY? 

NCPE   LOOK  AT  THF  NEXT  ENTRY 

YES  -  BUT  IS  IT  IN  USE? 

LOOK  AT  THE  NEXT  ENTRY 

GET  THE  PATTERN  NUMBER 

SAME  AS  SELECTED? 

YES  -  RESET  THE  BUFFER  SPACE 

LOOK  AT  THE  NEXT  ENTRY 


.-RESTORE  THE  SCNOLD  POINTER 


DDRPl  SUBROUTINES   (RPOA/05/06  RELIABILITY) 
COMMAND  MEMORY  ALLOCATOR  &  ENTRY  GENERATOR  -  FNDENT 

FNDENT 

♦SETUP  "SCNOLD"  ♦ 

♦  * 


DECFLO  VER     00.12  12-APR-78  OSi^^     PAGE  OA 


SEQ  0328 


I 

♦♦• 

*A* 
*♦♦ 

I 
I 
I 
I 
I 
1 
I 
I 
I 


I 


BUFSCN  I 

Ifklfklttltlilfkirlf  Kit-kit  1t1t*1t1i  lit 

*  GET  A  SCNTBL  * 

*  POINTER  ADDRESS       ♦ 

*  * 

I 

/     POINTERS  ALL       \YES 
/  CHECKED?  \-- 

/  \ 

I  NO 

I     FNDEN2 


NO         / 
I< / 

/ 


ENTRY  EMPTY 

7 


\ 


\ 


\ 


I   YES 

I 

I< 

FNDHOL  I  FNDEN3 

♦  FIND  A  MEMORY  SLOT     * 

♦  TO  FIT  TRANSFER       * 

♦  SIZE  * 

I 


/       ENOUGH  CORE       \N0 
/         AVMLABLE?  \- 


I   YES 

*♦♦♦♦♦♦•    •♦♦♦♦•*♦*♦♦♦♦♦ 

♦  ♦ 

♦  BUILD    :ntbl  entry    ♦ 

♦  * 

t*****^    ♦♦♦♦»♦♦♦♦**♦♦♦* 

SET?  \P     I 

***  ♦♦♦♦♦*♦♦♦♦♦♦♦ 

♦  SET  BUFMAP       * 

♦  INUSE  BITS       ♦ 

♦  ♦ 
***************** 

I 


I 


; 


BUFSCN  I  FNDENA 

*       SELECT  A  SCNTBL  * 

i              POINTER  * 

I 

/     POINTERS  ALL  \YES 

/           CHECKED?  \— 

/  \ 


•>I  NO 
I     FNDENf. 


NO 


/  UNUSED  'VRITE"     \ 
ENTRY? 


\ 


RECLAM  I   YES 

t.        RECLAIM  ENTRY  * 

t  SLOT  AND  * 

t         MEMORY  SPACE  ♦ 


I 


CMPCHK 


>I<- 

I 


FNDENC 


* ******************** t* 

♦  CHECK  FOR  AND  START   * 

♦  ANY  DATA  COMPARE        ♦ 

FILLQ  *  OPERATIONS  * 

**************************************** 

♦  TRY  TO  SAVE     ♦  I 

♦  CODEH  ENTRY     *  ♦♦♦ 

t         IN  USB  ♦  *A* 

*****************  *♦* 

I 
*********** 

**RTN         ♦♦ 
*********** 

I 


•>I 
I 
I 
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SEQ  0329 


r 

D[ 

m 


9871 

9872 

9873 

9874 

9875 

9876 

9877 

9878 

9879 

9880 

9381 

9882 

9883 

9884 

9885 

9886 

9887 

9888 

9889 

9890 

9891 

9892 

9893 

9894 

9895 

9896 

9897 

9898 

9899 

9900 

9901 

9902 

9903 

9904 

9905 

9906 

9907 

9908 

9909 

9910 

9911 

9912 

9913 

9914 

9915 

9916 

9917 

9918 

9919 

9920 


044244 
044245 
044246 
044247 
044250 
044251 
044252 

044253 
044254 

044255 
044256 
044257 
044260 
044261 
044262 
044263 
044264 
044265 
044266 
044267 
044270 
044271 
044272 

044273 
044274 
044275 
044276 

044277 
044300 
044301 
044302 
044303 

044304 
044305 
044306 
044307 
044310 
044311 


402 
261 
261 
261 
261 
262 
254 


00 
17 
17 
17 
17 
17 
00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


077553 
101155 
000001 
000006 
101154 
101155 
044255 


260  17  0  00  044442 
254  00  0  00  044304 


200  06 
350  00 
200  01 
603  01 
254  00 
607  01 
254  00 
602  01 
254  00 
261  ~ 
261 


17 
17 


13S  13 
5:>}  11 
260  17 


0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
13 
00 


101154 
000006 
000006 
400000 
044253 
001700 
044277 
000777 
044253 
000013 
00001 1 
072434 
100747 
045202 


262  17  0  00  000011 
262  17  0  00  000013 
476  00  0  00  077553 
254  00  0  00  044253 

602  01  0  00  000777 
254  00  0  00  044253 
332  00  0  06  777777 
260  17  0  00  044541 
254  00  0  00  044253 

336  00  0  00  077553 
350  00  0  17  777775 
262  17  0  00  000006 
262  17  0  00  000001 

262  17  0  00  101155 

263  17  0  00  000000 


SUBTTL  PENDING  DATA  COMPARE  CHECKER 

!-*CMPCHK  —  ROUTINE  TO  CHECK  FOR  AND  START  ANY  PENDING  DATA 
;♦      COMPARES  FROM  READ  DATA  TRANSFERS 


CMPCHK:  SETZM 
PUT 
PUT 
PUT 
PUT 
GET 
JRST 


CMPCKI 


GO 
JRST 


CMPCK2:  MOVE 
AOS 
MOVE 
TLNE 
JRST 
TLNN 
JRST 
TRNE 
JRST 
PUT 
PUT 
LD6 
HRRZ 
60 


GET 
GET 
SETOM 
JRST 

TRNE 

JRST 

SKIPE 

GO 

JRST 

SKIPN 

AOS 

GET 

GET 

GET 

RTN 


CMPCK3: 


CMPCKX: 


COMPXF* 

SCNOLD 

AC1 

AC 

SCNADD 

SCNOLD 

CMPCK2 

BUFSCN 
CMPCKX 

AC, SCNADD 

AC 

ACl,aAC 

AC1,(1B0) 

CMPCK1 

AC1,(17B11) 

CMPCK3 

ACU777 

CMPCKI 

DRIVE 

DSBP 

DRIVE, [POINT  6, ACT, 17] 

DSBP,DSBTBL(DRIVE) 

COMP 

DSBP 
DRIVE 
COMPXF 
CMPCKI 

AC1, 777 

CMPCKI 

-KAC) 

RECLAM 

CMPCKI 

COMPXF 

-3(P) 

AC 

AC1 

SCNOLD 


; CLEAR  THE  COMPARE  EXECUTED  FLAG 
;SAVE  ORRIGINAL  CONTENTS 


;RESET  TO  SCNADD  ADDRESS 
;JUMP  1ST  TIME  HERE 

;6ET  A  SCNTBL  ENTRY  PAIR  ADDRESS 
;ALL  ENTRYS  CHECKED 

GET  THE  POINTER  ADDRESS 

UPDATE  TO  POINT  INTO  2ND  ENTRY  WORD 

GET  2ND  ENTRY  WORD 

WRITE  PATTERN  ENTRY? 

YES  -  CHECK  NEXT  ENTRY  PAIR 

ANY  READ  PATTERN  SPECIFIED? 

NO  -  READ  THROWAWAY  -  CHECK  NEXT  ENTRY 

BUFFER  STILL  IN  USE? 

YES  -  CHECK  NEXT  ENTRY 

SAVE  DRIVE  #  SELECTED 

AND  DSB  POINTER 

EXTRACT  DRIVE  #  FROM  ENTRY 

LOAD  DSBP  FOR  COMPARE 

COMPARE  DATA  IN  BUFFER 

CLEAR  SCNTBL  ENTRY  I   BUFFER  MAP 

RESTORE  DSB  POINTER 

AND  DRIVE  0 

THEN  SET  THE  COMPARE  EXECUTED  FLAG 

CHECK  NEXT  SCNTBL  ENTRY  PAIR 


ANY  IN  USE  COUNT? 

YES 

ANY  ENTRY  HERE?? 

YES  -  RECLAIM  THE  READ  BUFFER 


;ANY  COMPARES  DONE? 

;N0  -  BUMP  THE   RETURN  ADDRESS 


.♦RESET   SCNOLD   TO  0RR16.    CONTENTS 
;AND  RETURN  ^2 


L 


DDRPl  SUBROUTINES  (RPOA/05/06  RELIABILITY) 
ROUTINE  TO  INITIATE  DATA  COMPARES  -  CMPCHK 

*********** 

♦*CMPCHK  ** 
*********** 


DECFLO  VER  00.12  12-APR-78  08:AA  PAGE  10 


SEQ  0330 


BUFSCN     I< 

*********************** 

♦  GET  A  SCNTBL     * 

♦  ENTRY  ADDRESS    ♦ 

♦  ♦ 
*********************** 


*** 

.*A* 

*** 


I 


I 


/   ALL  ENTRYS 
/     CHECKED? 


\YES 
\— 
\ 


ANY  COMPARES 
SELECTED 


\YES 


*********** 

-**RTN    ** 
*********** 


I  NO 
***************** 

*  GET  SCNTBL   * 

*  ENTRY  2  WORD  * 

*  * 
***************** 

I 


I  NO 
*********** 

♦*RTN2   *♦ 
*********** 


/ 
/ 
/ 

WRITE  PATTERN 
ENTRY  ? 

\YES 

*** 

*** 

I  NO 

/ 
/ 
/ 

NON-ZERO  READ 
PATTERN  ? 

\N0   ] 

\ >J 

\   J 

I  YES 

i. 

■  ■  ■  . 

/ 
/ 
/ 

READ  BUFFER 
STILL  IN  USE? 

\YES  J 

\ >J 

\   i 

■■'.  -  ■  ■. ' 

■ 

GO  CMPCHK 

RtTURN+1  -  IF  COMP  EXECUTED 

RETURN+2  -  NORMAL 

RETURNS  WITH  ALL  DATA  COMPARES 
PROCESSED  AND  UNUSED  READ 
SCNTBL  ENTRYS  CLEARED 


I  NO 

***************** 

♦  SAVE  CURRENT  ♦ 

♦  DRIVE  #    » 

♦  * 
*****************      * 

COMP      I  f 

***********************   I 

t      COMPARE      ♦ 

♦  DATA  AND  CLEAR    ♦ 

♦  SCNTBL  &  MEMORY  MAP  ♦ 

*********************** 

I 
***************** 

»  RESTORE  DRIVE  ♦ 

♦  #  ♦  DSB    * >I 

♦  POINTER    * 
***************** 


DDRPl  - 
DDRP13 

9922 
9923 
9924 
9925 
9926 

9928 

9929 

9930 

9931 

9932 

9933 

9934 

9935 

9936 

9937 

9938 

9939 

9940 

9941 

9942 

9943 

9944 

9945 

9946 

9947 

9948 

9949 

9950 

9951 

9952 

9953 

9954 

9955 

9956 

9957 

9958 

9959 

9960 

9961 

9962 

9963 

9964 

9965 
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SUBTTL  WRITE/READ  TRANSFER  ALLOCATOR 

)*WRTALC  —  ROUTINE  TO  SETUP  AND  ALLOCATE  MEMORY  BUFFER  SPACE  FOR  A 

*  WRITE  DATA  TRANSFER.  RETURNS  WITH  SELECTED  DRIVES  DSB  AREA  SETUP 

*  WITH  A  COPY  OF  THE  GENERATED  "SCNTBL"  ENTRY  AND  WITH  THE  MEMORY 

*  BUFFER  MAP  BITS  SET  INDICATING  USED  MEMORY.  ANY  PENDING  DATA 
•*      COMPARES  WILL  HAVE  BEEN  PROCESSED.  ENTERED  WITH  ACO  C0NTININ6 

:•*      (LH)  BIT  0  =  1  AND  PATTERN  NUMBER  IN  BITS  13  TO  17,  (RH)  CONTAINS  TRANSFER 


SEQ  0331 


r" 

! 

Id 

D 


044312 
04431 3 
044314 
044315 
044316 


261  17  0  00  000000 

261  17  0  00  101154 

262  17  0  00  101155 
260  17  0  00  044244 
310  00  0  00  000000 


04431 7 
044320 
044321 
044322 
044323 

044324 
044325 

044326 
044327 
044330 
044331 
044332 
044333 
044334 
044335 
044336 
044337 
044340 
044341 
044342 
044343 


262  17  0  00  000000 
331  00  0  00  000000 
254  00  0  00  044376 
607  00  0  00  000017 
254  00  0  00  044346 

260  17  0  00  044650 
254  00  0  00  044354 


CK)}  02 
504  02 
200  01 
200  03 
350  00 
202  03 
402  00 
200  05 
242  05 
434  05 
504  05 
661  05 
260  ^7 
254  00 


1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
01 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 


101154 
100733 
101154 
000001 
000003 
000001 
000004 
100731 
000010 
100732 
100730 
400000 
052711 
044361 


WRTALC: 


PUT 

PUT 

GET 

60 

CAM 


ACO 
SCNADD 
SCNOLD 
CMPCHK 


;SAVE  ORIG.  SCNTBL  POINTER  ADDRESS 

; CHECK  FOR  AND  INITIATE  ANY  PENDING  DATA  COMPS 


;IF  PATTERN  #  (LH  OF  ACO)  =  0  THEN  USE  ANY  PATTERN  THAT  EXISTS  AS  LONG  AS 
;THE  SIZE  FIELD  (RH  OF  ACO)  FITS  SCNTBL  ENTRY 


WRTALE: 


GET 
SKI  PL 
JRST 
TLNN 
JRST 


WRTAL1:  GO 

JRST 

WRTAL2:  MOVE 
HRL 
MOVE 
MOVE 
AOS 
MOVEM 
SETZM 
MOVE 
LSH 
I  OR 
HRL 
TLO 
GO 
JRST 


ACO 

RDALC1 

17 

WRTANY+2 

BUFMCH 
WRTGEN 

AC2,aSCNADD 

AC2,.SIZE 

AC1, SCNADD 

AC3J(AC1) 

AC3 

AC3J(AC1) 

AC4 

AC5,.SURF 

AC5,*D8 

AC5,.SECT 

AC5,.CYLIN 

AC5,(1B0) 

FILLQ 

WRTAEX 


GET  THE  ENTERING  ARGUMENT  AGAIN 

IS  IT  A  READ  ENTRY??? 

YES  -  BUT  I  DON'T  KNOW  WHY??? 

ANY  PATTERN  INDICATED? 

NO  -  JUST  LOOK  FOR  SIZE  FIELD  MATCH 

LOOK  FOR  EXACT  PATTERN  AND  FIELD  MATCH 

NO  MATCH  OF  SCNTBL  ENTRYS  -  GEN  NEEDED  DATA 

GET  FIRST  ENTRY  WORD  FROM  SCNTBL   . 
RESET  SIZE  FIELD  (WORD  COUNT) 

GET  2ND  SCNTBL  ENTRY  WORD 

SAVE  THE  UPDATED  WORD 

GET  THE  SELECTED  SURFACE  # 

POSITION  IT 

GET  THE  SELECTED  SECTOR  # 

AND  THE  SELECTED  CYLINDER  # 

SET  THE  DSK  ADDR  INDICATOR 

SAVE  THE  COMMAND  IN  DSB  AND  QUE 

EXIT 


DDRPl  - 
DDRP13 

9966 

9967 

9968 

9969 

9970 

9971 

9972 

9973 

997A 

9975 

9976 

9977 

9978 

9979 

9980 

9981 

9982 

9983 

998A 

9985 

9986 

9987 

9988 

9989 

9990 


RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  Z53B(1242)  15:51  28-Aug-85  Page  78 
MAC     28-Aug-85  15:49        WRITE/READ  TRANSFER  ALLOC'.TOR 


r 


SEQ  0332 


;HERE  TO  LOOK  FOR  ANY  WRITE  BUFFER  WITH  A  MATCHING  SIZE  FIELD 
;FOR  A  WRITE  "THROWAWAY"  OPERATION 


04A344 
044345 
044346 
044347 
044350 
044351 
044352 
044353 


260  17 
254  00 
554  01 
622  01 
271  01 
315  01 
254  00 
254  00 


0  00  044442 

0  00  044354 

1  00  101154 
0  00  000777 
0  00  001000 
0  00  100733 
0  00  044344 
0  00  044326 


WRTANY:  60 

JRST 

HLRZ 

TRZE 

ADOI 

CAMGE 

JRST 

JRST 


BUFSCN 

WRTGEN 

ACI.aSCNADD 

AC1, 777 

AC1J000 

AC1,.SIZE 

WRTANY 

WRTAL2 


;HERE  IF  NO  SCNT8L  ENTRY  MATCH 
; GENERATE  THE  NEEDED  DATA 


044354  200  00 

044355  606  00 

044356  350  00 

044357  260  17 
044360  260  17 


0  00  100734 
0  00  000017 
0  00  100734 
0  00  044121 
0  00  053227 


044361  263  17  0  00  000000 


WRTGEN:  MOVE 
TRNN 
AOS 
GO 
GO 

WRTAEX:  RTN 


.PATN 

17 

.PATN 

FNDENT 

GENDAT 


;GET  A  SCNTBL  ENTRY  PAIR  ADDRESS 

;FAILED  TO  FIND  AN  AREA  -  GENERATE  ONE 

;GET  1ST  ENTRY  WORD  OF  SCNTBL  ENTRY 

;SAVE  ONLY  K   VALUE 

;FOR  THE  SIZE  CHECK 

;WILL  XFR  FIT  WITH  THIS  BUFFER? 

;N0  -  TRY  NEXT  ENTRY  PAIR 

;YES  -  SAVE  THIS  ENTRY  PAIR  IN  DSB  AREA 

-  GENERATE  A  NEW  SCNTBL  ENTRY  PAIR  AND 


;GET  THE  PATTERN  NUMBER 

;ANY  SELECTED?? 

;N0  -  MAKE  IT  PATTERN  #1  (ONES) 

; GENERATE  SCNTBL  ENTRY  AND  SETUP  MEMORY  MAP 

.-GENERATE  DATA  IN  ALLOWED  MEMORY  BUFFER 


;EXIT 


r 


DDRPl  SUBROUTINES   (RP04/05/06  RELIABILITY) 
WRITE  COMMAND  PROCESSOR  -  WRTALC 


OECFLO  VER     00.12  12-APR-78  08:^4     PAGE  '2 


SEQ  0333 


*•♦•••♦*••* 

**WRTALC  ** 
r 

1 

*  SETUP 

♦  SCNOLD 

* 

* 
* 

•*♦*••*♦*•♦**•♦•• 

CMPCHK     I 

*  CHECK           * 

*  FOR  DATA         * 

*  COMPARES         * 

I 

I 

/           USE  ANY 
/         PATTERN  TO 
/               WRITE? 

\ 

^YES 

\ 

•>I 


I   NO 

BUFMCH  I  WRTAL1 

♦♦•♦♦♦♦♦*♦•♦♦♦♦••♦♦•**• 

♦  LOOK  FOR  EXACT         ♦ 

♦  SCNTBL  ENTRY  * 

♦  MATCH  ♦ 

I 


/ 


BUFSCN     I 

tlttltlt*  tit  *1(1fk1t1r  If** 

*  SELECT  A  NEW     * 

*  SCNTBL  ADDR     * 

*  * 

I 

DONE 
SELECTING 


/ 


\YES 
\ 


I  NO 


I< 


NO         / 
/ 


SIZE 
FIT 

9 


\ 


/ 


MATCH 
FOUND 

7 


\N0 
\— 
\ 


t********** 

->**WRTGEN  ** 
t********** 


1   YES 


I   YES 

I< 

FILLQ  I  WRTAL2 

t******* *******  ******** 

♦     GENERATE  A  SCNTBL     ♦ 


> 

FNDENT  I  WRTGEN 

t******* ********  it****** 

♦  FIND  A  SCNTBL  ENTRY  ♦ 
*THATS  EMPTY&ALLOCATE   * 

♦  A  MEMORY  SLOT         * 
i(t**  ******************* 

GENDAT  I 

t*** **********  ********* 

♦  GENERATE  NEEDED       ^ 

♦  DATA  PATTERN  * 

♦  * 


♦  WORD  AND  TRY  TO       * 

♦  SAVE   IN  DSB  * 

iitt******************** 


I 

1< 

I     WRTAEX 


WRTAEX 


*********** 

♦♦RTN         ♦♦ 
t********** 
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SEQ  0334 


9992 

9993 

9994 

9995 

9996 

9997 

9998 

9999 

10000 

10001 

10002 

10003 

10004 

10005 

10006 

10007 

10008 

10009 

10010 

10011 

10012 

10013 

10014 

10015 

10016 

10017 

10018 

10019 

10020 

10021 

10022 

10023 

10024 

10025 

10026 

10027 

10028 

10029 

10030 

10031 

10032 

10033 

10034 

10035 

10036 

10037 


044362 
044363 
044364 
044365 
044366 
044367 
044370 
044371 
044372 
044373 
044374 
044375 
044376 

044377 
044400 
044401 

044402 
044403 
044404 
044405 
044406 
044407 
044410 
044411 
044412 
044413 
044414 
044415 
044««16 
044417 
044420 
044421 


261 
261 
262 
260 
310 
262 
335 
254 
546 
542 
607 
254 
260 


17 
17 
17 
17 
00 
17 
00 
00 
00 
00 
00 
00 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
101154 
101155 
044244 
000000 
000000 
000000 
044322 
100734 
100733 
00001 7 
044402 
044121 


332  00  0  00  100734 
260  17  0  00  044422 
263  17  0  00  000000 


2oJ  17 
254  00 
200  02 
504  02 
200  01 
200  03 
350  00 
202  03 
402  00 
200  05 
242  05 
434  05 
504  05 
661  05 
260  17 
254  00 


0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
01 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 


044650 
044376 
101154 
100733 
101154 
000001 
000003 
000001 
000004 
100731 
000010 
100732 
100730 
400000 
052711 
044377 


♦RDALC  —  ROUTINE  TO  SETUP  MEMORY  FOR  A  READ  DATA  TRANSFER^^  _^^ 

♦  RETURNS  WITH  DSB  AREA  (SELECTED  DRIVE)  SETUP  WITH  TRANSFER 

♦  SIZE,  BUFFER  ADDRESS  OF  READ,  TYPE  OF  DATA  EXPECTED   (IF 

♦  KNOWN)^  'BUFMAP"  -  MEMORY  MAP  -  BIT  SET  TO  INDICATE  USED  CORE 

♦  AREA,  ''SCNTBL"  ENTRY  BUILT  AND  COPIED  IN  DSB  AREA,  AND  IT  WILL 

♦  INITIATE  ANY  ''PENDING*^  DATA  COMPARES  NEEDED  FROM  PREVIOUS  DATA 

♦  TRANSFERS.  ACO  CONTAINS  (LH)  PATTERN  NUMBER  &  (RH)  TRANSFER 

♦  SIZE  UPON  ENTRY. 


RDALC:  PUT 
PUT 
GET 
GO 
CAM 
GET 

SKIPGE 
JRST 
HLRM 
HRRM 
TLNN 
JRST 

RDALC 1:  GO 

SKIPE 

GO 

RTN 

RDALC2:  GO 

JRST 

MOVE 

HRL 

MOVE 

MOVE 

AOS 

MOVEM 

SETZM 

MOVE 

LSH 

lOR 

HRL 

TLO 

GO 

JRST 


ACO 

SCNADD 
SCNOLD 
CMPCHK 

ACO 

WRTALE 

.PATN 

.SIZE 

17 

RDALC2 

FNDENT 

.PATN 
SETNUL 


BUFMCH 

RDALCl 

AC2,aSCNADD 

AC2,.SIZE 

AC1, SCNADD 

AC3,1(1) 

AC3 

AC3,1(1) 

AC4 

AC5,.SURF 

AC5,'"D8 

AC5,.SECT 

AC5,.CYLIN 

AC5,(1B0) 

FILLQ 

RDALCU1 


SAVE  THE  ENTRY  ADDRESS  TO  SCNTBL 

CHECK  FOR  AND  INITIATE  ANY  PENDING 
DATA  COMPARES 

IT  THIS  A  WRITE  ENTRY??? 

YES  -  KIND  OF  SCREWY  THOUGHI! 

SAVE  THE  PATTERN  NUMBER 

AND  THE  XFR  SIZE 

ANY  PATTERN  NUMBER?? 

YES 

FIND  A  FREE  SPOT  IN  "SCNTBL"  FOR  A  READ 

OPERATION  AND  ALLOCATE  MEMORY  SPACE 

ANY  PATTERN? 

YES  -  SET  THE  NULL  DATA  PATTERN  IN  READ  BUFER 


FIND  A  MATCH  IN  SCNTBL  ENTRY? 

NO 

YES  -  GET  THE  1ST  WORD 

GET  THE  XFR  SIZE 

GET  THE  POINTER 

GET  THE  2ND  SCNTBL  WORD 

UPDATE  IT 

SAVE  THE  UPDATED  WORD 

GET  THE  SURFACE  # 

POSITION  IT 

GET  THE  SECTOR  # 

GET  THE  CYLINDER  # 

SET  THE  DSK  ADDR  INDICATOR 

FILL  THE  DSB  WITH  THE  CMD 


\2 


DDRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
READ  COMMAND  PROCESSOR  -  RDALC 


DECFLO  VER  00.12  12-APR-78  08:4A  PAGE  05 


SEQ  0335 


READ  ALLOCATION  ROUTINE 

**RDALC****  EXITS  WITH  DRIVES'  DSB  AREA: 

*****!*****  SETUP  WITH  A  COPY  OF  "SCNTBL"  ENTRY 

*****************  (TRANSFER  SIZE,  BUFFER  ADDRESS,  PATN.  DATA) 

♦  ^IN^SCHOLD^  *  SETS  MEMORY  MAP  BITS  TO  INDICATE  USED 

»  ♦  MEMORY  SPACE  ALLOCATED  FOR  A  READ  TRANSFER 

CMPCHK     I  BUILDS  A  2  WORD  "SCNTBL"  ENTRY  PAIR 

**  CHECK  FOR  ANY  *♦ 
♦*    DATA  COMPARES    ** 

FNDENT     I 

**  ALLOCATE  MEMORY  •♦ 
♦♦  AND  BUILD  A  ♦* 
♦♦    SCNTBL  ENTRY     ♦♦ 

I  SETNUL 

.................         *********************** 

/    ANY  DATA     \YES      ♦  SET  READ  BUFFER  TO  ♦ 

/      PATTERN      \ >*    NULL  PATTERN     * 

/         ?         \      ♦  » 

.......................      *********************** 

I  NO                      I 
I< « 

*********** 
**RTN    ♦♦ 

***********: 
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SEQ  0336 


10039 

100A0 

100A1 

100A2 

100A3 

10044 

10045 

10046 

10047 

10048 

10049 

10050 

10051 

10052 

10053 

10054 

10055 

10056 

10057 

10058 

10059 

10060 

10061 

10062 

10063 

10064 

10065 

10066 

10067 

10068 

10069 

10070 

10071 

10072 

10073 

10074 

10075 

10076 

10077 

10078 

10079 

10080 

10081 


044422 
044423 
044424 
044425 
044426 
044427 
044430 
044431 
044432 
044433 
044434 
044435 
044436 
044437 
044440 
044441 


044442 
044443 
044444 

044445 
044446 
044447 
044450 
044451 
04445: 
044^53 


261 
261 
261 
200 
200 
202 
514 
270 
350 
270 
370 
251 
262 
262 
262 
263 


17 
17 
17 
01 
02 
02 
00 
00 
00 
01 
00 
00 
17 
17 
17 
17 


0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
00 
00 


000000 
000001 
000002 
100735 
101163 
000001 
000001 
000001 
000000 
100733 
000001 
000000 
000002 
000001 
000000 
000000 


261  17  0  00  000006 
250  06  0  00  101154 
271  06  0  00  000002 


301  06 
201  06 
312  06 
350  00 
250  06 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
17 
00 
00 
00 


101153 
101103 
101155 
111171 
101154 
000006 
000000 


SUBTTL  DATA  TRANSFER  UUO  SUPPORTING  ROUTINES 

;»SETNUL  —  ROUTINE  TO  SET  A  NULL  PATTERN  IN  A  MEMORY  READ  BUFFER^ 
•♦     SO  THF  COMPARE  CAN  DETECT  AN  ERROR  WHEN  USING  STRANGE  DATA 


SETNUL: 


PUT 

ACO 

PUT 

AC1 

PUT 

AC2 

MOVE 

AC1,.BUFF 

MOVE 

AC2,NULL 

MOVEM 

AC2,aACl 

HRL2 

AC1 

ADD 

AC1 

AOS 

ACO 

ADD 

ACK.SIZE 

SOS 

AC1 

BLT 

(AC1) 

GET 

AC2 

GET 

AC1 

GET 

ACO 

RTN 

;SAVE  AC'S 


;GET  THE  START  ADDR  OF  BUFFER 
;GET  THE  NULL  DATA  WORD 
;SAVE  IT  IN  THE  FIRST  BUFFER  ADDR 
;BUILD  A  BLT  POINTER 


;BUILD  END  OF  BLT 

;SET  BUFFER  TO  THE  NULL  DATA  PATTERN 
.•RESTORE  AC'S 


}»BUFSCN  —  ROUTINE  TO  SELECT  A  "SCNTBL"  ENTRY  PAIR 

•♦  RETURNS  WITH  "SCNADD"  POINTING  TO  STARTING  ADDRESS  OF  NEXT  "SCNTBL' 
;♦  ENTRY  (DATA  TRANSFER  OPERATION).  THE  PREVIOUS  CONTENTS  OF  "SCNADD" 
;*      WILL  BE  DESTROYED. 


BUFSCN: 


PUT 

AC 

EXCH 

AC.SCNADD 

ADD  I 

AC, 2 

CAIL 

ACSCNEND 

MOVE  I 

AC, SCNTBL 

CAME 

AC.SCNOLD 

AOS 

-1(P) 

EXCH 

AC.SCNADD 

GET 

AC 

RTN 

*SAVE  AN  AC 

l-PUT  OLD  POINTER  ADDRESS  IN  AN  AC 

;BUMP  ADDRESS  TO  NEXT  ENTRY  PAIR  SET 

;0F  "SCNTBL" 

;AT  THE  END  OF  THE  SCAN  TABLE? 

;YES  -  RESET  POINTER  TO  START  OF  SCAN  TABLE 

;BACIC  WHERE  ORIGINALLY  STARTED  IN  SCAN  TABLE? 

;N0  -  SETUP  TO  RETURN  +2 

;SAVE  POINTER  ADDRESS  IN  SCNADD 

.•RESTORE  AC 

;EXIT 


24 


DORPl  SUBROUTINES  (RP04/05/06  RELIABILITY)  DECFLO  VER  00.12  12-APR-78  08:44  PAGE  11 

ROUTINE  TO  FIND  AN  ENTRY  INTO  "SCNTBL"  -  BUFSCN 

***********  BUFSCN  ENTERED  BY: 

♦♦BUFSCN  ♦♦ 

***********  PUT  SCNADD 

I  GET  SCNOLD     ; SAVE  ORIGINAL  ADDRESS 

*****************  60   BUFSCN     -SELECT  AN  ENTRY  PAIR 

♦  EXCHANGE  AC  *  RETURN  O  =  NO  NEy  ENTRY  FOUND 

♦  WITH  SCNADD  ♦  RETURN  *2  =  SCNADD  POINTS  TO  NEW  ENTRY 

♦  » 
***************** 

I 
***************** 

♦  UPDATE  AC  TO  ♦ 

♦  POINT  TO  NEXT  ♦ 

♦  ENTRY     ♦ 
***************** 

I 
.................  ***************** 

/     END  OF      \YES        ♦  RESET  AC  TO  ♦ 

/    SCAN  TABLE?    \ >^START  OF  TABLE  ♦ 

/  \         *  * 

.......................         ***************** 

I  NO                       I 
I< 

.................  ***************** 

/  ADDRESS  SAME   VNO         ♦  ^1  TO  RETURN  ♦ 

/     AS  START      \ ^— >♦    ADDRESS    ♦ 

/     ADDRESS?      \         *  ♦ 

.......................         ***************** 

I  YES                     1 
I< 

***************** 

♦  EXCHANGE  AC  ♦ 

♦  WITH  SCNADD  ♦ 

*****************  "SCNADD"  POINTS  TO  AN  ENTRY  ADDRESS  INTO  THE 

I  "SCNTBL"  OPERATION  TABLE 

♦♦RTN****^^  "SCNOLD"  IS  THE  ENTRY  ADDRESS  WHEN  FIRST  ENTERED 

***********  THIS  ROUTINE 

"SCNEND"  IS  THE  LAST  ADDRESS  IN  "SCNTBL" 

"SCNTBL"  IS  A  DATA  TRANSFER  OPERATION  TABLE 

CONTAINING  2  WORD  ENTRYS  FOR  EACH  TRANSFER 


SEQ  0337 


r 
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SEQ  0338 


10083 

1008A 

10085 

10086 

10087 

10088 

10089 

10090 

10091 

10092 

10093 

1009A 

10095 

10096 

10097 

10098 

10099 

10100 

10101 

10102 

10103 

1010A 

10105 

10106 

10107 

10108 

10109 

10110 

10111 

10112 

10113 

10114 

10115 

10116 

10117 

10118 


0A4A54 
044A55 
04A456 
0A4A57 
044460 
044461 
044462 
044463 

044464 
044465 
044466 
044467 

044470 
044471 
044472 
044473 
044474 
044475 
044476 
04^477 
044S00 

044  .01 
044302 
044503 
044504 


261  17  0 
261  17  0 
261  17  0 
037  02  0 
336  00  0 
254  00  0 
336  00  0 
254  00  0 


00  000000 
00  000001 
00  000002 
00  072435 
00  030037 
00  044501 
00  030516 
00  044470 


104  00  0  00  000014 

274  01  0  00  030054 

231  01  0  00  001750 

254  00  0  00  044505 


200  01  0 
047  01  0 
400  01  0 
274  01  0 


336  00 
231  01 
332  00 
231  01 
23  00 


0 
0 
0 
0 
0 


00  070465 
00  000041 
00  OCOOOO 
00  030054 
00  030505 
00  000074 
00  030505 
00  000062 
00  044505 


200  01  0  00  030054 

221  01  0  00  000144 

230  01  0  00  077622 

231  01  0  00  001750 


SUBTTL  PROGRAM  RUN  TIME  PRINTER 

!-*RUNTIM  —  THE  PROGRAM  RUN  TIME  PRINTER  PRINTS  THE  CURRENT  PROGRAM 
;♦     RUN  TIME  TO  THE  NEAREST  SECOND. 
;*      FORMAT  IS  DD:HH:«M:SS 


RUNTIM:  PUT 
PUT 
PUT 
PMSG 
SKIPN 
JRST 
SKIPN 
JRST 

TIMEX 
SUB 
IDIVI 
JRST 

RUNTMO:  MOVE 

GETTAB 

SETZ 
SUB 
SKIPN 
IDIVI 
SKIPE 
IDIVI 
JRST 


RUNTM1 


MOVE 
IMULI 
IDIV 
IDIVI 


ACO 

AC1 

AC2 

<*PROGRAM  RUN  TIME 

USER 

RUNTM1 

MONTYP 

RUNTMO 


AC1, TICKS 

AC1,*D1000 

RUNTM3 

ACKCXNSUPT] 

AC1, 

AC1, 

AC1, TICKS 

CYCL60 

1,*D60 

CYCL60 

1,*D50 

RUNTM3 


=  > 


AC1, TICKS 
AC1,*D1C0 
AC1,HERTZ# 
AC1,*D1000 


;SAVE  SOME  AC'S 


IN  USER  MODE? 

NO  -   IN  EXEC  MODE 

TOPS-20? 

No 

Yes,  get  uptime  in 
Compute  elapsed  mil  1 1 seconds 
Convert  to  seconds 
and  print  the  elaplsed  time 

Get  system  uptime  in  ticks 
from  the  monitor 

Compute  elapsed  time  in  ticks 
Are  we  running  6OH2? 

Yes,  most  of  the  world  does 
Are  we  in  Europe? 

Yes,  it  is  50  Hz  mon  ami 
AND  PRINT  THE  TIME 

GET  THE  RUN  TIME 

MUST  BE  USING  POWER  LINE  CLOCK 
.•CONVERT  TO  SECONDS 


L 
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SEQ  0339 


10119 

10120 

10121 

10122 

10123 

1012A 

10125 

10126 

10127 

10128 

10129 

10130 

10131 

10132 

10133 

1013A 

10135 

10136 

10137 

10138 

10139 

10140 

10141 

10142 

10143 

10144 

10145 

10146 

10147 

10148 

10149 

10150 

10151 

10152 

10153 

10154 


044505 
044506 
044507 
044510 
044511 
044512 

044513 
044514 
044515 
044516 

044517 
044520 
044521 
044522 
044523 

044524 
044525 
044526 

044527 
044530 
044531 
044532 

044533 
044534 
044535 
044536 
044537 
044540 


200  00 
231  00 
336  00 
254  00 
037  15 
037  00 


0  00  000001 
0  00  250600 
0  00  000000 
0  00  044513 
0  00  000000 
0  00  000072 


200  00  0  00  000001 
231  00  0  00  007020 
037  15  0  00  000000 
037  00  0  00  000':/ 2 

200  00  0  00  000001 
231  00  0  00  000074 
260  17  0  00  044533 
037  15  0  00  000000 
037  00  0  00  000072 

200  00  0  00  000001 

260  17  0  00  044533 
037  15  0  00  000000 

262  17  0  00  000002 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 

3u'  00  0  00  000012 

263  17  0  00  000000 

261  17  0  00  000000 
037  00  0  00  000060 

262  17  0  00  000000 

263  17  0  00  000000 


.•TICKS  IS  UPDATED  EVERY  16.6  MSEC  BY  THE  SYSTEM  CLOCK 


RUNTM3:  MOVE 
IDIVI 
SKIPN 
JRST 
PNTDEC 
PNTCI 

MOVE 
IDIVI 
PNTDEC 
PNTCI 

MOVE 

IDIVI 

GO 

PNTDEC 

PNTCI 

MOVE 

GO 

PNTDEC 

RUNTMX:  GET 
GET 
GET 
RTN 

PNTZER:  CAIL 
RTN 
PUT 
PNTCI 
GET 
RTN 


ACl 
^D24**D3600 

.+3 


ACl 
'^D3600 

•  •  •• 


ACl 

^D60 

PNTZER 


ACl 
PNTZER 


AC2 
ACl 
ACQ 


ACO.^DIO 

ACO 
"0" 
ACO 


;CALC  M   DAYS  IN  TICKS 
•ANY  '''' 

•NO  -'DON'T  PRINT 
;YES  -  PRINT  RUN  DAYS 


;GET  THE  REMAINDER  IN  HOURS 
.•CONVERT  TO  HOURS 
; PRINT  HOURS 


;GET  REMAINDER  IN  MINUTES 
.•CO^VERT  TO  MINUTES 
.•add  a  leading  zero  if  needed 
.•PRINT  MINUTES 


;GET  REMAINDER  IN  SECONDS 
;add  a  leading  zero  if  needed 
.•PRINT  SECONDS 

.•RESTORE  AC'S 


;EXIT 

;Skip  if  less 
;Nope.  all  is 
.•Save  the  AC 
.•Print  zero 
.-Restore  ACO 
.•Return 


than 
OK 


ten 


J 
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SEQ  0340 


10155 

10156 

10157 

10158 

10159 

10160 

10161 

10162 

10163 

10164 

10165 

(0166 

10167 

10168 

10169 

10170 

10171 

10172 

10173 

10174 

10175 

10176 

10177 

10178 

10179 

10180 

10181 

10182 

10183 

10184 

10185 

10186 

10187 

10188 

10189 

10190 

10191 

10192 

10193 


044541 
044542 
044543 
044544 
044545 

044546 
044547 
044550 
044551 
044552 
044553 
044554 
044555 
044556 
044557 
044560 
044561 
044562 


261  17  0  00  000000 

261  17  0  00  000001 

261  17  0  00  000002 

261  17  0  00  000003 

261  17  0  00  000004 


550  01 
336  00 
254  00 
250  00 
037  13 
037  14 
250  00 
554  03 
231  01 
242  02 
231  03 
336  00 
370  00 


1 

0 

0 

0 

0 

0 

0 
1 

0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


101154 
030143 
044555 
000001 
000002 
000004 
000001 
101154 
044000 
lllltl 
001000 
000004 
000003 


044563 
044564 
044565 
044566 
0^^567 
044570 
044571 


205  04 
213  00 
240  04 
200  03 
402  00 
213  00 
246  03 


0 
0 
0 
0 
0 
0 
0 


SUBTTL  READ/WRITE  &  COMPARE  BUFFER  RECLAIMER 

;-*RECLAM  -  ROUTINE  TO  CLEAR  THE  SCNTBL  ENTRY  POINTED  TO  BY  •'SCNADD" 
*     AND  TO  CLEAR  THE  MEMORY  BUFFER  IN  USE  BIT  MAP  ASSOCIATED 
;*      WITH  SCNTBL  ENTRY. 

;SAVE  SOME  AC'S 


RE CLAM:  PUT 
PUT 
PUT 
PUT 
PUT 


CLRBIT: 


HRRZ 

SKIPN 

JRST 

EXCH 

MAPADR 

ERRHLT 

EXCH 

HLR2 

IDIVI 

LSH 

IDIVI 

SKIPN 

SOS 


ACO 
ACl 
AC2 
AC3 
AC4 

ACUaSCNADD 

MAPNEW 

.+5 

AC1 


ACl 

AC3,aSCNADD 

AC1,<*D36*1000> 

AC2,-*D9 

AC3J000 

AC4 

AC3 


GET  SCNTBL  ENTRY  WORD  #1  (ADDRESS) 

4096  K  MAPPING? 

NO 

YES 

CONVERT  TO  REAL  ADDRESS 


GET  SIZE  FIELD  FROM  ENTRY 

DETERMINE  WORD  IN  BUFMAP  EFFECTED 

ADJUST  THE  REMAINDER 

FIND  #  K  TO  CLEAR 

ANY  REMAINDER? 

NO  -  ADJUST  THE  K  CLEAR  COUNTER 


;AC1  SETUP  TO  INDEX  INTO  BUFMAP 

;AC2  POINTS  TC  BIT  IN  BUFMAP  WORD 

;AC3  CONTAINS  NUMBER  OF  BITS  OF  K  CORE  TO  BE  CLEARED 


00  400000 

MOVSI 

AC4,400000 

00  000003 

MOVNS 

AC3 

03  000000 

ASH 

AC4,(AC3) 

00  000004 

MOVE 

AC3,AC4 

00  000004 

SETZM 

AC4 

00  000002 

MOVNS 

AC2 

02  000000 

LSHC 

AC3,(AC2) 

SETUP  TO  BUILD  A  MASK 

MAKE  BITS  COUNT  NEGATIVE 

BUILD  A  MASK  WORD 

AND  PUT  IT  IN  AC3 

CLEAR  2ND  MASK  WORD 

GET  THE  NEGATIVE  BIT  POSITION 

BUILD  A  TWO  WORD  CORE  MEMORY  MASK 


II 
1i 
11 
11 
II 
II 
II 
V 
V 
1i 


q 
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SEQ  0341 


ODI 
DDI 


10194 
10195 
10196 
10197 
10198 
10199 
10200 
10201 
10202 
10203 
10204 
10205 
10206 
10207 
10208 
10209 
10210 
10211 
10212 
10213 
10214 


;AC3  CONTAINS  1ST  BUFFER  MASK  WORD  FOR  BUFMAP 
;AC4  CONTAINS  2ND  BUFFER  MASK  WORD 


04^.572    43^  03  0  01   101057 
044573    432  04  0  01   101060 


XORM         AC3,BUFMAP(AC1) 
XORM         AC4,BUFMAP*1(AC1) 


.•RECLAIM  CORE   FROM  BUFMAP 


;BUFMAP  USED  BITS  ARE  NOW  RECLAIMED   (CLEARED) 

;NOW  CLEAR   THE   SCNT8L  ENTRY  SLOT  POINTED  TO  BY  SCNADD 


044574  200  01   0  00  101154 

044575  402  00  1  00  000001 

044576  350  00  0  00  000001 

044577  402  00  1  00  000001 

044600  262  17  0  00  000004 

044601  262  17  0  00  000003 

044602  262  17  0  00  000002 

044603  262  17  0  00  000001 

044604  262  17  0  00  000000 

044605  263  17  0  00  000000 


MOVE 
SETZM 
AOS 
SETZM 

GET 
GET 
GET 
GET 
GET 
RTN 


AC1, SCNADD 
aACi 
AC1 
aACi 

AC4 
AC3 
AC2 
AC1 
ACO 


; CLEAR  1ST  ENTRY  WORD 
.•CLEAR  2ND  ENTRY  WORD 
.•RESTORE  AC'S 


.-AND  EXIT 


iWtflHti-|»»iWiii*-ft-*W  JMIfW*^' 


I — 


ODRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
MEMORY  BUFFER  RECLAIMING  ROUTINE  -  RECLAM 


DECFLO  VER  00.12  12-APR-78  08:A4  PAGE  09 


SEQ  0342 


DDI 
DDI 


♦♦RECLAM  ♦♦ 
I 

♦  SAVE  SOME   * 

♦  AC'S      * 

♦  ♦ 

I 

♦CONVERT  SCNTBL  ENTRY 

♦  ADDRESS  TO  BUFMAP 

♦  POINTER 

I 

********************** 

♦  DETERMINE  AMOUNT  OF 

♦  K  TO  BE  CLEARED  IN 

♦  BUFMAP  TABLE 

I 

♦  BUILD  A  2  WORD 
♦BUFMAP  MSK  TO  BE  USED 

♦  TO  CLR  'TJSED"  BITS 

I 

♦CLEAR  BITS  IN  BUFMAP 

♦  TABLE  AND  CLEAR 

♦  SCNTBL  ENTRY  SLOT 

I 

♦  t 

♦  RESTORE  AC'S  ♦ 

I 

*********** 

♦•RTN    ♦♦ 
♦♦♦♦♦♦*♦♦♦♦ 


EACH  BUFMAP  WORD  REPRESENTS  36. K 

OF  PROGRAM  DETECTED  MEMORY  -  HARD  CORE 


DDRPI 
DDRPI3 


10216 

10217 

10218 

10219 

10220 

10221 

10222 

10223 

1022A 

10225 

10226 

10227 

10228 

10229 

10230 

10231 

10232 

10233 

1023A 

10235 

10236 

10237 

10238 

10239 

10240 

102A1 

10242 

102A3 

10244 

10245 

10246 

10247 

10248 

10249 

10250 

10251 

10252 

10253 

10254 
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SEQ  0343 


044606 
044607 
044610 
04461 1 
044612 

044613 
044614 
044615 
044616 
04461 7 
044620 
044621 
044622 
044623 
044624 
044625 
044626 
044627 
044630 


261  17  0  00  000000 

261  17  0  00  000001 

261  17  0  00  000002 

261  17  0  00  000003 

261  17  0  00  000004 


550  01 
336  00 
254  00 

250  00 
037  13 

Oy  14 
250  00 
554  03 
622  03 
271  - 
231 


03 
01 


242  02 
242  03 
370  00 


1 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


101154 
030143 
044622 
000001 
000002 
000004 
000001 
101154 
000777 
001000 
044000 
777767 
777767 
000003 


SUBTTL  "BUFMAP"  TABLE  BIT  SETTER  FOR  MEMORY  MANAGEMENT 

XLIST 

LIST 

;•♦  SETMAP  —  ROUTINE  TO  ENTER  USED  CORE  BITS  INTO  'BUFMAP" 

COMMENT  $ 

"SCNADD"  POINTS  TO  THE  SCNTBL  ENTRY  PAIR  WORDS  TO  BE  USED 
IN  DETERMINING  WHAT  MEMORY  "USED"  BITS  ARE  TO  BE  SET  IN 
•BUFMAP"  MEMORY  TABLE  AND  THUS  DEEMED  UNUSABLE  BY  OTHER 
SUBROUTINES  WITHIN  THE  PROGRAM  UNTIL  FREED  AGAIN  WHEN 
THE  "RECLAM"  ROUTINE  IS  CALLED. 

$ 

XLIST 


SETMAP:  PUT  ACO 

PUT  ACl 

PUT  AC2 

PUT  AC3 

PUT  AC4 

HRRZ  ACUaSCNADD 

SKIPN  MAPNEW 

JRST  .^5 

EXCH  ACl 

MAPADR 

ERRHLT 

EXCH  ACl 

HLRZ  AC3,aSCNADD 

TR2E  AC3, 777 

ADDI  AC3,1000 

IDIVI  AC1,<''D36*1000> 

LSH  AC2,-''D9 

LSH  AC3,-*D9 

SOS  AC3 


;SAVE  SOME  AC'S 


;GET  THE  START 
;VIRT  MEMORY? 
;N0 


ADi)R  OF  MEM  SLOT 


;AND  THE  SIZE  OF  THE  SLOT  NEEDED 

;THEN  CLEAR  ODD  K  VALUE  BITS 

;AND  ADD  IK  VALUE  TO  SIZE  -  IF  NEEDED 

.-DETERMINE  BUFMAP  ENTRY  WORD  NUMBER 

.-ADJUST  REMAINDER 

.-KEEP  JUST  K  VALUE  OF  SIZE 

.-ADJUST  THE  SIZE 


J 


r 


DDRPl  - 
DDRPI3 

10255 
10256 
10257 
10258 
10259 
10260 
10261 
10262 
10263 
10264 
10265 
10266 
10267 
10268 
10269 
10270 
10271 
10272 
10273 
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SEQ  0344 


044631 
044632 
044633 
044634 
044635 
044636 
044637 
044640 
044641 

044642 
044643 
044644 
044645 
044646 
044647 


205  04 
213  00 
240  04 
200  03 
402  00 
213  00 
246  03 
436  03 
436  04 


00 
00 
03 
00 
00 
00 
02 
01 
01 


400000 
000003 
000000 
000004 
000004 
000002 
000000 
101057 
101060 


262  17  0  00  000004 
262  17  0  00  000003 
262  17  0  00  000002 
262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


;AC3  CONTAINS  THE  #  K  TO  BE  SET 

MOVSI  AC4, 400000 

MOVNS  AC3 

ASH  AC4,(AC3) 

MOVE  AC3,AC4 

SETZM  AC4 

MOVNS  AC2 

LSHC  AC3,(AC2) 

lORM  AC3,BUFMAP(AC1) 

lORM  AC4,BUFMAP+1(AC1) 


GET  AC4 

GET  AC3 

GET  AC2 

GET  AC1 

GET  ACO 
RTN 


DC 
DC 

1 


; SETUP  TO  MAKE  A  MASK  WORD 
;NEGATE  THE  M   K  COUNT 
; BUILD  A  1  WORD  MASK 
;COPY  MASK  INTO  AC3 

; PREPARE  TO  BUILD  A  2  WORD  MASK 
;D0  IT  NOW 

;SET  BUFMAP  BITS  FROM  1ST  MASK  WORD 
;AND  SET  BITS  WITH  2ND  MASK  WORD 

.•RESTORE  AC'S  USED 


;AND  EXIT 


L. 
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SEQ  034 5 


Dl 

01 


10274 

10275 

10276 

10277 

10278 

10279 

10280 

10281 

10282 

10283 

10284 

10285 

10286 

10287 

10288 

10289 

10290 

10291 

10292 

10293 

10294 

10295 

10296 

10297 

10298 

10299 

10300 

10301 

10302 

10303 

10304 

10305 

10306 

10307 

10308 

10309 

10310 

10311 

10312 

10313 

10314 

10315 

10316 

10317 

10318 

10319 


044650 
044651 
044652 
044653 
044654 
044655 
044656 
044657 

044660 
044661 

044662 

044663 

044664 

044665 

044666 

044667 

044670 

044671 

044672 

044673 

044674 

044675 

044676 

044677 

044700 

044701 

044702 

044703 

04470'i 

044/05 

044706 

044;'07 

044710 


261 
261 
261 
261 
261 
261 


17 
17 
17 
17 
17 
17 


262  17 
254  00 


0  00  101155 
0  00  000001 
0  00  000002 
0  00  000003 
0  00  000006 
0  00  101154 
0  00  101155 
0  00  044662 


260  17  0  00  044442 
254  00  0  00  044712 


336  00 
254  00 
200  01 
350  00 
554  02 
242  02 
405  02 
3ii 
254 
554 


02 
00 
02 


1 
0 
0 
0 
0 
0 
0 
0 
0 

1 


622  02  0 
271  02  0 


315  02 
254  00 
200  02 
405  02 
307  02  0 


254  00 
402  00 
260  17 
550  01 
312  06  0 
254  00  0 


00  101154 
00  044660 
00  101154 

00  000001 

01  000000 
00  777772 
00  000077 
00  100734 
00  044660 
aO  101154 
00  000777 
00  001000 
00  100733 
00  044721 
00  100734 
00  000017 
00  000013 
00  044711 
00  000003 
00  053266 

00  101154 

01  000000 
00  044720 


SUBTTL  "SCNTBL"  ENTRY  PROCESSOR  FOR  MATCHING  ENTRYS 

•/^••********************************************************************** 
i*BUFMCH  —  ROUTINE  TO  CHECK  SCNTBL  ENTRY  (POINTED  TO  BY  SCNADD)  ^  ^^  ^ 

*  FOR  A  ••WRITE",  '•READ"  OR  COMPARE  ENTRY.  ROUTINE  RETURNS  ^1  IF  NO 
•*     MATCH  FOUND  OR  IF  SIZE  FIELD  OF  SCNTBL  ENTRY  IS  TOO  SMALL. 

*  A  RETURN  ^2  (NORMAL  RETURN)  MEANS  THE  ENTRY  WAS  A  MATCHED 

*  ENTRY,  THE  SAME  PATTERN  WAS  TO  BE  USED,  AND  THE  SIZE  OF  THE  BUFFER 
;*      INDICATED  BY  THE  ENTRY  WAS  LARGE  ENOUGH  TO  BE  USED. 


BUFMCH:  PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
GET 
JRST 

BMCHl :  GO 

JRST 


BMCH2: 


SKIPN 

JRST 

MOVE 

AOS 

HLRZ 

LSH 

AND  I 

CAME 

JRST 

HLRZ 

TRZE 

ADDI 

CAMGE 

JRST 

MOVE 

AND  I 

CAIG 

JRST 

SETZM 

GO 

HRRZ 

CAME 

JRST 


SCNOLD 

ACl 

AC2 

AC3 

AC 

SCNADD 

SCNOLD 

BMCH2 

BUFSCN 
BMCHEX 

aSCNADD 

BMCHl 

ACl, SCNADD 

ACl 

AC2,(AC1) 

AC2,-6 

AC2,77 

AC2,.PATN 

BMCHl 

AC2,aSCNADD 

AC2,777 

AC2,1000 

AC2,.SIZE 

BMCH3 

AC2,.PATN 

AC2,17 

AC2,<SP-DPATN> 

BMCH2X 

AC3 

GENWD 

ACl,aSCNADD 

AC, (ACl) 

BMCH3A 


.•SAVE  OLD  POINTER 
;SAVE  SOME  AC'S 


GET  THE  CURRENT  SCNTBL  ADDRESS 
SAVE  PRESENT  POINTER 
JUMP  AROUND  CODE  1ST  TIME 

SELECT  A  SCNTBL  ENTRY 

ALL  POINTER  HAVE  BEEN  CHECKED 

ANY  ENTRY? 

NO  -  LOOK  AT  THE  NEXT  SLOT 

GET  POINTER  ADDRESS 

POINT  TO  2ND  ENTRY  WORD 

GET  PATTERN  M   FROM  ENTRY 

ADJUST  FOR  PATTERN  M   ONLY 

NEED  ONLY  PATTERN  # 

SAME  PATTERN? 

NO  -  CHECK  NEXT  ENTRY 

YES  -  GET  SIZE  FIELD  FROM  ENTRY 

CLEAR  ODD  K  VALUE  BITS 

AND  ADD  1  K  IF  NEEDED... 

WILL  THE  SIZE  FIT? 

NO  -  CLEAR  THIS  ENTRY 

GET  THE  PATTERN  ft 

STRIP  IT 

SPECIAL  PROCESSING? 

NO  -  EXIT  ^2 

YES  -  GEN  1  WORD  OF  THE  PATTERN 

TO  SEE  IF  THE  BUFFER  IS  OK 

GET  THE  BUFFER  ADDR 

DATA  OK  TO  USE?? 

NO  -  TRY  TO  DELETE  THE  BUFFER 


DDRPl 
DDRPI3 

10320 
10321 
10322 
10323 
10324 
10325 
10326 
10327 
10328 
10329 
10330 
10331 
10332 
10333 
1033A 
10335 
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044711  350  00  0  17  777771 

044712  262  17  0  00  000006 

044713  262  17  0  00  000003 

044714  262  17  0  00  000002 

044715  262  17  0  00  000001 

044716  262  17  0  00  101155 

044717  263  17  0  00  000000 

044720  200  01  0  00  101154 

044721  550  02  0  01  000001 

044722  606  02  0  00  000777 

044723  260  17  0  00  044541 

044724  254  00  0  00  044660 


SEQ  0346 


BMCH2X:  AOS 

BMCHEX:  GET 
GET 
GEl 
GET 
GET 
RTN 


-5(P) 

AC 

AC3 

AC2 

AC1 

SCNOLD 


;SETUP  TO  RETURN  +2 
;RESET  THE  SAVED  AC'S 


BMCH3A:  MOVE    AC1,SCNADD 


BMCH3:  HRRZ 
TRNN 
GO 
JRST 


AC2,1(AC1) 
AC2,777 
RECLAM 
BMCH1 


;AND  SCNTBL  POINTER 
;TAKE  RETURN 

.•RESET  THE  SCNTBL  ADDR  POINTER 

;GET  THE  2ND  SCNTBL  WORD 
;ENTRY  IN  USE?? 
;N0  -  CLEAR  THE  MEMORY  SLOT 
;TRY  NEXT  ENTRY  IN  SCNTBL 


D 
D 


DDRPl   SUBROUTINES   (RPOA/05/06  RELIABILITY) 
COMMAND  ENTRY  MATCH  CHECK  ROUTINE  -  BUFMCH 


DECFLO  VER     00.12  12-APR-78  08:4A     PAGE  OS 


SEQ  0347 


♦♦BUFMCH  ♦♦ 

I 

♦•♦♦*♦♦♦♦•*♦♦•***•*•*•♦ 

♦  SAVE  SCNOLD  POINTER  ♦ 

♦  AND  SOME  AC'S         ♦ 

♦  ♦ 

>I 

BUFSCN  I 

»       SELECT  A  SCNTBL       ♦ 

♦  ENTRY  POINTER         ♦ 

♦  ♦ 

ittltit -kit  It-kit  tit  1t1t1t1t1i1Ht1ti[it1t1t 
I 

/     POINTERS  ALL        \YES 
/  CHECKED?  \— 

/  \ 

I  NO 

NO         /     "WRITE"  ENTRY     \ 


/ 


9 


\ 


\ 


I    YES 

NO         /     SAME  PATTERN       \ 

\ 

/  \ 

I   YES 
NO         /     WILL   TRANSFER     \ 


/ 


FIT? 


\ 


\ 


I   YES 
***************** 

♦  >1    ->  SCNTBL      * 

♦  USE   COUNT       ♦ 

♦  ♦ 
***************** 

I 
******«*t ******** 

♦  RESTORE   AC'S     ♦ 

♦  AND  SCNOLD       • 

♦  ♦l-XP)  ♦ 
♦♦♦♦*♦♦♦♦♦♦♦♦♦♦*♦ 

I 

♦♦RTN         ♦♦   ^2  RETURN 


60  BUFMCH 

RETURHH    IF   NO  MATCH 

RETURN^2  IF  MATCH  OCCURRED 


♦  RESTORE  AC'S     ♦ 
■>♦     AND  SCNOLD       ♦ 

I 
♦♦RTN         ♦♦ 
+1   RETURN 


ROUTINE  ENTRY  REQUIRES  PREVIOUS 
LOADING  OF: 

.SIZE     TRANSFER  SIZE 

.PATN     PATTERN  NUMBER  SELECTED 
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SEQ  0348 


10337 

10338 

10339 

10340 

10341 

10342 

10343 

10344 

10345 

10346 

10347 

10348 

10349 

10350 

10351 

10352 

10353 

10354 

10355 

10356 

10357 

10358 

10359 

10360 

10361 

10362 

10363 

10364 

10365 

10366 

10367 

10368 

10369 

10370 

10371 

10372 

10373 

10374 

10375 

10376 

10377 

10378 

10379 

10380 

10381 

10382 

10383 

10384 

10385 


044725 
044726 
044727 
044730 
044731 
044732 
044733 
044734 
044735 
044736 

044737 
044740 
044741 
044742 
044743 


044744 
044745 
044746 
044747 
044750 
044751 
044752 
044753 
044754 
044755 
044756 
04475"' 
044  ^60 
044761 
044762 
044763 
044764 
044765 
044766 


261 
261 
261 
261 
261 
261 
261 
403 
335 
254 


17 
17 
17 
17 
17 
17 
17 
01 
04 
00 


0 
0 
0 


00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
02 
00 


000000 
000001 
000002 
000003 
000004 
000005 
00001 5 
000002 
030146 
045046 


200  03  0  02  030147 
274  03  0  00  000004 
231  03  0  00  001000 
336  00  0  00  000004 
370  00  0  00  000003 


2^2  04 
231  04 
200  01 

261  17 
200  04 
231  04 
336  00 
370  00 
274  03 
205  05 
213  00 
240  05 
250  04 
402  00 

262  ^7 
213  00 
246  04 
271  01 


04  0  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
04 
00 
00 
00 
00 
15 
00 


030146 
7777t7 
000044 
000004 
000005 
100733 
001000 
000005 
000004 
000004 
400000 
000004 
000000 
000005 
000005 
00001 5 
00001 5 
000000 
101057 


SUBTTL     MEMORY   TEST  BUFFER  ALLOCATOR 

)*FNDHOL  —  ROUTINE  TO  FIND  A  MEMORY  BUFFER  SLOT  FOR  DATA  TRANSFER 
•♦  BASED  ON  CONTENTS  OF  BUFMAP  TABLE.   UPON  ENTRY,   SCNADD   IS 

POINTING  TO  A  USABLE  SCNTBL  ENTRY  SLOT.   ".SIZE"  HAS  BEEN 
LOADED  TO  DESIRED  TRANSFER  SIZE.   THE  ROUTINE  EXITS  WITH 
".BUFF"  LOADED  TO  START  ADDRESS  OF    THE  MEMORY  BUFFER  AND  _     __ 
f»  ".BUFEND"  LOADED  WITH  THE  LAST  ADDRESS  TO  BE  USED  BY  THE   TRANSFER. 


1* 


|# 


FNDHOL:    PUT 
PUT 


FNDHLA: 


PUT 

PUT 

PUT 

PUT 

PUT 

SETZB 

SKIPGE 

JRST 

MOVE 

SUB 

IDIVI 

SKIPN 

SOS 


ACO 

AC1 

AC2 

AC3 

AC4 

ACS 

REPT 

AC1,AC2 

AC4,MEMSIZ(AC2) 

FNDEXP 

AC3,MEMSIZ*1(AC2) 

AC3,AC4 

AC3J000 

AC4 

AC3 


;SAVE  SOME  AC'S 


Clear  index  pointers 

AT  END  OF  MEMSIZE   TABLET- 
YES  -  CAN'T  FIND  MEMORY  SPACE  FOR  XFR 
NO  -  AC4  CONTAINS  PHY  ADDR.   OF   CORE  START 
GET  CORE  CHUNK  END  ADDRESS 
DETERMINE  AMOUNT  OF   CORE   IN  THIS  CHUNK 
AC3  CONTAINS  K  OF   CORE 
ANY  REMAINDER?   (SHOULD  BE) 
YES  -  CORRECT  THE   COUNT 


;AC3  NOW  CONTAINS   THE  NUMBER  OF   K   TO  BE   CHECKED   IN  THIS  MEMORY  CHUNK 


MOVE  AC4,MEMSIZ(AC2) 

LSH  AC4,-'*D9 

IDIVI  AC4,^D36 

MOVE  AC1,AC4 

PUT  ACS 

MOVE  AC4,.SIZE 

IDIVI  AC4,1000 

SKIPN  ACS 

SOS  AC4 

SUB  AC3,AC4 

MOVSI  ACS,(1B0) 

MOVNS  AC4 

ASH  ACS,(AC4) 

EXCH  AC4,AC5 

SETZM  ACS 

GET  REPT 

MOVNS  REPT 

LSHC  AC4,(REPT) 

ADDI  AC1, BUFMAP 


GET  START  ADDRESS  OF   CHUNK 

DETERMINE  WORD  ENTRY   INDEX  TO  BUFMAP 

CALCULATE  WORD  INTO  BUFMAP  TABLE 

AND  SAVE   IT   IN  ACI 

SAVE    (TEMP.)   BIT  POSITION  OF   MASK 

GET  TRANSFER  SIZE 

FIND  AMOUNT  OF  BITS    (1K=1BIT)   NEEDED 


;BUILD  A  TEST  MASK  FOR  BUFMAP  TABLE 

;MASK  LENGTH  DEPENDS  ON  #K   TRANSFER  SIZE 

;PUT  MASK   IN  AC4 

; CLEAR  2ND  MASK  WORD 

;GET   THE   POSITION  BIT   #  FOR  MASK 

;MAKE   A   TWO  WORD  MASK 

;AC1=ENTRY  ADDRESS  OF    1ST  WORD   TO  BE   TESTED 


U 


i.ijaiittiiii    JliWi-iiri.itiwii  MtAm^w.wr\*»i 
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SEQ  0349 


10386 

10387 

10388 

10389 

10390 

10391 

10392 

10393 

10394 

10395 

10396 

10397 

10398 

10399 

10400 

10401 

10402 

10403 

10404 

10405 

10406 

10407 

10408 

10409 

10410 

10411 

10412 

10413 

10414 

10415 

10416 

10417 

10418 

10419 

10420 

10421 

10422 

10423 

10424 

10425 

10426 

10427 

10428 

10429 

10430 


044767 
044770 
044771 
044772 
044773 
044774 
044775 
044776 
044777 
045000 
045001 
045002 
045003 


045004 
045005 
045006 
045007 
045010 

045011 

045012 

045013 

045014 

045015 

045016 

045017 

045020 

045021 

045022 

045023 

045024 

045025 

045026 

045027 

045030 

045031 

045032 

045u33 

045034 

045035 


612  04  0 
254  00  0 
616  05  0 
254  00  0 
246  04  0 
336  00  0 


260  17 
365  03 
271  02 


0 
0 
0 
254  00  0 
250  04  0 
350  00  0 
263  17  0 


01  000000 

00  044773 

01  000001 
00  045004 
00  771777 
00  000004 
00  045001 
00  044767 
00  000002 
00  044735 
00  000005 
00  000001 
00  OOOOOO 


550  00  0  00  077735 

336  00  0  00  030143 

254  00  0  00  045011 

037  13  0  00  OCOOO"^ 

037  14  0  00  OO'X':- 


275  01  0 
221  01  0 
243  04  0 
270  01  0 
242  01  0 
336  00  0 
23  00  0 
274  01  0 
660  01  0 
202  01  0 
270  01  0 
370  00  0 
202  01  0 
336  00  0 
254  00  0 
250  00  0 
037  13  0 
037  14  0 
250  00  0 
317  01  0 
350  00  0 


00  1/-.0'/ 
00  0oC.:44 
00  045014 
00  000005 
00  000011 
00  030143 
00  045022 
00  101157 
00  400000 
00  100735 
00  100733 
00  000001 
00  100736 
00  030143 
00  045034 
00  000001 
00  000002 
00  000004 
00  000001 
00  OOOOOO 
17  77777} 


FNDHLB: 


FNDHLC 


.•MEMORY 
;MEMSEG 

FNDHLD: 


TONE 

JRST 

TDNN 

JRST 

LSHC 

SKIPN 

60 

SOJGE 

ADD  I 

JRST 

EXCH 

AOS 

RTN 

SLOT  HAS 
CHUNK 

HRRZ 

SKIPN 

JRST 

MAPADR 

ERRHLT 

SU6I 

IMULI 

JFFO 

ADD 

LSH 

SKIPN 

JRST 

SUB 

TRO 

MOVEM 

ADD 

SOS 

MOVEM 

SKIPN 

JRST 

EXCH 

MAPADR 

ERRHLT 

EXCH 

CAM6 

AOS 


AC4,(AC1) 

AC5J(AC1) 

FNDHLD 

AC4,-1 

AC4 

FNDHLC 

AC3, FNDHLB 

AC2,2 

FNDHLA 

AC4,AC5 

ACl 


WILL  TRANSFER  FIT  HERE 

NO  -  SHIFT  MASK  AND  TEST  AGAIN 

YES  -  ALSO  OK  IN  2ND  MASK  WORD? 

YES  -  FOUND  A  MEMORY  SLOT 

NO  -  SHIFT  MASK  TO  NEXT  BIT 

TIME  TO  UPDATE  BUFMAP  POINTER? 

YES  -  DO  IT  NOW 

KEEP  TESTING  THIS  MEMORY  CHUNK? 

NO  -  SETUP  TO  LOOK  FOR  A  HOLE  IN 

AND  REPEATE  PROCESS  AGAIN 

PUT  MASK  WORD  IN  AC4  (AC4  IS  0) 

UPDATE  BUFMAP  ENTRY  ADDRESS 


NEXT 


BEEN  FOUND... NOW  SEE  IF  AREA  IS  WITHIN  AREA  OF 


SAVMAP* 

MAPNEW 

.*3 


ACl, BUFMAP 

AC1,*D36 

AC4,.-^1 

ACl, ACS 

AC1,*D9 

MAPNEW 

AC1,FREBUF 

AC1JB18 

ACl, .BUFF 

ACl, .SIZE 

ACl 

AC1,.BUFEND 

MAPNEW 

ACl 


ACl 

ACl, AGO 
'7{?) 


GET  LAST  VIRT  ADDRESS 
VIRT  ADDRESSING? 
NO  -  DIRECT  ADDRESSING 
DETERMINE  ADDRESS 
WHOOPS  -  SCREW  UP? 

FIND  WORD  IN  TABLE 

AND  #K  INTO  TABLE 

COUNT  MASK  POSITION  OF  K  INTO  WORD 

ACl  NOW  HAS  STARTING  K  #  OF  ADDRESS 

MULT.  BY  1000  TO  POSITION  ADDRESS 

PAGING?? 

NO 

YES  -  GEN  THE  VIRT  ADDRESS 

SAVE  1ST  LOCATION  OF  MEMORY  SLOT 


AND  LAST  LOCATION  OF  MEMORY  SLOT 

VIRT  MEM?? 

NO 

YES  -  CONVERT  TO  REAL  ADDR 


;ADDR  OK?? 
;YES  -  SET 


TO  RETURN  *2 


37 


DDRPl   - 
DDRPI3 

10A31 
10A32 
10A33 
10A34 
10A35 
10A36 
10A37 
10A38 
10A39 
10AA0 
10AA1 
10AA2 
10AA3 
10AAA 
10AA5 
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SEQ  0350 


0A5036  262  17  0  00  000015 

0A5037  262  17  0  00  000005 

0A50A0  262  17  0  00  OOOOOA 

0A50A1  262  17  0  00  000003 

0A50A2  262  17  0  00  000002 

0A50A3  262  17  0  00  000001 

0A50AA  262  17  0  00  000000 

0A50A5  263  17  0  00  000000 

0A5OA6  336  00  0  00  030037 

OA50A7  25A  00  0  00  0A5036 

0A5050  260  17  0  00  0A5053 

0A5051  25A  00  0  00  0A5036 

0A5052  25A  00  0  00  0AA73A 


FNDHEX: 


FNDEXP: 


GET 

REPT 

GET 

AC5 

GET 

ACA 

GET 

AC3 

GET 

AC2 

GET 

AC1 

GET 

ACO 

RTN 

SKIPN 

USER 

JRST 

FNDHEX 

GO 

EXPAND 

JRST 

FNDHEX 

JRST 

FNDHLA-1 

.•RESTORE  THE  REPT  COUNT 
.-RESTORE  AC'S 


.•RETURN 

;IN  USER  MODE?? 

;N0  -  GET  OUT  NOW 

;YES  -  TRY  TO  EXPAND  USER'S 

.•FAILED  TO  EXPAND 

;MADE  IT! 


CORE 


38 


DDRPl   SUBROUTINES   (RPOA/05/06  RELIABILITY) 
MEMORY   ALLOCATOR  FOR  TEST  BUFFERS  -  FNDHOL 


DECFLO  VER     00.12  12-APR-78  08: A4     PAGE  07 


SEQ  0351 


I 
I 

i 

I 
I 
I 


I 
I 
I 
I 


*********** 

♦♦FNDHOL   ♦♦ 

I 
***************** 

*  SAVE  SOME       ♦ 

*  AC'S  * 

*  ♦ 
***************** 

I 
***************** 

♦CLEAR  COUNTERS  ♦ 
♦AND  GET  MEMS I Z  ♦ 

*  ENTRY  ♦ 
***************** 

>I     FNDHLA 


ROUTINE 
USED  AS 


TO  FIND  AN  AVAILABLE  "HOLE"  IN  MEMORY  TO  BE 
A  TEST  BUFFER  FOR  DATA 


END  OF  MEMSIZ     \YES 
TABLE?  \' 


\ 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

I     -' 
I     I 
•>I     I 
I 


I  NO 

*********************** 


FIND  AMOUNT 
IN  MEMORY 


OF   CORE 
CHUNK 


♦  * 
*********************** 

I 

*********************** 

«     BUILD  A  TWO  WORD       ♦ 

♦  MASK  FOR  BUFMAP       ♦ 

♦  TABLE  ♦ 
*********************** 

I     FNDHLB 

/       MEMORY  SLOT       \YE 
/  FOUND  WITH  MASK?      \- 
/  \ 

I  NO 
***************** 

♦  SLIDE  MASK   TO  ♦ 

♦  NEXT  POSITION  ♦ 

♦  * 
***************** 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
' >I 


I 


/     1ST  MASK  WORD 
/  ZERO? 


I  NO 
I<— 


I      FNDHEX 
t  **************** 

♦  * 

♦  RESTORE  AC'S     ♦ 

♦  ♦ 
***************** 

I 
***********         4-1   RETURN  IS 

**RTN         ♦♦         FAILURE  EXIT 

*********** 


I  FNDHLD 

*********************** 

♦  SETUP  'BUFF"  AND       ♦ 

♦  ".BUFEND"  POINTERS     ♦ 

♦  * 
*********************** 

I 

/       MEMORY  SLOT       \N0 
/   \H  \  VALID  RANGE?  \ 

/  \ 

I   YES 

I      FNDHLE 

*Tf  *************** 

♦  RESTORE  AC'S     ♦ 
t       SETUP  FOR       ♦ 

♦  RETURN  ♦ 
***************** 

I 
^**********         4-2  RETURN 

♦♦RTN2       ♦♦         IF   SLOT  FOUND 
*********** 


->I 


WES 
\— 
V 


FNDHLC 
***************** 

♦  UPDATE  MASK     ♦ 
•>♦       WORDS  AND       ♦ 

♦  POINTERS         ♦ 
***************** 


NO         /         NEED  NEW  \ 

/         MEMSIZ  WORD         \ 

/  \ 

I   YES 

*******  tr*************** 
*  ♦ 

♦         +2  TO  POINTER         ♦ 

%  ^  * 

«**♦******♦**♦***♦*♦**♦ 

I 


J 
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SEQ  0352 


10AA7 

10AA8 

10A49 

10A50 

10A51 

10A52 

10453 

10454 

10455 

10456 

10457 

10458 

10459 

10460 

10461 

10462 

10463 

10464 

10465 

10466 

10467 

10468 

10469 

10470 

10471 

10472 

10473 

10474 

10475 

10476 

10477 

10478 

10479 

10480 

10481 

10482 

10483 

10484 

10485 

10486 

10487 

10488 

10489 

10490 

10491 

10492 

10493 

10494 


045053 
045054 
045055 
045056 
045057 
045^60 
045061 
045062 
045063 
045064 
045065 


261 
261 
261 
261 
261 
200 
202 
350 
231 
303 
254 


17 
17 
17 
17 
17 
00 
00 
00 
00 
00 
00 


0  00 
0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


000001 
000002 
000003 
000004 
000006 
030147 
000006 
000000 
002000 
000061 
045134 


045066  200  01  0  00  000044 


045067  260  17  0  00  045160 


045070 
045071 
045072 
045073 
045074 

045075 
045076 

045077 
045100 
045101 


045102 
045103 
045 1 04 
045105 
045106 
045107 
045110 
045111 


271  01  0  00  001000 
622  01  0  00  000777 
271  01  0  00  001000 
260  17  0  00  045171 
254  00  0  00  045134 

332  00  0  00  077634 
260  17  0  00  045135 

200  01  0  00  000044 
202  01  0  00  030147 
350  00  0  17  mill 


332  00 
254  00 
037  04 
200  00 
350  00 
231  00 
037  15 
037  04 


0  00 


0 
0 


00 
00 


0  00 
0  00 
0  00 
0  00 
0  00 


030516 
045112 
072441 
030147 
000000 
002000 
000001 
072444 


SUBTTL  USER  CORE  EXPANSION  ROUTINE 

•/^********************»******* *****♦**♦**♦***♦*****♦****♦* **************** 
;*EXPAND  —  ROUTINE  TO  EXPAND  USER  CORE  TO  ALLOW  FOR  MORE  TEST 
;♦      BUFFERS 


EXPAND:  PUT 
PUT 
PUT 
PUT 
PUT 
MOVE 
MOVEM 
AOS 
IDIVI 
CAILE 
JRST 

MOVE 

; Unlock  core  if 

60 

ADD] 

TRZE 

ADDI 

60 

JRST 

SKIPE 
GO 

MOVE 

MOVEM 

AOS 


AC1 

AC2 

AC3 

AC4 

AC 

MEMSIZ+1 

AC 

*D1024 

'^D49 

EXPERR 

AC1,.JBREL 

locked  in  core,  get 

UNLKIT 

AC1J000 
AC1, 777 
AC1J000 
DOCORE 
EXPERR 

LOKCOR 
LOCKIT 

AC1,.JBREL 

AC1,MEMSIZ+1 

-1(P) 


;Tell  me  about  it  if  under  TOPS-10 


SKIPE 

JRST 

PMS6F 

MOVE 

AOS 

IDIVI 

PNTDCF 

PMS6F 


MONTYP 
EXPC2 

<(EXPANDING  TO  > 
MEMSIZ+1 

^D1024 

<K  CORE)*> 


;SAVE  AN  AC 


;GET  THE  ORRIG  MEMSIZ  VALUE 
;SAVE  IT 

;CALC  K  IN  USE  NOW 
;AT  PGM  LIMIT?? 
;YES  -  EXIT  NOW! 

;GET  LAST  USER  ADDRESS  AVAIL. 

some  more,  then  relock  if  needed. 

Unlock  if  locked 

GET  AMOUNT  TO  EXPAND  BY 
ROUND  CORE  ADDRESS  TO  HIGHER 
K  ADDRESS  VALUE 
Get  some 
FAILED 

LOCK? 
Yes 

GET  LAST  USER  ADDRESS 

SAVE  IT 

PREPARE  TO  RETURN  +2 


Skip  if  TOPS-blue 
TOPS-orange:  say  nothing 
Mumble  about  it 


;CALC  K  USED 
;AND  PRINT  VALUE 


■n_ 
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SEQ  0353 


10495 
10496 
10497 
10498 
10499 
10500 
10501 
10502 
10503 
10504 
10505 
10506 
10507 
10508 
10509 
10510 
10511 
10512 
10513 
10514 
10515 
10516 
10517 


;Set  bit  mask  up  to  indicate  more  core  available 


045112 
045113 
045114 
045115 
045116 
045117 
045120 
045121 
045122 
045123 
045124 
045125 
045126 
045127 
045130 
045131 
045132 
045133 


200  01 
200  03 
274  03 
350  00 
231  01 
242  02 
213  00 
231  03 
336  00 
370  00 
260  17 
200  00 
037  11 
310  00 
326  00 
037  14 
202  00 
350  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 


00 

17 


000006 
030147 
000001 
000001 
044000 
lllltl 
000002 
001000 
000004 
000003 
041461 
101157 
000002 
000000 
045132 
000004 
077735 
777771 


EXPC2 


MOVE 

MOVE 

SUB 

AOS 

IDIVI 

LSH 

MOVNS 

IDIVI 

SKIPN 

SOS 

60 

MOVE 

MEMSEG 

CAM 

JUMPN 

ERRHLT 

MOVEM 

AOS 


AC1,AC 

AC3,«EMSIZ+1 

AC3,AC1 

AC1 

AC1,<*D36*1000> 

AC2,-*D9 

AC2 

AC3J000 

AC4 

AC3 

CLRUD 

FREBUF 


.^2 


SAVMAP 
-5(P) 


045134  254  00  0  00  041453 


EXPERR:  JRST    CLREXT 


GET  THE  ORRIG  MEMSIZE  VALUE 

AND  THE  NEW  ONE 

CALC  THE  DIFFERENCE  IN  K 

CORRECT  AC1 

FIND  WORD  ft   INTO  BUFMAP 

FIX  THE  REMAINDER  COUNT 

FOR  MAKING  A  MASK 

CALC  #  BITS  TO  CLEAR 

REMAINDER 

NO  -  FIX  AC3 

CLEAR  THE  MEMORY  BITS  IN  BUFMAP 

GET  THE  1ST  FREE  AREA 

RESET  THE  CORE  SIZE 

SHOULD  SKIP  IF  OK 

OK*-  SAVE  RESULTS 
.•RETURN  +2 


;EXIT  THE  ROUTINE 
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SEQ  0354 


10518 

10519 

10520 

10521 

10522 

10523 

10524 

10525 

10526 

10527 

10528 

10529 

10530 

10531 

10532 

10533 

10534 

10535 

10536 

10537 

10538 

10539 

105A0 

105A1 

10542 

10543 

10544 

10545 

105A6 

105A7 

10548 

10549 

10550 

10551 

10552 

10553 

10554 

10555 

10556 

10557 

10558 

10559 

10560 

10561 

10562 

10563 


045135 
045136 
045137 
045140 
045141 
045142 
045143 
045144 
045145 
045146 
045147 
045150 
045151 
045152 
045153 
045154 
045155 
045156 
045157 


04516C 
045161 
045162 
045163 
045164 
045165 
045166 
045167 
045170 


045171 
045172 
045173 
045174 
045175 
045 1 76 
.^♦5177 
045200 
045201 


332  00 
263  17 
261  " 
261 
201 


17 
17 
01 


332  00 
620  01 
047  01 
334  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


037  04  0 
200  00  0 
303  01  0 
037  15  0 
037  01  0 


402  00 
262  17 

262  17 

263  17 


336  00 
336  00 
263  17 
261  17 
201  00 


0 
0 
0 
0 
0 
Oh'  00  0 
037  04  0 

262  17  0 

263  17  0 


00  030516 
00  000000 
00  000001 
00  000000 
00  000017 
00  077721 
00  000010 
00  000060 
00  000000 
00  045155 

00  072446 

01  063137 
00  000007 
00  000003 
00  030243 
00  077634 
00  000000 
00  000001 
00  000000 


00  030516 
00  077634 
00  000000 
00  000000 
00  000017 
00  000120 
00  072453 
00  000000 
00  000000 


332  00  0 
254  00  0 
047  01  0 
263  17  0 
254  00  0 
660  01  0 
202  01  0 
350  00  0 
263  17  0 


00  030516 
00  045176 
00  000011 
00  000000 
00  045200 
00  001777 
00  000044 
17  000000 
00  000000 


;Here  to  Lock  job  in  core,  cached  if  not  RHIO 


DDI 
DDI 

1 


LOCKIT:  SKIPE 
RTN 
PUT 
PUT 
MOVE  I 
SKIPE 
TRZ 
LOCK 
SKI  PA 
JRST 
PMS6F 
MOVE 
CAILE 
PSIXLF 
PCRL2F 
SETZM 

LOCKIX:  GET 
GET 
RTN 


MONTVP 

AC1 

ACO 

AC1-XL0KBT 

RHIO 

AC1JB32 

AC1, 

LOCKIX 


<*?  CANNOT  LOCK  JOB  IN  CORE  -  > 


;Skip  if  TOPS-10 
;T0PS-20,  return  now 
;Sa\/e  an  AC 

• 

•YES  -  LOCK  EXPANDED  CORE 
;Runninj  with  RHiOs? 
;Yes,  don't  cache 

; ERROR  RETURN 
; Success 


AC0,L0CKMS(AC1) 
^C1,7 


LOKCOR 

ACO 

AC1 


;GET  THE  PROPER  ERROR  MESSAGE 
;Skip  if  unknown  error  code 
;AND  PRINT  IT 

;Clear  the  locked  flag 
;Get  ACO  back 
;get  AC1  back 
.-Return  to  caller 


:Here   to  unlock  job  if  locked  in  core. 


UNLKIT:  SKIPN 
SKIPN 
RTN 
PUT 
MOVEI 
UNLOK. 
PMS6F 
GET 
RTN 


MONTYP 
LOKCOR 

ACO 

ACO^XLOKBT 

ACO, 

<''X  CANNOT 

ACO 


;Skip  if  TOPS-20 
.•Locked  in  core? 
;Nope,  return  now 
;Save  ACO 
.•Unlock  bits 
.•Unlock  it 
UNLOCK  JOB!*>  ;Shouldn't  fail 

.•Restore  ACO 
; Return 


:Here   to  do  a  CORE  UUO  under  TOPS-10  and  a  MOVEM  under  TOPS-20,  arg  in  A'*1 


DOCORE:  SKIPE 

JRST 

CORE 

RTN 

JRST 

D0C0R2:  TRO 

MOVEM 

D0C0R3:  AOS 
RTN 


MONTYP 
D0C0R2 
AC1. 

D0C0R3 
AC1.1777 
AC1..JBREL 
(P) 


;Is  it  TOPS-20? 

•Yes 

•or  CALLI  AC1.11 

.•Error,  return 

;Skip  return 

.'Round  up  to  next  K  of  core 

.•Simulate  CORE  UUO  -  save  new  JOBREL 

;Set  up  skip  return 

;Ye5.  return 
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r 


SEQ  0355 


10564 
10565 
10566 
10567 
10568 
10569 
10570 
10571 
10572 
10573 
10574 
10575 
10576 
10577 
10578 
10579 
10580 
10581 
10582 
10583 
10584 
10585 
10586 
10587 

10588 

10589 

10590 

10591 

10592 

10593 

10594 

10595 

10596 

10597 

10598 

10599 

10600 

10601 

10602 

10603 

10604 

10605 

10606 

10607 

10608 

10609 

10610 

10611 

10612 

10613 

10614 

10615 

10616 

10617 

10618 


045202 
045203 
045204 
045205 
045206 
045207 
045210 
045211 
045212 
045213 
045214 
04521 S 
045216 
045217 


045220 
045221 
045222 
045223 
045224 
045225 
045226 
045227 
045230 
045231 
045232 
045^33 
045234 
045235 
045236 
045237 
045240 
045241 
045242 
045243 
045244 
045245 

045246 
045247 


261 
261 
261 
261 
261 
261 
261 
261 
261 
261 
261 
261 
261 
261 


17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000012 
000001 
000002 
000003 
000004 
000010 
100735 
100733 
100734 
077576 
100730 
100731 
100732 
000006 


200  01  0 
202  01  0 
554  02  0 
202  02  0 
550  02  0 
202  02  0 
554  02  0 
242  02  0 
405  02  0 
660  02  0 
202  02  0 
550  02  0 
242  02  0 


271  02 
135  00 
260  17 
202  00 


550  00  0 
202  00  0 
554  13  0 
405  13  0 
550  11  0 
200  00  0 
202  00  0 


00  101154 

00  077766 

01  000000 

00  100733 

01  000000 

00  100735 

01  000001 

00  mm 

00  000077 
00  000040 

00  100734 

01  000001 

00  imti 

00  100163 
00  072457 
00  045627 
00  077550 

02  000000 

00  077522 

01  000001 
00  000077 
13  100747 
00  077550 
11  000024 


SUBTTL 
•♦COMP 


DATA  COMARE  ROUTINE  -  COMP   ' 
♦*♦**»♦♦»*»*♦*♦*♦ ttt ♦♦**♦**»»♦*♦♦**♦♦♦♦*♦*♦♦♦♦♦♦**♦*♦♦*♦♦♦ ♦*♦♦♦♦♦*♦ 

—  ROUTINE  TO  COMPARE  DATA  READ  FROM  DEVICE  TO  DATA  EXISTING  IN  ^^ ^ 

A  MEMORY  BUFFER  (IF  IT  EXISTS  ALREADY  USE  IT,  OR  fl-SE  GENERATE  THE 

DATA).  ENTERED  WITH  ''SCNADD"  POINTING  TO  A,  SCNTBL  ENTRY  THAT  REQUlRkS 

A  DATA  COMARE  OPERATION.  CONTENTS  OF  "MBCN"  AND  ''DRiyE';  W  LL  BE 

SAVED  AND  RESTORED  WHEN  DONE.  FORCED  GENERATION  OF  DATA  WILL  COME 

A  NEW  "SCNTBL"  ENTRY  TO  APPEAR  AND  THE  APPROPIATE  USED  MEMORY  AREA 

WILL  BE  '^PPED"  OUT. 

:♦      "COMP"  WILL  EXIT  WITH  ^^k^l   '  SCNTBL"  ENTRY  (FOR  THE  READ)  CLEARED  AND 

;♦      THE  MEMORY  AREA  WILL  BE  FREED  FOR  USE  AGAIN. 
.#♦♦***»♦♦**♦**♦»***♦♦*♦♦#»•♦**♦*♦**♦♦♦♦♦*♦♦♦♦*♦***♦*♦♦**♦**♦♦******♦♦**** 


DDI 
DDI 

1 


;♦ 
;• 
;♦ 


COMP: 


PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 


MBCN 

AC1 

AC2 

AC3 

AC4 

CSBP 

.BUFF 

.SIZE 

.PATN 

DSKAD 

.CYLIN 

.SURF 

.SECT 

AC 


;SAVE  CONTROLLER  n 
.-SAVE  SOME  AC'S 


;SAVE  CSB  POINTER 
;SAVE  THE  CURRENT  .BUFF  ADDR 
;SAVE  ORIGINAL  TRANSFER  SIZE 
;AND  PATTERN  NUMBER 
.-PRESERVE  ORRIGINAL  DSK  ADDR 


;LOAD  PATTERN  #  AND  DRIVE  #  FROM  SCNTBL  ENTRY  ALONG  WITH  TRANSFER  SIZE 


MOVE  ACl.SCNADD 

MOVEM  AC1,SRDENT# 

HLRZ  AC2,(AC1) 

MOVEM  AC2,.SIZE 

HRRZ  AC2,(AC1) 

MOVEM  AC2,.BUFF 

HLRZ  AC2J(AC1) 

LSH  AC2,-6 

ANDI  AC2,77 

TRC  AC2,40 

MOVEM  AC2,.PATN 

HRRZ  AC2J(AC1) 

LSH  AC2,-*D9 

ADDI  AC2,C0MBUF      '  _ 

LDB  [POINT  20J(AC2),35] 

GO  BLKADR 

MOVEM  CMPAD# 

HRRZ  (AC2) 

MOVEM  CALLPC 

HLRZ  DRIVE, KACD 

ANDI  DRIVE. 77 

HRRZ  DSBP,DSBTBL(DRIVEJ 

MOVE  CMPAD 

MOVEM  .SELAD(DSBP) 


;GET  SCNTBL  ENTRY  ADDRESS 

;SAVE  THE  SCNTBL  ADDR  POINTER 

;GET  SIZE  FIELD  FROM  ENTRY 

•SAVE  IT 

•GET  THE  BUFFER  ADDRESS 

;AND  SAVE  IT 

;GET  PATTERN  #  OF  READ  DATA 

;SAVE  ONLY  PATTERN  # 

;SAVE  ONLY  THE  PATTERN  NUMBER 

;FAKE  A  WRITE  PATTERN  NUMBER 

•SAVE  IT 

•GET  COMMAND  ENTRY  OFFSET  VALUE 

;SAVE  JUST  THE  NUMBER 

;ADD  IN  THE  BASE  ADDRESS 

.•CONVERT  IT  TO  A  DISK  ADDRESS 
;SAVE  THE  ADDRESS 
;GET  THE  UUO  CALL  PC 
•SAVE  IT 

•EXTRACT  THE  DRIVE  NUMBER 
;STRIP  DRIVE  #  TO  2  NUMBERS 
.•POINT  TO  CORRECT  DRIVE  DSB  AREA 
;GET  THE  STARTING  ADDRESS 
;SAVE  IT  IN  DSB 


1 

J 
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SEQ  0356 


DD 
DD 


10619 

10620 

10621 

10622 

10623 

1062A 

10625 

10626 

10627 

10628 

10629 

10630 

10631 

10632 

10633 

1063A 

1063: 

10636 

10637 

10638 

10639 

106AO 

106A1 

106A2 

106A3 

106AA 

106A5 

106A6 

106A7 

106A8 

106A9 

10650 

10651 

10652 

10653 

1065A 

10655 

10656 

10657 

10658 

10659 

10660 

10661 

10662 

10663 

1066A 

10665 

10666 

10667 

10668 

10669 

10670 

10671 

10672 

10673 


0A5250 
0A5251 
0A5252 
OA5253 
0A525A 
OA5255 
0A5256 
0A5257 
0A5260 
0A5261 
0A5262 
0A5263 


0A526A 
0A5265 
0A5266 
0A5267 
0A5270 


0A5271 
0A5272 
0A5273 
0A527A 
0A5275 
0A5276 
0A5277 
0A5300 
0A5301 
0A5302 
0A5303 
0A530A 
0A5305 


0A5i06 
0A5307 
0A5310 
0A5311 
0A5312 
0A5313 
0A531A 
0A5315 
0A5316 
0A5317 
0A5320 
0A5321 
0A5322 


202  00 
55A  00 
202  00 
135  00 
202  00 
135  00 
202  00 
260  17 
25A  00 
A02  00 
A02  00 
25A  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


GO 
00 
00 
00 
00 
00 
00 
00 
00 
01 
01 
00 


077576 
077576 
100730 
072A60 
100731 
072A61 
100732 
0AA650 
0A526A 
000000 
000001 
0A5366 


261  17  0  00  100735 

262  17  0  00  100031 
260  17  0  00  0AA725 
25A  00  0  00  0A5325 
200  01  0  00  077766 


51A  02 
270  02 
202  02 
51A  02 
2h1  02 
671  02 
661  02 
202  02 
260  17 

260  17 

261  17 

262  17 
25A  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
01 
00 
00 
00 
00 
01 
00 
00 
00 
00 
00 


262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 


17 
17 
^7 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 


00 

00 

0  00 


0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


100733 
100735 
000000 
10073A 
000006 
00001 3 
AOOOOO 
000001 
0AA606 
053227 
100031 
100735 
0A5366 


000006 
100732 
100731 
100730 
077576 
10073A 
100733 
100735 
000010 
OOOOOA 
000003 
000002 
000001 


;CHECK  FOR  ANY  EXISTING  BUFFERS  THAT  UILL  MATCH  ".PATN' 


MOVEM  DSKAD 

HLRZ  DSKAD 

MOVEM  .CYLJN 

LDB  [POINT  5, DSKAD, 27] 

MOVEM  .SURF 

LDB  [POINT  5, DSKAD, 353 

MOVEM  .SECT 

60  BUFMCH 

JRST  CMP6EN 

SET2M  (ACl) 

SETZM  KACl) 

JRST  MCHCMP 


SAVE  THE  SELECTED  ADDR  FOR  COMPARE 
GET  THE  CYLINDER  # 
RESET  THE  CYL  # 
GET  THE  SURFACE  # 

GET  THE  SECTOR  # 

SAVE  IT  ALSO 

CHECK  SCNTBL  ENTRY  FOR  MATCH 

NO  MATCH  -  GENERATE  NEEDED  DATA 

CLEAR  THE  SCNTBL  ENTRY  WORDS 


;D0  THE  COMPARE 


;N0  BUFFER  EXISTS  FOR  A  BUFFER  TO  BUFFER  COMPARISON 
;TRY  TO  GENERATE  A  COMPARISON  BUFFER 
CMPGEN:  PUT     .BUFF 


GET  .RDBUF# 

GO  FNDHOL 

JRST  CMPWD 

MOVE  AC1,SRDENT 


SAVE  READ  BUFFER  ADDRESS 

FIND  A  HOLE  IN  MEMORY 

NOT  ENOUGH  CORE  -  COMPARE  DATA  WORD  FOR  WORD 

RESET  THE  SCNTBL  ADDR  POINTER 


;BUILD  A  SCNTBL  'lIRITE"  ENTRY  FOR  THE  COMPARE  BUFFER 


HRLZ 

ADD 

MOVEM 

HRLZ 

LSH 

TSO 

TLO 

MOVEM 

GO 

GO 

PUT 

GET 

JRST 


AC2,.SIZE 

AC2,.BUFF 

AC2,(AC1) 

AC2,.PATN 

AC2,6 

AC2, DRIVE 

AC2,(1B0) 

AC2J(AC1) 

SETMAP 

GENDAT 

.RDBUF 

.BUFF 

MCHCMP 


SET  THE  SIZE  FIELD 

AND  BUFFER  ADDRESS 

SAVE  THE  ENTRY  IN  SCNTBL 

GET  THE  DESIRED  PATTERN  NUMBER 

PREPARE  TO  ADD  IN  DRIVE  # 

DO  IT 

SET  THE  •\rfRITE"  PATTERN  INDICATOR 

SAVE  THE  2ND  ENTRY  WORD  IN  SCNTBL 

SET  THE  BUFMAP  INUSE  BITS 

GENERATE  THE  NEEDED  DATA 


.•RESTORE  READ  BUFFER  ADDRESS 

.-THEN  PERFORM  A  BUFFER-TO-BUFFER  COMPARE 


.•COMMON  EXIT  CODE  FOR  THE  COMPARE  ROUTINE 


CMPEX 


GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 


AC 

.SECT 

.SURF 

.CYLIN 

DSKAD 

.PATN 

.SIZE 

.BUFF 

CSBP 

ACA 

AC3 

AC2 

ACl 


.•RESET  THE  ORR.  DSKAD  PARAMETERS 


RESTORE  ORRIGINAL  DA^A  PATTERN  # 
AND  TRANSFER  SIZE 
RESET  THE  BUFFER  ADDR 
AND  MBC  POINTE:^ 
AND  AC'S  USED 


......„-  J 
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1067A  0A5323  262  17  0  00  000012 
10675  045324  263  17  0  00  000000 


DATA  COMARE  ROUTINE  -  COMP 


SEQ  0357 


DC 
DF 


GET 
RTN 


MBCN 


;REST0RE  THE  MASSBUS  CONIROLLER  » 
;AND  EXIT 
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SEQ  0358 


D( 
DI 


10676 

10677 

10678 

10679 

10680 

10681 

10682 

10683 

1068A 

10685 

10686 

10687 

10688 

10689 

10690 

10691 

10692 

10693 

10694 

10695 

10696 

10697 

10698 

10699 

10700 

10701 

10702 

10703 

10704 

10705 

10706 

10707 

10708 

10709 

10710 

10711 

10712 

10713 

10714 

10715 

10716 

10717 

10718 

10719 

10720 


045325 
045326 
045327 
045330 
045331 
045332 


550  01 
202  01 
661  01 
210  02 
270  01 
402  00 


0  01  000000 
0  00  10073'^ 
0  00  000002 
0  00  100733 
0  00  100733 
0  00  000003 


045333  260  17  0  00  053266 


045334 
045335 
045336 
045337 

045340 
045341 
045342 
045343 
045344 
045345 
045346 


045347 
045350 
045351 
045352 
045353 
045354 
045355 
045356 
045357 
045360 
045361 
045362 
045363 
045364 
045365 


200  04  0  00  000006 
200  00  0  13  100747 
603  00  0  00  020000 
404  04  0  00  072462 


312 
260 
346 
260 
332 
260 
25A 


04 
17 
02 
17 
00 
17 
00 


1  00  000001 
0  00  045407 
0  00  045333 
0  00  044541 
0  11  000034 
0  00  045560 
0  00  045306 


3:)i  00 

260  17 

261  17 


261 
261 


17 
17 


514  06 
540  06 
202  06 

201  00 

202  00 
260  17 
262  17 
262  17 
262  17 
254  00 


0  11  000034 
0  00  045560 
0  00  101103 
0  00  101104 
0  00  101154 
0  00  100733 
0  00  100735 
0  00  101103 
0  00  101103 
0  00  101154 
0  00  044541 
0  00  101154 
0  00  101104 
0  00  101103 
0  00  045306 


;NOT  ENOUGH  MEMORY  IS  AVAILABLE  FOR  A  BUFFER  COMPARISON 
•SETUP  AND  PROCEED  TO  EXECUTE  A  WORD  TO  WORD  COMPARISON  AS  A 
•LAST  DITCH"  EFFORT  (YECHI) 


•  ii 


CMPWDX:  GO 


CMPWD:  HRRZ  AC1,(AC1) 

MOVEM  AC 1,. BUFF 

TLO  AC1,2 

MOVN  AC2,.SIZE 

ADD  AC1,.SIZE 

SETZM  AC3 

GENWD 

MOVE  AC4,AC 

MOVE  DSBTBL (DRIVE) 

TLNE  (.FID 

AND  AC4, [177777^,177777] 

CAME  AC4,aACl 

GO  CMPER 

AOJN  AC2, CMPWDX 

GO  RECLAM 

SKIPE  .SDCE(DSBP) 

GO  ERRTOT 

JRST  CMPEX 


GET  THE  SCNTBL  ENTRY  ADDRESS  FIELD 

SAVE  PHY  ADDRESS 

SETUP  AC1  TO  INDEX  WITH  AC2 

MAKE  AC2  =  NEG  TRANSFER  SIZE 

POINT  TO  END  OF  BUFFER 

CLEAR  THE  GENERATION  CONTROL  WORD 

GENERATE  ONE  WORD  OF  DATA  IN  "AC" 

FROM  DATA  PATTERN  SPECIFIED  BY  ".PATN' 

CO   THE  GENERATED  WORD 

GEi  THE  DRIVE  STATUS  BITS 

11  FORMATTED  PACK? 

YES  -  CLEAR  UNWANTED  BITS 

GEN.  DAT.  WORD=READ  DATA  IN  BUFFER? 

NO  -  ERROR  DETECTED 

COMPARISON  COMPLETED? 

DONE... RECLAIM  THE  MEMORY  SLOT 

ANY  COMPARE  ERRORS  DETECTED? 

YES  -  REPORT  TOTALS 

AND  EXIT 


.•DATA  COMPARE  IS  FINISHED. .  .NOW  SEE  IF  ANY  DATA  COMPARE  ERRORS 
;WERE  DETECTED  &  PRINT  THE  ERROR  TOTALS  FOR  THE  COMPARE 


CMPECK:  SKIPE 
GO 
PUT 
PUT 
PUT 
HRLZ 
HRR 
MOVEM 
MOVE  I 
MOVEM 
GO 
GET 
GET 
GET 
JRST 


.SDCE(DSBP) 

ERRTOT 

SCNTBL 

SCNTBL+1 

SCNADD 

AC, .SIZE 

AC, .BUFF 

AC, SCNTBL 

SCNTBL 

SCNADD 

RECLAM 

SCNADD 

SCNTBL+1 

SCNTBL 

CMPEX 


ANY  SOFTWARE  DETECTED  COMPARE  ERRORS? 
YES  -  PRINT  SOFTWARE  ERROR  TOTALS 
SAVE  THE  CURRENT  SCNTBL  ENTRY 

AND  SCNTBL  POINTER 

GET  THE  SIZE 

AND  BUFFER  ADDR 

SAVE  THE  WORD 

RESET  THE  SCNADD  POINTER 

TO  RECLAIM  THE  READ  BUFFER 

RECLAIM  THE  READ  BUFFER 

RESET  THE  SCNTBL  POINTER 

RESET  THE  SCNTBL  ENTRY 

EXIT  COMPARE  ROUTINE 
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SEO  0359 


D 

D 


10721 

10722 

10723 

1072A 

10725 

10726 

10727 

10728 

10729 

10730 

10731 

10732 

10733 

10734 

10735 

10736 

10737 

10738 

10739 

10740 

10741 

10742 

10743 

10744 

10745 

10746 

10747 

10748 

10749 


045366 
045367 
045370 
045371 
045372 
045373 
045374 
045375 

045376 
045377 
045400 
045401 
045402 
045403 


045404 
045405 
045406 


•/^♦♦•********** ****•***♦♦•*•***•*♦**** ************************************ 

;*MCHCMP  —  ROUTINE  TO  COMPARE  TO  BUFFER  OF  DATA        

t     BUFFER  SIZE  DETERMINED  BY  ".SIZE".  THE  READ  BUFFER  ADDRESS  ^^ 
IS  IN  ".BUFF*^"  AND  THE  COMPARE  BUFFER  ADDRESS  CAN  BE  EXTRACTED 


FROM  SCNTBL  ENTRY  POINTED  TO  BY  SCNADD 
TYPE  OF  DATA. 


•  • 


'.PATN"  CONTAINS 


)/^************************************************************************ 


200  01 
550  03 
210  02 
661  01 
661  03 
270  01 
270  03 
402  00 

200  06 
213  00 
270  06 
326  06 
346  02 
254  00 


00 
00 
00 
00 
00 
00 
00 
00 


100735 
101154 
100733 
000002 
000002 
100733 
100733 
077637 


1  00  000003 

0  00  000006 

1  00  000001 
0  00  045404 
0  00  045376 
0  00  045347 


200  06  1  00  000003 
260  17  0  00  045407 
254  00  0  00  045402 


MCHCMP:  MOVE 
HRRZ 
MOVN 
TLO 
TLO 
ADD 
ADD 
SETZM 

MCHELP:  MOVE 
MOVNS 
ADD 
JUMPN 

MCHCEL:  AOJN 
JRST 


MCHCER:  MOVE 
GO 
JRST 


ACU.BUFF 

AC3.aSCNADD 

AC2,.SIZE 

AC1,2 

AC3,2 

ACK.SIZE 

AC3,.SIZE 

MCHEFG* 

AC,aAC3 

AC 

ACaACi 

AC.MCHCER 

AC2,.-4 

CMPEC< 


AC,aAC3 

CMPER 

MCHCEL 


GET  READ  BUFFER  ADDRESS 

AND  THE  COMPARE  BUFFER  ADDRESS 

GET  THE  COMPARE  SIZE 

SET  AC1  TO  USE  AC2  FOR  INDEXING 

ALSO  AC3  FOR  THE  SAME 

POINT  TO  END  OF  READ  BUFFER 

AND  COMPARE  BUFFER 

CLEAR  THE  MATCH  ERROR  FLAG 

GET  "CORRECT"  DATA 

NEGATE  THE  DATA 

ADD  IN  READ  DATA 

ERROR  DETECTED 

LOOP  TILL  ALL  COMPARED 

GO  SEE  IF  ANY  ERRORS  DETECTED 


;GET  THE  CORRECT  DATA 
;AND  REPORT  ERROR 


FROM  BUFFER 


.^,.J 


DDRPI  SUBROUTINES  (RPOA/05/06  RELIABILITY) 
DATA  COMPARE  ROUTINE  -  COWP 


DECFLO  VER  00.12  12-APR-78  08:44  PAGE  06 


SEQ  0360 


r 

c 
[ 


♦♦COMP   ♦♦ 
*********** 

I 
***************** 

♦  SAVE  AC'S   ♦ 

*  SAVE  DSBPNT  ♦ 

•  POINTER    * 
***************** 

I 
***************** 

♦EXTRACT  PATN  M   ♦ 

*  FROM  SCNTBL  * 

♦  &  DRIVE  #   * 
***************** 

I 
BUFMCH     I 
************************* 

*♦  CHECK  FOR  EXISTENCE  *♦ 

♦♦   OF  DESIRED  DATA   ♦* 

♦♦      BUFFER       *♦ 
************************* 


ROUTINE  TO  COMPARE  DATA  READ  FROM 

DRIVE  AGAINST  1)  AN  EXISTING  DATA  BUFFER 

2)  A  GENERATED  BUFFER 
SETS  BUFMAP  BITS  IF  DATA  GENERATION  IS  NEEDED 
CLEARS  BUFMAP  BITS  FROM  READ  BUFFER  ENTRYS 
CLEARS  SCNTBL  ENTRY  FOR  READ  BUFFER 
BUILDS  SCNTBL  ENTRY  FOR  COMPARE  BUFFER  (IF  NEEDED) 

MCHCMP(SCNADD  POINTS  TO  CURRENT  SCNTBL  ENTRY 
***********************  UPON  ENTERING  "COMP" 

*  PERFORM  ADDRESS  TO  * 

*  ADDRESS  COMPARE   * 

*********************** 

I  . 
*********************** 

*  RESTORE  AC'S  TOTAL  ♦ 

*  PNT  ♦  EXIT      ♦ 

*********************** 


I 


ALL  SET 
9 


\YES 
\— 
\ 


PNDHOL     I  NO  CMPGEN 
************************* 

*♦   FIND  A  SLOT  BIG   ♦* 

♦♦     ENOUGH  FOR      ♦♦ 

*♦     TRANSFER      ♦* 
************************* 


RECLAM 
***************** 

*  CLR  SCNTBL   * 

->*ENTRY  FRM  SAVED* 

♦SCNPNT^USE  BITS* 

***************** 

I 
*********** 

**MCHCMP  ♦* 
*********** 


THIS  RECLAIMS  THE  READ 
BUFFER,  USE  BUFMAP  BITS, 
AND  SETS  SCNTBL  ENTRY  TO  0 


I 


/ 


/   ENOUGH  CORE   \N0 
'  FOR  COMP  BUFFER  \- 


I 
I 
I 
I 
I 


■>I 


I   YES 
*********************** 

*BUILD  •\rfRITE"  SCNTBL   ♦ 

*  ENTRY   (SEE   FNDENT)      ♦ 

*  ♦ 
*********************** 

I 
*********************** 

*  CLEAR  DRIVE  #  IN   ♦ 

*  ENTRY  ft  USE     ♦ 

*  COUNT  IN  ENTRY    ♦ 

**********************'r 


I 


I 
I 
I 

I 
•>I 


GENDAT 
***************** 

*  GEN  DATA    * 
»    NEEDED     ♦ 

•  >  '  * 
***************** 

I 

*********** 

♦♦MCHCMP  ♦♦ 
*********** 

I 


***************** 

*  SETUP  TO    * 

*  COMPARE  (FOR)  ♦ 

*  * 
***************** 

GENUD   I  CMPUDX 
***************** 

*  1  FOR  1  DATA  * 

*  MATCH     ♦ 

*  EXECUTION   * 

***************** 

RECLAM  I 
***************** 

*  -1  FAIL    ♦ 

*  COUNT     ♦ 

*  * 
***************** 

I 
*********************** 


♦  RESTORE  AC'S 

♦  AND  EXIT 


* 
t 

*********************** 
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SUBTTL  DATA  COMPARE  ERROR  REPORTER 
♦CMPER  —  ROUTINE  TO  REPORT  ERRORS  DETECTED  BY  THE  DATA  COMPARE 


SEQ  0361 


10751 

10752 

10753 

10754 

10755 

10756 

10757 

10758 

10759 

10760 

10761 

10762 

10763 

10764 

10765 

10766 

045407 

260  17  0  00  053004 

10767 

045410 

261  17  0  00  000000 

10768 

045411 

261  17  0  00  000001 

10769 

045412 

261  17  0  00  000002 

10770 

045413 

261  17  0  00  000003 

10771 

045414 

261  17  0  00  000004 

10772 

045415 

261  17  0  00  000005 

10773 

10774 

10775 
10776 
10777 

045416 

202  06  0  00  077532 

10778 

045417 

200  04  1  00  000001 

10779 

045420 

316  04  0  00  101163 

10780 

045421 

254  00  0  00  045547 

10781 

10782 

10783 

045422 

201  00  1  00  000001 

10784 

045423 

336  00  0  00  030143 

10785 

045424 

254  00  0  00  045427 

10786 

045425 

037  13  0  00  000002 

10787 

045426 

037  14  0  00  000004 

10788 

045427 

202  00  0  00  077526 

10789 

045430 

202  04  0  00  077527 

10790 

045431 

200  04  0  00  077526 

10791 

045432 

200  00  0  00  100735 

10792 

04543? 

037  13  0  00  000002 

10793 

045h34 

037  14  0  00  000004 

10794 

045435 

274  04  0  00  000000 

10795 

045436 

231  04  0  00  000200 

10796 

045437 

202  05  0  CO  077535 

* 


ROUTINE.   PRINTING  WILL  BE  DELAYED  UNTIL  ALL  I/O  HAS 
FINISHED.   INFORMATION  REPORTEu  IS:     MEMORY  ADDRESS 
OF  DATA  COMPARED,  EXPECTED  DATA  ON  THE  COMPARE,  ACTUAL 
DATA  CONTAINED  AT  THE  ERROR  ADDRESS,  BITS  IN  DIFFERENCE 
FROM  THE  COMPARE,  DRIVE  NUMBER  OF  FAILING  UNIT,  AND  DISK 
ADDRESS  (CYLINDER,  SURFACE,  AND  SECTOR  ARE  REPORTED  AS  A 
LOGICAL  BLOCK  NUMBER).  PRINTOUTS  ARE  LIMITED  TO  3 
DETECTED  ERRORS  UNLESS  "PRINT-ALL-ERRORS"  SWITCH  IS 
SET  IN  THE  PROGRAM  SWITCHES. 


/If*  ♦♦♦•♦♦<»****♦»»*****♦♦♦#***»**♦**♦**♦***♦**♦***♦**  *♦♦**♦***♦****♦♦*♦♦♦♦* 


CMPER: 


GO 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 


lOWAIT 

ACO 

AC1 

AC2 

AC3 

AC4 

AC5 


;WAIT  FOR  ALL  I/O  TO  FINISH 
;SAVE  SOME  AC'S 


;AC  CONTAINS  THE  EXPECTED  DATA  FROM  THE  COMPARE  ^       ,  ^^  ^ 

;AC1  CONTAINS  THE  MEMORY  ADDRESS  OF  THE  ACTUAL  DATA  (USING  AC2  AS  AN  INDEX) 


CMPER1 : 


MOVEM 
MOVE 
CAMN 
JRST 


MOVE  I 

SKIPN 

JRST 

MAPADR 

ERRHLT 

MOVEM 

MOVEM 

MOVE 

MOVE 

MAPADR 

ERRHLT 

SUB 

IDIVI 

MOVEM 


AC,CEGWD# 
AC4,aAC1 
AC4,NULL 
CMPERX 


aACI 

MAPNEW 

.*3 


CEADR# 
AC4,CEBWD# 
AC4,CEADR 
.BUFF 


AC4,AC0 

AC4,BLKSIZ 

AC5,CEWD# 


SAVE  THE  EXPECTED  DATA 
GET  THE  ACTUAL  DATA 
IS  THE  NULL  DATA  PATTERN? 
YES  -  MUST  BE  FINISHED  WITH 
DATA  COMPARE 


THE 


ADDRESS  OF  THE 
ADDRESSING?? 


DATA  ERROR 


GET  THE 

VIRTUAL 

NOPE 

CONVERT  TO  A  PHYSICAL  ADDRESS 

WHOOPS  -  SHOULD  NOT  GET  HERE!! 

SAVE  THE  ADDRESS  OF  ERROR 

SAVE  THE  ACTUAL  DATA  IN  ERROR 

GET  THE  ADDRESS  AGAIN 

GET  THE  BUFFER  ADDR 

CONVERT  TO  REAL  ADDR 

CALC  WORD  #  IN  ERROR  OF  XFR 
CALC  WORD  NUMBER  IN  SECTOR 
SAVE  THE  WORD  NUMBER  IN  SECTOR 
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SEQ  0362 


10797 

10798 

10799 

10800 

10801 

10802 

10803 

1080A 

10805 

10806 

10807 

10808 

10809 

10810 

10811 

10812 

10813 

108K 

10815 

10816 

10817 

10818 

10819 

10820 

10821 

10822 

10823 

10824 

10825 

10826 

10827 

10828 

10829 

10830 

10831 

10832 

10833 

10834 

10835 

10836 

10837 

10838 

10839 

10840 

10841 

10842 

10843 

10844 

10845 

10846 

10847 

10848 
10849 
10850 
10851 


045440 
045441 
045442 
045443 
045444 
045445 
045446 
045447 
045450 

045451 
045452 
045453 
045454 
045455 
045456 

045457 
045460 
045461 
045462 
045463 
045464 

04546S 
045466 
045467 
045470 
045471 

045472 
045473 
045474 
045475 


200  06 
135  05 

270  04 

201  05 
200  00 
603  00 

271  05 
231  04 

202  05 

135  05 
270  04 
200  05 
350  00 
230  04 
202  05 

554  05 
270  04 
200  05 
350  00 
230  04 
202  05 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
13 
00 


0  00 

0 :5 

0  00 


077550 
072463 
000005 
000023 
100747 
020000 
000002 
OO00C1 
077533 


0  00  072464 
0  00  000005 
0  00  101164 
0  00  000005 
0  00  000005 
0  00  077534 

0  00  000006 
0  00  000005 
0  11  000026 
0  00  000005 
0  00  000005 
0  00  077530 


200  04  0  00  077532 
430  04  0  00  077527 
202  04  0  00  077531 
332  00  0  11  000034 
254  00  0  00  045511 

037  10  0  00  000002 
603  00  0  00  000200 
254  00  0  00  045556 
037  02  0  00  072465 


045476 

260  17 

045477 

037  00 

045500 

260  17 

045501 

260  17 

045502 

260  17 

04550? 

260  17 

045^04 

037  02 

045505 

200  00 

045506 

037  06 

045507 

037  02 

045510 

037  02 

045511 

350  00 

045512 

200  00 

045513 

603  00 

045514 

254  00 

045515 

200  00 

045516 

303  00 

045517 

254  00 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


044454 
000040 
053221 
053151 
053044 
053210 
072473 
077522 
000000 
072477 
072504 


0  11  000034 
0  00  030046 
0  00  001000 
0  00  045520 
0  11  000034 
0  00  000003 
0  00  045547 


CMPER2:  MOVE 
LDB 
ADD 
MOVE  I 
MOVE 
TLNE 
ADD  I 
IDIVI 
MOVEM 

CMPER3:  LDB 
ADD 
MOVE 
AOS 
IDIV 
MOVEM 


CMPER4: 


CMPER5 


HLRZ 

ADD 

MOVE 

AOS 

IDIV 

MOVEM 

MOVE 

XOR 

MOVEM 

SKIPE 
JRST 


CMPER6:  SWITCH 
TLNE 
JRST 
PMSG 

CMPER7:  60 
PSP 
GO 
GO 
GO 
GO 

PMSG 
MOVE 
PNT6 
PMSG 
PMSG 


CMPER8 


AOS 

MOVE 

TLNE 

JRST 

MOVE 

CAILE 

JRST 


AC.CMPAD 

AC5, [POINT  5,AC,35J 

AC4,AC5 

AC5,'*D19 

DSBTBL(DRIVE) 

(.FID 

AC5,2 

AC4J(AC5) 

AC5,CESEC# 

ACS, [POINT  5, AC, 27] 

AC4,AC5 

AC5,MAXSUR 

ACS 

AC4,AC5 

AC5,CESUR# 

AC5,AC 

AC4,AC5 

AC5,.MAXCY(DSBP) 

ACS 

AC4,AC5 

AC5,CECYL# 

AC4,CEGyD 
AC4,CEByD 
AC4,CEDIF# 

.SDCE(DSBP) 
CMPER8 


TXTINH 

CMPERS 

<*♦♦—♦♦—«♦— ••*D  AT  A 

RUNTIM 


GET  THE  STARTING  DISK  ADDRESS 
GET  THE  SECTOR  NUMBER 

GET  THE  NUMBER  OF  SECTORS  (MAX) 

GET  THE  DRIVE  STATUS 

PACK  IN  PDP-11  FORMAT? 

YES  -  ADJUST  THE  MAX  SECTOR  # 

CALC  SECTOR  #  IN  ERROR 

SAVE  THE  SECTOR  *  IN  ERROR 

GET  THE  SURFACE  # 

GET  THE  MAX  #  OF  SURFACES 

CALC  SURFACE  IN  ERROR 
SAVE  IT 

GET  THE  CYLINDER  NUMBER 

GET  THE  LAST  CYLINDER  # 

CALC  CYLINDER  IN  ERROR 
AND  SAVE  IT 

GET  THE  EXPECTED  DATA 

FIND  THE  BITS  IN  DIFFERENCE 

AND  SAVE  THE  DIFFERENCE  BITS 

IS  THIS  THE  FIRST  ERROR? 

NO  -  DON'T  PRINT  THE  ERROR  HEADER 

GET  THE  PROGRAM  SWITCHES 
.SHORT  PRINTOUT? 
;YES  -  PRINT  A  SHORT  HEADER 
COMPARE  ERROR  > 


SyPNT 

TELTST 

PINITP 

TELPAT 

<]CALLED  FROM  PROG  PC  > 

CALLPC* 


.•REPORT  THE  PROGRAM  RUN  TIME 

.•PRINT  THE  PROGRAM  SWITCHES  IN  USE 

.•PRINT  THE  TEST  BEING  EXECUTED 

.-PRINT  THE  STARTING  DISK  ADDRESS 

.•PRINT  THE  PATTERN  IN  USE 


<*MEM  ADR]  EXPECTED]  ACTUAL> 
<]]DIFFERENCE]BLK  #]WORD  #*> 


.SDCE(DSBP) 

CONSW 

PALE??S 

.SDCE(DSBP) 

3 

CMPERX 


.•COUNT  THIS  ERROR  DETECTED 
;GET  THE  PROGRAM  SWITCHES 
;WANT  TO  PRINT  ALL  ERRORS? 
;YES  -  LET  'EM  HAVE  IT 
;GET  THE  COMPARE  ERROR  COUNT 
.•EXCEEDED  THE  LIMIT  TQ  PRINT 
;YES  -  QUIT  PRINTING 


DDRPl  • 
DDRP13 

10852 
10853 
10854 
10855 
10856 
10857 

10858 

10859 

10860 

10861 

10862 

10863 

1086A 

10865 

10866 

10867 

10868 

10869 

10870 

10871 

10872 

10873 

1087A 

10875 

10876 

10877 

10878 

10879 

10S80 

10881 

10882 

10883 

1088A 

10885 

10886 

10887 

10888 

10889 

1089O 

10891 

10892 

10893 

1089A 

10895 

10896 

10897 

10898 

10899 
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SEQ  0363 


0A5520 

0A5521 

045522 

045523 

045524 

045525 

045526 

045527 

045530 

045531 

045532 

045533 

045534 

045535 

045536 

045537 

045540 

045541 

045542 

045543 

045544 

045545 

045546 

04554' 
045550 
045551 
045552 
045553 
045554 
045555 

045556 
045557 

045560 
045561 
045562 
045563 
045564 

045d65 
045566 
045567 
045570 
045571 
045572 


200  00 
037  10 
037  00 
200  00 
037  13 
037  00 
200  00 
037  13 
037  00 
200  00 
037  13 
037  00 
037  00 
200  00 
242  00 
270  00 
504  00 
260  17 
037  15 
260  17 
200  00 
037  03 
037  00 


0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


077526 
000000 
000040 
077532 
000000 
000040 
077527 
000000 
000040 
077531 
000000 

oooao 

000040 
077534 
000010 
077533 
077530 
045573 
000000 
066122 
077535 
000000 
030242 


262  17  0  00  000005 

262  17  0  00  000004 
26?  17  0  00  000003 

17  0  00  000002 
17  0  00  000001 
17  0  00  000000 

263  17  0  00  000000 


2  2 

:  J? 

2cJ 


037  02  0  00  072511 
254  00  0  00  045476 

200  00  0  00  030046 
607  00  0  00  000200 
037  02  0  00  072515 
603  00  0  00  000200 
037  02  0  00  072524 


200  00 
212  00 
260  17 
037  00 
402  00 
263  17 


0  11  000034 
0  11  000134 
0  00  066163 
0  00  030242 
0  11  000034 
0  00  000000 


CMPER9:  MOVE 

PNTADR 

PSP 

MOVE 

PNTHy 

PSP 

MOVE 

PNTHW 

PSP 

MOVE 

PNTHy 

PSP 

PSP 

MOVE 

LSH 

ADD 

HRL 

GO 

PNTDEC 

GO 

MOVE 

PNT3 

PCRL 


CMPERX: 


CMPERS: 
ERRTOT: 


GET 
GET 
GET 
GET 
GET 
GET 
RTN 

PMSG 
JRST 

MOVE 
TLNN 
PMSG 
TLNE 
PMSG 

MOVE 

ADDM 

GO 

PCRL 

SETZM 

RTN 


CEADR 
CEGWD 
CEBWD 
CEDIF 


CESUR 

'^DS 

CESEC 

CECYL 

LOGBLK 

.TAB 
CEWD 


AC5 
AC4 
AC3 
AC2 
AC1 
ACO 


<*DATA  COMP  ERR  AT  > 
CMPER7 

CONSy 

TXTINH 

<^TOTAL  DATA  ERRORS  DE 

TXTINH 

<*TOTAL  DATA  COMP  ERR 

.SDCE(DSBP) 
.COMP(DSBP) 
PSDN 

.SDCE(DSBP) 


;GET  THE  ERROR  ADDRESS  IN  MEMORY 

;PRINT  THE  PHYSICAL  ADDRESS 

;PRINT  A  SPACE 

;GET  THE  EXPECTED  DATA 

;PRINT  IT 

;6ET  THE  ACTUAL  DATA 
.•PRINT  IT 

;GET  THE  XOR  DIFFERENCE  DATA 
;PRINT  IT 


GET  THE  SURFACE  IN  ERROR 
POSITION  IT 

ADD  IN  THE  SECTOR  IN  ERROR 
ALSO  GET  THE  CYLINDER  IN  ERROR 
CALC  THE  LOGiCAL  BLOCK  IN  ERROR 
PRINT  THE  LOGICAL  BLOCK  NUMBER 

GET  THE  yORD  #  IN  SECTOR 

PRINT  IT 

FINISH  yiTH  A  <CR>  &  <LF> 


.-RESTORE  AC'S  USED 


.-AND  EXIT 


;GET  THE  PROGRAM  SyiTCHES 
.-SHORT  PRINTOUT? 
TECTED  (THIS  XFR)  =  > 


=  > 


.-GET  THE  TOTAL  ERRGf^  COUNT 
.-UPDATE  THE  TOTAL  ERROR  COUNT 
;AND  PRINT  THIS  ERROR  COUNT 

.-CLEAR  THIS  ERROR  COUNT 
.-AND  EXIT 
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SEQ  0364 


10900 

10901 

10902 

10903 

10904 

10905 

10906 

10907 

10908 

10909 

10910 

10911 

10912 

10913 

10914 

10915 

10916 

109U 

10918 

10919 

10920 

10921 

10922 

10923 

10924 

10925 

10926 

10927 

10928 

10929 

10930 

10931 

10932 

10933 

10934 

10935 

10936 


045573 
045574 
045575 
045576 
045577 
045600 
045601 
045602 
045603 
04560^ 
045605 
045606 
045607 
045610 
045611 
045612 
045613 
045614 
045615 
045616 
045617 
045620 
045621 
045622 
045623 
045624 
045625 
045626 


17 
17 
17 
17 
11 
02 


261 

261 

261 

261 

550 

201 

200  03 

603  03 

271 

202 

200 

35l 

220 

554 

220 

135 

220 

270 

135 

270 

200 

5/ J 

202 

262 

262 

262 

262 

263 


02 
02 
03 
00 
02 
03 
02 
01 
01 
02 
01 
02 
00 
00 
06 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
13 
00 
13 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 

11 

00 
00 
00 
00 
00 


000001 

000002 

000003 

000006 

100747 

000024 

100747 

020000 

000002 

000006 

101164 

000003 

000003 

000000 

000003 

072530 

000006 

000001 

072531 

000001 

000002 

000006 

000030 

000006 

000003 

000002 

000001 

000000 


SUBTTL   DISK  LOGICAL  BLOCK  CALCULATOR 

f ♦»**♦*♦♦♦*♦*»•♦♦•***♦♦*♦♦♦♦* t **♦*»*»***♦**♦*****♦•****** **************** 
♦LOGBLK  —  THIS  ROUTINE  WILL  GENERATE  A  LOGICAL  BLOCK  NUMBER 

♦  USING  A  DISK  ADDRESS  (IN  ACO)  EXISTING  IN  THE  FORM: 

♦  CYL,, SURFACE  SECTOR 

♦  AND  RETURN  WITH  THE  LOGICAL  BLOCK  NUMBER  IN  ACO. 
/If»»*****»******************************************************  ********** 


LOGBLK:  PUT 
PUT 
PUT 
PUT 
HRRZ 
MOVE  I 
MOVE 
TLNE 
ADD  I 
MOVEM 
MOVE 
AOS 
IMUL 
HLRZ 
IMUL 
LDB 
IMUL 
ADD 
LDB 
ADD 
MOVE 
SOS 
MOVEM 
GET 
GET 
GET 
GET 
RTN 


AC1 

AC2 

AC3 

AC 

DSBP,DSBTBL(DRIVE) 

AC2,*D20 

AC3,DSBTBL(DRIVE) 

AC3,(.F11) 

AC2,2 

AC2,AC 

AC3,MAXSUR 

AC3 

AC2,AC3 

AC3,AC0 

AC2,AC3 

ACUCPOINT  5, ACO, 273 

AC1,AC 

AC2,AC1 

AC1,CP0INT  5, ACO, 353 

AC2,AC1 

AC2 

AC 

AC,.MXSEC(DSBP) 

AC 

AC3 

AC2 

AC1 


;SAVE  SOME  AC'S 


SETUP  THE  DSB  POINTER 

GET  MAX  #  SECTORS  (PDP-10) 

GET  DRIVE  STATUS 

PDP-11  FORMAT? 

YES  -  ADJUST  FOR  PDP-11  FORMAT 

SAVE  THE  MAX  SECTOR  # 

GET  THE  MAX  #  SURFACES 

AC2  NOW  =  BLOCKS  PER  CYLINDER 

GET  THE  CYLINDER  #  FROM  ACO 

AC2  NOW  =  TOTAL  BLOCKS  THIS  CYLINDER 

GET  THE  ACTUAL  SURFACE 

AC1  NOW  =  #  BLKS  TO  THIS  CYL 

AC2  NOW  =  LOG  BLK  0   OF  TRACK 

GET  THE  ACTUAL  SECTOR  M 

AC2  NOW  =  THE  CALC  LOGICAL  BLK  # 

PUT  THE  LOG  BLK  #  IN  ACO 

SAVE  THE  MAX  SECTOR  NUMBER 
•RESTORE  AC'S  USED 


;AND  EXIT 
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LOGICAL  BLOCK  NUMBER  CONVERTER 


SEQ  0365 


10937 

10938 

10939 

109A0 

109A1 

109A2 

109A3 

109A4 

109A5 

109A6 

109A7 

109A8 

109A9 

10950 

10951 

10952 

10953 

1095A 

10955 

10956 

10957 

10958 

10959 

10960 

10961 

10962 

10963 

1096A 

10965 

10966 

10967 

10968 

10969 

10970 

10971 

10972 


0A5627 
0A5630 
0A5631 
0A5632 
0A5633 
0A563A 
0A563S 
0A5636 
0A5637 

0A56A0 
0A56A1 
0A56A2 
0A56A3 
0A56AA 
0A56A5 
0A56A6 
0A56A7 


SUBTTL   LOGICAL  BLOCK  NUMBER  CONVERTER 
XLIST 

LIST 

•/^»»******** ***•***♦***•••♦••• ***************************************** 

';*   BLKADR  —  CONVERT  A  LOGICAL  BLOCK  NUMBER  TO  DISK  ADDRESS 

•^* ••*••••**•*•**•*♦*♦**•♦♦************************************** ****** 


DDRf 
DDRf 

11^ 
IV 
11^ 
IV 
IV 


COMMENT  $ 


THIS  ROUTINE  WILL  GENERATE  A  DISK  ADDRESS  FROM  A  LOGICAL 
BLOCK  rjMBER  IN  ACO.  THE  FORMAT  OF  THE  DISK  ADDRESS 
GENERATED  UPON  ROUTINE  EXIT  IS: 

CYLINDER,, SURFACE  -  SECTOR 

$ 

XLIST 


261  17  0 
261  17  0 
550  11  0 
350  00  0 
201  01  0 
220  01  0 
230  00  0 


202  00 
200  00 
230  00 


2A2  00  0 
A3"  00  0 
50A  00  0 
370  00  0 
262  17  0 

262  17  0 

263  17  0 


00  000001 
00  000002 
13  1007A7 
11  000030 
00  000023 
11  000030 
00  000001 
00  100003 
00  000001 
11  000030 
00  000010 
00  000001 
00  100003 
11  000030 
00  000002 
00  000001 
00  000000 


BLKADR;  PUT 
PUT 
HRRZ 
AOS 
MOVE  I 
IMUL 
IDIV 
MOVEM 
MOVE 
IDIV 
LSH 
lOR 
HRL 
SOS 
GET 
GET 
RTN 


AC1 

AC2 

DSBP,DSBTBL(DRIVE) 

.MXSEC(DSBP) 

AC1,SURFACE+1 

AC1,.MXSEC(DSBP) 

AC1 

TEMC^L* 

AC1 

.MXSEC(DSBP) 

'^DS 

AC1 

TEMCYL 

.MXSEC(DSBP) 

AC2 

AC1 


SAVE  SOME  AC'S 

SETUP  THE  DSB  POINTER 
TEMP  ADJUST  THE  M   SECTORS/TRACK 
GET  THE  ACTUAL  SURFACES/DRIVE 
CALC  NUMBER  SECTORS/CYLINDER 
CALC  M   CYLINDERS  IN  LOG  BLK  # 
SAVE  THE  CYLINDER  » 

CALC  THE  SURFACE  #  FROM  LOG  BLK  ft 

POSITION  THE  SURFACE  # 

THEN  GET  THE  SECTOR  * 

AND  THE  CYLIND  #  TO  COMPLETE  THE  ADDRESS 

CORRECT  THE  MAX  SECTOR/TRK  # 

RESTORE  AC'S  USED 

AND  EXIT 


, 
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SEQ  0366 


10973 

10974 

10975 

10976 

10977 

10978 

10979 

10980 

10981 

10982 

10983 

10984 

10985 

10?«^6 

109br 

10988 

10989 

10990 

10991 

10992 

10993 

10994 

10995 

10996 

10997 

10998 

10999 

11000 

11001 

11002 

11003 

11004 

11005 

11006 

11007 

11008 

11009 

11010 

i;oii 

11012 
11013 
11014 
11015 
11016 
11017 
11018 
11019 
11020 
11021 
11022 
11023 
11024 
11  ^^25 


SUBTTL  MASSBUSS  DEVICE  SELECTION  ROUTINE  -  SELECT 

XLIST 

LIST 

;*  SELECT  —  CONTROLLER,  DEVICE,  AND  DISK  ADDRESS  SELECTION 

;/|f************  ********************************************************* 


COMMENT  $ 


045650 
045651 
045652 
045o53 
045654 
045655 
045656 
045657 
045660 
045661 
045662 
045663 
045664 
045665 


60 

SELECT 

RETURN 

^1 (FATAL) 

RETURN 

+2 

RETURN 
$ 

XLIST 

*3 

261  17  0  00  000015 

SELECT:  PUT 

REPT 

261  17  0  00  000006 

PUT 

AC 

261  17  0  00  000001 

PUT 

AC1 

260  17  0  00  046150 

60 

TOTCHK 

402  00  0  00  077752 

SETZM 

SELDON* 

402  00  C  00  077505 

SETZM 

ADRDON^ 

402  00  0  00  077631 

SETZM 

LMTSIZ 

332  00  0  00  030037 

SKIPE 

USER 

332  00  0  00  030516 

SKIPE 

MONTYP 

304  00  0  00  000000 

CAIA 

071  01  0  00  COOCOO 

RELEAS 

sfOADR* 

331  00  0  00  077753 

SKIPL 

335  00  0  00  000013 

SKIPGE 

DRIVE 

254  00  0  00  046057 

JRST 

ADRSEL 

THIS  ROUTINE  WILL  SCAN  THE  DRIVE  "DSBTBL"  TABLE  LOOKING  FOR  AN 
OPERATOR  SELECTED  ONLINE  DRIVE  TO  BE  USED  FOR  TESTING.  IT  ALSO 
GENERATES  AN  "AREA"  TO  BE  USED  (I.E.   SELECTS  A  CYLINDER, 
SURFACE,  AND  SECTOR).  TWO  PROGRAM  FLAGS  ARE  USED  TO  DETERMINE 
THE  METHOD  OF  DEVICE/DISK  AREA  SELECTION. 

SEQADR  =  -1    SELECT  ALL  ADDRESSES  ON  PRESENT  DRIVt  BEFORE 

SELECTING  A  NEW  DRIVE 
=  0    ALLOW  ALL  DRIVES  TO  BE  SELECTED  BEFORE  GENERATING 
A  NEW  DISK  AREA 

SEQDRV  =  -1    EACH  TIME  A  NEW  DRIVE  IS  REQUESTED,  SELECT 

DRIVE  +1  (I.E.  00,  01.  02-  ETC.) 
=  0    BUMP  THE  DRIVE  COUNT  BY  10  TO  CHANGE 

MASSBUS  CONTROLLERS  (I.E.  00,  10,  20,  ETC.) 

TO  INITIALIZE  THE  SELECT  ROUTINE,  'DRIVE"  IS  SET  TO  A  -1 . 

CALLING  SEQUENCE  IS: 


DRIVE  IS  UNUSABLE 

SELECTION  IS  FINISHED 

DRIVE  AND  AREA  SELECTED  AND  READY  FOR  USE 


;SAVE  THE  REPT  COUNT 
;SAVE  AN  AC  TOR  WORK  AREA 

SEE  IF  OPR  WANTS  TO  REPORT  TOTALS 
CLEAR  A  FLAG 

INIT  XFR  LIMIT  SIZE 
In  user  mode? 
TOPS-10? 

Yes,  exec  mode  or  TOPS-20 
TOPS-10  •  release  the  unit 
SEQUENTIAL  ADDf^ESSES? 
INITIALIZED  DRIVE? 
;N0  -  PRESET  THE  ROUTINE  OR  SELECT  ADDR 


r 


DORPl  - 
DDRP13 

11026 

11027 

11028 

11029 

11030 

11031 

11032 

11033 

1103A 

11035 

11036 

11037 

11038 

11039 

110A0 

110A1 

110A2 

110A3 

110AA 

110A5 

11 046 

110A7 

11C48 

11049 

11050 

11051 

11052 

11053 

11054 

11055 

11056 

11057 

11058 

11059 

11060 

11061 

11062 

11063 

11064 

11065 

11066 

11067 

11068 

11069 
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SEQ  0367 


045666  201  06  0  00  000001 

045667  331  00  0  00  077754 
045670    201  06  0  00  000010 


045671 
045672 
045673 
045674 
045675 
045676 
045677 
045700 

045701 

045702 

045703 

045704 

045705 

045706 

045707 

045710 

045711 

045712 

045713 

045714 

045715 

045716 

045717 

045720 

045721 

045722 

045723 

045724 

045725 

045726 

045727 

045730 

045731 

045732 

045/33 

045734 


272  06 
317  13 
254  00 
332  00 
254  00 
274  13 
303  13 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


000013 
100671 
045701 
077754 
046044 
100671 
000007 
046044 


331  01  0 
254  00  0 
607  01  0 
254  00  0 
603  01  0 
254  00  0 
402  00  0 

336  00  0 
254  00  0 
603  01  0 
254  00  0 
550  01  0 
303  01  0 
254  00  0 
5:>:  11  0 
200  00  0 
313  00  0 
254  00  0 

337  00  0 
254  00  0 

200  00  0 
270  00  0 
307  00  0 
254  00  0 

201  00  0 
274  00  0 
220  00  0 

202  00  0 


13  100747 
00  045666 
00  100000 
00  046262 
00  200000 
00  045666 
00  077614 
00  100732 
00  045717 
00  020000 
00  045717 
00  100732 
00  000023 
00  045666 
13  100747 
00  100730 
11  000026 
00  046013 
00  077647 
00  045735 
00  100731 
00  077647 
00  000022 
00  045735 
00  000023 
00  100731 
11  000027 
00  077631 


;HERE  TO  SELECT  A  DRIVE 

DSKSEL:  MOVEI   ACJ 

SKIPL   SEQDRV* 
MOVEI   ACJO 


DSKSLl: 


ADDM 

CAM6 

JRST 

SKIPE 

JRST 

SUB 

CAILE 

JRST 


DSKSL2:  SKIPL 
JRST 
TLNN 
JRST 
TLNE 
JRST 
SETZM 
SKIPN 
JRST 
TLNE 
JRST 
HRRZ 
CAILE 
JRST 
HRRZ 
MOVE 
CAMLE 
JRST 
SKIPG 
JRST 
MOVE 
ADD 
CAI6 
JRST 
MOVEI 
SUB 
IMUL 
MOVEM 


AC, DRIVE 
DRIVE-DRMAX 
DSKSii 
SEQDRV 
DSKSL5 
DRIVE, DRMAX 
DRIVE -7 
DSKSL5 

AC1,DSBTBL(DRIVE) 

DSKSEL 

ACU(.ONLN) 

DSELXl 

AC1,(.ADRD0N) 

DSKSEL 

FNDDRV* 

.SECT 

.+6 

AC1,(.F11) 

ACK.SECT 

AC1,SECT10 

DSKSEL 

DSBP,DSBTBL(DRIVE) 

ACO^.CYLIN 

AC0,.MAXCY(DSBP) 

DSEL2B 

MULTTK 

DSEL2A 

ACQ,. SURF 

ACO, MULTTK 

ACO, 22 

DSEL2A 

AC0,23 

ACC.SURF 

ACO,.TKSIZ(DSBP) 

ACO,LMTSIZ# 


INCREMENT  DRIVE  *  BY  1 

STAY  ON  SAME  MBC  #? 

NO  -  ALLOW  MBC  TO  CHANGE 

UPDATE  DRIVE  M 

STILL  A  VALID  DRIVE  #? 

YES  -  PROCEED 

CHANGING  BY  10? 

NO  -  SELECTION  FINISHED 

UPDATE  DRIVE  M 

VALID  UNIT  #  FOR  MBC? 

NO  -  CHECK  FOR  AN  EXIT 

GET  DRIVE  STATUS  (IS  DRIVE  SELECTED?) 

DRIVE  NOT  SELECTED  -  TRY  NEXT 

IS  THE  DRIVE  ONLINE? 

NO  -  FATAL  EXIT? 

TESTED  ALL  ADDRS 

YES  -  SELECT  NEXT  DRIVE 

CLR  FOUND  DRIVE  FLAG 

SELECT  SECTORS? 

NO 

11  FORMAT  PACK? 

YES  -  SKIP  OVER  SOME  CODE 

GET  SELECTED  SECTOR  # 

LEGAL  SECTOR  FOR  THIS  DRIVE? 

NO  -  SELECT  A  NEW  DRIVE 

SETUP  DSB  TABLE  PTR 

GET  CYL  ADDR 

VALID  CYL 

NO 

MULTI  TRACK  XFR 

NO  CONTINUE 

GET  SURF 

MAKE  TERM  SURF 

VALID  SURF 

YES  CONT 

NO 

ACO  NOW  #  OF  TRACKS  TO  XFR 

TIMES  M   OF  WORDS  PER  TRACK 

SAVE  XFR  SIZE 
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SEQ  0368 


ODI 
DDI 


11070 

11071 

11072 

11073 

1107A 

11075 

11076 

11077 

11078 

11079 

11080 

11081 

11082 

11083 

11084 

11085 

11086 

11087 

11088 

11089 

11090 

11091 

11092 

11093 

11094 

11095 

11096 

11097 

11098 

11099 

11100 

11101 

11102 

11103 

11104 

11105 

11106 

11107 

11108 

11109 

11110 

11111 

11112 

11113 

11114 

11115 

11116 


045735 

045736 

045737 

045740 

045741 

045742 

045743 

045744 

045745 

045746 

045747 

045750 

045751 

045752 

045753 

045754 

045755 

045756 

045757 

045760 

045761 

045762 

045763 

045764 

04576S 

045766 

045767 

045770 

045771 

045772 

045773 

045774 

045775 

045776 

045777 

046000 

046001 

046002 

046C03 

046004 

046005 

046006 

046007 

046010 

046011 

046012 


200  01  0 
606  01  0 
254  00  0 
200  00  0 


661  00 
202  00 
201  01 
254  00 
553  00 


0 
0 
0 
0 
0 


200  01  0 
336  00  0 
254  00  0 
220  01  0 
332  00  0 
200  01  0 
202  01  0 
200  00  0 
202  00  0 
200  00  0 
621  00  0 
202  00  0 
336  00  0 
254  00  0 
603  00  0 
254  00  0 
402  00  0 
200  00  0 
336  00  0 
60?  00  0 
2d  •  00  0 
200  00  0 
260  17  0 


260  17 
254  00 
332  00 
254  00 


200  01  0 
242  01  0 
550  10  0 
200  12  0 
200  00  0 
332  00  0 
254  00  0 
137  13  0 
7  004  14 
254  00  0 


00  030046 
00  002000 
00  045745 
00  100732 
00  400000 
00  100732 
00  000200 
00  045754 
00  100732 
11  000027 
00  077647 
00  045754 
00  077647 
00  077631 
00  077631 
00  100733 
00  077576 
11  000024 
13  100747 
00  000060 
13  100747 
00  077633 
00  045766 
00  006000 
00  045666 
00  077632 
00  030046 
00  077625 
00  400000 
00  045777 
11  000024 
00  045573 
00  047153 
00  046057 
00  030037 
00  046032 
00  000013 

00  11111^ 

01  101047 
10  000020 
00  077576 
00  030041 
00  046252 
00  072532 

0  00  000000 
00  046252 


DSEL2A:  MOVE 
TRNN 
JRST 
MOVE 
TLO 
MOVEM 
MOVE  I 
JRST 
HRRZS 
MOVE 
SKIPN 
JRST 
IMUL 
SKIPE 
MOVE 

DSEL2E:  MOVEM 
MOVE 
MOVEM 
MOVE 
TLZ 
MOVEM 
SKIPN 
JRST 
TLNE 
JRST 
SETZM 
MOVE 
SKIPN 
TRNE 
JRST 
MOVE 
GO 
GO 

JRST 
SKIPE 
JRST 
MOVE 
LSH 
HRRZ 
MOVE 
MOVE 
SKIPE 
JRST 
DPB 
DATAO 
JRST 


AC1,C0NSW 
AC1,0NESEC 

.SECT 

(IBO) 

.SECT 

AC1,8LKSIZ 

DSEL2E 

.SECT 

AC1,.TKSIZ(DSBP) 

MULTTK 

AC1, MULTTK 

LMTSIZ 

ACULMTSIZ 

AC1,.SIZE 

ACO.DSKAD 

AC0,.SELAD(DSBP) 

DSBTBL (DRIVE) 

(.XFRERI.POSER) 

DSBTBL (DRIVE) 

LOCKFG 

.^3 

(.WRTLI.SWRTL) 

DSKSEL 

LOCKCK* 

CONSU 

IDELF6 

DELTRK 

.SELAD(DSBP) 

LOGBLK 

DELCHK 

ADRSEL 

USER 

D3KSL3 

AC1, DRIVE 

ACl,-3 

CSBP,CSBTBL(AC1) 

MBCN,.MBCN(CSBP) 

DSKAD 

KLFLG 

DSELX3 

DRIVE. [POINT  6,AC0,5] 

PI, ACO 

DSELX3 


GET  PGM  SWITCHES 
LIMIT  XFR  SIZE? 
NO 

get  the  current  sector  value 
set  the  select  bit 
save  the  updated  word 
yes  -  limit  to  1  sector 

clear  the  sector  select  flag 

get  the  words/track  for  unit 

mut:  track  sel 

no  single  track 

yes  cal  size 

xfr  size  limited 

yes  get  size 

save  size 

get  the  present  generated  dsk  address 

save  the  starting  addr  in  dsb  area 

get  the  drive  table  status 

clear  the  drive  error  bits 

save  the  updated  status 

look  for  a  write-locked  drive?? 

no  -  don't  care 

is  the  drive  write-locked 

yes  -  select  another  drive 

clear  the  all  wrt  locked  flag 

get  the  pgm  switches  in  use 

inhibit  from  pgm? 

inhibit  deletion? 

YES 

GET  THE  SELECTED  ADDRESS 

CONVERT  TO  A  LOGICAL  BLK  # 

HAS  SELECTED  DISK  AREA  BEEN  DELETED? 

YES,  SELECT  ANOTHER  ADDRESS 

IN  USER  MODE?? 

YES  -  JUMP  AROUND  CODE 


SETUP  CSB  POINTER 

AND  MBC  #  FOR  I/O  INSTRUCTIONS 

NO  KL10  CPU  TYPE  (EITHER  A  KA  OR  KI) 

CPU  =  KL10? 

YES  -  TAKE  THE  NORMAL  EXIT 

SAVE  THE  DRIVE  #  IN  0 

DISPLAY  THE  DSK  ADDRESS  IN  THE  MI  LIGHTS 

EXIT 
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SEQ  0369 


11117 

11118 

11119 

11120 

11121 

11122 

11123 

1112A 

11125 

11126 

11127 

11128 

11129 

11130 

11131 

11132 

11133 

11134 

11135 

11136 

11137 

11138 

11139 

11140 

11141 

11142 

11143 

11144 

11145 

11146 

11147 

11148 

11149 

11150 

11151 

11152 

11153 

11154 

11155 

11156 

11157 


04601 3 
046014 
04601 5 
046016 
04601 7 
046020 

046021 
046022 
046023 
046024 
046025 
046026 
046027 
046030 
046031 

046032 
046033 
046034 
046035 
046036 
046037 
046040 
046041 

046042 
046043 

046044 
046045 
046046 
046047 
046050 
046051 
046052 
046053 
046054 
046055 
046056 


331  00 
254  00 
402  00 
402  00 
476  00 
254  00 

200  00 
661  00 
202  00 
260  17 
254  00 
312  13 
254  00 
402  00 
254  00 

200  00 
200  12 

332  00 
254  00 
202  00 


0  00  077753 
0  00  046021 
0  00  100730 
0  00  100731 
0  00  077505 
0  00  045666 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 


13 
00 
13 
00 
00 
00 
00 
00 
00 


100747 
200000 
100747 
046204 
046226 
100671 
045666 
00001 3 
045701 


050  01  0 
254  00  0 
254  00  0 


11  000022 
11  000021 
00  030516 
00  046252 
00  100044 
00  100043 
00  046042 
00  046252 


260  17  0  00  046270 
254  00  0  00  046262 


4ui  00 
476  00 
200  01 
332  00 
254  00 
332  00 

331  00 

332  00 
254  00 
476  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000013 
077752 
077576 
077505 
046226 
077633 
077632 
077614 
046226 
077614 
046111 


DSEL2B:  SKIPL  SEQADR 

JRST  DSEL2C 

SETZM  .CYLIN 

SETZM  .SURF 

SETOM  ADRDON 

JRST  DSKSEL 

DSEL2C:  MOVE  AC0,DSBTBL(DRIVE);6ET 

TLO  AC0,(. ADRDON) 

MOVEM  ACO,DSBTBL (DRIVE) 

GO  ADNCHK 

JRST  DSELX2 

CAME  DRIVE, DRMAX 

JRST  DSKSEL 

SETZM  DRIVE 

JRST  DSKSL2 

DSKSL3:  MOVE  .DNAME(DSBP) 

MOVE  MBCN,.CNUM(DSBP) 

SKIPE  MONTYP 

JRST  DSELX3 

MOVEM  PAKNAM+1 

OPEN  UPAKNAM 

JRST  DSKSL4 

JRST  DSELX3 

DSKSL4:  GO  OPENER 

JRST  DSELX1 

DSKSL5:  SETZM  DRIVE 

SETOM  SELDON* 

MOVE  AC1,DSKAD 

SKIPE  ADRDON 

JRST  DSELX2 

SKIPE  LOCKFG 

SKIPL  LOCKCK 

SKIPE  FNDDRV 

JRST  DSELX2 

SETOM  FNDDRV 

JRST  ADRSLI 


.•SEQUENTIAL  ADDRESSING  SELECTED 

;N0 

;YES  INIT  ADDRS 

;SET  ADDRESS  DONE  FLAG 
.•SELECT  NEXT  DRIVE 

TABLE  DATA 

SET  ADDR  DONE  STATUS 

RESTORE  TABLE 

CHECK  IF  ALL  DRIVES  DONE 

YES  EXIT 

NO  IS  IT  THE  LAST  DRIVE 

NO  SELECT  NEXT  DRIVE 

YES  INIT  DRIVE 

FIND  NEXT  TESTABLE  DRIVE 

GET  THE  SIXBIT  DRIVE  NAME 
SETUP  RH  DEV  CODE 
RUNNING  UNDER  TOPS-20 
YES  DONT  NEED  TO  DO  OPEN 
SAVE  FOR  •t)PEN"  COMMAND 
OPEN  ON  CHANNEL  1 
REPORT  THE  ERROR 
TAKE  NORMAL  EXIT 

REPORT  ERROR 

TAKE  THE  FATAL  EXIT 

CLEAR  THE  DRIVE  POINTER 

SET  THE  SELECT  DONE  FLAG 

GET  THE  CURRENT  ADDRESS 

ALL  ADDRESSES  SELECTED? 

YES  -  EXIT  ^2 

LOOK  FOR  LOCKED  DRIVES? 

OR  DRIVE  ALL  LOCKED  FLAG  SET 

FIND  A  DRIVE  SINCE  LAST  ADRS  SELECT 

EXIT 
YES  INIT  FLAG  AND 
;SELECT  NEW  DSK  ADDR 


DDRPl  SUBROUTINES  (RPOA/05/06  RELIABILITY) 
DRIVE/DISK  ADDRESS  SELECTION  -  SELECT 


DECFLO  VER  00.12  12-APR-78  08:44  PAGE  01 


SEQ  0370 


♦♦SELECT  ♦* 
I 

SELECT 

DISK  ADR 

1ST? 


♦B* 
t 


WES 
\-- 
\ 


•>**ADRSEL  ♦♦ 


YES   / 


I  NO 


/ 


DRIVE 
=-1 


\YES 
\ 


I  NO  DSKSEL 


+1       \N0 
INCREMENT     \- 
TO  DRIVE      \ 


I  YES 

*  * 

♦  •»-l->AC     ♦ 

I< 

I  DSKL1 
•••••••••••♦*••** 

*DRIVE+AC->DRIVE* 
I 


*    +10->AC    * 
j< 


/ 


DISABLED 
DRIVE 


\ 


I  NO 


/ 


.SECT 
<=20. 


\YES 
\— • 
\ 


— > 

I 


I  NO 


NO 


/ 


<• 


.F11 
SET 


I<- 


■|.^ 


/ 


(DRIVE) 
<  11 


\N0 
\- 
\ 


+10  TO 
INCREMENT 
DRIVE? 


*  .TKSIZ->.AC1  ♦ 

*  AC1->.SIZE   ♦ 

*  * 

*** 

*D* 

*** 

(+1) 
\N0 

\   "        I 


/ 


I  YES 

I  DSKSL2  I 

DRIVE      \N0  •♦*****•***    I 
OPR       \— **DSKSL1  ♦*  YESI  / 
SELECTED      \  ***********    — / 
f 

I  YES 


I  YES 

t   SUBTRACT    * 
t   77->DRIVE   ♦ 


f 

I 
I 


SEQADR 

-1  STAY  ON  SELECTED 
DRIVE  TILL  OVERFLOW 
ADDRESS  SELECTION 
0  SELECTED  ALL  DRIVE  # 
BEFORE  NEXT  ADDRESS 

SEQDRV 

-1  INCREMENT  DRIVE  # 
BY  1  TO  STAY  ON 
SELECTED  CONTROLLER 
0  SELECT  A  NEW  MBC 
EACH  ENTRY 


(DRIVE) 
<=>? 


*B*<- 


YES   / 
....  . 


ONLINE 


\N0   t*****tt*** 
\ ♦•RTNI   *♦ 

FATAL 


V  DSELX2 

\N0     *  FIND  1ST  OPR  * 
\ >t   SELECTED    * 

\     *     DRIVE     * 

I 

t*RTN2   ** 

ALL  DONE 
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SEQ  0371 


Dl 
Dl 


11159 

11160 

11161 

11162 

11163 

11164 

11165 

11166 

11167 

11168 

11169 

11170 

11171 

11172 

11173 

11174 

11175 

11176 

11177 

11178 

11179 

11180 

11181 

11182 

11183 

11184 

11185 

11186 

11187 

11188 

11189 

11190 

11191 

11192 

11193 

11194 

11195 

11196 

11197 

11198 

11199 

11200 

11201 

11202 

11203 

11204 

11205 


046057 

046060 

046061 

046062 

046063 

046064 

046065 

046066 

046067 

046070 

046071 

046072 

046073 

046074 

046075 

046076 

046077 

046100 

046101 

046102 

046103 

046104 

046105 

046106 

046107 

046110 


046111 
046112 
046113 
046114 
046115 
046116 
046117 
046120 
046121 
046 1 22 
046123 
046124 
046125 
046126 


331  00  0 
254  00  0 
403  13  0 
402  00  0 
200  00  0 


621  00 
202  00 
311 
254 


13 
00 


350  00 
254  00 
402  00 
205  00 
200  01 
606  01 
621  00 
332  00 
621  00 
202  00 
402  00 
476  00 
336  01 
254  00 
306  01 
402  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


254  00  0 


00  000013 
00  046111 
00  100730 
00  100731 
13  100747 
00  200000 
13  100747 
00  100671 
00  046072 
00  000013 
00  046063 
00  000013 
00  400000 
00  030046 
00  002000 

00  mill 

00  077613 

00  mill 

00  100732 
00  077576 
00  077632 
00  077647 
00  045701 
00  000001 
00  077647 
00  045701 


332  00 
254  00 
200  01 
200  00 
602  00 
661  01 
202 


33: 


01 
00 


254  00 
350  01 
553  00 
307  01 
254  00 
513  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 


00 
00 


077613 
046127 
100732 
030046 
002000 
400000 
100732 
100732 
046126 
100732 
000001 
000025 
046141 
100732 


;HERE  TO  SELECT  A  DISK  ADDRESS 


ADRSEL:  SKIPL 
JRST 
SETZB 
SETZM 

ADRSLA:  MOVE 
TLZ 
MOVEM 
CAML 
JRST 
AOS 
JRST 
SETZM 
MOVSI 
MOVE 
TRNN 
TLZ 
SKIPE 
TLZ 
MOVEM 
S'TZM 
SlTOM 
SK I PN 
JRST 
CAIN 
SETZM 
JRST 


DRIVE 

ADRSL1 

DRIVE,. CYLIN 

.SURF 

ACO,DSBTBL(DRIVE) 

AC0,(.ADRDON) 

ACO,DSBTBL(DRIVE) 

DRIVE, DRMAX 

DRIVE 

ADRSLA 

DRIVE 

ACO, 400000 

Al1,C0NSW 

AC1,0NESEC 

AC0,-1 

FMTFL6 

AC0,-1 

AC0,.SECT 

DSKAD/«f 

LOCKCK 

ACUMULTTK 

DSKSL2 

AC1J 

MULTTK 

DSKSL2 


;HERE  TO  SELECT  SECTORS  -  IF  NEEDED 


ADRSL1: 


SKIPE 

JRST 

MOVE 

MOVE 

TRNE 

TLO 

MOVEM 

SKIPL 

JRST 

AOS 

HRRZS 

CAI6 

JRST 

HLLZS 


FMTFLG 

ADRSL2 

ACU.SECT 

CONSU 

AC0,ONESEC 

AC1,(1B0) 

AC1,.SECT 

.SECT 

.+5 

AC1,.SECT 

AC1 

AC1,SECT11 

ASELX2 

.SECT 


PARAMETERS  INITED  YET?  ^_^ 

YES  -  PROCEED  TO  SELECT  AN  ADDRESS  ON  DISK 

NO  -  INITIALIZE  DRIVE  PARAMETERS 

CLEAR  SURFACE  * 

GET  TABLE  DATA 

CLEAR  ADDR  DONE 

RESTORE  TABLE  DATA 

CLEARED  FOR  ALL  DRIVES 

YES 

NO  -HDRIVE 

CLEAR  NEXT 

DONE  INIT  DRIVE 

GET  SELECT  SECTORS  ID  BIT 

GET  CONSOLE  SWITCHES 

SELECTING  SECTORS 

NO  CLEAR  ID  BIT 

IN  FORMAT  TEST 

YES  CANT  SELECT  SECTORS 

SAVE  INITIAL  SECTOR  VALUE 

SET  THE  ALL  LOCKED  FLAG 
MULTIPLE  TRACKS?? 
NO 

YES  -  BUT  IS  IT  ONLY  1  TRACK? 
•YES  -  THEN  CLEAR  THE  FLAG 


IN  FORMAT  TEST 

YES  NOT  SELECTING  SECTORS 

GET  THE  PGM  SWITCHES 

LIMIT  TO  1  SECTOR  SIZE? 

YES 

SAVE  THE  SECTOR 

SELECT  A  SECTOR? 

NO  -  PROCEED  TO  CHECK  SURFACES 

SELECT  A  SECTOR 

MASK  OUT  LEFT  SIDE  (SELECT  REQUEST) 

WITHIN  SECTOR  LIMIT? 
.YES  -  EXIT 
;N0  -  RESET  SECTOR  » 


.^"^ 
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SEQ  0172 


D 

D 


11206 

11207 

11208 

11209 

11210 

11211 

11212 

11213 

11214 

11215 

11216 

11217 

11218 

11219 

11220 

11221 

11222 

11223 

11224 

11225 

11226 

11227 

11228 

11229 

11230 

11231 

11232 

11233 

11234 

11235 

11236 

11237 

11238 

11239 


046127 
046130 
046131 
046132 
046133 
046134 
046135 
046136 
046137 
046140 

046141 
046142 
046143 
046144 
046145 
046146 
046147 

046150 
046151 
046152 
046153 

046154 
046155 
046156 
046157 
046160 
046161 
046162 


331  00  0 
337  01  0 
254  00  0 
273  01  0 
334  uO  0 
350  01  0 
307  01  0 
254  00  C 
402  00  0 
350  00  0 


00  100732 
00  077647 
00  046134 
00  100731 
00  000000 
00  100731 
00  000022 
00  046141 
00  100731 
00  100730 


200  01 
550  06 
242  01 
434  01 
504  01 
202  01 
254  00 


0 
0 
0 
0 
0 
0 
0 


GO 
00 
00 
00 
00 
00 
00 


100731 
100732 
00001 0 
000006 
100730 
077576 
045701 


261  17  0  00  030046 
037  10  0  00  000002 
607  00  0  00  200000 
254  00  0  00  046163 


211 
202 
037 

oy 

254 
260 
254 


00 
00 
04 
01 
00 
17 
00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


011610 
030220 
072533 
000003 
046163 
037110 
030607 


;HERE  TO  SELECT  A  SURFACE 


ADRSL2: 


SKIPL 

SKIP6 

JRST 

ADD6 

SKI  PA 

AOS 

CAI6 

JRST 

SETZM 

AOS 


ASELX2:  MOVE 
HRRZ 
LSH 
lOR 
HRL 
MOVEM 
JRST 


TOTCHK: 


PUT 

SWITCH 
TLNN 
JRST 

MOVNI 

MOVEf^i 

PMSGF 

TTIYES 

JRST 

GO 

JRST 


SELECTING  SECTORS? 

MORE  THAN  A  SINGLE  TRACK  TRANSFER? 

NO  -  JUST  A  SINGLE  TRACK 

YES  -  UPDATE  SURFACE  M 

NO  -  COUNT  SURFACE  BY  1 
SURFACE  WITHIN  LIMIT 
YES  EXIT 
CLEAR  SURFACE 
PLUS  ^1  CYLINDER 

GET  THE  SURFACE  M 

AND  SECTOR  M  ..  ,, 

POSITION  SURFACE  IN  ITS  OWN  "FIELD" 

ADD  IN  SECTOR  * 

AND  CYLINDER 

SAVE  THE  DISK  ADDRESS 

CHECK  DRIVE  FOR  VALID  AREA  TO  USE 

SAVE  CURRENT  VALUE  OF  SWITCHES 
GET  THE  SWITCHES 
RESTART  PGM  &  PRINT  TOTALS?? 
;N0 

.-RESET  THE  PRINT  LINE  COUNTER 


.SECT 

AC1,MULTTK# 
.+3 
AC1,.SURF 

AC1,.SURF 
AC1, SURFACE 
ASELX2 
.SURF 
.CYLIN 

ACU.SURF 

AC, .SECT 

AC1,'^D8 

ACUAC 

ACh. CYLIN 

AC1.DSKAD 

DSKSL2 

CONSW 

RSTART 
TCHKA 

*D5000 
PNTENB 

<*^PRINT  SYSTEM  "TOTALS"  THEN  RESTART  THE  DIAGN0STIC??> 

;Y  OR  N  RESPONSE 

.+3  ;N0  -  GET  OUT... 

TOTPNT  ;YES  -  PRINT  TOTALS  FIRST 

SPCST  ;THEN  RESTART 
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SEQ  0373 


r 

! 
C 

c 


11240 

11241 

11242 

11243 

11244 

11245 

11246 

11247 

11248 

11249 

11250 

11251 

11252 

11253 

11254 

11255 

11256 

11257 

11258 

11259 

11260 

11261 

11262 

11263 

11264 

11265 

11266 

11267 

11268 

11269 

11270 

11271 

11272 

11273 

11274 

11275 

11276 

11277 

11278 


046163 
046164 
046165 
046166 
046167 
046170 
046171 
046172 
046173 
046174 
046175 
046176 
046177 
046200 
046201 
046202 
046203 

046204 
046205 
046206 

046207 
0462*5  0 
04621  : 
046212 
046213 
046214 
046215 
046216 
046217 
046220 
046221 

046222 
046223 
046224 
046225 


607  00 
254  00 
333  00 
476  00  0 
254  00  0 

201  00 

336  00 

202  00 
331  00 
254  00 

337  00 
254  00 
211  00 
202  00 
260  17 

262  17 

263  17 


0  00  100000 
0  00  046170 
0  00  077674 
00  077674 
00  046173 
0  00  mill 
0  00  077674 
0  00  077674 
0  00  077674 
0  00  046202 
0  00  030220 
0  00  046201 
0  00  011610 
0  00  030220 
0  00  037110 
0  00  030046 
0  00  000000 


261  17  0  00  000013 
261  17  0  00  000000 
402  00  0  00  000013 


200  00  0 
607  00  0 
254  00  0 
607  00  0 
254  00  0 


607  00 
254  00 
3i'  13 
254  00 
350  00 
254  00 


0 
0 
0 
0 
0 
0 


13  100747 
00  400000 
00  046220 
00  100000 
00  046220 
00  200000 
00  046222 
00  100671 
00  046223 
00  000013 
00  046207 


350  00  0  17  unit 

262  17  0  00  000000 

262  17  0  00  000013 

263  17  0  00  000000 


TCHKA:   TLNN 
JRST 
SKIPLE 
SETOM 
JRST 
MOVE  I 
SKIPN 
MOVEM 
SKIPL 
JRST 
SKIP6 
JRST 
MOVNI 
MOVEM 
GO 
GET 
RTN 

ADNCHK:  PUT 
PUT 
SETZM 


ACHK1 


ACHK2 


ACHKEX: 


MOVE 

TLNN 

JRST 

TLNN 

JRST 

TLNN 

JRST 

CAML 

JRST 

AOS 

JRST 

AOS 
GET 
GET 
RTN 


TOTALS 

.+4 

PNTOTS 

PNTOTS 

.+4 

-1 

PNTOTS 

PNTOTS 

PNTOTS 

PNTENB 

ACO, ^05000 
ACO, PNTENB 
TOTPNT 
CONSW 


DRIVE 

ACO 

DRIVE 


ACO,DSBTBL(DRIVE) 

AC0,(.OPR) 

ACHK2 

AC0,(.ONLN) 

ACHK2 

ACO,(.ADRDON) 

ACHKEX-1 

DRIVE, DRMAX 

ACHKEX 

DRIVE 

ACHK1 

ACO 
DRIVE 


PRINT  TOTALS? 

NO 

YES  -  -1=  NOT  PRINTED  0=  DONE 

SET  THE  FLAG 

TOTALS  SW  SET  . 

RESET  TO  "READY"  TO  PRINT 

SKIP  IF  DONE  &  SW  =0 

PRINT? 

NO 

EXCEEDED  ALLOWED  PRINOUT 

NO 

ENOUGH  FOR  8  DRIVES 

SAVE  IT 

YUP 

RESET  THE  SWITCHES  SAVED 


;SAVE  AC'S 


GET  TABLE  DATA 

DRIVE  SELECTED  FOR  TEST 

NO 

DRIVE  ONLINE 

NO 

ADDR  DONE  SET 

NO 

YES  TESTED  ALL 

YES  EXIT 

NO  UPDATE  DRIVE 

TEST  NEXT 


;ADJUST  RETURN 


DDRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
ADDRESS  SELECTION  (SELECT) 


DECFLO  VER  00.12  12-APR-78  08:4A  PAGE  02 


SEQ  0374 


NO 


< — 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


♦♦ADRSEL  ♦♦ 
*********** 

I 

/ 

/ 

/ 

DRIVE 
=-1 

\YES 
\— 

\ 

I  NO 

I  ADRSLI 

/ 
-/ 
/ 

.SECT 
=-1 

\ 
\ 
\ 

I  YES 
***************** 

♦  SELECT  A    ♦ 

•  SECTOR     * 

***************** 

♦  0->SURF,  0->  ♦ 
•>♦  CYLN,  0->SECT  ♦ 

♦  0->DRIVE    ♦ 

ff 


/ 


***************** 


I 

.SECT 
>  21.? 


\N0 
\- 
\ 


I  YES 

>]  ADRSL2 

***************** 

•  SELECT  A    ♦ 

•  SURFACE    ♦ 

•  ♦ 
***************** 


j        I  ASELX1 
]  ***************** 

I  ♦  GEN  THE  DSK  ♦ 

I  ♦   ADDR  INTO   ♦ 

I  ♦    "DSKAD"    ♦ 
]  ***************** 

•>I        I 

*********** 

♦♦DSKSL2  ♦♦ 

*********** 


/      .SURF      ^ 
/      >  18. 
/ 

^NO 

\ 

I  YES   , 
I  ADRSL3 

***************** 

♦  SELECT  A 

•  CYLINDER    ♦ 

♦             » 

***************** 

I 

/      .CYLN 
/      >  410. 

/ 

\ 

\ 

>I 


? 


*** 

*D^ 
*** 

I 


DISK  AREA 
OK  TO 
USE? 


\N0 

\ DSKSLI 

\ 


I  YES 
*********** 

♦♦RTN3   ♦♦ 
*********** 


I  YES 


***************** 

*  ♦ 

♦  0->  .CYLN   ♦ 
»  * 

****  tr************ 

I 
*********** 

♦♦DSKSEL  ♦♦ 

*********** 

I 
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SEO  0375 


11280 

11281 

11282 

11283 

1128A 

11285 

11286 

11287 

11288 

11289 

11290 

11291 

11292 

11293 

11294 

11295 

11296 

11297 

11298 
11299 
11300 
11301 
11302 
11303 
11304 
11305 
11306 
11307 

11308 

11309 

11310 

11311 

11312 

11313 

11314 

11315 

11316 

11317 

11318 

11319 

11320 

11321 

11322 

11323 

11324 

11325 

11326 

11327 

11328 


046226 
046227 

046230 

046231 

046232 

046233 

046234 

046235 

046236 

046237 

046240 

046241 

046242 

046243 

046244 

046245 

046246 

046247 

046250 

046251 

046252 
046253 
046254 
046255 
046256 
046257 

046260 
046261 

046262 
046263 
046264 
046265 
0462o6 
04626^ 

046270 
046271 
046272 
046273 
046274 
046275 


200  15 
403  13 
335  00 
254  00 
350  00 
367  15 
037  04 
254  00 
262  17 
262  17 

262  17 
332  00 
331  00 
254  00 
037  02 
037  02 
037  02 
254  00 
350  00 

263  17 


0  00 


0 
0 
0 
0 


00 
13 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
17 
00 


100671 

077576 

100747 

046236 

00001 3 

046230 

072544 

046260 

000001 

000006 

000015 

077633 

077632 

046250 

072552 

072561 

072571 

046260 

000000 

000000 


262  17  0  00  000001 
262  17  0  00  000006 

262  17  0  00  000015 
350  00  0  17  000000 
5:>J  00  0  17  000000 

263  17  0  00  000000 

260  17  0  00  044454 
254  00  0  00  030726 

260  17  0  00  037666 
260  17  0  00  056577 
262  17  0  00  000001 
262  17  0  00  000006 

262  17  0  00  000015 

263  17  0  00  000000 

037  04  0  00  072601 

200  00  0  11  000022 

037  01  0  00  000002 

037  04  C  00  072606 

070  01  0  00  000000 

263  17  0  00  000000 


•SELECT  EXIT  CODE 


DSELX2: 


MOVE 
SETZB 
SKIP6E 
JRST 

AOS 

REPTLP 

PMSGF 

JRST 

GET 

GET 

GET 

SKIPE 

SKIPL 

JRST 

PMSG 

PMSG 

PMSG 

JRST 

AOS 

RTN 

GET 
GET 
GET 
AOS 
AOS 
RTN 

GO 
JRST 

GO 

GO 

GET 

GET 

GET 

RTN 


OPENER:  PMSGF 
MOVE 
PNTSXF 
PMSGF 
CLOSE 
RTN 


DSELX3: 


rSELX4: 
DSELX1: 


REPT,DRMAX 

DRIVE, DSKAD 

DSBT8L( DRIVE) 

.♦5 

DRIVE 

.-3 


;GET  MAX  M   DRIVES  ON  SYSTEM 

;START  AT  DRIVE  00  I   RESET  DISK  ADDR 

.-DRIVE  OPR  SELECTED? 

;ITS  SELECTED 

;BUMP  THE  DRIVE  NUMBER 

;LOOP  BACK  AND  CHECK  THE  NEXT  DRIVE 


<*N0  SELECTED  DRIVES  ARE  AVAILABLE*> 
DSELX4  ;TAKE  THE  FATAL  EXIT 

AC1  ;YES  -  ALL  DONE  SELECTING 

AC  ;RESTORE  AC'S  USED 

REPT 

LOCKFG  ;LOOK  FOR  LOCKED  DRIVE? 

LOCKCK  ;0R  ALL  LOCKED  SET? 

.♦5  ;N0 

<'^N0  WRITE  ENABLED  DRIVES  AVAILABLE1*> 
<U   HELP  IS  NEEDED  TO  WRITE  ENABLE  A  DRIVE  '^> 
<TYPE  "H"  TO  THE  QUESTION  (WHAT  DRIVE  ?)  '''^> 
DSELX4 

(P)  ; BUMP  RETURN  ADDRESS 

;EXIT  +2  RETURN 


AC1 

AC 

REPT 

(P) 

(P) 


RUNTIM 
STRT1 

REMOVE 

CLRALL 

AC1 

AC 

REPT 


.•RESTORE  AC'S 

;BUMP  RETURN  ADDRESS  BY  2 
;THEN  RETURN  *3  -  S'LECT  OK 


.•DELETE  DRIVE  FROM  SELECT  LIST 
;KILL  ALL  PENDING  CMDS  TO  ThIS  DRIVE 
.•RESTORE  AC'S 


.•FATAL  RETURN  -  DRIVE  NO  LONGER  USABLE 


<'^?  DISK  INIT  FAILURE  ON  "> 
.DNAME(DSBP)  ;GET  THE  NAME 

;AND  PRINT  IT 
<"  ->**> 

1,  ■  .-CLOSE  THE  OPENED  FRi 

.-EXIT 
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5E0  0376 


11329 

11330 

11331 

11332 

11333 

11334 

11335 

11336 

11337 

11338 

11339 

11340 

11341 

11342 

11343 

11344 

11345 

11346 

11347 

11348 

11349 

11350 

11351 

11352 

11353 

11354 

11355 

11356 

11357 

11358 

11359 

11360 

11361 

11362 

11363 

11364 

11365 

11366 

11367 

11368 

11369 

11370 

11371 

11372 

11373 

11374 

11375 

11376 

11377 

11378 

11379 

11380 


046276 
046277 
046300 

046301 

046302 

046303 

046304 

046305 

046306 

046307 

046310 

046311 

046312 

046313 

046il4 

046315 

046316 

046317 

046320 

046321 

046322 

046323 

046324 

046325 


550  00  0  17  000000 
275  00  0  00  000001 
20?  00  0  00  030051 


554  15 
037  10 
607  00 
550  15 
350  00 
554  00 
202  00 
332  00 
402  00 
402  00 
402  00 
402  00 
402  00 
402  00 
550  00 
434  00 
602  00 
476  00 
602  00 
476  00 
350  00 


1 

0 

0 

1 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 


17 
00 
00 
17 
17 
17 
00 
00 
00 
00 
00 
00 
00 
00 
17 
00 
00 
00 
00 
00 


0  17 


000000 
000002 
000400 
000000 
000000 
000000 
077647 
077627 
077647 
077753 
077754 
100006 
100744 
100745 
000000 
030046 
010000 
077753 
004000 
077754 

ooooor 


S»''  "^L  TEST  SETUP  PROCEEDURE  -  SETUP 

>   i 

LIST 

;*  SETUP  —  ROUTINE  TO  INITIALIZE  A  TEST 

./If*****  »»♦**♦♦*»**♦****♦♦*♦♦*  *♦♦♦*♦*♦*♦*****♦♦****♦***•♦♦**♦♦♦***♦♦**♦* 


COMMENT  $ 


THIS  ROUTINE  WILL  INITIALIZE  A  TEST  WITH  THE  SUPPLIED 
ARGUMENTS  FOLLOWING  THE  "SETUP"  CALL.  THE  FIRST  CALL 
PARAMETER  CONTAINS  THE  ITERATION  CONTROL  COUNT  FOR 
BOTH  THE  RELIABILITY  MODE  OF  OPERATION  AND  THE  NORMAL 
MODE  (ALL  SWITCHES  =  0).  LEFT  SIDE  =  RELIABILITY  MODE 
ITERATION  COUNT  AND  RIGHT  SIDE  =  NORMAL  ITERATION  COUNT 

THE  NEXT  PARAMETER  CONTAINS  THE  MAXIMUM  AMOUNT  OF  MULTI- 
SELECTABLE  fRACKS  TO  BE  USED  FOR  A  DATA  TRANSFER  ON  THE 
LEFT  SIDE  OF  THE  WORD  AND  THE  "SWITCH"  OVERRIDE  CONTROL 
FOR  "SELECT"  ROUTINE  ON  THE  RIGHT.   CONSOLE  SWITCHES 
"ALLADR"  SELECTED  CAN  BE  PROGRAM  SET  BY  BIT  23  AND 
"ALLDRV"  IS  OVERRIDDEN  WITH  BIT  24. 

$ 

XLIST 


SEIV' 


SETUPl: 


HRRZ 

(P) 

SU6I 

1 

MOVEM 

TESTPC 

HLRZ 

REPT,a(P) 

SWITCH 

TLNN 

RELIAB 

HRRZ 

REPT,a(P) 

AOS 

(?) 

HLRZ 

a(P) 

MOVEM 

MULTTK 

SKIPE 

INSMEM# 

SETZM 

MULTTK 

SETZM 

SEOADR 

SETZM 

SEQDRV 

SETZM 

TINTFG 

SETZM 

TBLKR 

SETZM 

TBLKW 

HRRZ 

a(P) 

I  OR 

CONSW 

TRNE 

ALLADR 

SETOM 

SEOADR 

TRNE 

ALLDRV 

SETOM 

SEQDRV 

AOS 

(P) 

TEST 


GET  THE  CALL  PC  OF  THE 
CORRECT  THE  ADDRESS 
SAVE  THE  TEST  PC  ADDRESS 

GET  THE  RELIAB  ITERAT  COUNT 

READ  THE  SWITCHES 

IN  RELIABILITY  MODE?? 

NO 

POINT  TO  NEXT  PARAMETER  WORD 

GET  THE  0   TRACKS  ALLOWED 

SAVE  IT 

ENOUGH  MEMORY? 

NOPE  -  LIMIT  TO  1  TRACK 

CLEAR  SEQUENTIAL  DRIVE  ADDRESS  FLAG 

AND  THE  SEQUENTIAL  UNIT  ON  MBC  FLAG 

INIT  THE  TEST  INIT  FLAG 

CLEAR  THE  TOTAL  BLOCK  READ  COUNT 

AND  TOTAL  BLOCK  WRITE  COUNT 

GET  THE  OVERRIDE  SWITCHES 

AND  THE  PGM  SWITCHES 

WANT  ALL  ADDR  ON  DRV? 

YES  -  SET  THE  CONTROL  FLAG 

ALL  DRIVES  ON  MBC?? 

YES  -  SET  THE  TLAG 

POINT  TO  EXIT  ADDRESS 


DDRPl  - 
DDRPI3 

11381 

11382 

11383 

11384 

11385 

11386 

11387 

11388 

11389 

11390 

11391 

11392 

11397 

11394 

11395 

11396 

11397 

11398 

11399 

11400 

11401 

11402 

11403 

11404 

11405 

11406 

11407 

11408 

11409 

11410 

11411 

11412 

11413 

11414 

11415 

11416 

11417 

11418 

11419 

11420 

11421 

11422 

11423 

11424 

11425 

11426 

11427 

11428 

11429 

11430 

11431 

11432 

11433 

11434 

1U35 
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SETUP 


SEQ  0377 


046326 
046327 
046330 
046331 
046332 
046333 
046334 
046335 
046336 
046337 
046340 
046341 


046342 
046343 
046344 
046345 
046346 
046347 
046350 
046351 
0A6352 
046353 
046354 
046355 

046356 
046357 
046360 
046361 
046362 
046363 

046364 
046365 
046366 
046367 

046370 
046371 
046372 
046373 
046374 
046375 
046376 
046377 
046400 
046401 

046402 
046403 
046404 


476  00  0 
403  16  0 
402  00  0 
200  06  0 
336  10  0 


254  00 
553  00 
553  00 
402  00 


402  00  0 
365  06  0 
402  00  0 


332  00  0 
254  00  0 
332  00  0 
260  17  0 
7  004  20 
332  00  0 
254  00  0 
336  00  0 
254  00  0 
7  000  20 
254  00  0 
7  000  20 


00  000013 
00  077633 
00  077625 
00  100670 
06  101047 
00  046340 
00  000010 
06  101047 
10  000017 
10  000016 
00  046332 
00  077613 


00  030037 
00  046370 
00  077656 
00  063623 
0  00  010000 
00  030041 
00  046364 
00  030040 
00  046355 
0  00  324300 
00  046356 
0  00  674550 


336  00  0  00  030040 
7  .>00  20  0  00  002001 
332  00  0  00  030040 
7  000  20  0  00  002011 
7  004  20  C  00  042377 
254  00  0  00  046370 

7  000  20  0  00  127761 
7  o04  20  0  00  002377 
K")   OO  0  00  067545 
03?  ^  J  0  00  000004 


402  00 

201  00 

202  00 
336  00 
263  17 
260  17 
200  01 
271  01 


0 
0 
0 
0 
0 
0 
0 
0 
260  17  0 
037  02  0 


00  100005 
00  401100 
00  100042 
00  03C037 
00  000000 
00  045160 
00  030145 
00  010000 
00  045171 
00  072607 


200  00  0  00  00004A 
202  00  0  00  030U7 
260  17  0  00   040040 


SETOM  DRIVE 

SETZB  REPT1,L0CKFG# 

SET2M  IDELF6# 

MOVE  AC.RHMAX 

SKIPN  CSBP,CSBTBL(AC) 

JRSr  .•^5 

HRR2S  CS8P 

HRRZS  CSBTBL(AC) 

SETZM  .PIPCT(CSBP) 

SETZM  .BSYCT(CSBP) 

S0J6E  AC. -6 

SETZM  FMTFLG 

.-CLEAR  THE  PI  SYSTEM  AND  THE  CPU 


SETUP2:  SKIPE 
JRST 
SKIPE 
GO 

CONO 
SKIPE 
JRST 
SKIPN 
JRST 
CONO 
JRST 
CONO 


SETUP3: 


SKIPN 

CONO 

SKIPE 

CONO 

CONO 

JRST 


SETUP4:  CONO 
CONO 
MOVE 
CLOKOP 


SETUPX: 


lETUPy 


SETZM 

MOVE  I 

MOVEM 

SKIPN 

RTN 

GO 

MOVE 

ADDI 

GO 

PMSG 

MOVE 

MOVEM 

GO 


USER 

SETUPX 

ONCE 

SETCHN 

PI.PICLR 

KLFLG 

SETUP4 

KAIFLG 

.+3 

APR, 324300 

SETUP3 

APR. 674 5 50 


.-SETUP  DRIVE  FOR  "SELECT" 

.•CLEAR  THE  2ND  LOOP  CONTROL  WORD 

.•CLEAR  FORCED  INHIBIT  FLAG 

;GET  0   CONTROLLERS  ON  SYSTEM 

;M6C  HERE? 

;N0 

;YES  -  CLEAR  COUNTERS 

.•CLEAR  POSITION  COUNTER 
.-AND  THE  XF.'?  3USY  COUNTER 
;LOOP  TI-L  DONE 
;INIT  FORMAT  TEST  FLAG 


;IN  USER  MODE?? 
;YES  -  EXIT 

.•RESET  THE  MBC  DATA  CHANNELS 

.•CLEAR  THE  PI  SYSTEM 

;CPU  =  KL10?? 
•YES 

)no  -  IS  it  a  KIIO?? 

;N0  -  MUST  BE  A  KAIO 


.•CLEAR  THE  KIIO 
.•CLEAR  THE  KAIO 


KAIFLG  ;KI10??  _ 

APR.AAPRC11CLKENB  ;N0  -  ITS  A  KAIO 

KAIFLG 

APR.IAPRE1IIAPRC11CLKENB  ;SETUP  KIIO 

PI.PARHNB!CHNON!PION!PICHNA  ;AND  THE  PI  SYSTEM 

SETUPX  ;EXlt  -  ALL  SETUP  COMPLETED 

APR.LAPRAL1LAPRP1  ;SETUP  THE  KLIO 
PI.LCHNONILPIONILPICHA  ;AND  THE  PI  SYSTEM 

LAOS  TICKS] 

.•REINIT  11  CLOCK 


TIMOUT 
401100 
FAILTM 
USER 

UNLKIT 
ACI.MEMLOy 
A'-MOOOO 
DOCORE 


CLEAR  OPERATION  TIMEOUT  FLAG 

GET  A  GROSS  10  SEC  COUNT 

SAVE  IT  AS  THE  DEFAULT  TIME 

IN  USER  MODE? 

NO 

Unlock  i*   needed 

RESET  THE  CORE  SIZE 

Lea\/e  a  little  extra 

Do  it 


<'^?  NOT  ABLE  TO  RESET  COftE  TO  ORIGINAL  .IM1TS^> 


.JBREL 

MEMSIZ^I 

INTMAP 


;GET  MONITOR  USER  UPPER  LIMIT 

;SAVE    IT 

; RE  SET    THE   BuFMAP   TABLE 


DDRPl  - 
DDRPI3 

1U?6 
11A37 
1U38 
11A39 
1UA0 
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6A05  260  17  0  00  0A2133 

046A06  332  00  0  00  07763A 

0A6A07  260  17  0  00  0A5135 

0A6A1C  263  17  0  00  000000 


GO 


CORSET 


SKIPE  LOKCOR 
GO  LOCKJT 
RTN 


MACRO  X53B(12A2)  15:51  28-Aug-85  Page  113-1 
SETUP 

;RESET  THE  INUSE  BITS 

;LOCK  IN  CORE? 
;Yes 


.<:,EQ  0378 


DDF 
TR/ 
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r 


SEQ  0379 


DDI 
DDI 


114^1 

11442 

11443 

11444 

11445 

11446 

11447 

11448 

11449 

11450 

11451 

11452 

11453 

11454 

11455 

11456 

11457 

11458 

11459 

11460 

11461 

11462 

11463 

11464 

11465 

11466 

11467 

11468 

1H69 

1i470 

11471 

11472 

11473 

11474 

11475 

11476 

11477 

11478 

11479 

11480 

11481 

11482 

11483 

11484 


046411 

046411 
046412 
046413 


260  17  0  00  046276 
000000  000000 
000000  000000 


046414 
046415 
046416 
046417 
046420 
046421 
046422 
046423 
046424 
046425 
046426 
046427 
046^30 
046'»31 
046432 


40?  00 
Oi/  04 
402  00 
402  00 
037  10 
254  00 
312  00 
254  00 
476  00 
037  02 
254  00 
316  00 
254  00 
037  04 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


077600 
072617 
077705 
077542 
000003 
046411 
067176 
046427 
077705 
067006 
046433 
067177 
046433 
072627 
046411 


SUBTTL   PACK  WRITE-PROTECTION/TRACK  DELETION 
XLIST 

LIST 

•/^♦•••••***** ********************************************************** 
;*  DELETE  —  TRACK  DELETION  ROUTINE 


COMMENT  $ 


ROUTINE  TO  CONTROL  DELETION  OF  CYLINDERS  AND  SURFACES 

FOR  WRITE-PR0CTECTIN6  A  SPECIFIC  PACK  AREA  DUE  TO  BAD 

SPOTS  ON  THE  SURFACE,  SUSPECTING  FAULTY  WRITE/READ  HEAD 

FOR  A  SURFACE,  OR  TO  LIMIT  TESTING  TO  (OR  FROM)  SPECIFIC 

PACK  AREAS. ..THUS  WRITE  PROCTECTING  THOSE  AREAS. 

$ 

XLIST 


DELETE 
LIST 


TINT    0,0,0,0,0 

GO     SETUP 

XUD     0,0 

<0>B17!<0>B23i<0>B24 


SALL 


LIST 

SETZM  DTALDS* 

PMS6F  <*PROCESS  A  RANGE 

SETZM  RANGEF* 

SETZM  CLRDEL* 

TTSIXB 

JRST  DELETE 

CAME  CSIXBIT  /Y/] 

JRST  .+4 

SETOM  RANGEF 

PMSG  <*RANGING...''*> 

JRST  DTRKO 

CAMN  CSIXBIT  /N/] 

JRST  DTRKO 

PMSGF  <''A   "RANGE"  MEANS 

JRST  DELETE 


OF 


;INIT  THE  TEST  WITH  PARAMETERS 
;RELIAB  ITERAT  =  0,  NORM.  =  0 
;MAX  M   TRACKS  IN  A  XFR  =  0..   ^ 
;SWITCH  OVERIDES  -  "ALLADR"  =  0 
"ALLDRV"  =0 


; CLEAR  ALL  USED  FLAGS 
PACK  AREAS?  (TYPE  Y  OR  N)  > 
CLEAR  THE  RANGE  FLAG 
CLEAR  THE  ALL  DELETE  FLAG 
INPUT  ANSWER 
INPUT  ERROR 
YES?? 
;N0 
YES  -  SET  THE  FLAG 


TO 


JUMP  AROUND  CODE 
;N0?? 

•NO  -  GO  AROUND 

SELECT  A  MIN  AND  MAX 


PACK  AREA^TO  BE  TESTED 
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SEQ  0380 


11485 

11486 

11487 

11488 

11489 

11490 

11491 

11492 

11493 

11494 

11495 

11496 

11497 

11498 

11499 

11500 

11501 

11502 

11503 

11504 

11505 

11506 

11507 

11508 

11509 

11510 

11511 

11512 

11513 

11514 

11515 

11516 

11517 


046433 
046434 
046435 
046436 
046437 
046440 
046441 
046442 
046443 
046444 
046445 

046446 
046447 
046450 

046451 
046452 

046453 
046454 

046455 
046456 
046457 
046460 
046461 
046462 
046463 
046464 
046465 
046466 


037  04 
402  GO 
402  00 
037  02 
254  00 
037  04 
037  02 
254  00 
037  04 
037  01 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


072643 
077566 
077715 
000003 
046455 
072654 
000003 
046453 
072663 
000003 
000000 


037  04  0  00  072675 
037  02  0  00  000003 
476  00  0  00  077542 

476  00  0  00  077715 
254  00  0  00  046455 

476  00  0  00  077715 
476  00  0  00  077566 


336  00 
254  00 
037  04 
334  00 
037  04 
336  00 
or  04 
53i  00 
037  04 
037  04 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


077542 
046461 
072705 
000000 
072711 
07771 5 
072720 
077715 
072722 
072724 


DTRKO:  PMSGF 
SETZM 
SETZM 
TTINO 
JRST 
PMSGF 
TTINO 
JRST 
PMSGF 
TTIYES 
RTN 

PMSGF 
TTINO 
SETOM 

DTRKOA:  SETOM 
JRST 

DTRKOB:  SETOM 
SETOM 


DTRKl  : 


SKIPN 

JRST 

PMSGF 

SKI  PA 

PMSGF 

SKIPN 

PMSGF 

SKIPE 

PMSGF 

PMSGF 


<^SETUP  TO  DELETE/PROTECT  INDIVIDUAL  PACK  AREAS?  > 

DELALL* 

REMOVF* 

DTRKl  ;YES      ^  ^ 

<*SETUP  TO  USE  A  SPECIFIC  PACK  AREA(S)?> 

DTRKOB  'YES 

<*SETUP  TO  USE  A  PREVIOUS  DELETED/PROTECTED  PACK  AREA?  > 

;N0  -  EXIT  WITH  NO  DELETION 

<^CLEAR  ALL  DELETION/PROTECTION  FOR  A  PACK?  > 

•NO'''' 
CLRDEL  -ZAP'aLL  DELETION/PROTECTION  BITS 

REMOVF 
DTRKl 

REMOVF 
DELALL 

CLRDEL  .-CLEArUNG  PREV.  DELETED  AREA? 

.-^3  ;N0 

<*TYPE  DRIVE  #  TO  BE  > 

<*TYPE  DISK,  CYLINDER,  AND  SURFACE  TO  BE  > 

REMOVF 

<DELETED> 

REMOVF 

<"UNDELETED"> 

<*TYPE  "H"  FOR  HELP.^DISK:  > 


DD 
DD 

1 
1 
1 
1 

1 
1 
1 
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SEQ  0381 


DC 
DC 


11518 

11519 

11520 

11521 

11522 

11523 

11524 

11525 

11526 

11527 

11528 

11529 

11530 

11531 

11532 

11533 

11534 

11535 

11536 

11537 

11538 

11539 

11540 

11541 

11542 

11543 

11544 

11545 

1 1 546 

11547 

11548 

11549 

11550 

11551 

11552 

11553 

11554 

11555 

11556 

11557 

11558 

11559 

11560 

11561 

11562 


046467 
046470 
046471 
046472 
J46473 
046474 
046475 
046476 
046477 
0A6500 

046501 
046502 


046503 
046504 

046505 
046506 
046507 

046510 
046511 
046512 
046513 
046514 

046515 
046516 
046517 
046520 

046521 
046522 
046523 
046524 
046525 


402  00 
402  00 
402  00 
402  00 
402  00 
402  00 
037  03 
254  00 
332  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


077577 
077601 
077725 
077723 
077726 
077724 
000003 
046501 
030510 
046531 


337  00  0  00  030225 
263  17  0  00  000000 


306  00  0  00  000110 
254  00  0  00  046521 

302  00  0  00  000175 
306  00  0  00  000176 
254  00  0  00  046515 

306  00  0  00  000033 
254  00  0  00  046515 
332  00  0  00  030037 
051  11  0  00  000000 
254  00  0  00  046455 

037  04  0  00  072731 
4ui  00  0  00  077715 
260  17  0  00  042133 
263  17  0  00  000000 

037  00  0  00  062437 

037  04  0  00  072732 

332  00  0  00  030037 

051  11  0  00  000000 

254  00  0  00  046467 


046d26  476  00  0  00  000013 
046527  476  00  0  00  077600 
046530  254  00  0  00  046621 


DTRK1A: 


SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

SETZM 

TTIOCT 

JRST 

SKIPE 

JRST 

SKIPG 
RTN 


CAIN 
JRST 

CAIE 
CAIN 
JRST 

CAIN 

JRST 

SKIPE 

CLRBFI 

JRST 

DTRK1B:  PMSGF 
SETZM 
GO 
RTN 

PNTMSG 

PMSGF 

SKIPE 

CLRBFI 

JRST 


DTRK2: 


DTALCY/r 

DTALSU* 

RLCYL* 

RHCYL# 

RLSUR* 

RHSUR^ 

TTNBRF 
DTRK4 

STWCNT 


DTRK2 

175 
176 
DTRKIB 

33 

DTRKIB 
USER 

DTRKI 

<$^> 

REMOVF 
CORSET 


DELMSG 

<*DISK: 

USER 


'ALL' 


DTRK1A 
DISK  PROCESSOR 


DTRK3:  SETOM   DRIVE 
SETOM   DTALDS 
JRST    DTRK5 


CLEAR  THE  LOW  RANGE  CYL  » 
CLEAR  THE  HIGH  RANGE  CYL  * 
CLEAR  THE  LOW  RANGE  SURF  M 

CLEAR  THE  HIGH  

INPUT  A  CHARACTER 
ERROR?? 

ANYTHING  TYPED? 
YES  -  PROCESS  NOW 

;TTY  TIMEOUT? 

;YES  -  NO  LIVE  PERSONS  OUT  THERE 


;CHAR  =  H  (HELP) 

;YES  -  PRINT  THE  HELP  BLURB 


ALTMODE? 


1 1 


;YES 


(AGAIN  ?) 


;IN  USER  CLEAR  THE  INPUT  BUFFER 
;NONE  OF  THE  ABOVE  -  TRY  AGAIN 


CLEAR  THE  UNDELETE  FLAG 
SET  THE  USED  CORE  BITS 
EXIT 


;PRINT  THE  HELP  MESSAGE 


.-CLEAR  THE  INPUT  BUFFER  IN  USER  MODE 


;INPUT  CYLINDER  # 


L_ 


"n 
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SEQ  0382 


Dl 
Ci 


11563 

11564 

11565 

11566 

11567 

11568 

11569 

11570 

11571 

11572 

11573 

11574 

11575 

11576 

11577 

11578 

11579 

11580 

11581 

11582 

11583 

11584 

11585 

11586 

11587 

11588 

11589 

11590 

11591 

11592 

11593 

11594 

1 1 595 

11596 


046531 

046532 

046533 

046534 

046535 

046536 

046537 

046540 

046541 

046542 

046543 

046544 

046545 

046546 

046547 

046550 

046551 

046552 

046553 

046554 

046555 

046556 

046557 

046560 

046561 

046562 

046563 

046564 

046565 

046566 

046567 


303  00 
254  00 

200  13 
550  11 
332  00 
254  00 
037  04 
254  00 

201  00 

200  01 
603  01 

201  00 

202  00 
332  00 
254  00 
200  00 
661  00 
202  00 
550  01 
402  00 
504  00 
350  00 
270  01 
251  00 
200  00 
350  00 
217  00 
2oJ  17 
254  00 
037  04 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
13 
00 
00 
00 
00 
00 
13 
00 
00 
00 

11 

00 
00 
00 

11 

00 
01 
00 
00 
00 
01 
00 
00 
00 
00 
00 


0  00 
0  00 


000077 

046566 

000000 

100747 

00001 1 

046541 

072734 

046566 

000340 

100747 

000100 

000700 

077521 

000151 

046570 

101156 

400000 

000151 

000000 

000000 

000001 

000000 

077521 

000000 

077521 

000000 

101156 

042133 

046573 

072741 

046467 


;  SINGLE  DRIVE  PROCESSOR 

DTRK4:   CAILE  11 

JRST  DTRK4A 

MOVE  DRIVE, ACO 

HRRZ  DSBP,DSBTBL(DRIVE 

SKIPE  DS8P 

JRST  .'►3 

PMS6F  <*?  NO  SUCH  DRIVE 

JRST  DTRK4A 

MOVEI  AC0,*D224 

MOVE  AC1,DSBTBL(DRIVE) 

TLNE  AC1,(.RP06) 

MOVEI  AC0,''D448 

MOVEM  ACO,BSIZE# 

SKIPE  .DELPT(DSBP) 

JRST  DTRIC4B 

MOVE  FRECOR 

TLO  (IBO) 

MOVEM  .DELPT(DSBP) 

HRRZ  ACl.ACO 

SETZM  (AC1) 

HRL  AC! 

AOS 

ADD  ACKBSIZE 

BLT  (AC1) 

MOVE  ACO^BSIZE 

AOS 

ADDM  FRECOR 

60  CORSET 

JRST  DTRK4C 

DTRK4A:  PMSGF  <?*DISK:  > 

JRST  DTRKIA 


) 


YES 

availa6le> 

;ASK 


VALID  DRIVE  n   ? 
NOPE  -  TRY  AGAIN 
YES 

GET  THE  DRIVE  STATUS  BITS 
ANY  DSB  AREA  ALLOCATED?? 
-  PROCEED 


FOR  DRIVE  n   AGAIN 
BUF  SIZE  FOR  410  CYL 
GET  TABLE  DATA 
IS  IT  A  RP06 
YES  DOUBLE  THE  SIZE 
SAVE  BUFF  SIZE 
ANY  DELETE  BUFFER  ASSIGNED? 
YES  -  GO  AROUND  CODE 
AND  FREE  CORE  ADDRESS 
SET  DELETION  FLAG  IN  WORD 
POINT  TO  A  DELETED  AREA  BUFFER 
COPY  THE  DELETE  BUFFER  ADDRESS 
CLEAR  THE  1ST  ADDR 
BUILD  A  BLT  WORD 
TO  CLEAR  THE  DELETE  AREA 
SETUP  THE  BL^  STOP  ADDRESS 
CLEAR  THE  DELI  E  BUFFER  AREA 
GET  BUFF  SIZE 
^1  IT 

AND  UPDATE  THE  FREE  CORE  POINTER 
RESET  INUSE  CORE  BITS 
SETUP  THE  DELETE  BUFFER 

ASK  AGAIN 


*-n 
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SEQ  0383 


D 
D 


11597 

11598 

11599 

11600 

11601 

11602 

1 1 603 

1160A 

11605 

11606 

11607 

11608 

11609 

11610 

11611 

11612 

11613 

11614 

11615 

11616 

11617 

11618 

11619 

11620 

11621 

11622 


046570 
046571 
046572 
046573 
046574 
046575 
046576 
046577 
046600 
046601 
046602 
046603 
046604 
046605 
046606 
046607 
046610 

04661 1 

04661 2 
046613 
046614 
04661 5 
046616 
046617 
04662C 


200  00 
661  00 
202  00 
336  00 
254  00 
553  00 
254  00 
200  00 
332  00 
254  00 
603  00 
254  00 
661  00 
202  00 
550  01 
402  00 
332  00 
476  00 
514  00 
270  00 
350  00 
270  01 
251  00 
332  00 


0  11 
0  00 
0  11 
0  00 
0  00 
0  11 


0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
0 

1 

0 
0 
0 
0 
0 
0 


00 

11 

00 
00 
00 
00 
00 

11 
11 

00 
00 
00 
00 
00 
00 
00 
01 
00 


254  00  0  00 


000151 

DTRK4B: 

MOVE 

400000 

TLO 

000151 

MOVEM 

077542 

DTRK4C: 

SKIPN 

046577 

JRST 

000151 

HRRZS 

046604 

JRST 

000151 

DTRK4D: 

MOVE 

077566 

SKIPE 

046604 

JRST 

200000 

TLNE 

046621 

JRST 

200000 

DTRK4E: 

TLO 

000151 

MOVEM 

000151 

HRR2 

000001 

SETZM 

077566 

SKIPE 

000001 

SETOM 

000001 

HRL2 

000001 

ADD 

000000 

AOS 

077521 

ADD 

000000 

BLT 

077542 

SKIPE 

047064 

JRST 

.DELPT(DSBP) 

(1B0) 

.DELPT(DSBP) 

CLRDEL 

DTRK4D 

.DELPT(DSBP) 

DTRK4E 

.DELPT(DSBP) 

DELALL 

DTRK4E 

(181) 

DTRK5 

(IBl) 

.DELPT(DSBP) 

AC1,.DELPT(DSBP) 

SACl 

DELALL 

aACi 

AC0,AC1 

AC1 

ACI-BSIZE 
(ACl) 
CLRDEL 
DTRKX 


GET  THE  POINTER 

SET  THE  DELETION  IN  EFFECT  BIT 

SAVE  UPDATED  POINTER 

CLEAR  ALL  BITS  FOR  PACK?? 

NO  -  CONTINUE  FOR  AREA  PARAMS 

YES  -  RESET  THE  DELETE  POINTER 

AND  CLEAR  ALL  DELETE  BITS 

GET  THE  DELETION  POINTER  WORD 

USING  SPECIFIC  PACK  AREA? 

YES  -  SET  ALL  BITS,  THEN  REMOVE  AREA 

HERE  BEFORE?? 

YES  -  DON'T  CLEAR  THE  AREA 

NOPE  -  SETUP  THE  DELETION  BUFFER 

SAVE  THE  UPDATED  WORD 

GET  THE  BUFFER  ADDRESS 

CLEAR  THE  FIRST  LOCATION 

DELETING  ALL?? 

YUP  -  SET  THE  FIRST  LOCATION 

BUILD  A  BLT  WORD 


GET  BUFF  SIZE 

CLEAR  (OR  SET)  THE  DELETE  BUFFER 

PACK  CLEAR'''' 

YUP  -  GET  ANOTHER  DRIVE  NUMBER 
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r 


SEQ  038A 


11623 

11624 

11625 

11626 

11627 

11628 

11629 

11630 

11631 

11632 

11633 

11634 

11635 

11636 

11637 

11638 

11639 

11640 

11641 

11642 

11643 

11644 

11645 

11646 

11647 

11648 

11649 

11650 

11651 

11652 

11653 

11654 

11655 

11656 

11657 

11658 


046621 
046622 
046623 
046624 
046625 
046626 
046627 

046630 
046631 
046632 
046633 
046634 
046635 
046636 
046637 
046640 
046641 
046642 
046643 
046644 
046645 

046646 
046647 
046650 
046651 
046652 
046653 
046654 
046655 


336  00 
254  00 
332  00 
254  00 
037  04 
254  00 
037  04 

037  05 
254  00 
336  00 
254  00 
317  00 
315  00 
254  00 
336  00 
254  00 
332  00 
254  00 
661  00 
202  00 
254  00 

550  01 


315 

««  - 


00 
00 
202  00 
202  00 
254  00 
037  04 
254  00 


0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 

11 
11 

00 
00 
00 
00 
00 
00 
00 
00 


077705 
046654 
077725 
046627 
06701 1 
046630 
06701 5 

000003 
046656 
030510 
046656 
000026 
000025 
046666 
077705 
046652 
077725 
046646 
400000 
077725 
046627 


00  077725 
00  000001 
00  046675 
00  077723 
00  100730 
00  046714 
00  072743 
00  046630 


./^•••♦••••••••♦•••••••••••••••••**<r  *************************************** 

•HERE  TO  GET  THE  CYLINDER  NUMBER  FOR  DELETION/PROTECTION 


DTRK5:  SKIPN  RANGEF 

JRST  DTRK5C 

SKIPE  RLCYL 

JRST  DTRK5A-1 


PMSGF   <^TYPE  START  CYLINDER  #> 

JRST    DTRK5A 

PMSGF   <*TYPE  STOP  CYLINDER  »> 


;RANGING?? 

;N0 

;YES  -  HAVE  THE  LOW  CYL  MESSAGE  YET? 

;YES  -  ASK  FOR  HIGH  CYL 

; INPUT  THE  NUMBER 


DTRK5A: 


TTICNV 

JRST 

SKIPN 

JRST 

CAMG 

CAMGE 

JRST 

SKIPN 

JRST 

SKIPE 

JRST 

TLO 

MOVEM 

JRST 


DTRK5B:  HRRZ 
CAMGE 
JRST 
MOVEM 
MOVEM 
JRST 

DTRK5C:  PMSGF 
JRST 


DTRK5D 

TTN8RF 

DTRK5D 

.MAXCY(DSBP) 

.MINCY(DSBP) 

DTRK5F 

RANGEF 

DTRK5B+4 

RLCYL 

DTRK5B 

(IBO) 

RLCYL 

DTRK5A-1 

ACURLCYL 

ACl 

DTRK5G 

RHCYL 

.CYLIN 

DTRK6 

<'^CYLINDER  n> 

DTRK5A 


INPUT  A  NUMBER 

INPUT  ERROR  MAYBE 

ANYTHING  TYPED? 

NOPE  -  ERROR 

IS  THE  CYLINDER  *  OK? 

WELL? 

NOPE!  ASK  AGAIN 

RANGING?? 

NO  -  SIMPLE  INPUT 

YES  -  HAVE  LOW  CYL  YET? 

YUP  -  MUST  BE  THE  HIGH  ONE 

SET  THE  GOT  CYL  BIT 

NOPE  -  SAVE  IT  NOW 

NOW  GET  THE  HIGH  CYL  U 

GET  THE  LOW  CYL  n 

WRONG  VALUE? 

YES  -  TELL  THE  OPR 

NO  -  SAVE  THE  HIGH  CYL  * 

AND  AGAIN 

GET  THE  SURFACE  n 

GO  GET  THE  n 
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SEQ  0385 


11659 

11660 

11661 

11662 

11663 

11664 

11665 

11666 

11667 

11668 

11669 

11670 

11671 

11672 

11673 

11674 

11675 

11676 

11677 

11678 

11679 

11680 

11681 

11682 

11683 

11684 

11685 

11686 

11687 

11688 

11689 

11690 

11691 

11692 

11693 


046656 
046657 
046660 
046661 
046662 
046663 

046664 
046665 

046666 
046667 
046670 
046671 
046672 
046673 
046674 

046675 
046676 
046677 
046700 
046701 

046702 
046703 
046704 
046705 
046706 
046707 
046710 
04671 1 
046712 
046713 


333  00 

254  00 
037  04 
263  17 
306  00 
254  00 


0  00  030225 
0  00  046662 
0  00  067067 
0  00  000000 
0  00  000101 
0  00  046702 


037  04  0  00  072745 
254  00  0  00  046621 


037  04  0 
200  00  0 
037  03  0 
037  04  0 
200  00  0 
037  17  0 
254  00  0 


00  072755 
11  000025 
00  000001 
00  072764 
11  000026 
00  000003 
00  046621 


037  04  0  00  072766 
200  00  0  00  077725 
037  03  0  00  000001 
037  04  0  00  ^72777 
254  00  0  00  046672 


336  90 
254  00 
037  04 
254  00 
037  00 
!:>'  00 
302  00 
254  00 
476  00 
476  00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


077705 
046706 
073001 
046621 
000003 
046656 
00001 5 
046664 
100730 
077577 


DTRK5D: 


SKIPLE 

JRST 

PMSGF 

RTN 

CAIN 

JRST 


DTRK5E:  PMSGF 
JRST 


DTRK5F: 


PMSGF 

MOVE 

PNT3F 

PMSGF 

MOVE 

PNTOCF 

JRST 


DTRK56:  PMSGF 
MOVE 
PNT3F 
PMSGF 
JRST 


DTRK5X: 


SKIPN 

JRST 

PMSGF 

JRST 

TTICHR 

JRST 

CAIE 

JRST 

SETOM 

SETOM 


STWCNT  :ANY  OPR  RESPONSE? 

."^3  ;YUP  ^ 

<*?  NO  OPR  RESPONSE  -  ABORTING*> 


•  la  •  I 


'A' 
DTRK5X 


;WAS  IT  AN  "A"  CHAR. 
;YES 


99 


<*?  INPUT  ERROR  -  TYPE  OCTAL  (OR  ••A<CR>")  ONLY!*> 
DTRK5 

<'^?  CYLINDER  SELECTION  RANGE  IS  CYL  n> 
.MINCY(DSBP)  ;GET  THE  LOW  CYLINDER  # 

;PRINT  IT 

<T0  CYL  #> 

.MAXCY(DSBP)  ;GET  THE  HIGH  CYL  tf 

.PRINT  IT  ALSO 
DTRK5 

<'^?  CYLINDER  RANGE  HIGH  LIMIT  HAS  TO  BE  BETWEEN  CYL  H> 
RLCYL 


<AND  CYL  #> 
DTRK5F+4 

RANGE F 

.+3 

<'^?  CAN'T  RANGE  WITH 

DTRK5 

DTRK5D 

15 

DTRK5E 

.CYLIN 

DTALCY 


;GET  THE  LOW  LIMIT  NUMBER 
;PRINT  THE  LOW  CYL  # 


.•RANGING?? 
;N0 
"A"  AS  A  VALUE  I *> 


;NOW  GET  A  <CR> 
.•INPUT  TIMEOUT 
.-WAS  IT  A  <CR> 
;N0  -  ERROR 
;YES  -  PROCEED 


r 


DDRPl  - 
DDRPI3 

1169A 

11695 

11696 

11697 

11698 

11699 

11700 

11701 

11702 

11703 

11704 

11705 

11706 

11707 

11708 

11709 

11710 

11711 

11712 

11713 

11714 

11715 

11716 

11717 

11718 

11719 

11720 

11721 

11722 

11723 

11724 

11725 

11726 

11727 

11728 

11729 
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)hERE   TO  GET  THE  SURFACE  NUMBER  TO  BE  PROCESSED 

;/^***************************»*********************** ♦**♦*♦♦♦* ************ 


SEQ  0386 


046714 
04671 5 
046716 
04671 7 
046720 
046721 
046722 

046723 
046724 
046725 
046726 
046727 
046730 
046731 
046732 
046733 
046734 
046735 
046736 
046737 

046740 
046741 
046742 
046743 
046744 
046745 
046746 
046747 
046750 


336  00 
254  00 
332  00 
254  00 
037  04 
254  00 
037  04 

037  05 
254  00 
336  00 
254  00 
313  00 
254  00 
336  00 
254  00 
332  00 
254  00 
661  00 
202  00 
254  00 


550  01 
312  01 
254  00 
5i)J  01 
315  00 
254  00 
202  00 
202  00 
254  00 


0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


077705 
046751 
077726 
046722 
067057 
046723 
067063 


00  000003 
00  046753 
00  030510 
00  046753 
00  101164 
00  046761 
00  077705 
00  046746 
00  077726 
00  046740 
00  400000 
00  077726 
00  046722 

00  077725 
00  077723 
00  046746 
00  077726 
00  000001 
00  046765 
00  077724 
00  100731 
00  047011 


DTRK6:  SKIPN 
JRST 
SKIPE 
JRST 
PMS6F 
JRST 
PMSGF 

DTRK6A:  TTICNV 
JRST 
SKIPN 
JRST 
CAMLE 
JRST 
SKIPN 
JRST 
SKIPE 
JRST 
TLO 
MOVEM 
JRST 

DTRK6B:  HRRZ 
CAME 
JRST 
HRRZ 
CAMGE 
JRST 
MOVEM 
MOVEM 
JRST 


RANGEF 

DTRK6C 

RLSUR 

DTRK6A-1 

<*TYPE  START  SURFACE  #> 

DTRK6A 

<*TYPE  STOP  SURFACE  M> 


DTRK6D 

TTNBRF 

DTRK6D 

MAXSUR 

DTRK6F 

RANGEF 

DTRK6B+6 

RLSUR 

DTRK6B 

(1B0) 

RLSUR 

DTRK6A-1 

ACKRLCYL 

AC1,RHCYL 

.^4 

AC1, RLSUR 

AC1 

DTRK6G 

RHSUR 

.SURF 

DTRK7 


.•RANGING?? 

;N0 

;HAVE  LOW  SURFACE  YET? 

;YES  -  ASK  FOR  HIGH  SURF 

;G0  GET  IT 


GET  A  NUMBER 

INPUT  ERROR 

ANYTHING  TYPED? 

NOPE  -  ERROR 

VALID  SURFACE  NUMBER? 

NO 

RANGING?? 

NO  -  SIMPLE  INPUT 

HAVE  LOW  SURFACE  #?? 

YES  -  MUST  BE  THE  HIGH  ONE 

SET  THE  GOT  SURFACE  BIT 

SAVE  THE  LOW  SURFACE  # 

NOW  GET  THE  HIGH  SURF  ff 


SAME  CYLINDER? 

NO  -  USE  THE  VALUE  OF  SURFACE 

GET  THE  LOW  SURFACE  # 

TOO  LOW? 

YES  -  TELL  OPR 

NO  -  SAVE  THE  HIGH  SURFACE  M 

AND  AGAIN 

GO  PROCESS 


DDRPI   - 
DDRPI3 

11730 

11731 

11732 

11733 

1173A 

11735 

11736 

11737 

11738 

11739 

11740 

117A1 

11742 

11743 

11744 

11745 

11746 

11747 

11748 

11749 

11750 

11751 

11752 

11753 

11754 

11755 

11756 

11757 

11758 
11759 
11760 
11761 
1 :  762 
11763 
11764 
11765 
1 1 766 
11767 
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SEO  0387 


046751 
046752 

046753 
046754 
046755 
046756 

046757 
046760 

046761 
046762 
046763 
046764 

046765 
046766 
046767 
046770 
046771 

046772 
046773 
046774 
046775 
0467/6 
046777 
047000 
047001 
047002 
047003 
047004 
047005 
047006 
047007 

04701C 


037  04  0  00  067075 
254  00  0  00  046723 

337  00  0  00  030225 
254  00  0  00  046660 
306  00  0  00  000101 
254  00  0  00  046772 

037  04  0  00  073010 
254  00  0  00  046714 

037  04  0  00  073021 
200  00  0  00  101164 
037  02  0  00  000001 
254  00  0  00  046714 

037  04  0  00  073031 

200  00  0  00  077726 

037  02  0  00  000001 

037  04  0  00  073042 

254  00  0  00  046762 


336  00 
254  00 
037  04 
254  00 
03/  00 
254  00 
30?  00 
23  00 
336  00 
336  00 
254  00 
037  04 
254  00 
476  00 
476  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 

0 


00 
00 
00 
00 


0  00 


077705 
046776 
073001 
046714 
000003 
046753 
000015 
046757 
077715 
077577 
047007 
073044 
046714 
100731 
077601 


DTRIC6C:  PMS6F 
JRST 

0TRK6D:  SKIPG 
JRST 
CAIN 
JRST 

DTRK6E:  PMSGF 
JRST 


DTRK6F: 


PMSGF 
MOVE 
PNT2F 
JRST 


DTRK6G:  PMSGF 
MOVE 
PNT2F 
PMSGF 
JRST 


DTRK6X: 


SKIPN 

JRST 

PMSGF 

JRST 

TTICHR 

JRST 

CAIE 

JRST 

SKIPN 

SKIPN 

JRST 

PMSGF 

JRST 

SETOM 

SETOM 


<*SURFACE  #> 
DTRK6A 

STWCNT 
DTRK5D^2 
"A" 
DTRK6X 


;G0  GET  IT 

;TIMEOUT?? 

;YUP 

;UAS  IT  A  ?? 

;YES 


<'^?  INPUT  ERROR  -  TYPE  OCTAL  (OR  "A  <CR>")  ONLY!^> 
DTRK6 

<^?  SURFACE  SELECT  RANGE  IS  SURF  #0  TO  SURF  #> 
MAXSUR  ;GET  THE  LAST  SURF  AVAIL 

;AND  PRINT  IT 
DTRK6 

<^?  SURFACE  RANGE  UPPER  LIMIT  HAS  TO  BE  BETWEEN  SURF  »> 


;GET  THE  LOW  LIMIT  » 
.-PRINT  IT 


RLSUR 

<AND  SURF  #> 
DTRK6F+1 

RANGEF 

<*?  CAN'T  RANGE  WITH 
DTRK6 

DTRK6D 

15 

DTRK6E 

REMOVF 

DTALCY 

<•?  CAN'T  ALLOW  ENTIRE  DISK  TO  BE  DELETED!> 

DTRK6 

.SURF  ;YES  -  PROCEED 

DTALSU 


.•RANGING?? 
;N0 
•A"  AS  A  VALUE  I '^> 

;GET  THE  <CR> 

.•TIMEOUT 

;WAS   IT  <CR>   ?? 

;N0 

.•REMOVING  BITS? 

;ALL   CYLINDERS  ALSO?? 

;N0  -  PROCEED 
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SEQ  0388 


11768 
11769 
11770 
11771 
11772 
11773 
11 77A 
11775 
11776 
11777 

11778 

11779 

11780 

11781 

11782 

11783 

1178A 

11785 

11786 

11787 

11788 

11789 

11790 

11791 

11792 

11793 

11794 

11795 

11796 

11797 

117Q8 

11799 

11800 

11801 

11802 

11803 

11804 

11805 

11806 

11807 

11808 
11809 

11810 
11811 
11812 
11813 
11814 
11815 
11816 
11817 

11818 
11819 


047011 
047012 

047013 
047014 
047015 
047016 


047017 
047020 
047021 
047022 
047023 
047024 

047025 
047026 
047027 
04703C 
047031 

047032 
047033 
047034 


047035 
047036 
047037 
047040 
047041 
047042 
047043 
04704'. 
047j45 
047046 
047047 
047050 
047051 
047052 
047053 
047054 
047055 
047056 


• f* **»»•♦♦♦•♦»*»*♦** •♦♦•♦•♦•♦***»*t»* «•♦*♦♦*♦♦♦♦**♦♦♦*♦♦***«♦*♦♦**♦♦♦♦♦♦** 

i-HERE   TO  MAKE   OR  REMOVE   THE  DELETE/PROTECT  ENTRY 

;ALL  DRIVES? 

;N0  -  PROCESS  CYLINDER 

;SET  FLAG  TO  SELECT  SEQUENTIAL  DRIVES 
;SELECT  A  DRIVE  * 
;ERROR  -  TRY  AGAIN 
;ALL  DONE 


;RANGING?? 

;N0 

;GET  THE  SMARTING  CYL  » 

;SAVE  THE  STARTING  CYL  # 


;ALL  CYLINDERS? 

;N0 

;YES  -  SELECT  A  CYL  # 

;GET  THE  SURF  M 

;ALL  DRIVES? 

;YES  -  GO  GET  NEXT  DRIVE  * 

;N0  -  EXIT 


RANGING?? 

NO 

GET  THE  STARTING  SURF  » 

SAVE  IT 

GET  LOW  CYLINDER 

PAST  INITIAL  CYLINDER? 

YES  -  RESET  TO  SURFACE  00 

ALL  SURFACES? 

NO  -  PROCESS  NOW 

YES  -  SELECT  A  SURF  # 

PROCESS 
RANGING?? 
ALL  CYLINDERS? 
YES  -  GET  NEW  :yl  » 
•NO  -  SEE  I*^  ALL  DRIVES 


331  00  0  00  077600 

DTRK7: 

SKI  PL 

DTALDS 

254  00  0  00  047017 

JRST 

DTRK8 

477  13  0  00  077754 

DTRK7A: 

SETOe 

DRIVE. SEQDRV 

260  17  0  00  045666 

GO 

'SKSEL 

254  00  0  00  047014 

JRST 

.-1 

254  00  0  00  047064 

JRST 

OTRKX 

.•CYLINDER  PROCESSOR 

336  00  0  00  077705 

DTRK8: 

SKIPN 

RANGE F 

254  00  0  00  047025 

JRST 

DTRK8A 

550  00  0  00  077725 

HRRZ 

RLCYL 

370  00  0  00  000000 

SOS 

202  00  0  00  100730 

MOVEM 

.CYLIN 

254  00  0  00  047027 

JRST 

DTRK8B 

331  00  0  00  077577 

DTRK8A: 

SKI  PL 

DTALCY 

254  00  0  00  047035 

JRST 

DTRK9 

260  17  0  00  047066 

DTRK8e: 

GO 

CYLSEL 

334  00  0  00  000000 

SKI  PA 

254  00  0  00  047035 

JRST 

DTRK9 

332  00  0  00  077600 

DTRK8C: 

SKIPE 

DTALDS 

254  00  0  00  047014 

JRST 

DTRK7A*1 

23  00  0  00  047064 

JRST 

DTRKX 

.•PROCESS  THE  SURFACE 

336  00  0  00  077705 

DTRK9: 

SKIPN 

RANGE F 

254  00  0  00  047046 

JRST 

DTRK9A 

550  00  0  00  077726 

HRRZ 

RLSUR 

370  00  0  00  000000 

SOS 

202  00  0  00  100731 

MOVEM 

.SURF 

550  00  0  00  077725 

HRRZ 

RLCYL 

312  00  0  00  100730 

CAME 

.CYLIN 

476  00  0  00  100731 

SETOM 

.SURF 

254  00  0  00  047050 

JRST 

DTRK98 

336  00  0  00  077601 

DTRIC9A: 

SKIPN 

DTALSU 

254  00  0  00  047057 

jRST 

DTRKIO 

260  17  0  00  047101 

DTRK9B: 

GO 

SURSEL 

334  00  0  00  000000 

SKI  PA 

254  00  0  00  047057 

JRST 

DTRKIO 

336  00  0  00  077705 

DTRK9C: 

SKIPN 

RANGE F 

332  00  0  00  077577 

SKIPE 

DTALCY 

254  00  0  00  047027 

JRST 

DTRK8B 

254  00  0  00  047032 

JRST 

DTRK8C 
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SEQ  0389 


11820 

11821 

11822 

11823 

11824 

11825 

11826 

11827 

11828 

11829 

11830 

11831 

11832 

11833 

11834 

11835 

11836 

11837 

11838 

11839 

11840 

11841 

11842 

11843 

11844 

11845 

11846 

11847 

11848 

11849 

11850 

11851 

11852 

11853 

1185A 

11855 

11856 

11fiG7 

11858 

11859 

11860 

11861 

11862 

11863 

11864 


047057 
047060 
047061 
047062 
047063 


047064 
047065 


047066 
047067 
047070 
047071 
047072 
047073 
047074 
04707S 
047076 
047077 

047100 


047101 
047102 
047103 
047104 
047105 
047106 
047107 
047110 
047111 
047112 
047.13 
047114 
047115 


260  17  0  00  047116 
336  00  0  00  077705 
332  00  0  00  077601 
254  00  0  00  047050 
254  00  0  00  047053 


037  04  0  00  072732 
254  00  ^  00  046467 


350  06  0 
336  00  0 
254  00  0 
317  06  0 
254  00  0 
402  00  0 
263  17  0 
313  06  0 
254  00  0 
350  00  0 
263  17  0 


350  06  0 
336  00  0 


254  00 
200  00 
316  00 


0 
0 
0 


317  06  0 
254  00  0 
476  00  0 
263  17  0 
313  06  0 
254  OC  0 
350  00  0 
263  17  0 


00  100730 
00  077705 
00  047075 
00  077723 
00  047075 
00  100730 
00  000000 
11  000026 
00  047073 
17  000000 
00  000000 


00  100731 
00  077705 
00  047112 
00  100730 
00  077723 
00  077724 
00  047112 
00  100731 
00  000000 
00  101164 
00  047110 
17  000000 
00  000000 


/>•♦*«♦♦♦•****♦»»******♦♦♦*♦♦♦♦******»****•*♦**♦♦*♦**♦♦*♦♦****♦*♦♦♦♦♦***** 

CODE  TO  DO  THE  ACTUAL  BIT  FIDDLING 


DTRK10:  GO  TRKDEL 

SKIPN  RANGE F 

SKIPE  DTALSU 

JRST  DTRK9B 

JRST  DTRK9C 

;  SINGLE  ENTRY  HAS  BEEN  PROCESSED 

DTRKX:   PMSGF   <*DISK:  > 
JRST    DTRK1A 

.•SELECT  NEXT  CYLINDER  # 


;SET  THE  PROPER  BIT  IN  THE  TABLE 

.•RANGING?? 

;ALL  SURFACES? 

;YES  -  GET  THE  NEXT  ONE 

;N0  -  SEE  If   ALL  CYLINDERS 


CYLSEL:  AOS 

SKIPN 
JRST 
CAMG 
JRST 

SCYLA:   SETZW 
RTN 

SCYLB:   CAMLE 
JRST 
AOS 
RTN 


AC..CYLIN 

RANGE F 

SCYLB 

AC.RHCYL 

SCYLB 

.CYLIN 

AC..MAXCY(DSBP) 

SCYLA 

(P) 


;BUMP  THE  CYLINDER  # 

.•RANGING?? 

;N0 

;YES  -  BUT  AT  THE  LIMIT  YET?? 

.•NO 

.-ALL  DONE  SELECTING  ON  THIS  DRIVE 

;EXIT  NOW 

.•STILL  A  VALID  CYLINDER  #?? 

;N0 


.•SELECT  A  NEW  SURFACE  # 


SURSEL:  AOS 

SKIPN 

JRST 

MOVE 

CAMN 

CAMG 

JRST 

SSELA:   SETOM 
RTN 

SSELB:   CAMLE 
JRST 
AOS 
RTN 


AC. .SURF 

RANGE F 

SSELB 

.CYLIN 

RHCYL 

AC.RHSUR 

SSELB 

.SURF 

AC.MAXSUR 

SSELA 

(P) 


.•UPDATE  THE  SURFACE  # 

.•RANGING?? 

.•NO 

;YES  -  CHECK  THE  CYL  # 

;AT  LIMIT? 

;0N  CYL  &  SURF?? 

.•NO  -  PROCEED 

;YES 

.•VALID  SURFACE 

;N0 

;YES  -  SETUP  TO  RETURN  +2 


DDRPl   - 
DDRP13 

11865 

11866 

11867 

11868 

11869 

11870 

11871 

11872 

11873 

11874 

11875 

11876 

11877 

11878 

11879 

11880 

11881 

11882 

11883 

1188A 

11885 

11886 

11887 

11888 

11889 

11890 

11891 

11892 

11893 

11894 

11895 

11896 

11897 

11898 

11899 
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SEQ  0390 


047116 

047117 

047120 

047121 

047122 

047123 

047124 

047125 

047126 

047127 

047130 

047131 

047132 

047133 

0471 34 

047135 

0471 36 

047137 

047140 

047141 

047142 

047143 

047144 

047145 

047146 

047147 


261  17  0 

261  17  0 

261  17  0 

261  17  0 

205  00  0 

200  01  0 

221  Oi  0 

270  01  0 

231  01  0 

270  02  0 

305  02  0 

254  00  0 

275  02  0 

350  00  0 

21  ]1  00  0 

242  00  0 

550  03  0 

270  01  0 

332  00  0 

254  00  0 

436  00  0 

262  17  0 

262  17  0 

262  17  0 

26?  17  0 

2o<  17  0 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
02 

11 

00 
00 
00 
01 
00 
00 
00 
00 
00 


000000 

000001 

000002 

000003 

400000 

100730 

000022 

100730 

000044 

100731 

000044 

047134 

000044 

000001 

000002 

000000 

000151 

000003 

077715 

047150 

000000 

000003 

000002 

000001 

000000 

000000 


;-*TRKDEL  —  ROUTINE  TO  PROCESS  THE 


TRKDEL:  PUT 
PUT 


TRKDLX: 


047150  450  00  0  00  000000 

047151  406  00  1  00  000001 

047152  254  00  0  00  047143 


TRKUND: 


PUT 

P'JT 

MOVSI 

MOVE 

IMULI 

ADD 

IDIVI 

ADD 

CAIGE 

JRST 

SUBI 

AOS 

MOVNS 

LSH 

HRRZ 

ADD 

SK I PE 

JRST 

lORM 

GET 

GET 

GET 

GET 

RTN 

SETCA 

ANDM 

JRST 


ACO 

AC1 

AC2 

AC3 

(180) 

AC1..CYLIN 

ACl, SURFACE 

ACU.CYLIN 

AC1,*D36 

AC2..SURF 

AC2,'*D36 

.^3 

AC2,'^D36 

ACl 

AC2 

AC0,(AC2) 

AC3,.DELPT(PSBP) 

ACUAC3 

REMOVF 

TRKUND 

ACO, (ACl) 

AC3 

AC2 

ACl 

ACO 


SACl 
TRKDLX 


TRACK  DELETE  BIT 

;SAVE  SOME  AC'S 


;SET  THE  SHIFT  BIT  MASK 
;GET  THE  CYLINDER  n 
; CONVERT  TO  TRACKS 

;AC1  =  WORD  IN  DRIVE  TABLE  FOR  MASK 

;ADD  IN  THE  SURFACE  H   FOR  BIT  POSITION 

;WORD  OVERFLOW  IN  MAP  TABLE? 

;NOT  YET 

;YES  -  CORRECT  FOR  IT 

.•NEGATE  BIT  POS.  COUNT  FOR  MASK 
.-SHIFT  THE  MASK  TO  PROPER  PLACE 
.-GET  THE  DELETE  BUFFER  ADDR 

.•UN-DELETE  AN  AREA? 

•YES 

)nO  -  SET  THE  DELtTE  BIT  IN  THE  MAP 


DDRPI    SUBROUTINES    (RPOA/05/06  RELIABILITY) 
TRACK   DELATION/PROTECTION  -  DELETE 


♦♦DELETE   ♦♦ 

I 

YES       /  DEL.  \ 

/  1    TRACK  AT  \ 

/  A  TIME  \ 


I   NO 


/ 


/ 


DELETE 
RANGE? 


\YES 
\— 
\ 


I   NO 


/  RESET 

DEL  AREA? 


\N0 
\ 


>I   YES 

I< 

I     DTRKI 

♦  INPUT  DRIVE     * 

♦  NUMBER  * 

♦  * 

I 


*  • 
>•     -1->RANGEF       * 

I 
I 

•»**••••*••         I 

••♦RTN    **    I 
••••****•*•    I 

I 
I 


DECF  0  VER     00.12  12-APR-78  08:AA     PAGE  03 


ROUTINE   TO  "DELETE"  OR  MASK  OUT  AREAS  ON  RPOA  PACK 
FROM  BEING  SELECTED  AND/OR  USED 


*** 

*A* 
*•• 
>I 

*  INPUT  * 

*  CYLINDER         * 

*  NUMBER  * 


SEQ  0391 


DDI 
DDI 


/ 


/ 


TYPE   IN 
ERROR 


\YES 


I   NO 


/ 


VALID 
NUMBER 

9 


\N0 
\- 
\ 


I 
I 
I 
I 
I 
I 
I 
I 
•>I 
I 


i 


I 


YES       / 
/ 


TYPE   IN 
ERROR 


\ 


I 


NO 


■/ 


VALID 
CYLINDER 
*? 


\ 


I   YES 


/ 


/ 


WANT 
OUT 

9 


\YES 


♦♦RTN    ** 


I   NO 


HELP 

9 


/ 


\YES 
\— 
\ 


Irltfklcklrttttifkifkfk 

*  PRINT  HELP       * 

•>*         MESSAGE         ♦ 

♦  ♦ 


>I   YES 

*  INPUT  * 

*  SURFACE  * 

*  NUMBER  * 


I 

YES       / 
< / 

/ 

TYPE   IN 
ERROR 

9 

• 

\ 
\ 

\ 

I  NO 

NO         / 
< / 

/ 

VALID 
SURFACE  M 

9 

• 

\ 
\ 

\ 

I   YES 


PROCESS  \YES 

A  RANGE  \' 


\ 


I 

♦♦♦ 

♦A* 


I 
I 

I 


I   NO 

*  0->RANGEF  * 

*  SAVE  MIN  * 

*  VALUES  * 


I 

*  DELETE  AREA     - 

*  BETWEEN  MIN     * 
•AND  MAX  VALUES  * 

I 

♦♦DTRKI      ♦♦ 


r 


DDRPl  - 
DDRPI3 

11901 

11902 

11903 

1190A 

11905 

11906 

11907 

11908 

11909 

11910 

11911 

11912 

11913 

11914 

11915 

11916 

11917 

11918 

11919 

11920 

11921 

11922 

11923 

1192A 

11925 
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•/^•••********************************************************************* 
;-*DELCHK  —  ROUTINE  TO  CHECK  THE  CONTENTS  OF   THE  DELETE  TRACK  MAP  .^,,,,. 

'•AND  DETERMINE   IF   THE  DATA  TRANSFER  WILL  FIT   (ACO  CONTAINS  THE  LOGICAL 
;♦  BLOCK  NUMBER  OF   THE  DISK  STARTING  ADDRESS). 

;*  CALL   IS: 

*  GO     DELCHK 

*  RETURN  r^    IF  TRANSFER  WON'T  FIT 

RETURN  +2  IF  PARAMETERS  ARE  OK 


SEQ  0392 


)/^*********************************  ************************************** 


047153 
047154 
047155 
0471 56 
047157 
047160 
047161 
047162 
047163 
047164 
047165 
047166 
047167 
047170 


17 
17 
17 
17 


261 
261 
261 
261 
336  01 
254  00 
231  01 
336  00 
370  00 
270  00 
313  00 
254  00 
331  00 
254  00 


0 
0 


00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 


00 
00 
00 
00 
00 
00 
00 

11 

00 

11 

00 


000000 
000001 
000002 
000003 
100733 
047226 
000200 
000002 
000001 
000001 
000031 
047227 
000151 
047226 


DELCHK: 


DELCfvA: 


PUT 

ACO 

PUT 

ACl 

PUT 

AC2 

PUT 

AC3 

SKiPN 

ACl, .SIZE 

JRST 

DCKEX2 

IDIVI 

ACUBLKSIZ 

SKIPN 

AC2 

SOS 

ACl 

ADD 

ACl 

CAMLE 

.MXBLX(DSBP) 

JRST 

DCKEX1 

SKIPL 

.DELPT(DSBP) 

JRST 

DCKEX2 

;SAVE  SOME  AC'S 


;GET  ANY  SIZE  AVAILABLE 

;NONE  SELECTED  -  return  +2 

; THE  NUMBER  OF 

;BLOCKS  SELECTED 

;FOR  THE  TRANSFER 

;SIZE  IN  ".SIZE" 

;WILL  THE  SIZE  FIT? 

;NO-DON'T  SWEAT  DELETION-YOU'VE  GOT  OTHER  TROUBLES 

.-DELETION  IN  EFFECT  FOR  THIS  DRIVE? 

;N0  -  EXIT  +2 
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SEQ  0393 


DC 
CC 


11926 

11927 

11928 

11929 

11930 

11931 

11932 

11933 

11 934 

11935 

11936 

11937 

11938 

11939 

11940 

11941 

11942 

11943 

11944 

11945 

11946 

11947 

11948 

11949 

11950 

11951 

11952 

11953 

11954 

11955 

11956 

11957 

11958 

11959 

11960 

11961 

11962 

11963 


047171 

047172 

047173 

047174 

047175 

047176 

047177 

047200 

047201 

047202 

047203 

047204 

047205 

047206 

047207 

047210 

047211 

047212 

047213 

047214 

047215 

047216 

047217 

047220 

047221 

047222 

047223 

047224 

047225 

047226 

047227 

047230 

047231 

047232 

047233 


200  02  0 
350  00  0 
202  02  0 

274  02  0 

230  01  0 
332  00  0 
350  00  0 
370  00  0 
210  02  0 
402  00  0 
205  00  0 
240  00  0 
200  02  0 
221  02  0 
270  02  0 

231  02  0 
270  03  0 
305  03  0 
254  00  0 

275  03  0 
350  00  0 
213  00  0 
246  00  0 
550  03  0 
270  02  0 


612  00 
254  00 
33  J  00 
616  01 


350  00  0 
262  17  0 


262  17 
262  17 

262  17 

263  17 


0 
0 
0 
0 


11  000030 
00  000002 
00  000003 
00  100732 
00  000003 
00  000002 
00  000001 
00  000001 
00  000001 
00  000001 
00  400000 

02  000000 
00  100730 
00  000022 
00  100730 
00  000044 
00  100731 
00  000044 
00  047216 
00  000044 
00  000002 
00  000003 

03  000000 
11  00C151 
00  000003 
02  000000 
00  047227 
00  000002 
02  000000 
17  11111  i^ 
00  000003 
00  000002 
00  000001 
00  000000 
00  000000 


DEVELOPE  A  TEST  MASK 


DELCKB:  MOVE 
AOS 
MOVEM 
SUB 
IDIV 
SKIPE 
AOS 
SOS 
MOVN 
SETZM 
MOVSI 
ASH 
MOVE 
IMULI 
ADD 
IDIVI 
ADD 
CAI6E 
JRST 
SUBI 
AOS 
MOVNS 
LSHC 
HRRZ 
ADD 
TDNE 
JRST 
AOS 
TDNN 
AOS 
GET 
GET 
GET 
GET 
RTN 


DCKEX2: 
DCKEXl: 


AC2,.MXSEC(DSBP) 

AC2 

AC2,AC3 

AC2,.SECT 

AC1,AC3 

AC2 

ACl 

AC1 

AC2,AC1 

AC1 

(ISO) 

(AC2) 

AC2,.CYLIN 

AC2, SURFACE 

AC2,.CYLIN 

AC2,*D36 

AC3..SURF 

AC3/D36 

.+3 

AC3,*D36 

AC2 

AC3 

AC0,(AC3) 

AC3,.DELPT(DSBP) 

AC2,AC3 

(AC2) 

DCKEXl 

AC2 

1,(AC2) 

-4(P) 

AC3 

AC2 

ACl 

ACO 


GET  THE  n   OF  SECTORS  ON  DRIVE  TRACK 

MAKE  IT  THE  REAL  NUMBER  OF  SECTORS 

COPY  IT  INTO  AC3 

CALC  n   SECTORS  LEFT  ON  SURFACE 

AND  CALC  n   OF  TRACKS 

OVERFLOW  INTO  ANOTHER  TRACK? 

YUP  -  COUNT  ANOTHER  ONE 

DECREMENT  TRACK  COUNT 

MAKE  A  NEG.  COUNT  OF  TRACKS 

SETUP  A  SHIFT  MASK 
CREATE  A  MASK 
GET  THE  CYLINDER  n 
CONVERT  TO  TRACKS 

AC2  =  WORD  POSITION  IN  MAP 

AC3  =  BIT  POSITION  IN  MAP 

WORD  OVERFLOW? 

NO 

YES  -  CORRECT 

NEGATE  BIT  POSITION  COUNT 
BUILD  A  2  WORD  MASK 


;XFER  FIT? 


;STILL  FIT? 

;YES  -  SETUP  TO  EXIT  +2 
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1196A 

11965 

11966 

11967 

11968 

11969 

11970 

11971 

11972 

11973 

11 974 

11975 

11976 

11977 

11978 

11979 

11980 

11981 

11982 

11983 

1198A 

11985 

11986 

11987 

11988 

11989 

11990 

11991 

11992 

11993 

11994 

11995 

11996 

11997 

11998 

11999 

12000 

12001 

12002 

12003 

12004 

12005 

12006 

12007 


047234 
047235 
047236 
047237 
04724C 
047241 
047242 
047243 
047244 
047245 
047246 
047247 
047250 
047251 


047252 
047253 
047254 
047255 
047256 
047257 


261 
261 
261 
261 
261 
261 
261 
261 
26' 
2o' 
332 
25^4 
201 
202 


17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
00 
00 
00 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000011 
00  000010 
00  000013 
00  000012 
00  000015 
00  000000 
00  000001 
00  000002 
00  000003 
00  000006 
00  077720 
00  047342 
00  100235 
00  077547 


333  00 

254  00 
350  06 
305  06 
254  00 
254  00 


1  00  077547 
0  00  047344 
0  00  077547 
0  00  100331 
0  00  047252 
0  00  047310 


DISK  COMMAND  EXECUTOR 

SUBTTL   DISK  COMMAND  EXECUTOR 
XLIST 

LIST 

;♦  CMDXCT  —  ROUTINE  TO  EXECUTE  QUEUED  DRIVE  COMMANDS 


SEQ  0394 


r 

Dl 

Dl 


COMMENT  $ 


THE  DISK  COMMAND  EXECUTOR  WILL  INITIATE  ALL  DISK  DATA  ^^^^^^^ 
TRANSFER  OPERATIONS  (I.E.  READ, READ-HEADS, WRITE, WRITE-HEADERS) 
AND  POSITION  COMMANDS  (I.E.  SEEK  AND  RECAL).  |ViRY  ,,,.,. ,„^ 
TIME  THIS  ROUTINE  IS  CALLED,  IT  WILL  START  AT  THE  BEGINNING 
OF  THE  COMMAND  QUE  LOOKING  FOR  A  COMMAND  TO  PROCESS.  COMMAND 
EXECUTION  STOPS  WHEN  A  DRIVE  CANNOT  ACCEPT  ANOTHER  COMMAND  OR 
NO  COMMANDS  ARE  LEFT  TO  BE  PROCESSED. 
$ 
XLIST 


CMDXCT:  PUT  DSBP 

PUT  CSBP 

PUT  DRIVE 

PUT  MBCN 

PUT  REPT 

PUT  ACO 

PUT  ACl 

PUT  AC2 

PUT  AC3 

PUT  AC 

CMDXCL:  SKIPE  RETFLG 

JRST  CMDXR 

MOVE I  COMQ 

MOVEM  CMDXPT 

;FIND  A  COMMAND  TO  EXECUTE 


;SAVE  SOME  AC'S 


CMDXCF: 


SKIPLE 

JRST 

AOS 

CAIGE 

JRST 

JRST 


aCMDXPT 

CMDXA 

AC, CMDXPT 

ACCOMQE 

CMDXCF 

CMDXNP 


DOING  A  RETRY?? 

YES 

GET  ADDRESS  OF  START  OF  QUE  BUFFER 

RESET  QUE  EXECUTE  POINTER 


THIS  COMMAND  NEED  PROCESSING? 

YES  -  DO  IT 

NO  -  BUMP  COMQ  POINTER 

AT  END  OF  EXECUTE  QUE? 

NO  -  TRY  NEXT  ENTRY 

EXIT  -  NO  PROCESSING  NOW 


p^fcihiWM.i^<Wi 


DDRPl  SUBROUTINES  (RPOA/05/06  RELIABILITY) 
COMMAND  EXECUTOR  -  CMDXCT 


DECFLO  VER     00.12  12-APR-78  08:4A     PAGE  29 


SEQ  0395 


r 

D 
C 


**CMDXCT  *♦ 
I 

*  SAVE  FOLLOWING:       * 

*  DSBP-AC1,  CSBP-AC2     * 

*  DRIVE-AC  » 

I< 

1f1imt1t1t1t1t*itif1t1tt1t1t1t 

*  RESET  EXECUTE  * 

*  POINTER  TO       * 

*  "COMQ"  * 


•>I 


C(COMQ)  \N0 

PROCESSED  \- 

(NEG)  \ 

I   YES 
*       +1->XCTQP       * 
I 


COMMAND  EXECUTOR  FLOW 
RETURNS  ^1   ONLY 

COMMAND  ARE  EXECUTED  FROM  A 
DRIVE'S  DSB  COMMAND  AREA 


I 


NO 


RETFLG 
NOT  =  0 


\ 


I   YES 

•  RESET  EXECUTE  * 

•  POINTER  TO       * 

•  ••RETQ"  * 


CMDXA(30) 

♦PROCESS  CMD  IN  * 
•COMQ  POINTED  TO* 
*     BY  "CMDXPT"     * 
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SEQ  0396 


12009 

12010 

12011 

12012 

12013 

120U 

12015 

12016 

12017 

12018 

12019 

12020 

12021 

12022 

12023 

12024 

12025 

12026 

12027 

12028 

12029 

12030 

12031 

12032 

12033 

12034 

12035 

12036 

12037 

12038 

12039 

12040 

12041 

12042 

12043 

12044 

12045 

12046 

12047 

12048 

12049 

12050 

12051 

12052 

12053 

12054 

12055 

12056 

12057 

12058 

12059 

12060 

12061 

12062 


047260 
047261 
047262 
047263 
047264 
047265 
047266 
047267 
047270 
047271 
047272 
047273 
047274 
047275 
047276 


047277 
047300 
047301 


047302 
047303 
047304 
047305 
047306 
047307 


047310 
047311 
047312 
047313 
047314 
047315 
047316 
047317 
047320 
047321 
047322 
047323 
047324 
047325 


200  00  1 
661  00  0 
202  00  1 
200  06  0 
06 


271 
200  06 
200  00 
661  00 
202  00 
332  00 


0 
0 
0 
0 
0 
0 
254  00  0 
200  00  0 
260  17  0 
506  00  0 
7  004  20 


00  100021 
00  400000 
00  100021 
00  100021 
00  000003 
06  000000 
06  000000 
00  400000 
06  000000 
00  030037 
00  047310 
00  100042 

00  063665 

01  101047 

0  00  002377 


202  13  0  01  101221 
332  00  0  00  077544 
254  00  0  00  047326 


350  00 
200  01 
332  00 
476  00 
260  17 
254  00 


0  10  000017 
0  00  100022 
0  00  030041 
0  00  077712 
0  00  063147 
0  00  051214 


336  00  0 
7  004  20 


402 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
263 


00 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 


00  030037 
0  00  002377 
00  077544 
00  000006 
00  000003 
00  000002 
00  000001 
00  000000 
00  000015 
00  000012 
00  000013 
00  000010 
00  000011 
00  000000 


THE  COMMAND  HAS  BEEN  LOADED  INTO  THE  DRIVE  (IF  POSSIBLE) 
AND  NOU  THE  QUE  AND  DSB  FLAGS  HAVE  TO  BE  SET  TO  INDICATE 
COMMAND  EXECUTED 


CMDXEX:  MOVE 
TLO 
MOVEM 

CMDXEY:  MOVE 
ADDI 
MOVE 
MOVE 
TLO 
MOVEM 
SKIPE 
JRST 
MOVE 
GO 

HRLM 
CONO 


aXCTADR 

(1B0) 

aXCTADR# 

ACXCTADR 

AC, 3 

AC, (AC) 

(AC) 

(IBO) 

(AC) 

USER 

CMDXNP 

FAILTM 

CHNSEL 

CSBTBL(ACl) 

PI, 2377 


GET  THE  FIRST  CONTROL  WORD 

SET  THE  ISSUED  BIT 

SAVE  THE  UPDATED  WORD 

GET  THE  CMD  ADDRESS  (DSB) 

POINT  TO  THE  QUEUE  LINK 

GET  THE  COMQ  POINTER 

GET  THE  QUE  CONTENTS  TO  UPDATE 

SET  THE  PROCESSED  BIT  FOR  THE  QUE  ENTRY 

SAVE  THE  UPDATED  "EXECUTED"  QUE  POINTER 

USER  MODE?? 

YES  -  SKIP  SOME  CODE 

GET  THE  TIMEOUT  COUNT 

DETERMINE  THE  MBC  » 

SAVE  THE  TIME  COUNT  IN  CSB  TABLE 

ENABLE  PI  SYS  AGAIN 


;IF  RUNNING  IN  USER  MODE  OR  IF  THE  COMMAND  WAS  A  DATA  TRANSFER 
;SKIP  THIS  SECTION  OF  CODE 


MOVEM   DRIVE, .SVDRV(ACI) 
SKIPE   CMDDAT* 
JRST    CMDDST 

; START  THE  POSITIONING  COMMAND  NOW 

AOS  .PIPCT(CSBP) 

MOVE  AC1,XCTCMD 

SKIPE  KLFLG 

SETOM  RDTIME* 

GO  LDREG 

JRST  CMXNPC 

;EXIT  THE  COMMAND  EXECUTER 


CMDXNP:  SKIPN 
CONO 
SETZM 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
RTN 


USER 

PI, 2377 

CMDDAT 

AC 

ACj 

AC2 

AC1 

ACO 

REPT 

MBCN 

DRIVE 

CSBP 

DSBP 


SAVE  DRIVE  *  FOR  XCT'D  COMMAND 
DATA  TRANSFER  COMMAND?? 
YES  -  START  THE  DATA  XFR 


.•COUNT  THE  EXPECTED  POSITION  INTERRUPT 
;GET  THE  CMD  TO  EXECUTE 

SET  FLAG  TO  READ  TIMEBASE  METER 
START  THE  COMMAND 
ERROR  -  EXIT 


SKIP  IF  IN  USER  MODE 
TURN  PI  SYSTEM  BACK  ON 
CLEAR  THE  DATA  XFR  CMD  FLAG 
RESTORE  ALL  USED  AC'S 


;AND  EXIT 
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SEQ  0397 


12063 

12064 

12065 

12066 

12067 

12068 

12069 

12070 

12071 

12072 

12073 

12074 

12075 

12076 

12077 

12078 

12079 

12080 

12081 

12082 

12083 

12084 

12085 

12086 

12087 

12088 

12089 

12090 

12091 

12092 

12093 

12094 

12095 

12096 

12097 

12098 

12099 

12100 

12101 

12102 

12103 

12104 

12105 

12106 

12107 

12108 

12109 

12110 

12111 

12112 

12113 


047326 
047327 
047330 
047331 
047332 
047333 
047334 
047335 


200  01 
336  00 
254  00 
260  17 
254  00 
037  03 
260  17 
254  00 


00 
00 
00 
00 
00 
00 
00 
00 


100022 
077722 
047333 
063452 
047310 
000004 
063375 
047310 


047336  200  00  0  10  000017 

047337  270  00  0  00  073053 

047340  202  00  0  10  000017 

047341  254  00  0  00  047310 

047342  201  00  0  00  100117 

047343  202  00  0  00  077547 


047344 
047345 
047346 
047347 
047350 
047351 
047352 
047353 
047354 
047355 
047356 


047357 
047360 
047361 
047362 
047363 
047364 
047365 
047366 
047367 
047370 
047371 


554  13  1 
405  13  0 
550  11  0 
33?  00  0 
It-  00  0 
200  06  0 
242  06  0 
550  10  0 
200  12  0 
332  00  0 
260  17  0 


336  00  0 
7  004  20 

337  00  0 


254 
260 


00 
17 


254  00 
200  06 


312 
254 
331 
254 


06 
00 
00 
00 


00  077547 
00  000077 
13  100747 
00  030037 
00  047357 
00  000013 
00  777775 
06  101047 
10  000020 
00  100016 
00  042666 


00  030037 
0  00  000400 
13  100747 
00  047365 
00  056577 
00  051214 
11  000045 
00  077547 
00  047421 
11  000042 
00  047440 


;HERE  TO  START  A  DATA  TRANSFER  COMMAND  TO  EITHER  A  RHIO  OR  RH20 


CMDDST: 


MOVE 

SKIPN 

JRST 

60 

JRST 

CURTBI 

60 

JRST 


;HERE  IF  TRIED 
.•BECAUSE  DRIVE 

CMDXDP:  MOVE 
ADD 
MOVEM 
JRST 

CMDXR:  MOVE I 
MOVEM 


•  *i 


ACKXCTCMD 

RH20 

.+3 

LDSTCR 

CMDXNP 

LDCR 
CMDXNP 


6ET  THE  DmTA  CMD 

MBC  =  RH20?? 

NOPE 

YES  -  START  THE  RH20 

EXIT 

ZAP  1080  CACHE  (IF  EXISTS) 

START  THE  RHIO 

EXIT 


TO  CAPTURE  THE  DRIVE  AND  FAILED  (DUAL  PORT) 
WAS  ON  OTHER  PORT 


.PIPCT(CSBP) 
C1B011B35] 
.PIPCT(CSBP) 
CMDXNP 

RETQ 
CMDXPT 


6ET  THE  POSITION  COUNTER  COUNT 
INDICATE  A  FUNNY  INTERRUPT  C0MMIN6 
SAVE  THE  COUNT 
EXIT  THE  EXECUTION  ROUTINE 


;6Ei  THE  RETRY  QUE  ADDR 
;SAVE  IT 


.  'CMDXPT"  IS  NOW  POINTINO  TO  A  COMMAND  IN  THE  QUE  TO  BE  PROCESSED 
;SETUP  POINTERS  TO  PROPER  DRIVE,  CONTROLLER,  AND  COMMAND  AREAS 


CMDXA:  HLRZ  DRIVE, aCMDXPT 

ANDI  DRIVE, 77 

HRR2  DSBP,DSBTBL (DRIVE) 

SKIPE  USER 

JRST  CMDXA1 

MOVE  AC, DRIVE 

LSH  AC, -3 

HRRZ  CSBP,CSBTBL(AC) 

MOVE  MBCN,.MBCN(CSBP) 

SKIPE  VECTOR 

60  LDVECT 


6ET  DRIVE  #  FROM  QUE  ENTRY 
SETUP  DRIVE  DSB  POINTER 
USER  MODE?? 
YES 


SETUP  MBC  CSB  POINTER 
AND  THE  MBC  NUMBER 
AM  I  VECT0RIN6?? 
YUP 


;MAKE  A  DECISION  ON  WHAT  HAS  TO  BE  EXECUTED 


CMDXA1:  SKIPN 
CONO 
SKIP6 
JRST 
60 
JRST 
MOVE 
CAME 
JRST 

CMDXA2:  SKIPL 
JRST 


USER 

PI,PIOFF 

DSBTBL(DRIVE) 

.+3 

CLRALL 

CMXNPC 

AC,.PRIM*3(DSBP) 

AC, CMDXPT 

CMDXA3 

.PRIM(DSBP) 

CMDXN 


KILL  THE  PI  SYSTEM 

DRIVE  STILL  SELECTABLE? 

YES 

NO  -  CLEAR  CMDS  TO  THE  DRIVE 

AND  EXIT 

6ET  THE  Q  POINTER 

AT  THE  SAME  PLACE? 

NO  -  SOME  PLACE  ELSE 

YES  -  HAS  THE  CMD  BEEN  ISSUED? 

NO  -  PROCEED 
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SEQ  0398 


12114 

12115 

12116 

12117 

12118 

12119 

12120 

12121 

12122 

12123 

121 24 

12125 

12126 

12127 

12128 

12129 

12130 

12131 

12132 

12133 

12134 

12135 

12136 

12137 

12138 

12139 

12140 

12141 

12142 

12143 

12144 

12145 

12146 

12147 

12148 

12149 

12150 

12151 

12152 

12153 

12154 

12155 

12156 

12157 

12158 

12159 

12160 

12161 


047372 
047373 
047374 
047375 
047376 
047377 
047400 

047401 
047402 
047403 
047404 
047405 
047406 


337 
254 
261 
037 
262 
550 
260 


00  1  00  077547 
00  0  00  047310 
17  0  00  000000 
04  0  00  073054 
17  0  00  000000 
00  1  00  000000 
17  0  00  051760 


037  04  0  00  073061 
402  00  0  00  000001 
336  02  0  01  031162 
254  00  0  00  047417 
3^2  02  0  00  030051 
344  01  0  00  047403 


047407 

200  00 

047410 

037  01 

047411 

037  04 

047412 

200  00 

047413 

260  17 

047414 

037  04 

047415 

260  17 

047416 

254  00 

0 
0 
0 
0 
0 
0 
0 


01 
00 
00 
00 
00 
00 
00 


0  00 


031133 
000002 
073064 
030051 
066174 
073066 
044454 
030756 


047417 
047420 

047421 
047422 

047423 
047424 
047425 
047426 
047427 
047430 
047431 
047<»32 
047433 
047434 
047435 
047436 
047437 


200  00  0  00  100010 
2:>-  00  0  00  047410 

331  00  0  11  000042 
254  00  0  00  047440 


550  00 
302  00 
332  00 
254  00 
332  00 
254  00 
336  06 
254  00 
332  00 
312  06 
254  00 
201  06 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


11 
00 
00 
00 
00 
00 
11 
00 

11 

00 
00 

11 

00 


000042 

mill 

01112\ 
051155 
077653 
051155 
000040 
047607 
000041 
077547 
051155 
000035 
047452 


•/^***»********* *********************************************************** 
•*CMDSE1  —  ROUTINE  TO  REPORT  THE  PROGRAM  IS   OUT  OF  SYNCH... 

CMDSE1:  SKIP6  aCMDXPT  -lyjS  CMD  ''DONE;;  ?? 

JRST  CMDXNP  ;YES  -  GET  OUT  NOW!!! 

PUT  ACO  ;N0  -  SAVE  ACO 

PMSGF  <*COMMAND  SEQUENCE  ERROR*CMD> 

GET  ACO  ;GET  THE  POINTER  INTO  Q 

HRRZ  a  ;AND  THE  CMD_ 

GO  PNTCMD  .-PRINT  THE  CMD 


CMDERS: 


PMSGF 

SETZM 

SKIPN 

JRST 

CAME 

AOJA 


MOVE 
CMDSE2:  PNTSXF 
PMSGF 
MOVE 
GO 

PMSGF 
GO 
JRST 

CMDSE3:  MOVE 
JRST 

CMDXA3:  SKIPL 
JRST 


CMDXY: 


HRRZ 

CAIE 

SKIPE 

JRST 

SKIPE 

JRST 

SKIPN 

JRST 

SKIPE 

CAME 

JRST 

MOVE  I 

JRST 


<*EXECUTING  "> 

AC1 

AC2.TSTG0(AC1) 

CMDSE3 

AC2,TESTPC 

AC1..-3 

SCRIPT(ACI) 

<••  AT  PC  > 

te:tpc 

POCT 

<*ATTEMPTING 

RUNTIM 

SA 


TO  RESTART 


TSTSAV 
CMDSE2 

.PRIM(DSBP) 
CMDXN 

.PRIM(DSBP) 

-1 

RHIO 

HNGXCT 

NOBAK^ 

HNGXCT 

AC.XCTQCDSBP) 

CMDXHC 

.DSKAD(DSBP) 

ACCMDXPT 

HNGXCT 

AC,.SCNAD(DSBP) 

CMDXPS 


CLEAR  A  POINTER 

GET  A  PC 

NO  MATCH  FOUND 

SAME  PC  ADDR?? 

NO  -  LOOK  AT  THE  NEXT  ONE 

GET  THE  NAME 
AND  PRINT  IT 

GET  THE  TEST  PC  ADDR 
AND  PRINT  IT 
blAGNOSTIC'^> 
PRINT  THE  PGM  RUN  TIME  AT  RESTART 
RESTART 

GET  THE  SAVED  TEST  NAME 
AND  PRINT 

HAS  THE  PRIMARY  COMMAND  BEEN  ISSUED? 
NO  -  MORE  CHECKS  NEEDED 

GET  THE  1ST  WORD  IN  CMD 

POSITION  CMD? 

OR  AN  RHIO? 

YES  -  HANG 

USE  BACKUP  COMMANDS? 

NO 

ANY  2ND  CMD  AT  ALL? 

NOPE  -  LOOK  AT  THE  HOLD  AREA 

ANY  2ND  CMD 

AND  IS  IT  THE  SAME  AS  XCT  CMD? 

NO  "   HANG 

POINT  TO  THE  2ND  AREA 

YES  -  PROCEED  TO  EXECUTE  THE  2ND  CMD 


r 


DDRPl  - 
DDRP13 

12162 

12163 

1216A 

12165 

12166 

12167 

12168 

12169 

12170 

12171 

12172 

12173 

12174 

12175 

12176 

12177 

12178 

12179 

12180 

12181 

12182 

12183 

1218A 

12185 

12186 

12187 

12188 

12189 

12190 

12191 

12192 

12193 

12194 

12195 

12196 

12197 

12198 

12199 

12200 

12201 

12202 

12203 

12204 
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SEQ  0399 


;HERE  IF  PRIMARY  DSB  COMMAND  HAS  NOT  BEEN  ISSUED 


047440 
047441 
047442 
047443 
047444 
047445 
047446 
047447 
047450 
047451 

047452 
047453 
047454 
047455 
047456 
047457 
047460 
047461 
047462 
047463 
047464 
04746S 
047466 
047467 
047470 
047471 
047472 

047473 
047474 
047475 
047476 
047477 
047500 
047501 
047502 
047503 
04750'. 
047d05 


336  00 
254  00 
200  06 
316  06 
254  00 
200  00 
603  00 
254  00 
260  17 
254  00 


332  00 
254  00 

201  00 

202  00 
332  00 
254  00 
332  00 
254  00 
476  00 
200  00 
202  00 
200  00 
202  00 
402  00 
402  00 
40?  00 
2>-  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


11 

00 

11 

00 
00 
13 
00 
00 
00 
00 

00 
00 
00 
00 
10 
00 
10 
00 
00 
06 
10 
00 
10 
10 
10 
10 
00 


000046 
047506 
000045 
077547 
047551 
100747 
500000 
047372 
056577 
051214 

030037 
047626 
111111 
077555 
000007 
047575 
000014 
047473 
077555 
000000 
000007 
077547 
000006 
000003 
000004 
000005 
047626 


205  00  0 
541  00  0 
251  00  0 
402  00  0 
205  00  0 
541  00  0 
251  00  0 
200  00  0 
312  00  0 
254  00  0 
254  m   0 


10  000010 
10  000003 
10  000007 
10  000010 
10  000010 
10  000011 
10  000014 
10  000006 
00  077547 
00  047575 
00  047626 


CMDXN:   SKIPN  .PRIMi4(DSBP) 

JRST  CMDXPE 

MOVE  AC,.PRIM*3(DSBP) 

CAMN  ACCMDXPT 

JRST  CMDXPC 

MOVE  DSBTBL (DRIVE) 

TLNE  (.OPRI.ONLN) 

JRST  CMDSEl 

GO  CLRALL 

JRST  CMXNPC 

CMDXPS:  SKIPE  USER 

JRST  CMDXl 

MOVE I  -1 

MOVEM  CPRIMF# 

SKIPE  .PSCN(CSBP) 

JRST  CMDXSS 

SKIPE  .SSCN(CSBP) 

JRST  CMDXSP 

SETOM  CPRIMF 

MOVE  (AC) 

MOVEM  .PSCN(CSBP) 

MOVE  CMDXPT 

MOVEM  .PCMD(CSBP) 

SETZM  .P8AR(CSBP) 

SETZM  .PTCR(CSBP) 

SETZM  .PCLP(CSBP) 

JRST  CMDXl 

CMDXSP:  MOVSI  .SBAR(CSBP) 

HRRI  .PBAR(CSBP) 

BLT  .PSCN(CSBP) 

SETZM  .SBAR(CSBP) 

MOVSI  .SBAR(CSBP) 

HRRI  .STCR(CSBP) 

BLT  .SSCN(CSBP) 

MOVE  .PCMD(CSBP) 

CAME  CMDXPT 

JRST  CMDXSS 

JRST  CMDXl 


ANY  PRIMARY  COMMAND? 

NO 

GET  THE  Q  POINTER 

SAME  AS  DESIRED  CMD? 

YES  -  PROCESS  THE  CMD 

GET  THE  TABLE  STATUS  FOR  DRIVE 

DRIVE  STILL  ONLINE?? 

YES  -  YOU  LOOSE  I 

NO  -  CLEAR  ALL  PENDING  CHDS 

AND  GET  OUT! 

USER  MODE? 

YES  -  START  THE  OPERATION 

SET  THE  XFR  FLAG  FOR  MBC  AREA 

SAVE  IT 

PRIM  CSB  EMPTY? 

NO  -  TRY  THE  2ND  CSB  AREA 

YES  -  BUT  IS  THE  2ND? 

NO  -  BLT  THE  2ND  TO  PRIM 

XFR  USING  THE  PRIM  MBC  AREA 

YES  -  SETUP  PRIM  CMD 

SAVE  THE  PRIM  SCNADD  ADDRESS 

GET  THE  COMQ  POINTER 

SAVE  IT 

CLEAR  BLK  ADDR  LOCATION 

'•   XFR  CMD  LOCATION 

••   CHANNEL  POINTER 
GO  PROCESS  THE  COMMAND 

GET  THE  2ND  ADDRESS 
BUILD  THE  REST  OF  THE  BLT  WORD 
PUT  THE  2ND  AREA  INTO  THE  1ST 
CLEAR  THE  1ST  AREA  LOCATION 
BUILD  ANOTHER  BLT  WORD 

CLEAR  THE  WHOLE  2ND  CSB  AREA 
GET  CURRENT  PRIMARY  COMMAND 
XCT  SAME  COMMAND 
NO  PUT  IN  SECONDARY  AREA 
YES  DO  IT 
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MACRO  X53B(1242)  15:51  28-Aug-85  Page  133 


SEQ  0400 


12205 

12206 

12207 

12208 

12209 

12210 

12211 

12212 

12213 

122U 

12215 

12216 

12217 

12218 

12219 

12220 

12221 

12222 

12223 

12224 

12225 

12226 

12227 

12228 

12229 

12230 

12231 

12232 

12233 

12234 

12235 

12236 

12237 

12238 

12239 

12240 

12241 

12242 

12243 

12244 

12245 

12246 

12247 

12248 

12249 

12250 

12251 

12252 

12253 

12254 

12255 

12256 

)225S 


047506 
047507 
047510 
047511 
047512 
047513 
047514 
047515 
047516 
047517 
047520 


047521 
047522 
047523 
047524 
047525 
047526 
047527 
047530 
04753- 


047532 
047533 
047534 
047535 
047536 


047537 
047540 
047541 
047542 
04754? 
047d44 
047545 
047546 
047547 
047550 

047551 
047552 
047553 
047554 
047555 
047556 


332  00  0 
254  00  0 
201  06  0 
336  00  0 
332  00  0 
254  00  0 
336  00  0 
254  00  0 
200  00  0 
312  00  0 
254  00  0 


505  00  0 
541  00  0 
251  00  0 
402  00  0 
402  00  0 
402  00  0 
402  00  0 
402  00  0 
254  00  0 


00 
00 
11 
00 
00 
00 
11 
00 
11 
00 
00 


077720 
047557 
000042 
077653 
077721 
047532 
000041 
047532 
000040 
077547 
047372 


11  000035 

11  000042 

11  000046 

11  000035 

11  000036 

11  000037 

11  000040 

11  000041 

00  047551 


336  00  0  11  000053 
2:)  00  0  00  047557 
200  00  0  11  000052 
312  00  0  00  077547 
254  00  0  00  047372 


205  00 
540  00 
251  00 
402  00 
402  00 
402  00 
402  00 
402  00 
402  00 
254  00 

201  06 
550  00 
302  00 
254  00 
476  00 
254  00 


0  11  000047 
0  00  000006 
0  06  000004 
0  11  000047 
0  11  000050 
0  11  000051 
0  11  000052 
0  11  000053 
0  11  000033 
0  00  047357 

0  11  000042 
0  06  000000 
0  00  777777 
0  00  047452 
0  11  000033 
0  00  047626 


;BUILD  A  COMMAND  IN  THE  PRIMARY  AREA...  PRIMARY  AREA  IS  EMPTY 


CMDXPE:  SKIPE 
JRST 
MOVE  I 
SKIPN 
SKIPE 
JRST 
SKIPN 
JRST 
MOVE 
CAME 
JRST 


RETFL6 

CMDXHE 

AC..PRIM(DSBP) 

N06AK 

RH10 

CMDXSE 

.DSKAD(DSBP) 

CMDXSE 

AC0..XCTQ(DSBP) 

ACO^CMDXPT 

CMDSE1 


.•CURRENTLY  DOING  A  RETRY?, 

;YES  -  GET  THE  CMD  FROM  "SAVQ' 

; POINT  TO  THE  PRIM  AREA 

.•BACKUP  COMMANDS? 

•MBC  ~   RHiO'''' 

; DON'T  USE  BACKUP  COMMANDS 

;IS  THERE  A  2ND  CMD  READY? 

;N0  •  LOOK  FOR  A  HOLD  COMMAND 

.•POINT  TO  THE  2ND  AREA 

;IS  THE  CMD  HERE?? 

;N0  -  SEQUENCE  ERROR?? 


;PUT  2ND  COMMAND  IN  PRIMARY  CMD  AREA 

HRLI  .SCNAD(DSBP) 

HRRI  .PRIM(DSBP) 

BLT  .PRIM+4(DSBP) 

SET2M  .SCNAD(DSBP) 

SETZM  .SCNKDSBP) 

SETZM  .SCN2(DSBP) 

SETZM  .XCTQ(DSBP) 

SETZM  .DSKAD(DSBP) 

JRST  CMDXPC 


.•BUILD  A  BLT  WORD 

;PUT  2ND  AREA  IN  THE  PRIM  AREA 

.•CLEAR  2ND  CMD  AREA 


.•CHECK  THE  COMMAND  IN  PRIM  AREA 


.•PRIMARY  AND  2ND  COMMAND  AREAS  ARE  EMPTY  —  LOOK  FOR  A  ''HOLD"  COMMAND 


CMDXSE:  SKIPN  .HLDQ+4(DSBP) 

JRST  CMDXHE 

MOVE  AC0..HLDQ+3(DSBP) 

CAME  ACO.CMDXPT 

JRST  CMDSE1 

;PUT  HOLD  COMMAND  IN  PRIMARY  CMD  AREA 

MOVSI  .HLDQ(DSBP) 

HRR  AC 

BLT  4 (AC) 

SETZM  .HLi)U(DSBP) 

SETZM  .HLDQ^KDSBP) 

SETZM  .HLDQ*2(DSBP) 

SETZM  .HLDQ^3(DSBP) 

SETZM  .HLDQ+4(DSBP) 

SETZM  .INUSE(DSBP) 

JRST  CMDXA1 

CMDXPC:  MOVEI  AC. .PRIM(DSBP) 

HRRZ  (AC) 

CAIE  -1 

JRST  CMDXPS 

SETOM  .INUSE(DSBP) 

JRST  CMDX1 


.•HOLDING  AREA  EMPTY? 

;YES  -  GO  GENERATE  A  COMMAND 

.•POINT  TO  THE  HOLD  CMD 

;IS  THE  CMD  IN  THE  HOLD  AREA?? 

;N0  -  SEQUENCE  ERROR 


;BUILD  A  BLT  POINTER 

;XFR  THE  AREA 

.•CLEAR  THE  HOLD  CMD  AREA 


.•CLEAR  GAG  FLAG 
;LOOK  AT  THE  DSB 


CMD  AREA  AGAIN 


.•POINT  TO  THE  PRIM  AREA 

.-GET  THE  COMMAND  IN  PRIM 

;IS  IT  A  POSITION  CMD?? 

;N0 

;YES  -  SET  GAG  AGAIN 

.•PROCESS  THE  COMMAND 


AREA 


DDRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
COMMAND  EXECUTOR  -  CMDXCT 


DECFLO  VER  00.12  12-APR-78  08: AA  PAGE  30 


SEQ  0^»01 


NO 


I 
CMDXN   I 


PRIM 
EMPTY 


I  NO 
*********** 

♦♦CMDSE1  *♦ 
♦♦♦♦*♦♦♦♦♦* 


/ 


**CMDXA  ♦* 
I 

DS6 
PRIM  CMD 
ISSUE? 


\YES 
\— 
\ 


1 
I 
I 
I 
I 


I     CMDXY 


/ 


M6C 
RH10 


\YES 
\— 
\ 


•>**CMDXHC   ♦♦ 

1 1  It  ttttlfit  it* 


1   NO 


\YES 
\— , 

\ 


/ 


ANY 
2ND  DS3 
CMD? 


\N0 

\- 

\ 


CMDXPE 


/ 


/ 


2ND  DSB     \YES 
CMD  EMPTY     \— 
?         \ 


I 
I 
I 


I  CMDXSE 


/ 


HOLD 
DSB  CMD 
EMPTY? 


\YES 
\— 
\ 


I 


I   YES 

H  tit  t  It  t  It  it  t  tit 

♦♦CMDXPS  ♦♦ 
CMDXHE 


I 

V 
ttttttttttt 

•♦CMDSE1  *♦ 
ttttttttttt 


1   NO 
ttttttttttttttttt 

♦8LT  2ND  CMD  TO  ♦ 

♦  PRIM  CMD  AREA  ♦ 

*  IN  DSBfcO  2ND  ♦ 
***************** 


I  NO 
***************** 

♦BLT  HLD  TO  PRM  * 

*  DSB  AREA    * 

*  0  THE     * 
***************** 


.***************** 

♦BLD  CMD  IN  PRIM* 

*  FRM  COMBUFRO  ♦ 

*  .INUSE  FLAG  ♦ 
***************** 


I 


I< 

•>I  CMDXPC 


/    PRIM  DSB 
/  CMD  A  POSITION 
/        CMD 

I  NO 


\YES 
\— 
\ 


***************** 

*   -1  TO  DSB 
•♦    .INUSE 


* 
* 


I   CMDXPS 

/ 

/ 
/ 

PRIM  CSB     \N0 

CMD  EMPTY     \- 

?         \ 

I  YES 

*  * 

***************** 

I 

*********** 

**CMDX1   *♦ 

*********** 


I 
*♦♦**♦♦♦****♦•*** 

♦  SET  CMD  IN   ♦ 

•  PRIM  CSB  AREA  • 

*  FOR  EXECUTION  * 
***************** 


***♦****•*♦ 

♦*CMDX1   ♦• 


YES   / 
/ 


2ND  CMD 
CSB  EMPTY 


I  NO 

I  CMDXSP 
***************** 

♦BLT  2ND  CSB  TO  ♦ 

•  PRIM  CSBiO   * 

♦  2ND  CSB  AREA  ♦ 
*»*♦♦*»♦♦***♦* -*♦ 

I 


J 

I 

>I  CMDXSS 

]  ***************** 

I  *SET  CSB  2ND  CMD* 

I  *  AREA  FOR  CMD  * 

*  PROCESSING   * 
***************** 

I 
*********** 

**CMDX1   ** 
*********** 

EXECUTE  THE  COMMAND 
DSB  AREA  POINTED  TO 


IN 
BY 


•AC 
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SEQ  0A02 


1226C 

12261 

12262 

12263 

1226A 

12265 

12266 

12267 

12268 

12269 

12270 

12271 

12272 

12273 

12274 

12275 

12276 

12277 

12278 

12279 

12280 

12281 

12282 

12283 

12284 

12285 

12286 

12287 

12288 

12289 

12290 

12291 

12292 

12293 

12294 

12295 

12296 

12297 

12298 

12299 

12300 

12301 

12302 

12303 

12304 

12305 

12306 

12307 

12308 

12309 

12310 

12311 

12312 

12313 


047557  201  06  0  11  000042 

047560  260  17  0  00  047564 

047561  336  00  0  00  077720 

047562  260  17  0  00  051642 

047563  254  00  0  00  047551 


047564 
047565 
047566 
047567 

047570 
047571 


047572 
0A7573 
047574 

04757S 
0A7576 
047577 

047600 
047601 
047602 
047603 
047604 
047605 
047606 


260  17  0  00  051521 
205  00  0  00  000001 
540  00  0  00  000006 
251  00  0  06  000004 
260  17  0  00  051573 
263  17  0  00  000000 


335  00  0  11  000035 
254  00  0  00  047607 
254  00  0  00  047452 


332  00 

254  00 
200  00 
202  00 
200  00 
2ui  00 
402  00 
402  00 
402  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


10 
00 
06 
10 
00 
10 
10 
10 
10 
00 


000014 
051155 
000000 
000014 
077547 
000013 
000010 
000011 
000012 
047626 


047607 
047610 
047611 
047ol2 
047613 
047614 
047615 
047616 
047617 
047620 
047621 
047622 
047623 
047624 
047625 


200  00 
316  00 
254  00 
332  00 
254  00 
20 ;  06 
260  17 
550  00 
306  00 
476  00 
254  00 
332  00 
254  00 

201  06 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


11 
00 
00 
11 
00 
11 
00 

11 

00 

11 

00 

11 

00 

11 

00 


000052 
077547 
047622 
000047 
047372 
000047 
047564 
000047 
111111 
000033 
051155 
000033 
051155 
000035 
047532 


;N0  COMMANDS  IN  DSB  AREA  AT  ALL...  GENERATE  A  COMMAND  FROM 
;KNOyN  INFORMATION  IN  COMBUF  ENTRY 


CMDXHE : 


RETQUE: 


MOVE  I 

AC,.PRIM(DSBP) 

GO 

RETQUE 

SKIPN 

RETFLG 

GO 

FILDSB 

JRST 

CMDXPC 

TO  RETRIEVE  STORED  CC 

GO 

GETQUE 

MO  VST 

ACl 

HRR 

AC 

BLT 

4(AC) 

GO 

SETCMD 

RTN 

POINT  TO  THE  PRIM  AREA 

GET  A  COMMAND  IN  ACl  TO  AC5  FROM  "SAVQ' 

DOING  A  RETRY? 

NO  -  FILL  THE  DSB  WITH  COMMANDS 

CHECK  THE  PRIM  CMD  FOR  POS.  CMD 

•SAVQ"  AREA 


.•RETRIEVE  THE  COMMAND 

;BUILD  A  BLT  WORD 

;SAVE  THE  CMD  IN  DRIVE  DSB  AREA 

.•UPDATE  THE  COMMAND  WORD  IN  "COMBUF 


.•HERE  TO  SEE  IF  THE  SECONDARY  DSB  COMMAND  HAS  BEEN  ISSUED 


CMDXSC:  SKIPGE   .:CNAD(DSBP) 
JRST    CMDXHC 
JRST    CMDXPS 


CMDXSS: 


SKIPE 

JRST 

MOVE 

MOVEM 

MOVE 

MOVEM 

SET2M 

SET2M 

SETZM 

JRST 


.SSCN(CSBP) 

HNGXCT 

(AC) 

.SSCN(CSBP) 

CMDXPT 

.SCMD(CSBP) 

.SBAR(CSBP) 

.STCR(CSBP) 

.SCLP(CSBP) 

CMDX1 


ISSUED  ALREADY? 

YES 

FILL  THE  CSB  AREA  NOW 

ANY  SPACE  HERE? 

NO  -  HANG 

GET  THE  1ST  COMMAND  WORD  IN  DSB 

SAVE  IT  IN  MBC  LIST 

GET  THE  COMQ  ADDRESS 

SAVE  THE  QUE  ADDRESS 

CLEAR  THE  BLK  ADDR  IN 

"   XFR  CONT  LOC  IN 

••   CHANNEL  LOC  IN 
PROCESS  THE  CMD 


CSB 
CSB 
CSB 


.•PRIMARY  AND  SECONDARY  COMMANDS  HAVE  BEEN  ISSUED 
.•CHECK  FOR  ANY  "HOLD"  COMMAND 


CMDXHC:  MOVE  AC0,.HLDQ*3(DSBP) 

CAMN  ACO, CMDXPT 

JRST  CMDHC1 

SKIPE  .HLDQ(DSBP) 

JRST  CMDSEl 

MOVEI  AC..HLDQ(DSBP) 

GO  RETQUE 

HRRZ  .HLDO(DSBP) 

CAIN  -1 

SETOM  .INUSE(DSBP) 

JRST  HNGXCT 

CMDHC1:  SKIPE  .INJSE(DSBP) 

JRST  HNGXCT 

MOVEI  AC..SCNAD(DS8P);P0INT 

JRST  CMDXSE 


TO 


POINT  TO  THE  HOLD  CMD 

IS  THE  CMD  IN  HOLD  AREA?? 

YES 

ANY  CMD  IN  HOLD? 

Y€S  -  SEQUENCE  ERROR?? 

SETUP  TO  GET  THE  CMD 

FETCH  CMD  FROM  SAVQ  AREA 

GET  THE  HOLD  COMMAND 

IS  IT  A  POSITION  CMD?? 

YES  -  SET  THE  GAG  FLAG 

AND  HANG 

DRIVE  GAGGED? 

YUP 

THE  2ND  AREA 

NO  -  CHECK  AGAIN 


'0 
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SEQ  0403 


CMDSE1 

*  PRINT  SEQUENCE    * 

♦  ERROR  MESSAGE    * 

I 

**FATM  *^' 

FATAL 
ERROR 


CMDXHC 


DS6 
HOLD  CMD 
EMPTY 


\N0 
\ 


I  YES 
******************* **«t 

*  BLD  A  HOLD  CMD  FROM  ♦ 

*  COMMAND  IN      ♦ 

*  "COMBUF"      * 

I 

♦♦HNGXCT  *♦ 
ft********** 
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SEQ  %0C> 


12315 

12316 

12317 

12318 

12319 

12320 

12321 

12322 

12323 

1232A 

12325 

12326 

12327 

12328 

12329 

12330 

12331 

12332 

12333 

12334 

12335 

12336 

12337 

12338 

12339 

123AO 

12341 

12342 

12343 

12344 

12345 

12346 

12347 

12348 

12349 

12350 

12351 

12352 

12353 

12354 

12355 

12356 

12357 

12358 


047626 
047627 
047630 
047631 
047632 
047633 
047634 
047635 


047636 

047637 

047640 

C-7641 

047642 

047643 

047644 

047645 

047646 

047647 

047650 

047651 

047652 

047653 

047654 

047655 

047656 

047657 

047660 

047661 

047662 

047663 

047664 

047665 

047666 

047667 

047o70 

047671 


202  06  0 
332  00  0 
254  00  0 
310  00  0 
201  01  0 
332  00  0 
435  01  0 
260  17  0 


205  01  0 
260  1 ^  0 


254  00 
254  00 


0 
0 


606  01  0 
254  00  0 
550  00  0 
550  00  1 


135  02 
302  02 
301 


0 
0 
0 
254  00  0 
200  01  0 
260  17  0 


02 


cy.  00 
254  00 
405  01 
554  00  0 
405  00  0 
312  00  0 
254  00  0 


205  01 
260  17 


254  00  0 
254  00  0 
405  01  0 
305  01  0 
254  00  0 


00  100021 
00  030037 
00  047736 
00  000000 
00  000044 
00  077722 
00  000400 
00  063522 


00  000010 
00  057135 
00  051214 
00  047636 
00  004000 
00  047336 
06  000003 
00  000000 
00  073074 
00  000005 
00  000007 
00  051062 
00  072065 
00  057135 
00  051214 
00  047652 
00  001777 
06  000004 
00  001777 
00  000001 
00  047672 
00  050000 
00  057135 
00  051214 
00  047663 
00  Ml??? 
00  010400 
00  047705 


•HERE  TO  PROCESS  THE  DRIVE  COMMAND  IM  THE  DSB  AREA  POINTED  TO  BY  "AC" 


CMDXI:  MOVEM  ACXCTADR 

SKIPE  USER 

JRST  CMDX1B 
r  AM 

MOVEI  AC1,ATTNEN!4 

SKIPE  RH2U 

lORI  AC1,MBE 

GO  .CONO 


SAVE  THE  DSB  ADDRESS  IN  USE 

IN  USER  MODE?? 

YES 

ENABLE  ATTENTION  i   CHN  4 

MBC  =  RH20?? 

YES  -  ADD  IN  THE  MASSBUS  ENABLE  BIT 

ENABLE  THE  MBC 


;TRY  TO  CAPTURE  THE  PORT  FOR  THE  SFLECTED  DRIVE 


CMDXB: 


MOVSI  AC1,CDRCR!1B14) 

60  DRRE6 

JRST  CMXNPC 

JRST  .-3 

TRNN  AChDVA 

JRST  CMDXDP 

HRRZ  3(AC) 

HRRZ  a 

LDB  AC2,rP0INT  6,aAC0,53 

CAIE  AC2,5 

CAIL  AC2,7 

JRST  CMDX4 

MOVE  AC1,CDRDCA] 

GO  DRREG 

JRST  CMXNPC 

JRST  .-3 

ANDI  AC1J777 

HLRZ  4(AC) 

ANDI  1777 

CAME  ACO^ACI 

JRST  CMDX81 

MOVSI  AC1,(DRDTS) 

GO  DRREG 

JRST  CMXNPC 

JRST  .-3 

ANDI  ACLRDAT 

CAIGE  AC1J0400 

JRST  CMDX1A 


READ  THE  DRIVE  CONTROL  REG 

BUT  DON'T  REPORT  RAE  FAILURE 

DRIVE  NOT  THERE? 

READ  ERROR  -  TRY  AGAIN 

IS  DEVICE  AVAILABLE  SET? 

NO  -  OTHER  PORT  HAS  THE  DRIVE 

PREPARE  TO  GET  THE  CMD  ff 

GET  THE  CMD  CODE  M 

DOING  A  RECAL? 

OR  A  CMD  THAT  HAS  TO  LOAD  CYL? 

SKIP  CODE  TO  EXECUTE  THE  CMD 

YES  -  SETUP  TO  READ  THE  DESIRED  CYLINDER  # 

READ  THE  DRIVES*  REGISTER 

FATAL  -  DRIVE  NOT  THERE?? 

READ  ERROR  -  TRY  AGAIN 

SAVE  JUST  THE  CYL  DATA 

GET  THE  SELECTED  CYL  FROM  COMMAND 

SAME  SELECTED  CYL  AS  ACTUAL? 

NO  -  LOAD  THE  DRDCA  REGISTER 

YES  -  READ  THE  TRACK/SECTOR  REG 

TO  SEE  IF  MIGHT  OVER  FLOW 

NO  RESPONSE  FROM  DRIVE?? 

READ  ERROR  -  THY  AGAIN 

STRIP  REG  DATA 

NEAR  END  OF  CYLINDER? 

NO  -  DON'T  HAVE  TO  LOAD  cRDCA  REG 
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SEQ  0405 


12359 

12360 

12361 

12362 

12363 

12364 

12365 

12366 

12367 

12368 

12369 

12370 

12371 

12372 

12373 

12374 

12375 

12376 

12377 

12378 

12379 

12380 

12381 

12382 

12383 

12384 

12385 

12386 

12387 

12388 

12389 

12390 

12391 

12392 

12393 

12394 

12395 

12396 

12397 

12393 

12399 

12400 

12401 

12402 

12403 


047672 
047673 
047674 
047675 
047676 
047677 
047700 
047701 
047702 
047703 
047704 


205  01 
260  17 
254  00 
254  00 
606  01 
254  00 
205  01 
544  01 
620  01 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
06 
00 
00 
00 


010000 
057135 
051214 
047672 
000200 
051155 
120000 
000004 
776000 
063147 
047700 


047705 
0477r,S 
04770/' 
047710 
04 771 1 
047712 
047713 
047714 
04771 5 
047716 
047717 
047720 

047721 
047722 
047723 
047724 
0/-7725 
047726 
047727 
047730 
047731 
047732 
047733 
047/34 
047735 


550  00 
302  00 
254  00 
336  00 
254  00 
200  01 
260  17 
254  00 
254  00 
405  01 
316  01 
254  00 

200  01 
260  17 
254  00 
254  00 
606  01 
254  00 
200  01 
200  00 
603  00 
435  01 
434  01 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


06 
00 
00 
06 
00 
00 
00 
00 
00 
00 
06 
00 

00 
00 
00 
00 
00 
00 
00 
13 
00 
00 
06 


0  00 
0  00 


000000 
111117 

047736 
000001 
047736 
073075 
057135 
051214 
047712 
000777 
000001 
047736 

072042 
057135 
051214 
047721 
000200 
051155 
073075 
100747 
020000 
010000 
000001 
063147 
047727 


;HERE  TO  LOAD  THE  DRIVE  DESIRED  CYL  # 

CMDXB1:  MOVSI  AC1,(DRSR) 

GO  DRRE6 

JRST  CMXNPC 

JRST  CMDXBl 

TRNN  ACUDRY 

JRST  HN6XCT 

MOVSI  AC1,(DRDCA) 

HLR  AC1,4(AC) 

TRZ  ACl, 776000 

GO  LDRE6 

JRST  .-4 


READ  THE  DRIVE'S  STATUS  REGISTER 

DRIVE  IS  NOT  THERE?? 

ERROR  DETECTED  -  TRY  AGAIN 

IS  THE  DRIVE  READY  TO  DO  A  CMD? 

NO  -  HANG  THE  EXECTUTE 

GET  THE  DESIRED  CYLINDER  ADDRESS 
STRIP  JUNK  DATA 

LOAD  THE  DRIVE'S  CYLINDER  REGISTER 
ERROR  DETECTED  -  TRY  AGAIN 


.•OPERATION  TO  BE  ISSUED  TO  THE  SAME  CYLINDER 
) CHECK  FOR  ANY  OFFSET  REGISTER  MODIFICATION 


CM 


DX1A 


CMDXC: 


HRRZ  (AC) 

CAIE  -1 

JRST  CMDXIB 

SKIPN  KAC) 

JRST  CMDXIB 

MOVE  AC1,CDR0FF] 

GO  DRREG 

JRST  CMXNPC 

JRST  .-3 

ANDI  AH, 777 

CAMN  AC  I  J (AC) 

JRST  CMDXIB 

MOVE  ACKCDRSR] 

GO  DRREG 

JRST  CMXNPC 

JRST  .-3 

TRNN  AC 1, DRY 

JRST  HNGXCT 

MOVE  ACUCDROFF] 

MOVE  DSBTBL (DRIVE) 

TLNE  (.F11) 

lORI  AC1,FMT22 

lOR  ACIJ(AC) 

GO  LDREG 

JRST  .-6 


GET  THE  ^ST  WORD  OF  CMD 

FORCED  POSITION  CMD?? 

NO 

YES  -  NEED  TO  OFFSET?? 

NO 

YES  -  PREPARE  TO  READ  THE  OFFSET 

READ  DRIVES'  OFFSET  REGISTER 

EXIT  -  DRIVE  NOT  THERE?? 

SAVE  ONLY  OFFSET  DATA 
SAME  OFFSET  VALUE  DESIRED 
YES  -  PROCEED 


READ  DRIVE  STATUS  REGISTER 
EXIT  -  DRIVE  NOT  THERE?? 

CAN  DRIVE  ACCEPT  A  COMMAND? 

NO  -  HANG  EXECUTE  NOW 

YES  -  PREPARE  TO  LOAD  OFFSET 

GEl  THE  TABLE  STATUS 

IN  11  FORMAT? 

YES  -  SET  THE  11  FORMAT  BIT 

OR  IN  OFFSET  VALUE 

LOAD  THE  DRIVES'  OFFSET  REGISTER 

ERROR  -  TRY  AGAIN 


REG 


i  ■ 
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SEQ  0A06 


**CMDX1      ** 

I 

/"         CMD  TO  \N0 

/     SAME   CYL  AS   IN       \-' 
/  DCC  REG?  \ 


I     CMDXB 


DRIVE 
BUSY  NOW 


\YES 
\— • 
\ 


-**HNGXCT  •* 


I  NO 


I 

I 

I 

I 

I 

I 

I 

I< 

I 

I 


YES 


*  CYL  FRM  DSB  DSK       * 

*  ADDR->DCA  REG         * 

*  (LOAD  DCA  IN  DSK)      * 


I 


NO 


LOAD 
ERROR 


\YES 
\— 
\ 


CMDX1A 


CMD  DESIRES       \N0 
SAME  OFFSET         \- 
?  \ 


I   YES 

I 

I 

I 

I 

I 

I 

T 
i 

I 

T 
1 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

1 

I< 

I 

**CMDX1B  *♦ 


I     CMDXC 


DRIVE 

BUSY 

NOW? 


\YES 
\— 
\ 


•**HNGXCT  ** 


I   NO   . 

I< 

*FMT22  BIT->AC1    * 

*  11   FORMAT       * 

*  WANTED  * 
*♦•*•*•••♦*•••••* 

I 

*ADD  TO  AC1    THE  * 
♦OFFSET  VALUE   IN* 

*  MICROINCHES     * 


I 

***************** 

•  • 

•LOAD  DROFF  REG  * 

•  *  I. 
*♦<••••**  ********* 

I 

/  LOAD  \YES 

ERROR  \— 

?  \ 
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SEQ  0407 


12405 

12406 

12407 

12408 

12409 

12410 

12A11 

12412 

12413 

12414 

12415 

12416 

12417 

12418 

12419 

12420 

12421 

12422 

12423 

12424 

12425 

12426 

12427 

12428 

12429 

12430 

12431 

12432 

12433 

12434 

12435 

12436 

12437 

12438 

12439 

12440 

12441 

12442 


047736 
047737 
047740 
047741 
047742 
047743 

047744 
047745 
047746 
047747 
047750 
047751 
047752 
047753 
047754 
047755 
047756 
047757 

047760 
047761 
047762 
047763 
047764 
047765 
047766 
047767 
047770 
047771 

047772 
047773 
047774 


550  00 
306  00 
254  00 
550  00 
550  00 
135  02 

305  02 
254  00 
200  00 
607  00 
254  00 
037  04 

200  00 
037  02 
037  04 
260  17 
260  17 
254  00 

332  00 

254  00 

336  00 

254  00 

201  01 
332  00 
201  01 
2oJ  17 
254  00 
254  00 


0  06  000000 

0  00  mill 

0  00  051062 

0  06  000003 

1  00  000000 
0  00  073074 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
13 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000002 
047760 
100747 
006000 
047760 
073075 
000013 
000001 
073106 
044454 
053151 
050322 

030037 
050026 
077722 
047772 
000100 
077653 
000020 
063544 
051155 
047775 


201  01  0  00  000020 
260  17  0  00  063544 
254  00  0  00  051155 


;SEE  WHAT  TYPE  OF  COMMAND  TO  BE  EXECUTED 


CMDX1B:  HRRZ 
CAIN 
JRST 
HRRZ 
HRRZ 
LDB 

CX1BCK:  CAI6E 
JRST 
MOVE 
TLNN 
JRST 
PMS6F 
MOVE 
PNT2F 
PMS6F 
GO 
GO 
JRST 

CMDXIC:  SKIPE 
JRST 
SKIPN 
JRST 
MOVE  I 
SKIPE 
MOVE  I 
GO 

JRST 
JRST 

CMDXID:  MOVEI 
GO 
JRST 


(AC) 

-1 

CMDX4 

3(AC; 

a 

AC2, [POINT  6,aAC0,5] 


;GET  THE  CMD 

.•POSITION  CMD?? 

;YUP 

; SETUP  ACO  WITH  COMBUF  ADDRESS 

;GET  THE  COMMAND  CODE  » 


K2.2 

CMDX1C 

DSBTBL(uKIVE) 

(.WRTL.'.SWRTL) 

CMDXIC 

<^?  CAN'T  ISSUE 

DRIVE 

<-  IT  IS  WRITE-! 
RUNTIM 
TELTST 
UCMDEX 

USER 

CMDX3 

RH20 

CMDXID 

ACUSCRFUL 

NOBAK 

AC1,PCRFUL 

.CONSZ 

HN6XCT 

CMDXIE 

AC1,BUSY 

.CONSZ 

HNGXCT 


;CMD  A  WRITE  CMD?? 

;N0  -  SKIP  CODE 

;YES  -  GET  THE  STATUS  BITS 

.•WRITE  LOCKED?? 

;N0  -  PROCEED 
A  "write''  command  to  DRIVE  #> 

.-GET  THE  DRIVE  ft 

; PRINT  IT 
,OCKED!*> 

; PRINT  THE  RUN  TIME 

.•PRINT  THE  TEST  NAME 

;AND  EXIT 

;IN  USER  MODE?? 
;YES  -  JUMP  AROUND  CODE 
;N0  -  IS  MBC  AN  RH20? 
rNOPE.  ITS  AN  RHIO 

.•BACKUP  COMMANDS?? 

;N0 

;RH20  BUSY? 

;YES  -  HANG  THE  EXECUTE 


;RH10  BUSY? 
;YES  -  HANG 


THE  EXECUTE 
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SEQ  0408 


CMDX1B 


/ 
/ 

/ 

P05 
CMD 

\YES 

-**CMDX4     ** 

I   NO 

I     CMDXK 

* 

"\YES 

/ 

/ 

/ 

THIS  MBC 
BUSY 

9 

• 

\ 

I              lilfkltlcklfkiftlt 

I   NO 

\YES 
\— — 

I >t*HN6XCT  ** 

1              fklckttlckifkt 

/ 
/ 
/ 

AT  SIMULTAN 
MBC  CMD  LIMIT 

• 

\ 

I   NO 
**CMDX2     ** 
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SEQ  0A09 


12AAA 

124A5 

12AA6 

12AA7 

12AA8 

12AA9 

12A50 

12A51 

12A52 

12A53 

12A5A 

12A55 

12A56 

12A57 

12A58 

12A59 

12A60 

12A61 

12A62 

12A63 

12A6A 

12A65 

12A66 

12A67 

12A68 

12469 

12A70 

12471 

12472 

12473 

12474 

12475 

12476 

12477 

12478 

12479 

12480 

12481 

12482 

12483 

12484 

12485 

12486 

12487 

12488 

12489 

12490 


047775 
047776 
047777 
050000 
050001 
050002 
050003 
05000A 
050005 
050006 
050007 
050010 
050011 


050012 
050013 
05001 A 


05001 5 
050016 
050017 
050020 
050021 
050022 
050023 
050024 
050025 


050026 
050027 
050030 
050031 
050032 
050033 
050034 
050035 
050036 


200 
402 
335 
350 
367 
315 
254 
200 
316 
260 
316 
260 
254 


15 
00 
00 
00 
15 
03 
00 
03 
03 
17 
03 
17 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
15 
00 
00 
00 
00 
00 
10 
00 
10 
00 
00 


100670 
000003 
101047 
000003 
047777 
101160 
050012 
077547 
000006 
056735 
00001 3 
056744 
051155 


200  01  0  00  100667 
260  17  0  00  063544 
254  00  0  00  051227 


200  01 
260  17 
310  00 
254  00 
60?  01 
ly  00 
200  00 
621  00 
202  00 


554  00 
272  00 
307  02 
272  00 
301  02 
272  00 
336  00 
254  00 
254  00 


00 
00 
00 
00 
00 
00 
13 
00 
13 


0720A2 
057135 
000000 
050015 
OAOOOO 
0512A7 
1007A7 
000060 
1007A7 


06 
11 
00 
11 
00 
11 
00 
00 
0  00 


000001 
000144 
000001 
000145 
000002 
000146 
030037 
050711 
050053 


; CHECK  TO  SEE  IF  THIS  MBC  CAN  BE  USED 


CMDX1E:  MOVE 
SETZM 
SKIPGE 
AOS 

REPTLP 
CAMGE 
JRST 
MOVE 
CAMN 
GO 

CAMN 
GO 
JRST 


REPT,RHMAX 

AC3 

CSBTBL(REPT) 

AC3 

.-2 

AC3,MBCLIM 

CMDX2 

AC3,CMDXPT 

AC3,.PCMD(CSBP) 

CPRIM 

AC3-.SCMD(CSBP) 

CLR2ND 

HNGXCT 


SETUP  LOOP  COUNTER  TO  LOOK  FOR  BUSY 

CONTROLLERS 

THIS  MBC  BUSY? 

YES  -  COUNT  IT 

LOOP  TILL  DONE 

SYSTEM  GAGGED  YET? 

NO  CONTINUE 

GET  COMQ  PTR 

STORED  IN  PRIM  AREA 

YES  DELETE  IT 

STORED  IN  SECONDARY  AREA 

YES  DELETE  IT 

YES  -  HANG  THE  EXECUTE  COMMAND 


;DOES  THE  CONTROLLER  HAVE  AN  ERROR  PRESENT? 


CMDX2:  MOVE 
GO 
JRST 


ACURHERR 

.CONSZ 

CMDXE1 


;THIS  MBC  HAVE  ERROR? 
;YES  -  REPORT  PROBLEM 


.-CHECK  FOR  DRIVE  ERROR 

CMDX2A:  MOVE  ACKCDRSR] 

GO  DRREG 
CAM 

JRST  CMDX2A 

TRNE  ACUCERR 

JRST  CMDXE2 

MOVE  DSBTBL (DRIVE) 

TLZ  (. POSER!. XFRER) 

MOVEM  DSBTBL (DRIVE) 

; UPDATE  TRANSFER  TOTALS 

CMDX3:  HLRZ  KAC) 

ADDM  .WDXFR(DSBP) 

CAIG  AC2J 

ADDM  .WDRD(DSBP) 

CAIL  AC2,2 

ADDM  .WDWRT(DSBP) 

SKIPN  USER 

JRST  CMDX3A 

JRST  UCMDX3 


;READ  DRIVE  STATUS  REGISTER 


ANY  COMPOSITE  DRIVE  ERROR? 

YES  -  REPORT  ERROR  FOUND 

GET  DRIVE  STATUS  FROM  TABLE 

CLEAR  ERROR  STATUS  BITS  FROM  DRIVE 

SAVE  CORRECTED  STATUS  OF  DRIVE 


GET  TIE  TRANSFER  SIZE 

UPDATc  TOTAL  WORDS  TRANSFERRED 

IS  IT  A  READ  TRANSFER 

YES  -  UPDATE  OTALS  WORDS  READ 

IS  IT  A  WRITt 

Y5S  -  MDH/^'-c  ^TAL  WORDS  WRITTEN 

IN  USER   Dt: 

NOPE  -  jURT  OPERATION  IN  EXEC  MODE 

YES 


DORPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
COMMAND  EXECUTOR  -  CMDXCT 


DECFLO  VER  00.12  12-APR-78  08:44  PAGE  34 


SEQ  0410 


**CMDX2  ** 
I 


/ 

THIS  MBC     \YES 

/ 

/ 

HAVE  ERROR     \ 

?         \ 

I  NO 

I  CMDX2A 

/ 
/ 
/ 

THIS  DRIVE    WES 
HAVE  ERROR     \ — 
?         \ 

EXECUTE  A 
DATA  TRANSFER 
COMMAND 


I  NO 

♦♦♦•♦♦♦♦**♦♦*♦•*•**•♦•* 

♦  CLR  ERROR  STATUS   * 
♦BITS  IN  DRIVERS'  DSB  * 

♦  TABLE  AREA     * 

I     CMDX3 
♦♦♦♦♦♦♦••**♦••*♦*♦♦•*•• 

♦  UPDATE  TRANSFER   * 

♦  TOTALS  IN  DRIVERS*   ♦ 

♦  DSB  TABLE      ♦ 


I 

I  CMDX3A 


IS  MBC 
AN  RH10 

9 


WES 
\ 


I 

I  NO        I 
I     CMDX3B  I 

•  LOAD  DISK  ADDRESS  *  - 

*  INTO  CONTROLLER   * 

♦  SBAR  REGISTER    ♦ 


I  CMDXE2 

*  PRINT  DRIVE  *  . 

*  ERROR  HEADER  * 

*  MESSAGE    * 

I 
******••**•**•***••♦•** 

*  PRI  C(DERI),  PRI   * 

*  C(DER2)  PRI  C(DER3)  * 
•PRI  DRV  STAT  CLR  DRV  * 

I 

♦••*•♦♦**•• 

**CMDX2A  •♦ 

•LOAD  DSK  /'DDRESS  FRM  * 
■>*DSV  COMMAND  AREA  INTO* 

*  DSK     DTS  REGISTER     * 


I  CMDXE1 

♦**••••••••••••*• 

*  PRINT  MBC   * 

*  ERROR  READER  * 

*  MESSAGE    * 

I 

•**•••••*••••••*••••*•• 

•PRINT  MBC  CONI  PRINT  • 

•  PGM  RUNTIM  PRI  TEST  • 

•  EXECUTE  CLR  MBC   • 
**•••••••••••••*•••*•*• 

I 

•••••**••*• 

••CMDX2  •• 


I 


YES   / 
/ 


LOAD 
ERROR 


\ 


I  NO 


I< 

I     CMDX3C 

•  LOAD  DATA  TRANSFER  • 

•  COMMAND  INTO  MBC   • 

•  AND  START  OPERATION  • 

I 
••CMDXEX  *♦ 
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SEQ  0411 


12A92 
12A93 
12A94 
12A95 
12A96 
12A97 
12A98 
12A99 
12500 
12501 
12502 
12503 
1250A 
12505 
12506 
12507 
12508 
12509 


;*DSEL  -  ROUTINE  TO  DESELECT  A  DRIVE  THAT  HAS  GONE  OFF-LINE 
;*      OR  A  CBTO  ERROR  WAS  DETECTED. 


050037 
050040 
050041 
050042 
050043 
050044 
050045 
050046 
050047 
050050 
050051 
050052 


260 
260 
200 
316 
260 
316 
260 
037 
260 
037 
037 
263 


17 
17 
00 
00 
17 
00 
17 
02 
17 
02 
02 
17 


00 
00 
00 
10 
00 
10 
00 
00 
00 
00 
00 
00 


053015 
056577 
077547 
000006 
056735 
000013 
056744 
073112 
054607 
073116 
073126 
000000 


DSEL: 


60 

60 

MOVE 

CAMN 

60 

CAMN 

60 

PMS6 

60 

PMS6 

PMS6 

RTN 


lOTERM 

CLRALL 

CMDXPT 

.PCMD(CSBp; 

CPRIM 

.SCMD(CSBP) 

CLR2ND 


;TERM  ALL  10 

; CLEAR  ALL  PENDING  CMDS 

;6ET  XCT  POINTER 

;CMD  IN  PRIM  AREA 

;YES  CLEAR  IT 

;CMD  IN  SECONDARY 

;YES  CLEAR  IT 


PNTDRV 

<  HAS  60NE  OFr-LINE  OR  CBTO  ERROR  DETECTED  *> 

<  THIS  DRIVE  WILL  BE  DESELECTED  FROM  TEST  ***> 
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SEQ  0412 


12510 

12511 

12512 

12513 

12514 

12515 

12516 

12517 

12518 

12519 

12520 

12521 

12522 

12523 

12524 

12525 

12526 

12527 

12528 

12529 

12530 

12531 

12532 

12533 

12534 

12535 


•Here  to  start  user  mode  read/write  operation 

;  using  the  SUSET  and  monitor  dump  mode  data  transfers  on  TOPS-10 

;  using  DSKOP  JSYS  on  TOPS-20 

•/^•♦•*?****************************************** ************************* 


050053 
050054 


050055 
050056 
050057 
050060 
050061 
050062 
050063 
050064 
050065 
050066 
050067 
050070 
050071 
050072 


332  00  0  00  030516 
254  00  0  00  050167 


UCMDX3:  SKIPE   MONTYP 
JRST    UCMD20 

.•Construct  TOPS-10  dump  mode  10  list 


200  10 
554  00 
213  00 
507  00 
540  00 
370  00 
202  00 
402  00 
200  00 
621  00 
260  17 
202  00 
301  02 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


11 
06 
00 
00 
06 
00 
00 
00 
06 
00 
00 
00 
00 
00 


000353 
000001 
000000 
000000 
000001 
000000 
100051 
100052 
000004 
400000 
045573 
100011 
000002 
050131 


MOVE 

HLRZ 

MOVNS 

HRLS 

HRR 

SOS 

MOVEM 

SETZM 

MOVE 

TLZ 

GO 

MOVEM 

CAIL 

JRST 


CSBP,.DSBEND(DSBP) 
KAC) 


KAC) 

lOBLK 

IOBLK+1 

4(AC) 

(1B0) 

LOGBLK 

UBLK* 

AC2.2 

UCMDWT 


;  TOPS-20  rCNITOR?? 
;YES  -  DO  TOPS-20  I/O 


; SETUP  TO  LOOK  INTO  UDB 

;GET  THE  XFR  SIZE 

.•NEGATE 

.-PUT  IT  IN  THE  LEFT  SIDE 

;GET  THE  ADDR 

;FIX  FOR  THE  MONITOR  OPERATION 

.•SAVE  IT  FOR  USER  10  COMMAND 

;GET  THE  DISK  ADDRESS 

; CLEAR  THE  DSK  ADDR  INDICATOR 

;CALC  THE  LOGICAL  BLOCK  NUMBER 

;SAVE  THE  LOGICAL  BLOCK  NUMBER 

;READ  COMMAND? 

;NOPE  -  MUST  BE  A  WRITE  COMMAND 
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SEQ  0415 


12536 

12537 

12538 

12539 

12540 

12541 

12542 

12543 

12544 

12545 

12546 

12547 

12548 

12549 

12550 

12551 

12552 

12553 

12554 

12555 

12556 

12557 

12558 

12559 

12560 

12561 

12562 

12563 

12564 

12565 

12566 

12567 

12568 

12569 

12570 

12571 

12572 

12573 

12574 

12575 

12576 


050073 
050074 
050075 
050076 
050077 
050100 
050101 
050102 
050103 
050104 
050105 
050106 
050107 
050110 

050111 

050112 

050113 
050114 

0501 IS 
050116 
050117 
050120 
050121 

050122 
C50123 
050124 

05C125 

050126 

050127 
050130 


200  00 
620  00 
306  02 

660  00 
202  00 
200  00 
202  00 
050  01 
254  00 
200  00 

661  00 
260  1 7 
047  00 
254  00 


00 
00 
00 
00 
00 
11 
00 


0  00 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


100043 
000100 
000001 
000100 
100043 
000022 
1 00044 
100043 
050400 
100011 
000040 
050340 
000146 
050402 


254  00  0  00  073136 

254  00  0  00  073142 

254  00  0  00  073146 
202  00  0  00  077642 

254  00  0  00  073152 
202  00  0  00  077643 
056  01  0  00  100051 
254  00  0  00  050122 
254  00  0  00  050420 

254  00  0  00  073156 
312  00  0  00  077643 
254  00  0  00  050420 

254  00  0  00  073162 

254  00  0  00  073166 

254  00  0  00  073172 
254  00  0  00  050312 


;Here  for  TOPS-10  read  commands 


UCMDRD:  MOVE 
TRZ 
CAIN 
TRO 
MOVEM 
MOVE 
MOVEM 
OPEN 
JRST 
MOVE 
TLO 
60 

SUSET. 
JRST 


UCRD1 : 


GETMUD 
GETMUD 


PAKNAM 

100 

AC2J 

100 

PAKNAM 

.DNAME(DSBP) 

PAKNAM^ 1 

1, PAKNAM 

UCHER 

U6LK 

(1B12) 

MCYLCK 

ACO, 

USETR 

<MOVE  UNIBRC(CSBP)> 
<ADD  UNIDRC(CSBP)> 


GETMWD  <ADD  UNIMRC(CSBP)> 

MOVEM  MONCT/Jf 

GETMWD  <MOVE  UNISCT(CSBP)> 

MOVEM  MONECT* 

IN  1J08LK 

JRST  .+2 

JRST  URDER 

GETMWD  <MOVE  UNISCT(CSBP)> 

CAME  MONECT 

JRST  URDER 

GETMWD  <MOVE  UNIBRC(CSBP)> 

GETMWD  <ADD  UNIDRC(CSBP)> 

GETMWD  <ADD  UNIMRC(CSBP)> 

JRST  USRSLP 


;GET  THE  OPEN  WORD 

.-CLEAR  THE  HEADERS/DATA  BIT 

;WANT  TO  READ  HEADERS/DATA?? 

;YES 

;SAVE  UPDATED  WORD 

;GET  UNIT  NAME 

•SAVE  IT 

•OPEN  A  CHANNEL  FOR  DATA  TRANSFER 

;OPEN  FAILURE 

;GET  THE  BLOCK  NUMBER 

;6ET  THE  SOFTWARE  CHANNEL  * 

;SEE  IF  ADR  IN  MAIN  CYL  AREA 

; SETUP  FOR  MONITOR 

; FAILED  -  FIND  WHY 

;GET  BUFFERED  READ  COUNT 
•;ADD  IN  THE  DUMP  READ  COUNT 

*;ADD  IN  THE  MONITOR  READ  COUNT 

;SAVE  THE  NUMBER 

\^GET  THE  DRIVE  (MON)  SOFT  ERROR  COUNT 

;SAVE  THE  SOFT  ERROR  COUNT 

;READ 

; NORMAL  EXIT 

;READ  ERROR  DETECTED  BY  MONITOR 

*;GET  THE  SOFT  ERROR  COUNT  AGAIN 

;DID  IT  CHANGE?? 

;YUP 

*;GET  BUFFERED  READ  COUNT  AGAIN 

*;ADD  IN  THE  DUMP  READ  COUNT 

*;AND  THE  MONITOR  READ  COUNT 

.-Sleep  if  needed 
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MACRO  X53B(12A2)  15:51  28-Aug-85  Page  1A2 


SEQ  0^^^ 


12577 

12578 

12579 

12580 

12581 

12582 

12583 

1258A 

12585 

12586 

12587 

12588 

12589 

12590 

12591 

12592 

12593 

1259A 

12595 

12596 

12597 

12598 

12599 

12600 

12601 

12602 

12603 

1260A 

12605 

12606 

12607 

12608 

12609 

12610 

12611 

12612 

12613 

1261A 

12615 

12616 

12617 

12618 


050131 
050132 
050133 
0501 3A 
050135 
^501 36 
050137 
05OU0 
0501A1 
05OU2 
050143 
050UA 
05OU5 
050U6 

05OU7 
050U7 


200  00 
620  00 
302  02 

660  00 
202  00 
200  00 
202  00 
050  01 
254  00 
200  00 

661  00 
260  17 
047  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 

11 

00 
00 
00 
00 
00 
00 
00 
00 


100043 
000100 
000002 
000100 
100043 
000022 
100044 
100043 
050400 
100011 
200040 
050340 
000146 
050406 


254  00  0  00  073176 

050150  254  00  0  00  073202 

050151  254  00  0  00  073206 

050152  202  00  0  00  077642 

050153  254  00  0  00  073212 

050154  202  00  0  00  077643 

050155  057  01  0  00  100051 

050156  254  00  0  00  050160 

050157  2d     00  0  00  050414 

050160  25'.  00  0  00  073216 

050161  312  00  0  00  077643 

050162  254  00  0  00  050414 

050163  254  00  0  00  073222 

050164  254  00  0  00  073226 

050165  254  00  0  00  073232 

050166  254  00  0  00  050312 


;Here  for  TOPS-10  write  commands 


UCMDWT:  MOVE 
TRZ 
CAIE 
TRO 
MOVEM 
MOVE 
MOVEM 
OPEN 
JRST 
MOVE 
TLO 
GO 

SUSET. 
JRST 


UCWT1 


GETMWD 

GETMWD 

GETMWD 

MOVEM 
GETMWD 

MOVEM 

OUT 

JRST 

JRST 

GETMWD 

CAME 
JRST 
GETMWD 

GETMWD 

GETMWD 

JRST 


PAKNAM 

100 

AC2,2 

100 

PAKNAM 

.DNAME(DSBP) 

PAKNAM+1 

KPAKNAM 

UCHER 

UBLK 

(181J1B12) 

MCYLCK 

ACO, 

USETW 

<MOVE  UNIBWC(CSBP)> 

<ADD  UNIDWC(CSBP)> 

<ADD  UNIMWC(CSBP)> 

MONCT 

<MOVE  UNISCT(CSBP)> 

MONECT 
1J0BL< 

UWRTER 

<MOVE  UNISCT(CSBP)> 

MONECT 
UWRTER 
<MOVE  UNIBWC(CSBP)> 

<ADD  UNIDWC(CSBP)> 

<ADD  UNIMWC(CSBP)> 

USRSLP 


GET  THE  OPEN  ARGUMENT 

CLEAR  THE  FORMAT  BIT 

FORMATTING?? 

YES  -  SET  THE  FORMAT  BIT 

SAVE  THE  UPDATED  WORD 

GET  THE  UNIT  NAME 

SAVE  IT 

OPEN  THE  DATA  CHANNEL 

OPEN  FAILURE 

GET  THE  BLOCK  NUMBER 

SET  OUTPUT  BIT  AND  CHN  # 

SEE  IF  IN  MAINT  CYL  AREA 

SETUP  FOR  I/O 

SUSET  FAILED 


*;GET  THE  BUFFERED  WRITE  COUNT 

*;ADD  IN  THE  DUMP  WRITE  COUNT 

*;AND  THE  MONITOR  WRITE  COUNT 

•SAVE  IT 

^;GET  THE  SOFT  ERROR  COUNT 


SAVE  IT 

WRITE  TO  THE  DRIVE 
NORMAL  EXIT 

WRITE  ERROR  DETECTED  BY  MONITOR 
*^;GET  THE  SOFT  ERROR  COUNT  AGAIN 


;DID  IT  CHANGE?? 

•YUP' ' 

^;YES  -  GET  BUFFERED  WRITE  COUNT 

*;ADD  IN  THE  DUMP  WRITE  COUNT 

'^.-AND  THE  MONITOR  WRITE  COUNT 

;6o  to  sleep  if  needed 


I 
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SEQ  0415 


12619 

12620 

12621 

12622 

12623 

12624 

12625 

12626 

12627 

12628 

12629 

12630 

12631 

12632 

12633 

12634 

12635 

12636 

12637 

12638 

12639 

12640 

12641 

12642 

12643 

12644 

12645 

12646 

12647 

12648 

12649 

12650 

12651 

12652 

12653 

12654 

12655 

12656 

12657 


050167  202  02  0  00  077543 


050170 
050171 
050172 
050173 
050174 
050175 
050176 
050177 
050200 
050201 
050202 
050203 
050204 
050205 


050206 
05020^ 


050210 
050211 


050212 
050213 
050214 
050215 


200  01 
260  17 
242  01 
200  00 
405  00 
242  00 
272  00 
200  00 
621  00 
260  17 
661  00 
in  00 
202  01 
202  01 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
06 
00 
00 
00 
00 
00 
00 


000012 
063665 
000035 
00001 3 
000007 
000027 
000001 
000004 
400000 
045573 
200000 
000001 
000005 
100011 


550  03  0  06  000001 
554  02  0  06  000001 


2oJ  17  0  00  050223 
326  01  0  00  050216 


201  01  0  00  001750 
332  00  0  00  077756 
104  00  0  00  000167 
254  00  0  00  050322 


;Here  to  execute  TOPS-20  type  I/O 

UCMD20:  MOVEM   AC2,CMC0DE#  ;YES  SAVE  COMMAND  CODE 

;Get  channel/unit  and  logical  block  number  installed  into  ACI 


MOVi 

GO 

LSH 

HOVE 

AND  I 

LSH 

ADDM 

MOVE 

TLZ 

GO 

TLO 

ADDM 

MOVEM 

MOVEM 


AC1,MBCN 

CHNSEL 

ACK*D29 

ACO, DRIVE 

AC0,7 

AC0,*D23 

ACO.ACI 

AC0,4(AC) 

AC0,(1B0) 

L068LK 

AC0,(1B1) 

AC0,AC1 

AC1,AC5 

AC1,UBLK 


GET  DEV  CODE 

CONVERT  TO  CHAN  n 

POSITION  PROPERLY 

GET  DRIVE  n 

MAKE  IT  SINGLE  DIGIT 

POSITION  IT 

COMBINE  CHAN  I   DRIVE  n 

GET  DISK  ADDR 

CLEAR  THE  INDICATOR 

CONVERT  TO  LOGICAL  BLK  n 

SPECIFY  PHYSICAL  /.DDR  MODE 

ADD  IN  THE  DESIRED  BLK  n 

SAVE  FOR  RETRY  (IF  NEEDED) 

AND  AGAIN 


;Get  the  data  transfer  size  and  address  to  store  the  data  and  do  the  I/O 


HRRZ 
HLR2 


AC3,1(AC) 
AC2J(AC) 


;1ST  GET  THE  EUfFER  ADDR 
;THEN  GET  THE  XFR  SIZE 


.-Here  to  do  the  I/O.  Reentered  at  U2RET  to  retry  the  operation  if  it 
.•failed  and  we  are  not  letting  the  monitor  handle  recovery. 


U2RET:  GO      DSKIO 

JUMPN   AC1,U2RDER 


;Do  the  operation 
;Jump  if  a  punt 


;It  worked,  sleep  if  needed,  then  exit  OK. 


MOVEI  AC1,*D1000 

SKIPE  SLEPON 

DISMSX 

JRST  UCMDEX 


Load  one  second 
Skip  if  not  sleeping 
III.,, 
EXIT 
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SEQ  0416 


12658 

12659 

12660 

12661 

12662 

12663 

12664 

12665 

12666 

12667 

12668 

12669 

12670 

12671 

12672 

12673 

12674 

12675 

12676 

12677 

12678 

12679 

12680 

12681 

12682 

12683 

12684 

12685 

12686 

12687 

12688 

12689 

12690 

12691 

12692 

12693 

12694 

12695 

12696 

12697 

12698 

12699 

12700 

12701 

12702 

12703 


050216 
050217 
050220 
050221 
050222 


050223 
050224 
050225 
050226 
050227 
050230 
050231 
050232 
050233 
050234 
050235 
050236 
050237 
050240 
050241 


050242 
050243 
050244 

050245 
050246 
050247 
050250 
050251 
050252 
050253 
050254 
050255 
050^56 
050257 
050260 
050261 


200  01  0  00  000005 
202  01  0  00  100011 
603  02  0  00  000010 
254  00  0  00  050414 
254  00  0  00  050420 


077644 
000040 
100014 
000100 
077543 
000002 
000010 
000242 
050262 
067276 
000000 
000000 
111111 

mill 

000000 


261  17  0  00  000003 
2o'  17  0  00  000002 
261  17  0  00  000001 


336  00  0  00 

661 

02  0  00 

336  00  0  00 

661 

02  0  00 

200  00  0  00 

306  00  0  00 

661 

02  0  00 

104  00  0  00 

320 

16  0  00 

312  01  0  00 

306  01  0  00 

263 

17  0  00 

641 

01  0  00 

643  01  0  00 

263 

17  0  00 

037  04  0 
201  01  0 
550  02  0 
505  02  0 
400  03  0 
104  00  0 
255  00  0 
255  00  0 
037  01  0 
262  17  0 
262  V   0 

262  17  0 

263  17  0 


00  073236 
00  000101 
17  000000 
00  400000 
00  000000 
00  000011 
00  000000 
00  000000 
00  030242 
00  000001 
00  000002 
00  000003 
00  000000 


.-Here  to  handle  errors  from  DSKIO  routine,  retries  if  needed 


U2RDER:  MOVE  AC1,AC5 

MOVEM  AC1,UBLK 

TLNE  AC2,(1B14) 

JRST  UWRTER 

JRST  URDER 

;Here  to  execute  DSKOPX  JSYS 


;Reset  the  starting  address 

;Sa\/e  block  # 

; Write  command? 

;Yes  report  write  error 

.•Report  the  read  error 


DSKIO: 


SKIPN 

TLO 

SKIPN 

TLO 

MOVE 

CAIN 

TLO 

DSKOPZ 

ERJMP 

CAME 

CAIN 

RTN 

TLC 

TLCE 

RTN 


MONRET 

AC2-(1B12) 

USERON 

AC2.(1B11) 

ACO.CMCODE 

AC0,2 

AC2.(1B14) 

JSYSER 

AC1.C-1] 

ACI.O 

AC1,-1 
AC1,-1 


Doing  monitor  retries? 
NO  INHIBIT 

Doing  syserr  logging? 
No  inhibit  it 
Get  command  code 
Doing  a  WRITE  command? 
Yes,  set  write  data  status 
Start  the  transfer 
Report  JSYS  error  if  any 
Did  it  return  -1 
or  zero? 
Yes  exit 

Check  the  left  half 
Is  it  -1? 
Nope 


bit 


;Here  if  non-io  related  error:  late  monitors  return  -1,,errornumber  in  AC1. 

PUT  AC3  ;Save  the  ACs  . 

PUT  AC2  ;  before  reporting  the  error 

PUT  AC1  ;Sav/e  the  error  code 

PMSGF  <"%   ERROR  FROM  DSKOP  JSYS:  >'^ 

PSIXMF  LSIXBIT\*X  ERROR  FROM  DSKOP  JSYS:  .\]* 

MOVEI  ACK.PRIOU  .-Point  output  to  terminal 

HRR2  AC2.(P)  ;Get  error  code 

HRLI  AC2..FHSLF  ;  and  fork  handle 

SETZ  AC3.  ;No  limit  on  bytes  xferred 

ERSTRX  .-Convert  error  to  string 

JFCL  .-Ignore  errors 

JFCL  ;  that  might  result 

PCRLF  .-Force  out  a  CRLF 

GET  AC1  .-Restore  acs 

GET  AC2  ;  from  tht- 

GET  AC3  ;  stack 

RTN  .-Return 


r 


DDRPl  - 
DDRPI3 

1270A 

12705 

12706 

12707 

12708 

12709 

12710 

12711 

12712 

12713 

127U 

12715 

12716 

12717 

12718 

12719 

12720 

12721 

12722 

12723 

1272A 

12725 

12726 

12727 

12728 

12729 

12730 

12731 

12732 

12733 

12734 

12735 

12736 

12737 

12738 

12739 

12740 
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SEQ  0417 


r 

D 
D 


;Here  is  the  error  printer  for  TOPS-20  JSYS  errors,  called  by  ERCAL  JSYSER 


050262  261  17  0  00  OOOOOO 

050263  261  17  0  00  000001 

050264  261  17  0  00  000002 

050265  261  17  0  00  000003 


050266  037  04  0  00  073243 

050267  550  00  0  17  llim 

050270  037  17  0  00  000003 

050271  037  04  0  00  073254 


050272 
050273 
050274 
050275 
050276 
050277 
050300 

0503C1 
050301 
050302 
050303 
050303 

05O304 
OjU305 
050306 
050307 
050310 
0503^1 


201 
525 


01 
02 


402  00 
104  00 
254  00 
254  00  0 
254  00  0 


0 
0 
0 
0 
0 


00  00010 1 
00  400000 
00  000003 
CO  000011 
00  050301 
00  050303 
00  050304 


037  04  0  00  073257 
334  00  0  00  OOOOOO 

037  04  0  00  073264 


037 
262 
262 
262 
262 


00 

17 
17 
17 
17 


263  17 


0  00  030242 
0  00  000003 
0  •:^0  000002 
0  00  000001 
0  00  OOOOOO 
0  00  OOOOOO 


JSYSER:  PUT 
PUT 
PUT 
PUT 


PMSGF 

PSIXMF 

HRRZ 

PNTOCF 

PMSGF 

PSIXMF 


ACO 
AC1 
AC2 
AC3 

<^?  ERROR  DETECTED  BY  MONITOR,  EXECUTING  JSYS  AT  PC  >* 
CSIXBITX*?  ERROR  DETECTtD  BY  MONITOR,  EXECUTING  JSYS  AT  PC  .\]^ 
-5(P)  ;GET  PC  OFF  THE  STACK 

;PRINT  IT 
<*  TOPS-20  ERROR:  >^ 
CSIXBITX*  TOPS-20  ERROR:  \]* 


; SETUP  fO  OUTPUT  ERROR  MESSAGE 


ERSTR1 


ERSTR2 


MGVEI 

HRLOI 

SETZM 

ERSTRX 

JRST 

JRST 

JRST 

PMSGF 
PSIXMF 
SKI  PA 
PMSGF 
PSIXMF 


JSYSEX:  PCRL 
GET 
GET 
GET 
GET 
RTN 


AC1,.PRI0U 
AC2,.FHSLF 
AC3 

ERSTR1 
ERSTR2 
JSYSEX 


;Send  to  controlling  terminal 

;Specif)f  process  handle,  last  error 

;No  limit  on  *  bytes 

; Output  the  message 

; Error  -  bad  number 

;Error  -  bad  size 

;0k,  exit 


<rUNDEFINED  ERROR  NUMBER)>* 
[SIXBIT\(UNDEFINED  ERROR  NUMBER).\3* 

<(STRING  SIZE  ERROR  OR  INVALID  DESIGNATOR)>^ 
[SIX8IT\(STRIN6  SIZE  ERROR  OR  INVALID  DESIGNATOR)_\]' 


AC3 
AC2 
AC1 
ACO 


L 
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SEO  0418 


r 

Dl 
Dl 


12741 

12742 

;Her€  to  (possi 

bly)  sleep  after  TOPS-:0  transfer. 

12743 
12744 
12745 

;  ACO/  new  count  of  blocks  r/w,  MONCT/  old  count  of  blocks  r/w 

050312 

336  00  0  00  077756 

USRSLP:  SKIPN 

SLEPON              .-Sleep  option? 

12746 

050313 

254  00  0  00  050322 

JRST 

UCMDEX               ;No 

12747 

050314 

554  01  0  06  000001 

HLRZ 

ACIJ(AC)            ;Get  size  of  last  trrnsfer 

12748 

050315 

274  00  0  00  000001 

SUB 

AC1                ;  compute  transfers  not  done  by  me 

12749 

050316 

316  00  0  00  077642 

CAfSN 

MONC"               ;Any  other  user  for  this  unit? 

12750 

050317 

254  00  0  00  050322 

JRST 

UCMDtx              ;No,  don't  sleep 

12751 

050320 

201  01  0  00  000001 

MOVE  I 

AC1J               ;Yes,  go  to  sleep 

12752 

050321 

047  01  0 

00  000031 

SLEEP 

AC1, 

12753 

12754 
12755 
12756 

.-Here  to  exit  1 

From  the  I/O  (-10  and  -20) 

050322 

260  17  0  00  056676 

UCMDEX:  60 

CLRCMD               .-CLEAR  THE  COMMAND 

12757 

050323 

332  00  0 

00  077720 

SKIPE 

RETFLG               .-RETRY  SET? 

12758 

050324 

260  17  0  00  050330 

GO 

URETOK               .-YES  -  PRINT  RECOVERY  MESSAGI 

12759 

050325 

336  00  0  00  077650 

SKIPN 

NALTM#                .-INHIBIT  ALT-MODE  CHK 

12760 

050326 

260  17  0 

00  051310 

GO 

CHKALT               .-NO  SEE  IF  OPR  BANGING  ON  KEYS 

12761 

050327 

254  00  0 

00  047263 

JRST 

CMDXEY                .-EXIT 

12762 

12763 
12764 
12765 

;Here  if  retry 

worked 

050330 

URETOK:  PMSG 

<'^*COMMAND  RECOVERED  AFTER  >* 

12766 

050330 

037  02  0 

00  073273 

PSIXM 

CSIXBIT\**COMMAND  RECOVERED  AFTER  \3* 

12767 

050331 

201  00  0 

00  005011 

MOVE  I 

•D9 

12768 

050332 

274  00  0 

00  077720 

SUB 

RETFLG                .-SUBTRACT  THE  COUNT 

12769 

050333 

350  00  0 

00  000000 

AOS 

;MAKE  GREATER  THAN  0 

12770 

050334 

260  17  0 

00  066163 

GO 

PSDN                 .-PRINT  THE  RECOVERY  # 

12771 

PMSG 

<  RETRYS*>* 

M772 

050335 

037  02  0 

00  073300 

PSIXM 

CSIXBITX  RETRYS*  \Y 

^2771 

050336 

402  00  0 

on  077720 

SETZM 

RETFLG 

)277^ 
12775 
12776 
^2f77 
}277n 

0*^033; 

263  ^7   0 

00  oooooc 

RTN 

;H^.'re  to  check 

if  transfer  is  in  the  mairt  cyls,  anci  if  so  light  bit  for  SUSE 

050340 

261  17  0 

00  OOOOCI 

MCYLCK:  PUT 

AC1            ;SAVE  a:i 

12779 

050341 

200  01  0 

00  100011 

MOVE 

A'\UBLK              .-GET  THE  DESIRED  BLK  ADDRESS 

12780 

050342 

311  01  0 

11  000032 

CAML 

A^...MTCYL^DSBP)       ;IN  THE  MAINT  AREA?? 

12781 

050343 

661  00  0 

00  100000 

TLO 

(IBJ)                ;YES  -  SET  THE  T^ROPER  BIT  FOR  SUSET* - 

12732 

050^V', 

262  17  0 

00  COOOOl 

GET 

AC1                  .-RESET  ACi 

12783 

050i^5 

26?  17  0 

00  000000 

RTN 

"fmrnttHtftt 


MrMM 


r 


1    r 


DDRPI  - 
DDRPI3 

12784 

12785 

12786 

1278" 

12788 

^2789 

12790 

12791 

12792 

12793 

1279A 

12795 

12796 

12797 

12798 

12799 

12800 

12801 

12802 

12803 

1280A 

12805 

12806 

12807 

12808 

12809 

12810 

12811 

12812 

12813 

128U 

12815 

12816 

12817 

12818 
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SEO  0419 


D' 


050346 
050347 
050350 
050351 
050352 
050353 
050354 
050355 
050356 
050357 
050360 
050361 
050362 
050363 
050364 
050365 
050366 
050367 
050370 
050371 
050372 

050373 
050374 
050375 
050376 
050377 


336  00  0 
332  00  0 
254  00  0 
350  00  0 
200  00  0 
621  00  0 
603  00  0 
402  00  0 
260  17  0 
202  00  0 
200  00  0 
202  00  0 
05C  01  0 
254  00  0 
200  00  0 
661  00  0 
260  17  0 
047  00  0 
254  00  0 
047  01  0 
254  00  0 


00  030516 
00  077641 
00  050322 
11  000147 
06  000004 
00  400000 
00  200000 
00  000000 
00  045573 
00  100011 
11  000022 
00  100044 
00  1000^3 
00  050400 
00  100011 
00  000040 
00  050340 
00  000146 
00  050373 
00  000056 
00  050322 


3vz   00  C  00  000001 
254  00  0  00  050412 

200  00  0  00  looon 

074  01  0  00  000000 
254  00  0  00  050371 


':Here   to  start  the  user  mode  position  command.  It  executes  SEEK 


00 


.•commands  only  -  RECAL  commands  wUl  be  translated  into  SEEK  to  cyl 
.-comrands.  NaTE:  Later  TOPS-10  and  all  TOPS-20  monitors  don't  support 
;user  mode  seeks. 


UCMDX4 


UCSEK: 


USETS: 


SKIPN 

MONTYP 

S«CIPE 

MON702 

JRST 

UCMDEX 

AOS 

.ACTSK(DSBP) 

MOVE 

4(AC) 

TLZ 

(180) 

TLNE 

(181) 

SETZM 

60 

LOCSBLK 

MOVEM 

UBLK 

MOVE 

.DNAME(DSBP) 

MOVEM 

PAKNAM^I 

OPEN 

1,PAKNAM 

JRST 

UCHER 

MOVE 

UBLK 

TLO 

(1812) 

GO 

MCYLCK 

SUSET. 

ACO, 

JRST 

USETS 

CALLI 

1.56 

JRST 

UCMDEX 

CAIN 

1 

JRST 

NOPRIV 

MOVE 

UBLK 

USETI 

1,AC0 

JRST 

UCSEK 

IS  IT  TOPS-20  USER  MODE 
OR  NO-OPED  SEEK  UUO? 
YES,  EXIT  NOW  SILENTLY 
NO  -  UPDATE  THE  SEEK  COUNT 
GET  THE  DISK  ADDRESS 
CLEAR  THE  DSK  ADDR  INDICATOR 
RECAL' 

YES  -SEEK  TO  CYL  00 
CALC.  THE  LOGICAL  BLOCK  » 
SAVE  THE  BLOCK  NUMBER 
GET  THE  PACK  NAME 
SAVE  IT 

INIT  THE  DRIVE 
INIT  FAILURE! 
GET  THE  STARTING  BLK  # 
SET  THE  SUSET.  BIT 
SEE  IF  ADDR  OK 
SETUP  FOR  POSITIONING 
SUSET  FAILURE 
SEEK  NOW 
EXIT  THE  EXECUTOR 

PRIVLEGED  FOR  SuSET?? 

NOPE; 

YES  -  GET  BLOCK  #  FOR  SUPER-USET  CMO 


r 


DDRPl  - 
DDRPI3 

12819 

12820 

12821 

12822 

12823 

1282A 

12825 

12826 

12827 

12828 

12829 

12830 

12831 

12832 

12833 

12834 

12835 

12836 

12837 

12838 

12839 

12840 

12841 

12842 

12843 

12844 

12845 

12846 

12847 

12848 

12849 

12850 

12851 

12852 

12853 

12854 

12855 

12856 

12857 

12858 

-2859 

12860 

12861 

12862 

12863 

12864 
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SEQ  0420 


D 
D 


050400  260  17  0  00  046270 


050401  037  15  0  00  000004 


050402  306  00  0  00  000001 

050403  254  00  0  00  050412 

050404  074  01  0  00  100011 

050405  254  00  0  00  050111 


050406  306  00  0  00  000001 

050407  254  00  0  00  050412 

050410  07S  01  0  00  100011 

050411  2r    00  0  00  050147 

050412  037  04  0  00  073302 


050413  037  15  0  00  000004 


;TOPS-10  OPEN  failure  reporting  routine 

UCHER:  GO     OPENER  ;REPORT 

FATL    *  ;AND  QUIT 

FFFF     A  TTTTT     A  L       ! 

A  A  T      A  A  L      I 

AA  AA  T  AA  AA  L       | 

?^            AAAAA  t  AAAAA  L       I 

A   A  t  A   A  L      I 

A   A  T  A   A  L 

A   A  T  A   A  LLLLL   ! 


SALL 


FATAL 


;Here  if  SUSlT.  UUO  didn't  work  for  TOPS-10  read.  Try  USETI  if  possible. 


USETR:  CAIN  1 

JRST  NOPRIV 

USETI  KUBLK 

JRST  UCRD1 


;PRIVLE6ED  FOR  SUSET? 

:N0 

.•SETUP  FOR  MONITOR 


.-Here  if  SUSET.  UUO  didn't  work  for  TOPb-10  write.  Try  USETI  if  possible. 


USETW:  CAIN  1 

JRST  NOPRIV 

USETO  UUBLK 

JRST  UCWT1 


;PRIV.?? 
;N0PE1 
; SETUP 


NOPRIV:  PMSGF  <*USER  NOT  PRIV  FOR  SUSET  I/O  TO  DISK*> 
FATL 

•      ^H?f           A  TTTTT     A  L  ! 

r  A  A  t     A  A  L  i 

F  AA  AA  t  AA  AA  L  | 

^^?  AAAAA  I  AAAAA  L  | 

F  A   A  1  A   A  L  ! 

r  A   A  t  A   A  L 

F  A   A  T  A   A  LLLLL   I 


SALL 


FATAL 
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0DRPI3 

12865 

12866 

12867 

12868 

12869 

12870 

12871 

12872 

12873 

12874 

12875 

12876 

12877 

12878 

12879 

12880 

12881 

12882 

12883 

12884 

12885 

12886 

12887 

12888 

12889 

12890 

12891 

12892 

12893 

12894 

12895 

12896 

12897 

12898 

12899 

12900 

12901 

12902 

12903 

12904 

12905 

12906 

12907 

12908 

12909 


MAC 


28-Aug-85  15:49 


050414 
05041 5 
050416 
050417 


050420 
050421 
050422 
050423 
050424 


050425 

050426 

050427 

050430 

050431 

050432 

050433 

050434 

050435 

050436 

050437 

050440 

050441 

050442 

050443 

050444 

050445 

050446 

050447 

050450 

050451 

050452 

050453 

050h54 

050455 

050456 


332  00  0  00  077720 
254  00  0  00  050521 
037  04  0  00  073311 
254  00  0  00  050425 


332  00  0  00  077720 
254  00  0  00  050521 
037  04  0  00  073321 
332  00  0  00  077517 
037  04  0  00  073331 


261  17 
261  17 
037  02 
260  17 
037  02 
135  00 
202  00 
260  17 
037  02 
260  17 
037  02 
2uJ  00 
260  17 
207  00 
405  00 
260  17 
037  02 
550  00 
260 
241 

037  02 
250  00 
037  02 
250  00 
241  00 
037  02 


17 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000001 
000005 
070277 
054607 
073341 
073346 
000005 
066174 
073347 
066163 
073350 
000005 
045627 
000000 
001777 
066174 
073352 
000005 
045627 
77777^ 
000000 
000001 
073354 
000001 
000010 
000000 


DISK  COMMAND  EXECUTOR 

;User  mode  read/wn'te  error  retry  begins  here. 

;Here  on  a  TOPS-10/20  write  error. 

UWRTER:  SKIPE  RETFLG  ;RETRY  SET? 

JRST  URETF  jYES  -  RETRY  FAILURE 

PMS6F  o^**— •♦—••— ***M0NIT0R  DETECTED  WRITE  ERR0R''> 

JRST  URDER1 

;Here  on  a  TOPS-10/20  read  error. 

URDER:  SKIPE  RETFLG  ;RETRY  SET? 

JRST  URETF  ;YES  -  RETRY  FAILURE 

PMSGF  <**♦*.-*♦.-♦♦— ••^MONITOR  DETECTED  READ  ERR0R'^> 

SKIPE  BATINT  :READING  BAT  BLOCKS  ? 

PMSGF  <*♦♦*  WHILE  READING  PACK^S  'BAT"  BLOCKS  ****^> 

;Here  to  report  what  disk  address  was  selected  when  the  error  occured, 


SEQ  0421 


D 
D 


URDER1:  PUT 
PUT 
PMSG 
60 

PMSG 
LDB 
MOVEM 
60 
PMSG 
GO 

PMSG 
MOVE 
60 

MOVSS 
AND  I 
60 
PMSG 
HRRZ 
60 
ROT 
PNT2 
EXCH 
PMSG 
EXCH 
ROT 
PNT2 


AC1  ;SAVE  SOME  VERY  NECESS.  AC'S 

ACS 

<  FOR  > 

PNTDRV  .-PRINT  THE  TOPS-20  DRV  # 

<*STARTING  AT  L06ICAL  BLOCK  > 

[POINT  24,UBLK,35]     ;6et  block  It 

AC0,AC5 

POCT 

<  (> 
PSDN 

<)  =  CYL  > 
AC0.AC5 
BLKADR 


\777 

POCT 

<  SURF  > 

AC5 

BlKADR 

-•D8 

AC1 

<SECT  > 
AC1 
*D8 


;MAKE  AC5  POINT  TO  REAL  BLK  n 
; Print  it  in  octal 

;PRINT  IT 

; CONVERT  TO  REAL  DSK  ADR 

;SAVE  ONLY  THE  CYL  n 
.-PRINT  THE  CYL  # 

;6ET  THE  LOG  BLK  AGAIN 
.-CONVERT  TO  ADDR  AGAIN 

.-PRINT  THE  SURF  # 


.-GET  THE  SECT  # 
.-PRINT  IT 
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SEQ  0^22 


12910 

12911 

12912 

r  )M 

1291 A 

12915 

12916 

12917 

12918 

12919 

12920 

12921 

12922 

12923 

12924 

12925 

12926 

12927 

12928 

12929 

12930 

12931 

12932 

12933 

12934 

12935 

12936 

12937 

12938 


r 

ID 


050457 
050460 
050461 
050462 
050463 
050464 
050465 
050466 
050467 
050470 
050471 
050472 
050473 
050474 
050475 
050476 
050477 
050500 
050501 
050502 

050503 
050504 

050505 
050506 


037  02 
200  00 
260  17 
037  02 
200  00 
271  00 
231  00 
260  17 
037  02 
262  17 
262  17 
332  00 
254  00 
254  00 
316  00 
254  00 
260  17 
31 C  00 
336  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


336  00  0  00  077644 
254  00  0  00  050507 

037  02  0  00  073370 
254  00  0  00  050322 


;Pn'nt  transfer  size  (words  and  sectors). 

<'^TRANSFER  SIZE  > 

.SIZE 

POCT 

<  WORDS  (> 
.SIZE 
BLKSIZ-1 
BLKSIZ 
PSDN 

<  SECTORS)'^> 
AC5 
AC1 

MONTYP 
URDER2 

<MOVE  UNISCT(CSBP)> 
MONECT 
URDER2 
SNAPS 

PAKINF 
STATUS 


073355 

PMSG 

100733 

MOVE 

066174 

GO 

073360 

PMSG 

100733 

MOVE 

000177 

ADDI 

000200 

IDIVI 

066163 

GO 

073362 

PMSG 

000005 

GET 

000001 

GET 

030516 

SKIPE 

050503 

JRST 

073364 

GETMUD 

077643 

CAMN 

050503 

JRST 

057050 

GO 

000000 

CAM 

077663 

SKIPN 

056047 

GO 

URDER2:  SKIPN 
JRST 
PMSG 
PSIXM 
JRST 


Output  transfer  size 
Get  words  in  transfer 
Print  it 

Load  the  size 
Round  up  to 

the  sectors  transferred 
Print  decimal 
label  it 
RESET  THE  AC'S 

TOPS-20  user  mode? 

Yes 

GET  THE  MONITOR  SOFT  ERROR  COUNT 

OR  IS  ERROR  COUNT  SAME? 

SKIP  CODE 

READ  DRIVE  REGISTERS 

DONT  REPORT  IF  INITIN6  PACK 
AND  REPORT  TO  OPR 


MONRET  .-DESIRE  MONITOR  RETRY? 

URETRY  ;N0 

<*M0NIT0R  RETRY  WAS  ENABLED* 

[SJXBIT\*M0NIT0R  RETRY  WAS  ENABLED* 

UCMDEX 


*> 


finish 


up 


L 


L. 


DDRPl  -  RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  151 
DDRPI3  MAC     28-Aug-85  15:49        DISK  COMMAND  EXECUTOR 


SEQ  0^23 


r 

c 
c 


12939 

12940 

12941 

12942 

12943 

12944 

12945 

12946 

12947 

12948 

12949 

12950 

12951 

12952 

12953 

12954 

12955 

12956 

12957 

12958 

12959 

12960 

12961 

12962 

12963 

12964 

12965 

12966 

12967 

12968 


050507 
050510 
050511 
050512 

050513 
050513 
050514 
050515 


050516 
050517 
050520 


050521 
050522 

050523 
050524 
050525 


;Here  to  retry  the  transfer.  TOPS-10  read  recovery  is  done  by 
.-retrying  per  sector.  TOPS-20  read/write  and  TOPS-10  write  recovery 
;is  done  by  reissuing  the  command. 


301  02  0  00  000002 
254  00  0  00  050513 
336  00  0  00  030516 
254  00  0  00  030526 


037  02  0  00  073400 

201  00  0  00  000011 

202  00  0  00  077720 


332  00  0  00  030516 
254  00  0  00  050210 
254  00  0  00  050131 


URETRY:  CAIL 
JRST 
SKIPN 
JRST 

URETF2:  PMSG 
PSIXM 
MOVE  I 
MOVEM 


AC2,2 
URETF2 
MONTYP 
RREC10 


;READ  RECOVERY 

;N0 

;T0PS-20  MONITOR 

;N0  TOPS-10  READ  RETRY 


<*ATTEMPTING  USER  RECOVERY  BY  RE-ISSUEIN6  COMMAND'^>'' 
CSIXBITX^ATTEMPTING  USER  RECOVERY  BY  RE-ISSUEING  COMMAND' 
*D9  ;GET  THE  COUNT 

RETFLG  ;SAVE  IT 


\]' 


;Here  to  loop  retrying  command  (read/write  on  -20,  just  write  on  -10) 


URETF1:  SKIPE   MONTYP 
JRST    U2RET 
JRST    UCMDWT 


;UNDER  T0PS-20?? 

;YES  -  RECOVER  T0PS-20  XFR 

;D0  TOPS-10  WRITE  RECOVERY 


373  00  0  00  077720 
254  00  0  00  050516 

037  02  0  00  073411 
402  00  0  00  077720 
254  00  0  00  050322 


;Here  when  another  error  detected,  count  down  error  flag  and  if  error 
;  count  is  exhausted,  punt  the  transfer. 

URETF:  SOSLE  RETFLG  ;D0NE? 

JRST  URETF1  ;N0 

PMSG  <*REC0VERY  FAILED!* *>* 

PSIXM  CSIXBITX^RECOVERY  FAILED!* \\]* 

SETZM  RETFLG  ;Make  sure  its  zero 

JRST  UCMDEX  ;Exit  the  command 


L 
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r 


SEQ  ^2t^ 


12969 

12970 
12971 
12972 

;HERE 

IS  THE  TOPS-10  READ  RETRY  (DISECTING  XFR)  USING  MONITOR  RETRIES 

050526 

205  00  0  00  100043 

RREC1C 

):  MOVSI 

PAKNAM               ; BUILD  BLT  WORD 

12973 

050527 

541  00  0  00  100046 

HRRI 

RETNAM               ; 

TO  CREATE  RETRY  OPEN  AR6S 

12974 

050530 

251  00  0  00  100050 

BLT 

RETNAM+2             ; 

DO  IT 

12975 

050531 

200  00  0  00  100046 

MOVE 

RETNAM 

12976 

050532 

621  00  0  00  100000 

TLZ 

(1B2)                ; ENABLE  MONITOR  RE"9Y 

12977 
12978 
12979 
12980 
12981 

050533 

202  00  0  00  100046 

MOVEM 

RETNAM               ;SAVE  THE  ARG 

;SAVE 

THE  DSB  COMMAND  TO  RETRY 

050534 

205  00  0  11  000042 

MOVSI 

.PRIM(DSBP)           ;BUILD  THE  BLT  WORD 

12982 

050535 

541  00  0  00  100131 

HRRI 

DSBCMD 

12983 
12984 
12985 
12986 
12987 

050536 

251  00  0  00  100135 

BLT 

DSBCMD-J-4             ;SAVE  THE  COMMAND 

.•CALCULATE  THE 

INITIAL  FAILING  BLOCK  » 

050537 

550  00  0  00  100643 

HRRZ 

AC0.SNAP*5            ;GET  SURF/SECT  ADDR 

12988 

050540 

504  00  0  00  100650 

HRL 

ACO.SNAPHg   ,__^ 

GET  CYL  ADDR 

12989 

050541 

404  00  0  00  072462 

AND 

ACO. C177777..177777J 

•SAVE  REG  DATA  ONLY 

12990 

050542 

260  17  0  00  045573 

60 

LOGBLK 

■CONVERT  TO  LOGICAL  BLOCK  H 

12991 

050543 

332  00  0  00  000000 

. ,    , '  '  - 

SKIPE 

ACO 

12992 

050544 

370  00  0  00  000000 

SOS 

ACO                  ;MAKE  IT  POINT  TO  FAILING  BLOCK 

12993 
12994 
12995 
12996 
12997 

050545 

202  00  0  00  077604 

MOVEM 

ACO.ERBLK#           ;SAVE  IT 

; CALCULATE  n   0» 

•  BLOCKS  TO  RETRY 

PMSG 

<ATTEMPTING  MONITOR  RECOVERY  OF  A  >^ 

12998 

050546 

037  02  0  00  073417 

PSIXM 

CSIXBITXATTEMPTIN'  MONITOR  RECOVERY  OF  A  \]^ 

12999 

050547 

5i)  •  00  0  00  100132 

HLRZ 

DSBCMD^I 

;GET  XFR  SIZE 

13000 

050550 

202  00  0  00  077732 

MOVEM 

RSIZE 

jSAVE  IT 

13001 

050551 

231  00  0  00  000200 

IDIVI 

BLKSIZ 

;DIV  BY  BLOCK  SIZE 

13002 

050552 

332  00  0  00  000001 

SKIPE 

ACl                  < 

;ANY  REMAINDER 

13003 

050553 

350  00  0  00  000000 

AOS 

: 

;YES  XFR  COMPLETE  BLOCK 

13004 

050554 

202  00  0  00  077731 

MOVEM 

RSCNT 

;sav:e  the  CNT 

13005 

050555 

260  17  0  00  066163 

GO 

PSDN 

rPRINT  n   OF  BLOCKS 

13006 

PMSG 

<  SECTOR  TRANSFER  BY  INDIVIDUAL  SECTORS^>'^ 

13007 

050556 

037  02  0  00  073425 

PSIXM 

CSIXBITN  SECTOR  TRANSFER  BY  INDIVIDUAL  SECTORS*.\]'' 

13008 

13009 
13010 
13011 

.•CALCULATE  STARTING  RETRY  BLOCK  n 

050557 

200  00  0  00  100135 

MOVE 

DSBCMDM             ;GET  PHYSICAL  DISK  ADDR 

13012 

050560 

621  00  0  00  400000 

TLZ 

(IBO) 

;KILL  THE  DSK  ADDR  IND 

13013 

050561 

260  17  0  00  045573 

GO 

LOGBLK 

; CONVERT  T  LOG  BLK  n 

13014 

050562 

202  00  0  00  100011 

MOVEM 

UBLK 

;SAVE  IT 

13015 

050563 

200  00  0  00  100132 

MOVE 

DSBCMD^I 

;GET  XFR  SIZE  +  BUFF  ADDR 

13016 

050564 

505  00  0  00  000200 

HRL  I 

BLKSIZ 

;MAr.E  XFR  SIZE  ONE  SECTOR 

13017 

050565 

202  00  0  00  100132 

MOVEM 

DSBCMD^I 

.-SAVE  THE  UPDATED  WORD 

L 
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[ 


SEQ  0425 


13018 

13019 

13020 

13021 

13022 

13023 

13024 

13025 

13026 

13027 

13028 

13029 

13030 

13031 

13032 

13033 

13034 

13035 

13036 

13037 

13038 

13039 

13040 

13041 

13042 

13043 

13044 

13045 

13046 

13047 

13048 

13049 

13050 

13051 

13052 

13053 

13054 

13055 

13056 

13057 

13056 
13059 


050566 
050567 
050570 
050571 
050572 
050573 
050574 
050575 

050576 
050577 

050600 
050601 
050e02 
050603 
050604 
050605 
050605 
050606 
050607 
050610 
05061 1 
050612 


554  00 
213  00 
507  00 
540  00 
370  00 
202  00 
402  00 
402  00 


0  00  100132 
0  00  000000 
0  00  000000 
0  00  100132 
0  00  000000 
0  00  100051 
0  00  100052 
0  00  077621 


050  01  0  00  100046 
254  00  0  00  050400 

200  00  0  00  100011 
661  00  0  00  000040 
260  17  0  00  050340 
047  00  0  00  000146 
254  00  0  00  050644 


254  00 
202  00 
056  01 
254  00 
476  00 
254  00 


0  00  073434 
0  00  077643 
0  00  100051 
0  00  050613 
0  00  077621 
0  00  050650 


050613 
050614 
050615 


050616 
050617 
050620 
050621 
050622 


254  00  0  00  073440 
312  00  0  00  077643 
254  00  0  00  050650 


200  00  0  00  100135 
621  00  0  00  400000 
260  17  0  00  045573 
316  00  0  00  077604 
254  00  0  00  050650 


I  It  &l*  • 


IN' 


; SETUP  THE  lOBLK  FOR  THE 

RRECA:  HLRZ  DSBCMD^-1 
MOVNS 
HRLS 

HRR  DSBCMD+1 
SOS 

MOVEM  lOBLK 

SETZM  IOBLK+1 

SETZM  HARDER* 


OPEN  1,RETNAM 

JRST  UCHER 

MOVE  UBLK 

TLO  (1B12) 

GO  MCYLCK 

SUSET.  ACO, 

JRST  SUSETR 

6ETMWD  <MOVE  UNISCT(CSBP)> 

MOVEM  MONECT 

IN  1J0BLK 

JRST  .+3 

SETOM  HARDER 

JRST  RECPNT 


RRECB: 


GET  THE  XFR  SIZE 
MAKE  IT  NEG 
PUT  IT  IN  LEFT  SIDE 
GET  BUFFER  ADDR 
MAKE  IT  BUFF-1 
SAVE  THE  10  WORD 
SET  TERM  WORD 
CLEAR  HARD  ERROR  FLAG 

OPEN  SOFTWARE  CHAN  WITH  RETRY  ON 
OPEN  FAILURE  RCPORT 

GET  STARTING  BLOCK  # 

SET  SOFTWARE  CHAN  » 

CHECK  IF  A  MAINT  CYL 

SETUP  DSK  ADDR  FOR  XFR 
; SUSET  ERROR  TRY  USETI 
^;GET  THE  UNITS  SOFT  ERROR  CNT 

;SAVE  IT 
;D0  THE  READ 
; NORMAL  EXIT 
.-RECOVERY  FAILED  EXIT 
; REPORT  IT 


;DID  WE  GET  ANY  SOFT  ERRORS  DURING  THE  RETRY 

GETMWD  <MOVE  UNISCT(CSBP)>     •.'GET  UPDATED  COUNT 


CAME 
JRST 


MONECT 
RECPNT 


;SAME  AS  BEFORE 
;N0  REPORT 


;SEE  IF  THIS  IS  THE  INITIAL  FAILING  SECTOR 


MOVE 

TLZ 

GO 

CAMN 

JRST 


DSBCMD+4 

(1B0) 

LOGBLK 

ERBLK 

RECPNT 


;GET  THE  PHYSICAL  ADDR 
;KILL  THE  DSK  ADDR  IND 
; CONVERT  TO  LOGICAL  BLOCK 
;SAME  BLOCK  ? 
;YES  REPORT  RECOVERY 


DDRPI  - 
DDRPI3 

13060 

13061 

13062 

13063 

1306A 

13065 

13066 

13067 

13068 

13069 

1307C 

13071 

13072 

13073 

13074 

13075 

13076 

13077 

13078 

13079 

13080 

13081 

13082 

13083 

13084 

13085 

13086 

13087 
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SEQ  0426 


il 


050623 
050624 
050625 
050626 

050627 
050630 

050631 
050632 
050633 
050634 
050635 
050636 
030637 

050640 
050641 
050642 
050643 

050644 
05064 S 
050646 
050647 


370  00  0  00  077731 
333  00  0  00  077731 
254  00  0  00  030631 
402  00  0  00  077720 

037  02  0  00  073444 
254  00  0  00  050322 


200  00 
621  00 
260  17 
350  00 
202  00 
260  17 
202  00 


0  00  100135 
0  00  400000 
0  00  045573 
0  00  000000 
0  00  100011 
0  00  045627 
0  00  100135 


200  00  0  00  100132 
271  00  0  00  000200 
202  00  0  00  100132 
254  00  0  00  050566 

306  00  0  00  000001 
254  00  0  00  050412 
074  01  0  00  100011 
254  00  0  00  050605 


.-CONTINUE  RETRY  RECOVERY 


RRECC: 


SOS 

SKIPLE 

JRST 

SETZM 

PMSG 

PSIXM 

JRST 


MOVE 

TLZ 

GO 

AOS 

MOVEM 

GO 

MOVEM 

MOVE 
ADDI 
MOVEM 
JRST 

SUSETR:  CAIN 
JRST 
USETI 
JRST 


RSCNT 
RSCNT 
.+4 
RETFLG 

csixBin*^: 

UCMDEX 

DSBCMD+4 

(1B0) 

LOGBLK 

U8LK 

BLKADR 

DSBCMD+4 

DSBCMD+1 
BLKSIZ 
DSBCMD+1 
RRECA 

1 

NOPRIV 
1.UBLK 
RRECB 


; DECREMENT  RETRY  SECTOR  CNT 

;ANY  MORE  ? 

;YES  CONTINUE 

; CLEAR  THE  RETRY  FLAG 

lExirusirMODE  RETRY 

;GET  THE  PHY  ADDR 
;KILL  THE  DSK  ADDR  INDC 
; CONVERT  TO  LOG  BLK 
;BU.MP  IT  TO  RETRY  NEXT 
•SAVE  IT 

; CONVERT  BACK  TO  PHY  ADDR 
;SAVE  IT 

;GET  THE  BUFFER  ADDR 
.•UPDATE  IT 
;SAVE  IT 
;CONT 

.-PRIVLIDGED  FOR  SUSET 

.-TRY  USETI 
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SEQ  0^27 


13088 

13089 

13090 

13091 

13092 

13093 

13094 

13095 

13096 

13097 

13098 

13099 

13100 

13101 

13102 

13103 

13104 

13105 

13106 

13107 

13108 

13109 

13110 

13111 

13112 

13113 

13114 

13115 

13116 

13117 

13118 

13119 

13120 

13121 

13122 

13123 

13124 

13125 

13126 

13127 

1312fc 

13129 

13130 

13131 

13132 


050650 
050651 

050652 
050653 
050654 
050655 

050656 
050657 

050660 
050661 
050662 

050663 
050664 
050665 

050666 
050667 
050670 
050671 

050672 
05C673 

050674 

050675 


050676 
050677 
050700 
050701 
050702 
050703 
050704 
050705 
050/06 
050707 
050710 


037  00  0  00  030243 
260  17  0  00  054607 

037  02  0  00  073454 
135  00  0  00  073456 
260  17  0  00  045573 
260  17  0  00  066174 

037  02  0  00  073347 
260  17  0  00  066163 

037  02  0  00  073350 
135  00  0  00  073457 
260  17  0  00  066174 

037  02  0  00  073352 
135  00  0  00  073460 
260  17  0  00  066174 

037  02  0  00  073461 

135  00  0  00  073463 

260  17  0  00  066174 

336  00  0  00  077621 

037  02  0  00  073464 
332  00  0  00  077621 

037  02  0  00  073474 

Gi'  02  0  00  073505 


336  00  0 
254  00  0 


332  00 
254  00 
336  00 
254  00 
135  00 
260  17 
476  00 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00  034552 
tO  050623 
00  077621 
00  050704 
00  077635 
00  050623 
00  073456 
00  045573 
00  077512 
00  ^36711 
00  050623 


RECPNT: 


PCRL2 

GO 

PMSG 

PSIXM 

LDB 

GO 

GO 

PMSG 

PSIXM 

GO 

PMSG 

PSIXM 

LDB 

GO 

PMSG 

PSIXM 

LDB 

GO 

OMSG 

PSIXM 

LDB 

GO 

SKIPN 

PMSG 

PSIXM 

SKIPE 

PMSG 

PSIXM 

PMSG 

PSIXM 


PNTDRV 

<*LOG  BLK  > 

CSIXBITXUOG  BLK  ^ 

[POINT  28,DSBCMD+5,i!)] 

LOGBLK 

POCT 

<  (> 

CSIXBITX  (  \] 
PSDN 

<)  =  CYL  >* 
LSIXBITX)  =  CYL  \]* 
[POINT  10,DSBCMD^4,17] 
POCT 

<  SURF  >* 
[SIXBITX  SURF  \D* 
[POINT  5, DSBCMD'^4, 27] 
POCT 

<  SECT  >* 
[SIXBITV  SECT  \J* 
[POJNT  5,DSBCMD+4,35] 
POCT 

HARDER 


; Print  2  crlf  and  drive  number 
*;Print  LBN 


;Print  in  octal  like  SPEAR 
*;and  in  decimal 


.'A 


.•UNRECOVERABLE  ERROR 


RECOVERED  FROM  A  MONITOR  DETECTED  READ  ERROR>* 
[SIXBIT\*RECOVERED  FROM  A  MONITOR  DETECTED  READ  ERROR.XJ'^ 
HARDER 

<*FAILED  TO  RECOVER  FROM  A  MONITOR  DETECTED  READ  ERROR>* 
[SIXBIT\*FAILED  TO  RECOVER  FROM  A  MONITOR  DETECTED  READ  ERROR.\]' 
<*USING  MONITOR  RETRY>* 
[SIXBIT\*USING  MONITOR  RETRY  M*" 


;SEE  IF  BAT  BLOCK  MAPPING  DESIRED 

SKIPN  PAKINT 

JRST  RRECC 

SKIPE  HARDER 

JRST  .♦3 

SKIPN  MAPSOF 

JRST  RRECC 

LDB  [POINT  28,DSBCMD*4,35] 

GO  LOGBLK 

SETOM  AUTBAT 

GO  BATENT 

JRST  RRECC 


DOING  INIT  SCRIPT 

NO  CONT  RETRY 

DID  UE  GET  A  HARD  ERROR 

YES  MAKE  ENTRY 

MAPPING  SOFT  ERRORS  ? 

NO  CONT 


SET  AUTO  BAT  PROCESS 
MAKE  THE  ENTRY 
CONT 


FLAG 


r 
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SEQ  0^28 


13133 

13134 

13135 

13136 

13137 

13138 

13139 

13U0 

13141 

13142 

13143 

13144 

13145 

13146 

13147 

13148 

13149 

13150 

13151 

13152 

13153 

13154 

13155 

13156 

13157 

13158 

13159 

13160 

13161 

13162 

13163 

13U4 


050711 

050712 

050713 

050714 

05071 5 

050716 

050717 

050720 

050721 

050722 

050723 

050724 

050725 

050726 

050727 

050730 

050731 

050732 

050733 

050734 

050735 

050736 

050737 

050740 

050741 


17 
17 
17 
17 
17 
17 


2t 
26 

:.6i 

261 
261 
550  01 
336  00 
254  00 
250  00 
037  13 
037  14 
250  00 
554  02 
201  03 
550  04 
302  04 
306  04 
271  03 
306  03 
336  00 
254  00 
201  03 
2ui  03 
201  03 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
06 
00 
00 
00 
00 
00 
00 
06 
00 
17 
00 
00 
on 

00 
00 
00 
00 
00 


0  00 


000000 

000001 

000002 

000003 

000004 

100666 

000001 

030143 

050726 

000001 

000002 

000004 

000001 

000001 

000200 

777775 

000001 

000003 

000002 

000202 

077722 

050742 

003636 

100666 

000202 


•Here  for  exec  mode  read/write  commands. 
;N0  ERRORS  IN  EITHER  MBC  OR  DRIVE  AND  THE 
.•UPDATED  —  PROCEED  TO  START  THE  COMMAND 

;/|f**********************  ***************** 


**♦*•••**••****••*•♦•••*•*•••*••♦ 


TRANSFER  TOTALS  HAVE  BEEN 


**••**•*••♦•*•••*»••*•••«•••*••** 


CMDX3A:  PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
HRRZ 
SKIPN 
JRST 
EXCH 
MAPADR 
ERRHLT 
EXCH 
HLRZ 
MOVE  I 
HRRZ 
CAIE 
CAIN 
ADD  I 
CAIN 
SKIPN 
JRST 
MOVE  I 
MOVEM 
MOVE  I 


ACO 

AC1 

AC2 

AC3 

AC4 

MAXUD 

ACIJ(AC) 

MAPNEW 

AC1 


AC1 

AC2J(AC) 

AC3,BLKSIZ 

AC4,-3(P) 

AC4J 

AC4,3 

AC3,2 

AC3-202 

RH20 

.+4 

AC3.3636 

AC3,MAXWD 

AC3,202 


SAVE  SOME  AC'S 


s;/"  THE  MAX  M   OF  CHN  XFR  WORDS 
6L   THE  BUFFER  ADDR  FROM  COMMAND 
VJRT  ADDR?? 
NO 


AND  THE  TRANSFER  SIZE 

THEN  THE  BLOCK  SIZE  FOR  SECTOR 

GET  THE  CMD  NUMBER 

READ  HEADERS? 

OR  WRITE  HEADERS'^ 

YES  -  ADJUST  THE 'block  SIZE  FOR  HEADER  DATA 

FORMATTING? 

OR  MBC  =  RH20 

NO 

YES  -  FIX  MAXWD  SIZE  FOR  RH20 

SAVE  THE  UPDATED  3IZE 

RESET  THE  BLOCK  SIZE  FOR  FORMATTING 
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SEQ  0429 


13165 
13166 

050742 

260  17  0  00  063674 

G 

GENCCW 

;GEN  A  CHANNEL  LIST 

13167 

050743 

332  00  0  10  000005 

SKIPE 

.PCLP(CSBP) 

;PRIM  AVAIL?? 

13168 

050744 

254  00  0  00  050747 

JRST 

.+3 

;N0 

13169 

050745 

202  01  0  10  000005 

MOVEM 

AC1,.PCLP(CSBP) 

;YES  -  SAVE  THE  PRIM  CHN  POINTER 

13170 

050746 

254  00  0  00  050751 

JRST 

.-^3 

13171 

050747 

336  00  0  10  000012 

SKIPN 

.SCLP(CSBP) 

;2ND  MBC  AREA  AVAIL?? 

13172 

050750 

:0^  01  0  10  000012 

MOVEM 

ACU.SCLP(CSBP) 

;YES  -  SAVE  THE  2ND  CHN  POINTER 

13173 

050751 

262  17  0  00  100666 

GET 

MAXWD 

;RESET  THE  ORIGINAL  MAXWD  SIZE 

13174 

050752 

262  17  0  00  000004 

GET 

AC4 

13175 

050753 

262  17  0  00  000003 

GET 

AC3 

13176 

050754 

262  17  0  00  000002 

GET 

AC2 

13177 

050755 

262  17  0  00  000001 

GET 

AC1 

13178 

050756 

262  17  0  00  000000 

GET 

ACO 

13.^9 

050757 

336  00  0  00  077721 

SKIPN 

RH10 

;MBC  AN  RHIO? 

13180 
13i81 
13182 

050760 

254  00  0  00  051012 

JRST 

CMDX3B 

;N0  -  MUST  BE  RH20 

;LOAD  THE  DESIRED  TRACK  AND  SFCTOR 

INTO  THE  DRIVE  &  START  RHIO  TRANSFER 

13183 
13184 

050761 

200  01  0  00  073511 

MOVE 

ACUCDRDTS] 

13185 

050762 

540  01  0  06  000004 

HRR 

ACK4(AC) 

;GET  THE  DISK  ADDRESS  FROM  DSB  AREA 

13186 

050763 

260  17  0  00  063147 

GO 

LDREG 

;LOAD  THE  DRIVE  REGISTER 

13187 

050764 

254  00  0  00  050761 

JRST 

.-3 

; ERROR  -  TRY  AGAIN 

13188 

050765 

336  CO  0  00  000002 

SKIPN 

AC2 

;READ  COMMAND? 

13189 

050766 

201  01  0  00  000071 

MOVE  I 

ACURDD 

;YES  -  READ  DATA  CMD 

13190 

050767 

306  02  0  00  000001 

CAIN 

AC2,1 

; HEADERS? 

13191 

050771 

201  01  0  00  000073 

MOVE  I 

AC1,RDHD 

;YEAH  -  READ  HEADERS  AND  '^ata 

13192 

05077 

306  02  0  00  000002 

CAIN 

AC2,2 

;WRITE? 

13193 

05C7' : 

201  01  0  00  000061 

MOVE  I 

ACKWTD 

;YUP 

13194 

05C  77? 

iCS  02  0  00  000003 

CAIN 

AC2,3 

;WRITE  HEADERS 

13195 

05C  ^4 

:u!  01  0  00  000063 

MOVEI 

ACUWTHD 

;YUP  -  WRITE  HEADERS  AND  DATA  (FORMAT) 

13196 

C5C  ' 

1.3:^  00  0  10  000004 

-^'.IPE 

.PTCR(CSBP) 

;PRIM  XFR?? 

13197 

C50;  ,'^ 

54  00  0  00  051001 

JRST 

.-^3 

;N0 

13198 

0Sj»"7'" 

202  01  0  10  000004 

MOVEM 

AC1,.PTCR(CSBP) 

;YUP  -  SAVE  IT  HERE 

13199 

05100': 

254  00  0  00  051003 

JRST 

.-^3 

13200 

051001 

336  00  0  10  000011 

SKIPN 

.STCR(CSBP) 

;0R  13  IT  2ND  CMD?? 

13201 

051002 

202  01  0  10  00C011 

MOVEM 

AC1,.STCR(CSBP) 

;2Nn  CMD  -  SAVE  IT 

13202 

051003 

200  02  0  10  000027 

MOVE 

AC?,.r  \SE(CSBP) 

;6El  THE  CHN  # 

13203 

051004 

242  02  0  00  000006 

LSH 

AC2,6 

;PCSriON  THE  CHN  #  ADDRESS 

13204 

051005 

434  01  0  00  000002 

I  OR 

AC1,AC2 

13205 

051006 

350  00  0  10  0000 16 

AOS 

.B3YCT(C?^r" 

; COUNT  ihL  BUSY  Ct^O 

13206 

05100^ 

202  01  0  00  100022 

MOVEM 

AC1,XCTCr^D 

.•SAVE  THE  CMD 

13207 

051010 

476  00  0  00  077544 

SETOM 

CMDDAT 

13208 

051011 

254  00  0  00  047260 

JRST 

CMDXEX 

;AND  EXIT 
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SEQ  0A30 


13209 

13210 

13211 

13212 

13213 

132U 

13215 

13216 

13217 

13218 

13219 

13220 

13221 

13222 

13223 

1322A 

13225 

13226 

13227 

13228 

13229 

13230 

13231 

13232 

13233 

1323A 

13235 

13236 

13237 

13238 

13239 

132A0 

132A1 

13242 

132A3 

1324A 

132A5 

13246 

13247 

13248 

13249 

13250 

13251 


051012 

051013 

051014 

051015 

051016 

051017 

051020 

051021 

051022 

051023 

051024 

051025 

051026 

051027 

051030 

051031 

051032 

051033 

051034 

051035 

051036 

051037 

05104C 

051041 

051042 

051043 

051044 

051045 

051046 

051047 

051050 

051051 

051052 

051053 

051054 

051055 

051056 

051057 

051060 

051u61 


205  01 
540  01 


0 
0 


332  00  0 
254  00  0 
202  01  0 
254  00  0 
336  00  0 
202  01  0 


260 
205 


17  0 
01  0 


336  00 
541  01 


306  02  0 
541  01  0 


306 
541 


02  0 
01  0 


306  02  0 
541  01  0 
332  00  0 
254  00  0 


01 
00 
00 
01 
02 
01 
02 

01  . 

02  0 
00  0 


202 

254 

336 

202 

554 

602 

231 

6u:? 

231 

336  ,.  , 

336  00  0 

350  00  0 


2ij 
405 
24? 
434 


00  0 
02  0 
02  0 

01  0 


350  00  0 
202  01  0 
476  00  0 
254  00  0 


00  700000 
06  000004 
10  000003 
00  051020 
10  000003 
00  051022 
10  000010 
10  000010 
00  063447 
00  710000 
00  000002 
00  000071 
00  000001 
00  000073 
00  000002 
00  000061 
00  000003 
00  000063 
10  000004 
00  051040 
10  000004 
00  051042 
10  000011 
10  000011 
06  000001 
00  000002 
00  000202 
00  000002 
00  000200 
00  000003 
00  000002 
00  000002 
00  000002 
00  001777 
00  000006 
00  000002 
10  000016 
00  100022 
00  07754^ 
00  047260 


;LOAD  COMMAND  INTO  SECONDARY  RH20,  COMMAND  REGISTERS  TO  START  OPERATION 


DC 

DC 

1 


CMDX3B:  MOVSI  AC1,(RHSBAR) 

HRR  AC1,4(AC) 

SKIPE  .PBAR(CSBP) 

JRST  .+3 

MOVEM  AC1,.PBAR(CSBP) 

JRST  .+3 

SKIPN  .SBAR(CSBP) 

MOVEM  AC1,.SBAR(CSBP) 

GO  LDSBAR 

MOVSI  AC1,(RHSTCR) 

SKIPN  AC2 

HRRI  AC1,RDD 

CAIN  AC2J 

HRRI  AC1,RDHD 

CAIN  AC2,2 

HRRI  AC1,WTD 

CAIN  AC2,3 

HRRI  AC1,WTHD 

SKIPE  .oTCR(CSBP) 

JRST  .-^3 

MOVEM  AC1,.PTCR(CSBP) 

JRST  .+3 

SKIPN  .S:CR(CS9P) 

MOVEM  AC1,.STCR(CSBP) 

HLRZ  AC2,1(AC) 

TRNE  MCI,'' 

IDIVI  AC2,BLKSIZ+2 

TRNN  AC1,2 

IDIVI  AC2,8LKSIZ 

SKIPN  AC3 

SKIPN  AC2 

AOS  AC2 

MOVNS  AC2 

ANDI  AC2J777 

LSH  AC6,6 

lOR  AC1,AC2 

AOS  .BSYCT(CSBP) 

MOVEM  AC1,XCTCMD 

SETOM  CMDDAT 

JRST  CMDXEX 


SETUP  FOR  THE  BLK  ADDR  REG 

GET  TRACK/SECTOR  ADDRESS  FOR  TRANSF5R 

PRIfl?? 

NO 

YES 

2ND?? 

YES  -  SAVE  IT 

LOAD  COMMAND  IN  RH20 


LOA:)  READ 

LOAD  READ  HEADERS  S  DATA 

LOAD  WRITE 

LOAD  writ:  headers  I   DATA  IFORMAT) 

PRIM?? 

NO 

YES 

2ND?? 

SAVE  IT 

GET  THE  XFR  SIZE 

HEADERS  AND  DATA?? 

YES 

NO  -  NORMAL  FJAD  OR  WRITE 

ANY  REMAINDER? 

OR  IS  COUNT  =  0? 

UPDATE  THE  SIZE  COUNT 

NEGATE  THE  # 

SAVE  THE  VALUE  NEEDED 

POSITION  THE  BLOCK  COUNT 

COUNT  THIS  'BUSY"  CMD 
SAVE  THE  CMD 

AND  EXIT 


L 


r 


DDRPl  - 
DDRPI3 

13252 
13253 
1325A 
13255 
13256 
1325/ 
13258 
13259 
13260 
13261 
13262 
13263 
1326A 
13265 
13266 
13267 
13268 
13269 
13270 
13271 
13272 
13273 
1327A 
13275 
13276 
13277 
13278 
13279 
13280 
13281 
13282 
13283 
1 328^ 
13285 
132S6 
13287 
^288 
13289 
13290 
1329. 
'  12'j2 
13^93 
1729A 
1  >295 
^3296 
3297 
I  <^98 
13299 
13300 
13301 
13302 
133U3 
13304 
13305 
13306 
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.-HERE  TO  PROCESS  AND  EXECUTE  A  DRIVE  POSITIONING  COMMAND 


SEQ  0431 


051062 
051063 
051064 
051065 
051066 
051067 
051070 
051071 
051072 
051073 
051074 
051075 
051076 
051077 
051100 
051101 
051102 
0511U3 
051104 
051105 
051106 
051107 
051110 
051111 
051112 
05111? 

051114 
05111*' 
05VI6 
O'^ill/ 
051 1?0 
051121 

051122 
051125 

051 124 
051125 
051126 


051127 
051130 
051131 
051132 


332  00  0 

254  00  0 
402  00  0 
200  01  0 
260  17  0 
254  00  0 
254  00  0 
602  01  0 
254  00  0 
606  01  0 
254  00  0 
306  02  0 
254  00  0 
0 
0 
0 
0 


306  02 
254  00 
306  02 
254  00  . 
306  02  0 
254  00  C 


306  02 
254  00 
306  02 
254  00 
303  02 
254  00 
23  00  0 


0 
0 
0 
0 
0 
0 


00  030037 
00  050346 
00  077544 
00  072042 
00  057135 
00  051247 
00  051065 
00  040000 
00  051247 
00  000200 
00  051155 
00  000004 
00  051114 
00  000005 
00  051133 
00  000007 
00  051143 
00  000010 
00  051146 
00  000011 
00  051152 
00  000006 
00  051114 
00  0000O3 
00  03 1 500 
00  051122 


CMDX4: 


205  01  0  00  050000 
540  01  0  06  000004 
260  17  0  00  063147 
254  00  0  00  051114 
306  02  0  00  ^00006 
^:j4  00  0  00  051137 

336  01  0  06  000001 
25;  00  0  00  051127 

200  01  0  00  073512 
202  01  0  00  100022 
254  00  0  00  047260 


200  01  0  00  073513 
202  01  0  00  100022 
350  00  0  n  000147 
254  00  0  00  047260 


CMDX4A 


CMDX4R 


SK I PE 

JRST 

SET2M 

MOVE 

,  J 

JRST 

jRST 

TRNE 

JRST 

TRNN 

JRST 

CAIN 

JRST 

CAIN 

JRST 

CAIN 

JRST 

CAIN 

JRST 

CAIN 

JRST 

CAIN 

mr  ▼ 

CAILE 

JRST 

JRSTj 

MOVSI 

HRR 

60 

JRST 

CAi^» 

JRST 

SKIPN 
JRST 


CMDX4C:  MOVE 
MOV'EM 
JRST 


USER 

UCMDX4 

CMDDAT 

ACI^CDRSR] 

DRREG 

CMDXE2 

.-3 

AC1.CERR 

CMDXE2 

ACUDRY 

HN6XCT 

AC2,4 

CMDX4A 

AC2.5 

CMDX5 

AC2,7 

CMDX7 

AC2,10 

CMDX10 

AC2,11 

CMDX11 

AC2,6 

lhuahA 

AC2,3 

ILLCMD 

CMDX4B 

AC1,(DRDTS) 

AC1,4(AC) 

LDREG 

CMDX4A 

AC2.6 

CMDX6 

AC1J(AC/ 
CMDX4E 

AC1,[DRCR!0FFSETJ 

AC1,XCTC.1D# 

CMDXEX 


;HERE  TO  START  A  DRIVE  SEE<  COMMAND 


CMDX4E:  MOVE 
rtOVEM 
AOS 
JRST 


ACUDRCPISEEKJ 
ACKXCTCMD 
.ACrSK(DS8P) 
CMDXEX 


IN  USER  MODE?? 

YES  -  EXECUTE  THE  USER  POSITION  STUFF 

INDICATE  A  POSITION  COMMAND 

SETUP  TO  READ  THE  DRIVE  STATUS  REG 

READ  DRIVE  STATUS  REGISTER 

ERROR  -  TELL  &  EXIT 

ERROR  -  TRY  AGAIN 

ANY  DRIVE  ERROR 

YES  -  REPOR' 

IS  THE  DRIVE  READY  FOR  A  COMMAND? 

NO  -  HANG  THE  EXECUTE 

IS  IT  A  SEEK  COMMAND?? 

YES 

IS  IT 

YES  - 

IS  IT 

YES  - 

IS  IT 

YES  - 

OR  IS 

YES 

SEARCH  COMMAND?? 

YES 

READ  0*?  WRITE  CMD? 

NO  -  MUST  BE  AN  ILLEGAL  COMMAND?? 

DO  THE  POSITION  CMD 

LOAD  THE  TRACK/SECTOR  ADDR 

WITH  THE  DISK  ADDR 

LOAD  THE  REG 

LOAD  ERROR  -  TRY  Af-AIN 

SEARCH  COMHAND?? 

YUP  -  FINISH  THE  SEARCH  CMD 


;ANY  OFFSET? 
;N0  -  DO  A  SEEK 


A  RECAL  COMMAND?? 

ISSUE  A  RECAL 

A  RTC  COMMAND?? 

ISSUE  A  RETURN-TO-CENTERLINE 

A  DUAL  PORT  RELEASE  COMMAND?? 

DO  IT 

IT  A  PACK  UNLOAD  COMMAND?? 


;SAVE  THE  CMD  TO  DO 
;DONE  -  EXIT 


PREPARE  TO  ISSUE  THE  CMD 
SAVE  THE  SEEK  CMD 
COUNT  THE  SEEK 
DONE  -  EXIT 


;HERE  TO  START  A  DRIVE  RECALIBRATE  COMMAND 
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SEQ  0432 


DC 
DC 


13307 
13308 
13309 
13310 
13311 
13312 
13313 
13314 
13315 
13316 
13317 
13318 
13319 
13320 
13321 
13322 
13323 
13324 
13325 
13326 
13327 
13328 
13329 
13330 
13331 
13332 
13333 
15334 
13335 
13336 
13337 
13338 
13339 
13340 
13341 
13342 
13343 
13344 
13345 
13346 
13347 
13348 
13349 
13350 
13351 
13352 
13353 
13354 
13355 
15356 
15557 

15558 
15559 
15560 
15561 


051133 
051134 
051135 
051136 


051137 
051140 
051141 
051142 


051143 
051144 
051145 


051146 
051147 
051150 
051151 


051152 
051153 
051154 


051155 
051156 
051157 
051160 
051161 
051162 
051163 
051164 
051165 
051 i66 
051167 
051170 
051171 

051172 
051173 
051174 

051175 
051176 
051177 
051200 


200  01  0  00  073514 
202  01  0  00  100022 
350  00  0  11  000150 
254  00  0  00  047260 


200  01  0  00  073515 
202  01  0  00  100022 
350  00  0  11  000147 
254  00  0  00  047260 


200  01  0  00  073516 
202  01  0  00  100022 
254  00  0  00  047260 


200  01  0  00  072045 
202  01  0  00  100022 
260  17  0  00  056676 
254  00  0  00  047263 


200  01  0  00  073517 
202  01  0  00  100022 
254  00  0  00  047260 


356  00  0 
7  004  20 
260  17  0 
254  00  0 
260  17  0 
556  00  0 
254  00  0 
556  00  0 
254  00  0 
7  004  24 
405  00  0 
202  00  0 
7  004  20 


00  050037 
0  00  000200 
00  044244 
00  047510 
00  051510 
00  100005 
00  047510 
00  050057 
00  051172 
0  00  000000 
00  000200 
00  077673 
0  00  000400 


037  02  0  00  073520 

260  17  0  :0  044454 

260  17  0  00  053151 

037  02  0   00  073060 

200  00  0  00  077547 

550  00  1  00  000000 

260  )7  0   00  051760 


CHDX5: 


HOVE 

ACi,CDRCRIRECAL] 

.•PREPARE  TO  ISSUE  A  RECALIBRATE 

novEM 

AC1,XCTCHD 

.•SAVE  THE  RECAL  CMD 

ACS 

.RECAL(DSBP) 

.•COUNT  THE  RECAL 

JRST 

CHDXEX 

;AND  EXIT 

.•HERE  TO  START  A  DRIVE  SEARCH  COMMAND 

CMDX6:  MOVE  ACl .CDRCR! SEARCH] 

MOVEM  ACKXCTCMD 

AOS  .ACTS»((DSBP) 

JRST  CMDXEX 


PREPARE  TO  ISSUE  A  SEARCH 
SAVE  THE  SEARCH  CMD 
COUNT  THE  POSITION  CMD 
DONE  -  EXIT 


.•HERE  TO  ISSUE  A  RETURN-TO-CENTERLINE  COMMAND 


CMDX7:  MOVE    AC1 .CDRCRIRTNCTR] 
MOVEM   AC1.XCTCMD 
JRST    CMDXEX 


PREPARE  TO  ISSUE  THE  COMMNAD 
SAVE  THE  RTC  CMD 
DONE  -  EXIT 


.•HErxE  TO  ISSUE  A  DUAL  PORT  RELEASE  COMMAND 


CMDX10:  MOVE 
MOVEM 
GO 
JRST 


AC1.CDRCRIRELSE] 

AC1.XCTCMD 

CLRCMD 

CMDXEY 


.-HERE  TO  ISSUE  A  PACK  UNLOAD  COMMAND 

CMDXil:  MOVE  AC1 .CDRCRl UNLOAD] 

MOVEM  AC1.XCTCMD 

JRST  CMDXEX 


PREPARE  TO  ISSUE  THE  COMMAND 
SAVE  THE  RELEASE  CMD 
CLEAR  THE  CMD  FROM  DSB  AREA 
DONE  -  EXIT 


PREPARE  TO  ISSUE  THE  UNLOAD 
SAVE  THE  UNLOAD  CMD 
DONE  -  EXIT 


.•HERE  IF  THE  OPERATION  CANNOT  BE  EXECUTED  FOR  THIS  DRIVE  -  HANG  EXECUTION 


HNGXCT:  SKIPN  USER 

CCNO  PI.PION 

GO  CMPCHK 

JRST  CMDXNP 

GO  CHKALT 

SKIPN  TIMOUT 

JRST  CMDXNP 

SKIPN  USER 

JRST  .+5 

CONI  PKACO 

ANDI  ACO.200 

MOVEM  PISAV 

CONO  Pl.PlOff 

PMSG  <*OPERAT 

PSIXM  CSIXBIT\ 

GO  RUNTIM 

GO  TELTST 

PMSG  <CMD>* 

PSIXM  [SIXBIT\CHD  \]* 

MOVE  CMDXPT 

HRRZ  a 

GO  PNTCMD 


IN  USER  MODE? 

NO  -  TURN  ON  PI  SYS  IF  IT  WAS 

CHECK  FOR  ANY  DATA  COMPARES 

CLEAN  UP  THE  MBC  AREA  i   EXIT 

LOOK  FOR  AN  ALT-MODE  TYPED 

ANY  MBC  DIE?? 

EXIT  XCT  ROUTINE 

DONT  TOUCH  PI  IN  USER  MODE 

SKIP  PI  CODE 

GEI  PI  STATUS 

SAVE  PI  ON  ONLY 

SAVE  IT 

TURN  PI  OFF 
ION  TIMEOUT  >* 
•OPERATION  TIMEOUT  \]* 

.-PRINT  THE  PGM  RUN  TIME 
.-AND  THE  TEST  STUFF 


OFF 


;6ET  THE  POINTER 

.-PRINT  THE  CMD  THAT  MAY  HAVE  DIED 
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SEQ  0433 


DD 
DD 


13362 

13363 

13364 

13365 

13366 

13367 

13368 

13369 

13370 

13371 

13372 

13373 

13374 

13375 

13376 

13377 

13378 

13379 

13380 

13381 

13382 

13383 

13384 

13385 

13386 

13387 

13388 

13389 

13390 

13391 

13392 

13393 

13394 

13395 

13396 

13397 

13398 

13399 

13400 

13401 

13402 

13403 

13404 

13405 

13406 

13407 

13408 

13409 

13410 

13411 

13412 

1341^ 

13414 

13415 

13416 


051201 
051202 
051203 
051204 
051205 
051206 
051207 
051210 
051211 
051212 
051213 

051214 
051215 

051216 
051217 
051220 
051221 
051222 
051223 
051224 
051225 
051226 


037  00  0 
200  06  0 
370  00  0 


553  00 
402  00 
550  10 
402  00 
402  00 


0 
0 
0 
0 
0 


7  004  20 
260  17  0 
254  00  0 


00  030242 
00  100005 
00  000006 
06  101047 

00  100005 
06  101047 
10  000016 
10  000017 

1  00  077673 
00  051310 
00  047401 


260  17  0  00  050037 
254  00  0  00  047310 


336  00 
263  17 
331  00 
254  00 
260  17 
334  00 
260  17 
402  00 
263  17 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


0  00 


0 
0 


00 
00 


077555 
000000 
077555 
051224 
056735 
000000 
056744 
077555 
000000 


051230 
051231 
051232 

051233 
051234 
051235 
051236 
051237 
051240 
051241 
051242 
051243 
051^44 
051245 
051246 


037  02  0  00  073524 
o?  00  0  00  070150 
037  03  0  00  000000 


037 
402 
260 
260 
260 
260 
200 
316 
260 
316 
260 
254 


02 
00 
17 
17 
17 
17 
00 
00 
17 
00 
17 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
10 
00 
10 
00 
00 


073530 
077755 
063540 
064471 
044454 
053151 
077547 
000006 
056735 
000013 
056744 
047310 


051247 
051247 
051250 
051251 
051252 
051253 


037  02  0  00  073534 
200  00  0  QC  000013 
037  02  0  00  OQOOOO 
037  00  0  00  030242 
^60  17  0  00   044454 


CMXNPC : 
CMMBCC: 


PCRL 

MOVE 

SOS 

HRRZS 

SETZM 

HRRZ 

SETZM 

SETZM 

CONO 

60 

JRST 

GO 
JRST 

SKIPN 

RTN 

SKIPL 

JRST 

GO 

SKI  PA 

GO 

SETZM 

RTN 


ACJIMOUT 

AC 

CSBTBL(AC) 

TIMOUT 

CSBP,CSBTBL(AC) 

.BSVCT(CSBP) 

.PIPCT(CSBP) 

PI.aPISAV 

CHKALT 

CMDERS 

DSEL 
CMDXNP 

CPRIMF 

CPRIMF 

.♦3 

CPPIM 

CLR2ND 
CPRIMF 


;6ET  THE  MBC  THAT  DIED 

;FIX  THE  CSB  TABLE 
;AND  RESET  THE  FLAG 


RESTORE  PI 

SEE  IF  ALT-MODE  WAS  TYPED 

THEN  RESTART  THE  TEST 


.•DESELECT  DRIVE  AND  EXIT 
;EXIT  EXECUTE  SERVICE  NOW 


DATA  XFR  COMMAND? 

NOPE  -  EXIT 

YUP  -  BUT  IS  IT  IN  PRIM  AREA? 

NO  -  CLEAR  THE  CSB  2ND  AREA 

YES  -  CLEAR  THE  CSB  PRIM  XFR  AREA 

CLEAR  THE  CSB  2ND  AREA 
THEN  CLEAR  THE  FLAG 
AND  EXIT 


;MBC  ERROR  DETECTED 


051227  7  004  20  0  00  000400    CMDXE1: 


CONO 

PMSG 

PSIXM 

LDB 

PNT3 

PMSG 

PSIXM 

SETZM 

GO 

GO 

GO 

GO 

MOVE 

CAMN 

GO 

lAMN 

GO 

JRST 


PKPIOFF  .-KILL  PI  SYSTEM 

<*MASSBUS  CONTROLLER  »>'' 

CSIXBIT\*MASSBUS  CONTROLLER  #  \]* 

[POINT  9,MBCNJ1]      ;GET  THE  MBC  DEVICE  CODE  NUMBER 

.-PRINT  IT 
<DETECTS  AN  ERRORI*>* 
CSIXBIT\DETECTS  AN  ERR0RI*_\3* 


SHREG 

.  CONI 

CONIPT 

RUNTIM 

TELTST 

CMDXPT 

.PCMD(CSBP) 

CPRIM 

.SCMD(CSBP) 

CLR2ND 

CMDXNP 


LONG  PRINTOUT 

GET  THE  MBC  CONI  STATUS 

PRINT  THE  RESULTS 

PRINT  THE  PGM  RUNTIME 

AND  THE  CURRENT  TEST  INFORMATION 

GET  XCT  POINTER 

CMD  IN  PRIM  AREA 

YES  CLEAR  IT 

IN  SECONDARY 

YES  CLEAR  IT 

EXIT  THE  XCT  ROUTINE 


.•DRIVE  ERROR  DETECTED 


CMDXE2:  PMSG 
PSIXM 
MOVE 
PNT2 
PCRL 
GO 


<*DRIVE  ERROR  DETECTED  -  DRIVE  #>* 
CSIXBIT\*DRIVE  ERROR  DETECTED  -  DRIVE  #  W 
DRIVE 


RUNTIM 
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SEQ  0434 


Dl 
Dl 


13417 

13418 

13419 

13420 

13421 

13422 

13423 

13424 

13425 

13426 

13427 

13428 

13429 

13430 

13431 

13432 

13433 

13434 

13435 

13436 

13437 

13438 

13439 

13440 

13441 

13442 

13443 

13444 

13445 

13446 

13447 

13448 

13449 

13450 


051254 
051255 
051256 
051257 
051260 
051261 
051262 
051265 
051264 
051265 
051266 
051267 
051270 
051271 
051272 
051273 
051274 
051275 
051276 
051277 


051300 
051300 
051301 

051302 
051303 
051304 
051305 
051306 
051307 


260  17  0 
260  17  0 
205  01  0 
260  17  0 
334  00  0 
254  00  0 


260  17 
205  01 
260  17 
334  00 
254  00 
260  17 
205  01 
260  17 
334  00 
254  00 
260  17 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

310  00  0 
254  00  0 


00  053151 
00  064523 
00  020000 
00  057135 
00  000000 
00  051256 
00  064523 
00  140000 
00  057135 
00  000000 
00  051263 
00  064523 
00  150000 
00  057135 
00  000000 
00  051270 
00  064523 
00  056014 
00  000000 
00  047310 


037  02  0  00  073542 
260  17  0  00  054607 


037  02 
200  00 
Oi^  02 
550  00 
260  17 
254  00 


0  00  073550 
0  00  000002 
0  00  000000 
0  06  000003 
0  00  051760 
0  00  047260 


ii 

GO 

MOVSI 

GO 

SKI  PA 

JRST 

GO 

MOVSI 

GO 

SKI  PA 

JRST 

GO 

MOVSI 

GO 

SKI  PA 

JRST 

GO 

GO 

CAM 

JRST 


TELTST 
REGPNT 
AC1,(DRER1) 
DRREG 

.-3 

REGPNT 

AC1,(DRER2) 

DRREG 

.-3 

REGPNT 

AC1,(DRER3) 

DRREG 

.-3 

REGPNT 
DRVCLR 

CMDXNP 


PRINT  THE  DRIVE  STATUS  REG. 
PREPARE  TO  READ  DRIVE  ERROR  REG  M^ 
READ  IT 
FATAL  ERROR 

READ  ERROR  -  TRY  AGAIN 
PRINT  THE  REGISTER  DATA 
PREPARE  TO  READ  ERROR  REG  #2 
DO  IT  NOW 

FATAL  ERROR  -  DO  NOTHING 
READ  ERROR  -  TRY  AGAIN 
PRINT  THE  RESULTS 
PREPARE  TO  READ  ERROR  REG  #3 
DO  IT  NOW 

FATAL  ERROR  -  DO  NOTHING 
READ  ERROR  -  TRY  AGAIN 
PRINT  THE  REGISTER  DATA 
; CLEAR  DRIVE 


;HERE  IF  AN  ILLEGAL  COMMAND  WAS  DETECTED  IN  THE  CODED  FUNCTION  CODE 

ILLCMD:  PMSG  <*ILLE6AL  COMMAND  ISSUED  TO  DRIVE  >* 

PSIXM  CSIXBIT\*ILLEGAL  COMMAND  ISSUED  TO  DRIVE  ,\3* 

GO  PNTDRV  ;PRINT  THE  DRIVE  I 

PMSG  <*COMMAND  FUNCTION  NUMBER  =  >* 

PSIXM  [SIXBIT\*COMMAND  FUNCTION  NUMBER  =  \]* 

MOVE  AC2  ;GET  THE  COMMAND  M 

PNT2  ; PRINT  IT 

HRRZ  3(AC)  ;GET  THE  COMMAND  POINTER 

GO  PNTCMD  ; PRINT  THE  WHOLE  COMMAND 

JRST  CMDXEX  ;AND  EXIT 


DDRPl  SUBROUTINES  (RPOA/05/06  RELIABILITY) 
'  COMMAND  EXECUTOR  -  CMDXCT 


DECFLO  VER     00.12  12-APR-78  08:AA     PAGE  35 


SEQ  0435 


r 

D 
0 


FLOW  FOR 
EXECUTING 
POSITION 
COMMANDS 
FROM  DSB 
CMD  AREA 


/ 


**CMOXA  ♦* 

I 

THIS  DRIVE  WES 

BUSY  NOW  \ — 

?  \ 


I     HNGXCT 

*  CHECK  &  START  ANY  * 

*  PENDING  DATA  COMP.  * 

*  REQUIRED      * 

♦••***•*•••*•**•••••••• 


I 


I  NO 


I 

i 


DONE  A     \YES 
RECAL      \— ' 
OPERATION?      \ 

I  NO 
>I  CMDX4A 

*  LOAD  DSK  DTS  * 

*  REG  FRM  DSB  * 

*  "DSKAD"    ♦ 

tick  ttltltlttltlttit -kit  t* 


•••*•*♦*♦*•  YES  / 
**CMDXA  **< — / 


ANY 
DATA  COMP 
DONE 


\ 


\ 


I 


YES   / 


LOAD 
ERROR 


\ 


I  CMDX4B 


#    DONE  AN     \YES 
r     OFFSET      \— 
/    OPERATION?      \ 

I  NO 

♦♦♦#♦♦♦♦♦♦♦♦*♦•*****♦♦♦ 

♦  LOAD  A  SEEK  CMD  IN  ♦ 

*  DRIVES'  CONTROL   ♦ 

•  REG  TO  START     * 


CMDXAC 

*  LOAD  AN  OFFSET  CMD  ♦ 
♦INTO  DRIVES'  CONTROL  * 

*  REG  TO  START     * 


I  NO 
TIMEOUT? 


\N0 
\- 
V 


I  YES 

*  PRINT  OPERATION   ♦ 

*  TIMEOUT  MESSAGE   * 

*  PRINT  PGM  RUNTIME  * 
**•♦♦•♦••♦•♦♦♦*•♦*♦••*♦ 

I 

•*♦•*•♦•♦•♦ 

**CMDXNP  *♦ 


**CMDXNP  *♦ 


CMDXAD 

*  LOAD  A  RECAL  CMD   ♦ 
»INTO  DRIVES'  CONTROL  * 

*  REG  TO  START     ♦ 


»••*♦»♦»»♦•♦**♦♦*♦♦*♦*♦  »*»♦»**♦*♦•*♦*♦*••*»**♦ 


I 


I 


I 


I 

*MARK  CMD  PROCESSED  IN* 
*DSB  AREA  AND  IN  COMQ  » 
*     (BIT  0  SET)     » 

I  CMDXEX 
♦♦♦»♦♦♦♦♦*♦•♦♦♦♦♦ 

♦  RESTORE  ALL  ♦ 
t   USED  AC'S   ♦ 

♦  ♦ 

I 
♦*RTN    ♦♦ 


%!■  I 


I 


L_ 
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SEQ  0436 


D 
D 


13452 

13453 

13454 

13455 

13456 

13457 

13458 

13459 

13460 

13461 

13462 

13463 

13464 

13465 

13466 

13467 

13468 

13469 

13470 

13471 

13472 

13473 

13474 

13475 

13476 

13477 

13478 

13479 

13480 

13481 

13482 

13483 

13484 

13485 

13486 

13487 

1348P 

1 348s 

13490 

13491 

13492 

13493 

13494 

13495 

13496 

13497 

13498 

13499 

13500 

13501 

13502 

13503 

13504 

13505 

13506 


051310 
051311 
051312 
051313 
051314 
051315 
051316 
051317 
051320 
051321 
051322 
051323 
05132-* 
051325 
051326 
051327 
051330 

051331 
051332 
051333 
051334 
051335 
051336 
051337 
051340 
051341 
051342 
051343 
051344 
051345 
051346 
051347 

051350 
051351 
051352 
051353 

051354 
051355 
051356 
051357 
051360 

051361 
051362 
051363 


261  17  0 
332  00  0 
254  00  0 
7  004  24 
405  00  0 
202  00  0 
7  004  20 
037  07  0 
254  00  0 
550  00  0 
434  00  0 
202  00  0 

262  17  0 
262  r  0 
336  00  0 
7  004  20 
254  00  0 

332  00  0 
254  00  0 
336  00  0 
7  004  20 
26?  17  0 
2o< 


17 
306  00 
254  00 
302  00 


254 
261 
261 
261 
261 


00 
17 
17 
17 
17 


260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  030037 
00  051317 
0  00  000000 
00  000200 
00  077673 
0  00  000400 
00  000003 
00  051331 
17  mill 
00  073555 
00  100737 
00  000000 
00  077620 

00  030037 

1  00  077673 
00  030600 

00  000000 
00  051337 

00  030037 

1  00  077673 
00  000000 
00  000000 
00  000122 
00  051343 
00  000162 
00  051401 
00  000001 
00  000002 
00  000006 
00  000015 
00  044454 


037  02  0  00  073556 
201  00  0  00  000145 
402  00  0  00  000001 
260  17  0  00  051462 

037  02  0  00  073560 
201  00  0  00  000146 
201  01  0  00  000001 
260  17  0  00  051462 
037  00  0  00  000040 

037  02  0  00  073562 
201  00  0  00  000147 
201  01  0  00  000002 


•CHKALT  —  ROUTINE  TO  CHECK  FOR  A  TYPED  "ALT-MODE"  OR  OTHER 
;      CONTROL  CHARACTERS  ("S"  FOR  SELECTED.  "R"  FOR 
r      RUN  TIME  STATUS,  &  "A"  FOR  UNITS  AVAILABLE). 

; /If  •**•**•*••***••*••*•••**•***••**•**•*****  ******************************* 


CHKALT: 


CHECKR: 


PUT 

SKIPE 

JRST 

CONI 

AND  I 

MOVEM 

CONO 

TTALTM 

JRST 

HRRZ 

I  OR 

MOVEM 

GET 

GET 

SKIPN 

CONO 

JRST 

SKIPE 

JRST 

SKIPN 

CONO 

GET 

RTN 

CAIN 

JRST 

CAIE 

JRST 

PUT 

PUT 

PUT 

PUT 

GO 

PMSG 

PSIXM 

MOVE  I 

SETZM 

GO 

PMSG 

PSIXM 

MOVE  I 

MOVE  I 

GO 

PSP 

PMSG 

PSIXM 

MOVE  I 

MOVE  I 


ACO 

USER 

.+5 

PI -ACO 

ACO, 200 

ACO,PISAV# 

PI,PIOFF 

CHECKR 

-1(P) 

CJRST] 

CONT 

ACO 

GARBAG 

USER 

PI,aPISAV 

ENTDDT 


.-^5 
USER 

PI-aPISAV 
ACO 

.♦s 

"R"MO 

CHECKA 

ACl 

AC2 

AC 

REPT 

RUNTIM 

<  BLKS  RD=>* 
CSIXBITX  BLKS  RD=  \J 
.WDRD 

ACl 
TOTBLK 

<  WRT=  >* 

CSIXBITX  WRT=  \]* 
.WDWRT 

AC1,1 
TOTBLK 


<  POS=  >• 
[SIXBIT\  POS= 
.ACTSK 
ACl, 2 


\] 


GET  PI  STATUS 

SAVE  PI  ON  ONLY 

SAVE  IT 

TURN  PI  SYSTEM  OFF 

OPR  TYPE  AN  ALTMODE?? 

NO  -  LOOK  FOR  OTHER  THINGS 

YES  -  GET  THE  RETURN  PC 

GET  THE  INSTRUCTION  PART 

SAVE  IT 

FIX  THE  STACK 

RESTORE  PION 
ENTER  DDT 

ANY  CHAR  TYPED 
YES 

RESTORE  PION 

NO  -  GET  OUT  NOW!! 
UPPER  CASE  "R"  ?? 
YUP 

LOWER  CASE  "R"  ?? 
NO  -  MORE  CHECKS 
•YES  -  SAVE  SOME  AC'S 


; PRINT  PGM  RUN  TIME 

;GET  THE  OFFSET  # 

;&  PRINT  TOTAL  BLOCKS  READ 

;GET  TOTAL  WRITTEN 
;AND  PRINT 

;6ET  TOTAL  POSITIONS 


L 


L 
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SEQ  0437 


13507 

13508 

13509 

13510 

13511 

13512 

13513 

13514 

13515 

13516 

13517 

13518 

13519 

13520 

13521 

13522 

13523 

13524 

13525 

13526 

13527 

13528 

13529 

13ti0 

13531 

13532 

13533 

13534 

13535 

13536 

13537 

13538 

13539 

13540 

13541 

13542 

13543 

13544 

13545 

13546 

13547 

13548 

13549 

13550 

13551 

13552 

13553 

13554 

13555 

13556 

13557 

13558 

13559 

13560 

13561 


051364 
051365 
051366 
051367 
051370 
051371 
051372 
051373 
051374 
051375 
051376 
051377 
051400 

051401 
051402 
051403 
051404 
051405 
051406 
051407 
051410 
051411 
051412 
051413 
051414 
051415 

051416 
051417 
051420 
051421 
051422 
051423 
051424 
051425 
051426 

051427 
051430 
051431 
051432 
05K33 

051434 
051435 
051436 
051437 

051440 
051441 
051442 
051443 
051444 
051445 


260  17 
037  00 
200  00 
037  00 
037  00 
336  00 


7  004  20 
262  17  0 


262  17 
262  17 
262  17 

262  17 

263  17 


302 
254 
261 
261 
261 
200 
403 
200 
603 
260 
350 
367 
336 


00 
00 
17 
17 
17 
15 
13 
02 
02 
17 
00 
15 
00 


0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  051462 
00  000040 
00  100010 
00  000002 
00  030242 

00  030037 

1  00  077673 
00  000015 
00  000006 
00  000002 
00  000001 
00  000000 
00  000000 


00 
00 
00 
00 
00 
00 
00 
13 
00 
00 
00 
00 
00 


000101 
051427 
00001 3 
00001 5 
000002 
100671 
077671 
100747 
100000 
043256 
000013 
051410 
077575 


037  02  0 
037  00  0 
33-  00  0 
7  004  20 
262  17  0 


262  17 
262  17 

262  17 

263  17 


0 
0 
0 
0 


00  073564 
00  030242 

00  030037 

1  00  077673 
00  000002 
00  000015 
00  000013 
00  000000 
00  000000 


302  00  0  00  000123 
254  00  0  00  051446 
261  17  0  00  000013 
261  17  0  00  000015 
261  17  0  00  000002 


037  02  0 
260  17  0 
037  00  0 
336  00  0 
7  004  20 
262  17  0 


262  17 
262  17 
^62 
?63 


17 
17 


0 
0 
0 
0 


00  073566 
00  043605 
00  030242 

00  030037 

1  00  077673 
00  000002 
00  000015 
00  000013 
00  000000 
00  000000 


m 

PSP 

MOVE 

PNTSIX 

PCRL 

SKIPN 

CONO 

GET 

GET 

GET 

GET 

GET 

RTN 

CHECKA:  CAIE 
JRST 
PUT 
PUT 
PUT 
MOVE 
SETZB 
MOVE 
TLNE 
GO 
AOS 

REPTLP 
SKIPN 
PMSG 
PSIXM 
PCRL 
SKIPN 
CONO 
GET 
GET 
GET 
GET 
RTN 


CHECKS: 


CAIE 

JRST 

PUT 

PUT 

PUT 

PMSG 

PSIXM 

GO 

PCRL 

SKIPN 

CONO 

GET 

GET 

GET 

GET 

RTN 


TOTBLK 
TSTSAV 


USER 

PI,aPISAV 

REPT 

AC 

AC2 

ACl 

ACO 


"A" 

CHECKS 

DRIVE 

REPT 

AC2 

REPT.DRMAX 

DRIVE, PFRST 

AC2,DSBTBL(DRIVE) 

AC2,(.0NLN) 

SPRTB 

DRIVE 

.-4 

DRCNT 

<  NONE!>* 

CSIXBITV  NONE  I. \]* 

USER 

PI.aPISAV 

AC2 

REPT 

DRIVE 

ACO 


CHECKH 
DRIVE 
REPT 
AC2 

[SIXBIT\******  \J' 
SELPRT 

USER 

PKaPISAV 

ACJ 

REPT 

DRIVE 

ACO 


;GET  THE  TEST  NAME 
jiND  PRINT  IT 


F 

D 
D 


;CHARACTER  "A"  ?? 
;N0  -  MORE  CHECKS 
;YES  -  SAVE  SOME  THINGS 


GET  THE  MAX  #  DRIVES 
CLEAR  POINTERS 
GET  TABLE  STATUS 
DRIVE  ON-LINE?? 
;YES  -  REPORT 


;ANY  DRIVES  ON-LINE?? 


.•RESTORE  PION 


.-CHARACTER  "S"  ?? 

;N0  -  SEE  IF  HELP  NEEDED 

;YES  -  PRINT  SELECTED  DRIVES 


.•PRINT  NOW 


L 


DDRPl 
DDRP13 

13562 
13563 
1356A 
13565 
13566 
13567 
13568 
13569 
13570 
13571 
13572 
13573 
13574 
13575 
13576 
13577 


-  RhiO/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15     MACRO  X53B(12A2)   15:51   28''Aug-85  Page  160-2 


MAC  28-Aug-85  15:49 

051446  306  00  0  00  000121 

051447  254  00  0  00  051460 

051450  306  00  0  00  000110 

051451  037  02  0  00  073570 

051452  302  00  0  00  000110 

051453  037  02  0  00  073603 

051454  336  00  0  00  030037 

051455  7  004  20  1  00  077673 

051456  262  17  0  00  000000 

051457  263  17  0  00  000000 
051460 

051460  037  04  0  00  073606 

051461  254  00  0  00  030726 


DISK  COMMAND  EXECUTOR 


SEQ  0438 


CHECKH:  CAIN 
JRST 
CAIN 
PMSG 
PSIXM 
CAIE 
PMSG 
PSIXM 
SKIPN 
CONO 
GET 
RTN 

CHECKQ:  PMSGF 
PSIXMF 
JRST 


•  •/%•• 


CHECKQ 

'ii*'  •HELP'''' 

<*A=AVAIL  DRV,   S=SELECTED  DRV"*R=RUN  STATUS,   Q=QUIT,  H=HELP*'^>'^     ^^^  ^^ 

CSIXBIT\*A=AVAIL  DRV,   S=SELECTED  DRV,   R=RUN  STATUS,  0=QUIT,   H=HELP^\\3' 

"H"  ;Not  help? 

<*TYPE  H  FOR  HELP*>     ^.'Prompt  him 

CSIXBITN^TYPE  H  FOR  HELP*  \: 

USER 

PI-aPISAV 

ACO 

<*PROGRAM  RESTART^>* 
[SIX8IT\*PR0GRAM  RESTART*  \]* 
STRT1 


-,— J 


L 


DDRPl  - 
DDRP13 

13578 

13579 

13580 

13581 

13582 

13583 

13584 

13585 

13586 

13587 

13588 

13589 

13590 

13591 

13592 

13593 

13594 

13595 

13596 

13597 

13598 

13599 

13600 

13601 

13602 

13603 

13604 

i:i05 

13606 

13607 

13608 

13609 

13610 

13611 

13612 

13613 

13614 

13615 

13616 

13617 

13618 

13619 
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./If******************************  *••***•••*•*♦**•**  **•**•••*♦***********♦** 

;*TOTBLK  —  ROUTINE  TO  CALCULATE  THE  TOTAL  NUMBER  OF  "BLOCKS" 

;*      (OR  SECTORS)  TRANSFERED  BY  THE  MASSBUS  SYSTEM. 

•/jf***********  *****************************************************  ******** 


SEQ  0439 


r 

0 

u 


051462  261  17  0  00  000000 

051463  261  17  0  00  000001 

051464  261  17  0  00  000002 

051465  403  02  0  00  000006 

051466  202  01  0  00  100002 

051467  200  15  0  00  100671 


051470 
051471 
051472 
051473 
051474 
051475 
051476 

051477 
051500 
051501 
051502 
051503 
051504 
051505 

051506 
051507 
051510 
051511 
051512 
051513 
051514 

051515 
051516 
051517 
051520 


336  01 
254  00 
553  00 
315  01 
254  00 
270  0' 
270  uc 


0  06  100747 
0  00  051477 
0  00  000001 
0  00  030145 
0  00  051477 
'^  00  000000 
0  "^l  000000 


350  00 
365  15 
200  00 
231  00 
200  01 
301  01 
200  00 


0  OO 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


000006 
051470 
000002 
000200 
100002 
000002 
000002 


33i  00 
254  00 
202  00 
254  00 
274  00 
272  00 
260  17 


0  01  100744 
0  00  051512 
0  01  100744 
0  00  051514 
0  01  100744 
0  01  100744 
0  00  066163 


262  17  0  00  000002 
262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


TOTBLK: 

PUT 

ACO 

PUT 

ACl 

PUT 

AC2 

SETZB 

AC2,AC 

MOVEM 

AC1,TBLKF# 

MOVE 

REPT^DRMAX 

TBLK1 : 

SKIPN 

AC1,DSBTBL(AC) 

JRST 

TBLK2 

HRR2S 

ACl 

CAM6E 

ACUMEr.OW 

JRST 

TBI  K2 

ADD 

ACI,ACC 

ADD 

AC2,(AC1) 

TBLK2: 

AOS 

AC 

SOJGE 

REPTJBLK1 

MOVE 

AC2 

IDIVI 

BLKSIZ 

MOVE 

AC1,TBLKF 

CAIL 

ACU2 

MOVE 

AC2 

TBLK3: 

SKIPE 

TBLKR(ACI) 

JRST 

.-►3 

MOVEM 

TBLKR(ACl) 

JRST 

.-^3 

SUB 

TBLKR(ACI) 

ADDM 

TBLKR(ACI) 

GO 

PSDN 

GET 

AC2 

GET 

ACl 

GET 

ACO 

RTN 

;SAVE  AC'S 


CLEAR  SOME  AC'S 
SAVE  THE  "FLAG" 
SET  THE  LOOP  COUNT 

GET  DRIVE  TABLE  STATUS 

NONE  AVAILABLE 

SAVE  ONLY  DSB  POINTER 

POINTER  OK? 

NO 

YES  -  ADD  IN  THE  OFFSET  ADDR 

GET  THE  COUNT  FOR  THIS  DRIVE 

BUMP  THE  DRIVE  COUNTER 
LOOP  TILL  ALL  DONE 
PUT  THE  COUNT  IN  ACO 
CALC  »   BLOCKS  XFtRED 
GET  THE  "FLAG"  STATE 
SEEK  PRINTOUT  ?? 
YES 

ANY  PREVIOUS  COUNT? 
YES  -  SKIP  OVER  CODE 
NO  -  SAVE  THE  COUNT 

CALC  THE  DIFFERENCE 

THEN  UPDATE  THE  COUNT  SAVED 

AND  PRINT  THE  BLOCKS  XFERED 

RESTORE  THE  AC'S 


;EXIT 


mm* 


..J 
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SEQ  O^^O 


13620 

13621 

13622 

13623 

13624 

13625 

13626 

13627 

13628 

13629 

13630 

13631 

13632 

13633 

13634 

13635 

13636 

13637 

13638 

13639 

13640 

13641 

13642 

13643 

13644 

13645 

13646 

13647 

13648 

13649 

13650 

13651 

13652 

13653 

13654 

13655 

13656 

13657 

13658 

13659 

13660 

13661 

13662 

13663 

13664 

13665 

13666 

13667 

13668 

13669 

13670 

13671 

13672 

13673 

13674 


051521 
051522 
051523 
051524 
051525 
051526 
051527 
051530 
051531 
051532 
051533 
051534 
051535 
051536 
051537 
051540 
051541 
051542 
051543 

051544 
051545 
051546 
051547 
051550 
051551 

051552 
051553 
051554 
051555 
051556 
051557 
051560 
051561 
051562 
051563 
051364 

051565 
051566 
051567 
051570 
051571 
051572 


201  07 
550  00 
316  00 
254  00 
271  07 
305  07 
254  00 
201  07 

200  00 
316  00 
254  00 

201  07 

200  00 
316  00 
254  00 

201  07 
200  00 
254  00 
260  17 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
07 
00 
00 
00 
00 

11 

07 
00 
00 
11 
07 
00 
00 
11 
07 
00 
00 


100332 
077547 
000003 
051552 
000005 
100560 
051523 
000042 
000003 
077547 
051565 
000035 
000003 
077547 
051565 
000047 
000003 
051565 
053004 


037  04  0  00  073611 
200  00  0  00  077547 
550  00  1  00  000000 
260  17  0  00  051 760 
260  17  0  00  051310 
2o<  17  0  00  000000 


200  01 
200  02 
200  03 
200  04 
200  05 
402  00 
402  00 
402  00 
402  00 
402  00 
263  17 

200  01 
200  02 
200  03 
200  04 
200  05 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


07 
07 
07 
07 
07 
07 
07 
07 
07 
07 
00 


000000 
000001 
000002 
000003 
000004 
000000 
000001 
000002 
000003 
000004 
000000 


0  07  000000 
0  07  000001 
0  07  000002 
0  07  000003 
0  07  000004 
0  00  000000 


•/^•••«****************** ••**•••*•* **************************************** 
;*6ETQUE  —  ROUTINE  TO  EXTRACT  A  SAVED  COMMAND  FROM  THE  "SAVQ"  AREA 
•#*************<f»********** **************************** *♦*******♦♦*♦****♦* 


GETQUE:  MOVE I 
HRR2 
CAMN 
JRST 
ADDI 
CAI6E 
JRST 
MOVE  I 
MOVE 
CAMN 
JRST 
MOVE  I 
MOVE 
CAMN 
JRST 
MOVE  I 
MOVE 
JRST 
GO 

PMSGF 
PSIXMF 
MOVE 
HRRZ 
GO 
GO 
RTN 


GTQOK: 


GTQEXS: 


MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

SETZM 

SEIZM 

SETZM 

SETZM 

SETZM 

RTN 

MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
RTN 


AC7,SAVQ 

CMDXPT 

3(AC7) 

GTQO< 

AC7,5 

AC7,SAVQE 

.-4 

AC7,.PRIM(DSBP) 

3(AC7) 

CMDXPT 

GTQEXS 

AC7,.SCNAD(DSBP) 

3(AC7) 

CMDXPT 

GTQEXS 

AC7,.HLDQ(DSBP) 

3(AC7) 

GTQEXS 

lOWAIT 

<'^"GETQUE"  FAILED 

CSIXBIT\*"GETQUE" 

CMDXPT 

a 

PNTCMD 
CHKALT 


AC1,(AC7) 

AC2J(AC7) 

AC3,2(AC7) 

AC4,3(AC7) 

AC5.4(AC7) 

(AC?) 

1(AC7) 

2(AC7) 

3(AC7) 

4(AC7) 


GET  THE  ADDRESS  OF  THE  SAVE  QUE  AREA 

GET  THE  ADDRESS  OF  THE  COMMAND 

IS  THIS  THE  COMMAND?? 

YES  -  SET  ACl  TO  AC5  WITH  THE  CMD 

NO  -  BUMP  THE  POINTER  TO  NEXT  AREA 

OUT  OF  THE  SAVQ  AREA  YET?? 

NO  -  KEEP  TRYING  TO  FIND  CMD 

YES  -  SEE  IF  IN  DSB  ALREADY... 

GET  THE  Q  POINTER  ADDRESS 

SAME  ADDR?? 

YES  -  SAME  PLACE! 

POINT  TO  NEXT  DRIVE  DSB  ADDR 

GET  THE  Q  POINTER 

SAME  ADDR?? 

YES  -  SAME  PLACE!! 

POINT  TO  DSB  HOLD  STORAGE 

IS  THE  ADDR  HERE?? 

YUP 

PRINT  WHEN  I/O  DONE 
TO  FIND  A  COMMAND  IN  SAVQ  AREA''CMD>* 
FAILED  TO  FIND  A  COMMAND  IN  SAVQ  AREA^CMD  \] 
;GET  THE  EXECUTE  ADDRESS 

;PRINT  THE  CMD 

;LOOK  FOR  A  TYPED  ALT-MODE 

; RE TURN  TO  PROGRAM 

.-SETUP  ACl  TO  AC5  WITH  THE  COMMAND 


.•CLEAR  THE  CMD  FROM  THE  SAVQ  AREA 


AC1.(AC7) 

AC2.1(AC7) 

AC3.2(AC7) 

AC4.3(AC7) 

AC5.4(AC7) 


;GET  THE  CMD  FROM  THE  DSB 


•^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*** 

!-*SETCMD  —  ROUTINE  TO  SET  THE  "GENERATED  IN  DSB"  BIT  FOR  THE  COMMAND 
;♦      IN  THE  "C0M8UF"  WORDS 


MMMK 


„J 


8 


DDRPI  - 
0DRPI3 

13675 
13676 
13677 
13678 
13679 
13680 
13681 
13682 
13683 
13684 
13685 
13686 
13687 
13688 
13689 
13690 
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[ 


SEQ  0441 


051573 
051574 
051575 
051576 
051577 
051600 
051601 
051602 
051603 
051604 
051605 
051606 
051607 
051610 
051611 


261 
261 
261 
200 
550 
200 
603 
661 
603 
661 
202 
262 
262 
262 
263 


17 
17 
17 
01 
02 
03 
01 
03 
01 
03 
03 
17 
17 
17 
17 


0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
02 
00 
00 
00 
00 


000001 
000002 
000003 
077547 
000001 
000001 
200000 
400000 
100000 
000004 
000001 
000003 
000002 
000001 
000000 


SETCMD:  PUT 
PUT 
PUT 
MOVE 
HRRZ 
MOVE 
TLNE 
TLO 
TLNE 
TLO 
MOVEM 
GET 
GET 
GET 
RTN 


AC1 

AC2 

AC3 

ACUaCMDXPT 

AC2,AC1 

AC3J(AC2) 

AC1,(1B1) 

AC3,(180) 

AC1,(1B2) 

AC3,(1815) 

AC3J(AC2) 

AC3 

AC2 

AC1 


;SAVE  SOME  AC'S 


;6ET  THE  COMQ  COMMAND 

;AND  THE  ADDRESS  OF  THE   C0M8UF  ENTRY 

;GET  THE  2ND  COMBUF  ENTRY  WORD 

;WAS  THE  COMMAND  A  SEEK  (IN  COMQ)  ?? 

;YES  -  SET  THE  BIT  IN  COMBUF  WORD 

;WAS  THE  COMMAND  AN  OFFSET  (IN  COMQ) 

;YES  -  SET  THE  BIT  IN  COMBUF  WORD 
;SAVE  THE  UPDATED  WORD  IN  COMBUF 


79 


..-•-■-■■^ri  ■i>«ii-  1* 


r 


r 


HDRPl   - 
DDRP13 

13691 

13692 

1 3693 

1369A 

13695 

13696 

13697 

13698 

13699 

13700 

13701 

13702 

13703 

13704 

13705 

13706 

13707 

13708 

13709 

13710 

13711 

13712 

13713 

13714 

13715 

(3716 

13717 

13718 

13719 

13720 

13721 

13722 

13723 

13724 

13725 
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SEQ  0442 


051612 
051613 
051614 
051615 

051616 
051617 
051620 
051621 
051622 
051623 
051624 

051625 
051626 
051627 
051630 
051631 
051632 
051633 


051634 
051635 
051636 
051637 
051640 
05164  1 


261  17  0  00  000007 
201  07  0  00  100332 
332  00  0  07  000000 
254  00  0  00  051625 


202  01 
202  02 
202  03 
202  04 
202  05 

262  ^r 

263  17 

271  07  0 
305  07  0 
254  00  0 
332  00  0 
254  00 
476  00 
254  00 


0  07  000000 
0  07  000001 
0  07  000002 
0  07  000003 
0  07  000004 
0  00  U00007 
0  00  000000 

00  000005 

00  100546 

00  051614 

07  000000 

0  00  051634 

0  00  K0233 

0  00  051614 


037  04  0  00  073622 

5d J  00  0  00  000003 

260  17  0  00  051760 

260  17  0  00  051310 

262  1/  0  00  000007 

263  17  0  00  000000 


;*SAVQUE  —  ROUTINE  TO  SAVE  A  CODED  COMMAND  IN  AC1  TO  AC5  IN  THE 
;*     COMMAND  "SAVQ"  AREA  FOR  LATER  EXTRACTION 


SAVQUE 


SAVQF : 


PUT 

AC7 

MOVE  I 

AC7.SAVQ 

SKIPE 

(AC?) 

JRST 

SAVQF 

MOVEM 

AC1,(AC7) 

MOVEM 

AC2J(AC7) 

MOVEM 

AC3,2(AC7) 

MOVEM 

AC4,3(AC7) 

MOVEM 

AC5,4(AC7) 

..T 

AC7 

RTN 

ADDI 

AC7,5 

CAIGE 

-.':7,SAVQE-^D10 

JRS^ 

'■»iOUE+2 

SKI^'E 

.:7) 

JRST 

.rZ 

SETOM 

CMBFND 

JRST 

SAVQUE +2 

PMSGF 

<^"SAVQUE"  FAILED 

PSIXMF 

CSIXBIT\*"SAVQUE" 

HRR2 

AC3 

GO 

PNTCMD 

GO 

CHKALT 

GET 

AC7 

RTN 

GET  THE  STORAGE  ADDRESS 

ENTRY  EMPTY?? 

FAILED  AT  THIS  ADDRESS 


;SAVE  THE  COMMAND 


;AND  EXIT 


SETUP  TO  LOOK  AT  NEXT  SLOT 

DONE?? 

NOPE  -  TRY  AGAIN 

FREE  SPACE  ANYHOW? 

NOPE  I 

YES  -  BUT  SET  THE  CMD  LIST  FULL  FLAG 

AND  THEN  SAVE  THE  CMD 


TO  SAVE  COMMAND  IN  SAVQ  AREA'^CMD>'' 

FAILED  TO  SAVE  COMMAND  IN  SAVQ  AREA^CMD.X]' 

.•PRINT  THE  CMD 

;LOOK  FCR  A  TYPED  ALT-MODE 
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SEQ  0443 


DO 
DD 


13726 

13727 

13728 

13729 

13730 

13731 

13732 

13733 

13734 

13""  55 

13.  '. 

13737 

13738 

1 3739 

13740 

13741 

13742 

13743 

13744 

13745 

13746 

13747 

13748 

13749 

13750 

13751 

13752 

13753 

13754 

13755 

13756 

13757 

13758 

13759 

1 3760 

13761 

13762 

13763 

13764 

13765 

13766 

13767 

13768 

13769 

13770 

13771 

13772 

13773 

13774 

13775 

13776 

13777 


051642 
051643 
051644 
051645 
051646 
051647 
051650 
051651 
051652 
051653 
051654 
051655 
05V.56 
051657 
051o60 
051661 

051662 
051663 
051664 
05166S 
051666 
051667 
051670 
051671 
051672 
051673 
051674 
051675 
051676 
051677 
051700 
051701 
051702 
051703 

05170^, 
05V05 


261  17  0  00  077547 
261  17  0  00  000006 
332  00  0  11  000033 
254  00  0  00  0^651 
550  00  0  06  OUOOOO 
3C6  00  0  00  mill 
476  00  0  11  000033 
350  06  0  00  077547 
306  06  0  00  100331 
00  051712 
00  077547 
00  051651 
554  01  1  00  077547 
405  01  0  00  000077 
312  01  0  00  000013 
254  00  0  00  051651 


254  00  0 
337  00  1 
254  00  0 


336  00 
332  00 
254  00 
336  00 
332  00 
254  00 
336  00 
254  00 
53  J  00 
306  00 
254 
201 


0  CO 
0  11 


0 
0 
0 


00 
00 

11 


0  00 
0  11 
0  00 
0  11 


00 
06 
260  17 
306  01 
254  00 
260  17 
254  00 
260  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
11 
00 
00 
00 
00 


0  00 
0  00 


077721 
000033 
051704 
077653 
000041 
051704 
000046 
051712 
000042 
mill 
051704 
000035 
051521 

mill 

051703 
047565 
051651 
051612 


051706 
051707 
051710 
051711 

051712 
051713 
051714 


332  00  0  11  000053 
254  00  0  00  051712 

201  06  0  11  000047 
260  17  0  00  047564 
476  00  0  11  000033 
254  00  0  00  051651 

262  17  0  00  000006 

262  17  0  00  077547 

263  17  0  00  000000 


•♦FILDSB  —  ROUTINE  TO  FILL  THE  DSB  COMMAND  AREA  FROM  THE  "SAVQ"  STORAGE 
•^•••************************************** ******************************* 


FILDSB 


FDSB1: 


FDS82: 


FDS32A: 
FDSB3: 

FDS84: 


FDS8X: 


PUT 

PUT 

SKIPE 

JRST 

HRRZ 

CAIN 

SETOM 

AOS 

CAIN 

JRST 

SKIPG 

JRST 

HLR2 

AND  I 

CAME 

JRST 

SKIPN 

SKIPE 

JRST 

SKIPN 

SKIPE 

JRST 

SKIPN 

JRST 

HRRZ 

CAIN 

JRST 

MOVE  I 

GO 

CAIN 

JRST 

60 

JRST 

GO 

SKIPE 
JRST 

MOVE  I 
GO 

SETOM 
JRST 

GET 
GET 
RTN 


CMDXPT 

AC 

.INUSE(DSBP) 

FDSB1 

(AC) 

-1 

.INUSE(DSBP) 

AC, CMDXPT 

ACCOMQE 

FDS8X 

aCMDXPT 

FDSB1 

ACl,aCMDXPT 

AC1, 77 

AC1, DRIVE 

FDS81 

RH10 

.INUSE(DSBP) 

FDSB3 

NOBAK 

.SCNADM(DSBP) 

FDS83 

.PRIM+4(DSBP) 

FDSBX 

.PRIM(DSBP) 

-1 

FDSB3 

AC,.SCNAD(DSBP) 

GETQUE 

AC1--1 

FDS82A 

RETQUE^I 

FDSB1 

SAVQUE 

.HLDQ*4(DSBP) 
FDSBX 

AC..HLDQ(DSBP) 
RETQUE 
.INUSE(DSBP) 
FDSB1 

AC 
CMDXPT 


SAVE  THE  XCT  POINTER 

DRIVE  GAGGED?? 

YES 

NO  -  LOOK  AT  THE  CMD 

POSITION  CMD?? 

YES  -  SET  GAG  FLAG 

BUMP  THE  POINTER 

END  OF  THE  QUE? 

YES  -  EXIT 

NO  -  PROCESS  THIS  ENTRY? 

NO  PROCESSING  HERE 

EXTRACT  THE  DRIVE  H 

SAME  DRIVE  nil 

NO  -  TRY  NEXT  ENTRY 

MBC  =  RH10?? 

GAGGED?? 

YES  -  LOOK  AT  HOLD  AREA 

INHIBIT  BACKUP  CMDS?? 

ANY  2ND  CMD?? 

YES  -  LOOK  AT  THE  HOLD  AREA 

ANY  PRIM  CMD?? 

NO  -  EXIT  NOW 

GET  THE  1ST  WORD  OF  CMD 

POSITION  CMD?? 

YES  -  LOOK  AT  THE  HOLD  AREA 

RESET  POINTER  TO  2ND  CMD  AREA 

GET  THE  COMMAND 

POSITION  COMMAND? 

YES 

NO  -  STORE  CMD  IN  2ND  AREA 

LOOK  AT  THE  NEXT  ENTRY 

RE-SAVE  THE  COMMAND  IN  SAVQ  AREA 

ANY  HOLD  COMMAND? 
YES  -  EXIT 

RESET  THE  POINTER 
GET  A  COMMAND 
SET  THE  GAGGED  FLAG 
LOOK  AT  THE  NEXT  ENT9Y 
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SEQ  0AA4 


r 


13778 

13779 

13780 

13781 

13782 

13783 

1378A 

13785 

13786 

13787 

13788 

13789 

13790 

13791 

13792 

13793 

13794 

13795 

13796 

13797 

13798 

13799 

13800 

13801 

13802 

13803 

13804 

13805 

13806 

13807 

13808 

13809 

13810 

13811 

13812 

13813 

138U 

13815 

13816 

13817 

13818 

13819 

13820 

?3821 

13822 

13823 

13824 

13825 

13826 

13827 


051715 
051716 
051717 
051720 

051721 
051722 
05172? 

051724 
051725 
051726 
051727 
051730 
051731 

051732 
051733 

051 734 
051735 
051736 

051737 
051740 
051741 

051742 
051743 
051744 
051745 
051746 
C51747 
051750 

05175! 

051752 

051755 
051754 
051755 
051756 
051757 


261  17  0  00  000015 

261  17  0  00  000000 

261  17  0  00  000001 

261  17  0  00  000002 

037  02  0  00  073633 
201  01  0  00  100163 
402  00  0  00  000015 


336  00 
254  00 
350  00 
271  01 
302  01 
254  00 


1  00  000001 
0  00  051732 
0  00  000015 
0  00  000002 
0  00  100233 
0  00  051724 


200  00  0  00  000015 
260  17  0  00  066163 

037  02  0  00  073641 
402  00  0  00  000002 

201  01  0  00  100163 

336  00  1  00  000001 
CO  00  0  00  051751 
350  00  0  00  000002 

037  02  0  00  073643 
200  00  0  00  000002 
2tO  17  0  00  066163 
200  00  0  00  000001 
260  17  0  00  051760 
271  01  0  00  000002 
367  15  0  00  051737 

306  01  0  00  100164 

037  02  0  00  073645 

262  17  0  00  000002 

26:  17  0  00  000001 

262  17  0  00  000000 

262  17  0  00  000015 

263  17  0  00  000000 


;*CMDPNT  —  ROUTINE  TO  LIST  THE  CONTENTS  OF  THE  DRIVE  COMMAND 
;*     BUFFER 


CMDPNT 


CMDP1 : 


CMDP2 : 


CMDP3 : 


CMDP3A : 


PUT 

PUT 

PUT 

PUT 

PMSG 

PSIXM 

MOVE  I 

SETZM 

SKIPN 

JRST 

AOS 

ADD  I 

CAIE 

JRST 

MOVE 

60 

PMSG 

PSIXM 

SETZM 

MOVE  I 

SKIPN 

JRST 

AOS 

PMSG 

PSIXM 

MOVE 

GO 

MOVE 

GC 

ADDI 

REPTLP 

CAIN 
PMSG 
PSIXM 

GET 
GET 
GET 
GET 
RTN 


;SAVE  SOME  AC'S 


REPT 

ACO 

AC1 

AC2 

<*DRIVE  COMMAND  BUFFER  CONTAINS  >* 

CSIXBITV-^DRIVE  COMMAND  BUFFER  CONTAINS  \]* 

AC1,C0MBUF  ;POINT  TO  THE  FIRST  COMMAND 

REPT  .-CLEAR  THE  COMMAND  COUNTER 


aACI 

CMDP2 

REPT 

AC1.2 

AC1,CMBFND 

CMDP1 

REPT 

PSDN 

<  COMMANOS**>'' 

CSIXBITX  COMMANDS*^ 

AC2 

AC1,C0MBUF 

aACI 

CMDP3A 

AC2 

<*CMD  #>^ 

[3IXBIT\*CMD  t  W 

AC2 

PSDN 

AC1 

PNTCMD 

AC1,2 

CMDP3 


ANY  COMMAND  HERE?? 

NO  -  ALL  DONE  COUNTING  COMMANDS 

YES  "  COUNT  IT 

UPDATE  THE  POINTER 

END  OF  COM  BUF  ? 

GET  ANOTHER  COMMAND  ADDRESS 


;GET  THE  COMMAND  COUNT 
.•PRINT  AMOUNT  OF  CMOS  IN  LIST 


\] 


; RE SET    THE 
.•RESET  THE 


COUNTER 
POINTER 


DDI 
UR 


ANY  COMMAND  HERc?? 

NO  -  ALL  DONE  PRINTING 

YES  -  COUNT  IT 


GET  THIS  COMiiAND  NUMBER 

PRINT   IT 

GET  THE  COMMAND  ADDRESS 

PRINT  THn  COMMAND 

POINT  TO  THE  NEXT  COMMAND 

GET  THE  NEXT  COMMAND  FROM  LIST 


ACI.COMnUF^I  -ANY  COMMAND  PRINTED?? 

<N0  DRWE  COMMANDS  IN  LIST!*>* 
[SIXBITXNO  DRIVE  COMMANDS  IN  LIST!*  \3* 


AC2 
AC1 
ACO 
REPT 


.-RESTORE  THE  AC'S  SAVED 


;AND  EXIT 
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SEQ  0445 


DDI 
DDI 


13828 
13829 
13830 
13831 
13832 
13833 
13834 
13835 
13836 
13837 
13838 
13839 
13840 
138A1 
138A2 
13843 
13844 
13845 
1384. 
13847 
13848 
13849 
13850 
13851 
13852 
13853 
13854 
13855 
13856 
13857 
13858 
13859 
13860 
13861 
13862 
13863 
13864 
13865 
:3866 
3867 
13868 
13869 
13870 
13871 
13872 
13873 
13874 
13875 
13876 
13877 
13878 
13879 
13880 
13881 
13882 


051760 
051761 
051762 
051763 
051764 
051765 

051766 
051767 
051770 

051771 
051772 
051773 
051774 

051775 
051776 
051777 
052000 
052001 
052002 

052003 
052004 
052005 
052006 

052007 
052010 
052011 

052012 
052013 

052014 
052015 
052016 
052017 
052020 
052021 

052022 
052023 
052024 

052025 
052026 
05202/ 


261  17  0  00  000000 
261  17  0  00  000001 
261  17  0  00  000002 
261  17  0  00  000003 
202  00  0  00  000003 
200  01  1  00  000003 

037  02  0  00  073652 
200  00  0  00  000003 
260  17  0  00  066174 

037  02  0  00  073654 
135  02  0  00  073655 
200  00  0  02  052120 
037  14  0  00  000003 


037  02 
135  00 
037  02 
037  00 
301  02 
254  00 


0  00  073656 
0  00  072434 
0  00  000000 
0  00  030242 
0  00  000004 
0  00  052067 


037  02  0  00  073662 
13S  02  0  00  073665 
2uJ  00  0  02  053323 
037  00  0  00  000002 

037  02  0  00  073666 
135  00  0  00  073672 
260  17  0  00  066174 

037  02  0  00  073347 
260  17  0  00  066163 

037  02  0  00  073673 
135  00  0  00  073672 
260  17  0  00  045627 
202  00  0  00  000001 
557  00  0  00  000000 
260  17  0  00  066174 

037  02  0  00  073675 
135  00  0  00  073677 
260  17  0  00  066174 

037  02  0  CO  073700 
135  00  0  00  073702 
260  17  0  00  066174 


•♦PNTCr:)  —  ROUTINE  TO  REPORT  WHAT  THE  CODED  COMMAND  WAS  TO  THE  OPR 


PNTCMD:  PUT 
PUT 
PUT 
PUT 
MOVEM 
MOVE 
PMSG 
PSIXM 
MOVE 
GO 

PMSG 
PSIXM 
LDB 
MOVE 
PSIXL 
PMSG 
PSIXM 
LDB 
PNT2 
PCRL 
CAIL 
JRST 
PMSG 
PSIXM 
LDB 
MOVE 
PNTSIX 
PMSG 
PSIXM 
LDB 
GO 

PMSG 
PSIXM 
GO 

PMSG 
PSIXM 
LDB 
GO 

MOVEM 
HLRZS 
GO 

PMSG 
PSIXM 
LDB 
GO 

PMSG 
PSIXM 
LDB 
GO 
PMSG 


ACO 
ACl 
AC2 
AC3 
AC3 
ACl,aAC3 

<  a  ADDR  >• 
CSIXBIT\  a  ADDR  \]* 
AC3 

POCT 

<  IS>* 

CSIXBIT\  IS  \]* 
AC2, [POINT  5, ACl, 53 
CMDER(AC2) 


;SAVE  SOME  AC'S 


;SAVE  THE  ADDRESS 

;GET  THE  1ST  COMBUF  ENTRY  WORD 


;PRINT  IT 

;3ET  THE  CMD  FUNCTION 
;PRINT  IT 


<  ISSUED  TO  DRIVE  #>* 
CSIXBITX  ISSUED  TO  DRIVE  #  M" 
[POINT  6,AC1J7]       ;GfT  THE  DRIVE  # 

.-PRINT  IT 


.-POSITION  COMMAND?? 
;YES 


AC2,4 

PNTPOS 

<PATTERN  IS  •*>* 

[SIXBITVPATTERN  IS  "  \]* 

AC2, [POINT  4.AC1J1]         ;GET  THE  PATTERN  # 

DPATNM(AC2)  ;AND  THE  SIXBIT  NAME 

.-PRINT  IT 
<••  STARTING  a  DISK  BLK  #>* 
CSIXBITX"  STARTING  a  DISK  BLK  #  M" 
[POINT  20.1 (AC3). 353 


POCT 
<  (>* 

[SIXBITX  (  \3* 

PSDN 

<)'^(CYL=>* 

[SIXBIT\)*(CYL=  \3* 

[POINT  20.1 (AC37. 353 

BLKADR 

ACl 

POCT 

<-  SUR=>* 

[SIXBITX.  SUR=  \3* 

[POINT  8.AC1.273 

POCT 

<.  SECT=>* 

[§IXBIT\.  SECT=  \3* 

[POINT  8. ACl. 351 

POCT 

OTRANSFER  SIZE   =  >* 


.-Print  octal  block  number 
.-PRINT   THE  DECIMAL  BLOCK  tf 


.-GET  BLOCK  # 

.-CONVERT  TO  A  REAL  DSK  ADDR 

.-AND  SAVE  IT 

.-SAVE  ONLY  CYL  DATA 

.-AND  PRINT  THE  CYL  # 


.-GET  THE  SURFACE  # 
.-AND  PRINT  IT 


;THEN  GET  THE  SECTOR  # 
.-AND  PRINT  IT 
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SEQ  0446 


13883 

13884 

13885 

13886 

13887 

13888 

13889 

13890 

13891 

13892 

13893 

13894 

13895 

13896 

13897 

13898 

13899 

13900 

13901 

13902 

13903 

13904 

13905 

13906 

13907 

13908 

13909 

13910 

13911 

13912 

13913 

13914 

13915 

13916 

13917 

13918 

13919 

13920 

13921 

13922 

13923 

13924 

13925 

13926 

13927 

13928 


052030 
052031 
052032 

052033 
052034 
052035 
052036 

052037 
052040 
052041 

052042 
052043 
052044 
052045 
052046 
052047 
052050 
052051 
052052 
052053 
052054 
052055 
052056 
052057 


037  02  0  00  073703 
135  00  0  00  073707 
260  17  0  00  066174 

037  02  0  00  073710 
135  00  0  00  073713 
260  17  0  00  066174 
335  01  0  03  000001 

037  02  0  00  073714 
607  01  0  00  000004 
254  00  0  00  052061 


037  02 
135  01 
200  02 
603  02 
200  00 
607  02 
200  00 
626  00 
254  00 
221  00 
213  00 
334  00 
221  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


073721 
073725 
100747 
000100 
101162 
000100 
101161 
000200 
052056 
000031 
000000 
000000 
000031 
066163 


052060  037  02  0  00  073726 

052061  0:)'  00  0  00  030242 

052062  262  17  0  00  000003 

052063  262  17  0  00  000002 

052064  262  17  0  00  000001 

052065  262  17  0  00  000000 

052066  263  17  0  00  000000 

052067  306  02  0  00  000005 

052070  254  00  0  00  052062 

052071  037  02  0  00  073731 

052072  135  00  0  00  073672 

052073  260  17  0  00  045627 

052074  557  00  0  00  000000 

052075  260  17  0  00  066174 

052076  254  00  0  00  052061 


PCMDX: 


PNTPOS: 


PSIXM 

LDB 

GO 

PMSG 

PSIXM 

LDB 

GO 

SKIPGE 

PMSG 

PSIXM 

TLNN 

JRST 

PMSG 

PSIXM 

LDB 

MOVE 

TLNE 

MOVE 

TLNN 

MOVE 

TR2N 

JRST 

IMULI 

MOVNS 

SKI  PA 

IMULI 

GO 

PMSG 

PSIXM 

PCRL 

GET 

GET 

GET 

GET 

RTN 

CAIN 

JRST 

PMSG 

PSIXM 

LDB 

GO 

HLRZS 

GO 

JRST 


CSIXBIT\)*TRANSFER  SIZE  =  \]" 

[POINT  14J(AC3)J4] 

POCT  ;PRINT  IT 

<  AT  PGM  PC  #>* 

CSIXBIT\  AT  PGM  PC  #  M'' 

[POINT  18,(AC3),35]  * 

POCT 

AC1J(AC3)  ;FORCED  SEEKS? 

<*SEEKING  BEFORE  DATA  TRANSFER>'' 

[SIXBIT\*SEEKING  BEFORE  DATA  TRANSFER.VJ 

AC1,(1B15)  ;FORCED  OFFSET? 

PCMDX  ;N0 

<*FORCED  OFFSET  BY  >'* 

[SIXBITN^FORCED  OFFSET  BY  _\] 


AC1, [POINT  6,aAC3J7] 

AC2,DSBTBL(AC1) 

AC2,(.RP06) 

AC0,.OFST1 

AC2,(.RP06) 

AC0,.OFSET 

200 

'^D25 


DATA 


*D25 

PSDN 

<  MICRO-INCHES>* 

[SIXBITV  MICR0-INCHES_\3' 


GET  DRIVE  # 

GET  TABLE  DATA 

RP06  DRIVE 

YES  GET  ITS  OFFSET 

RP06  DRIVE  ? 

NO  GET  RP04/05  OFFSET 

NEGATIVE?? 

NO 

YES  -  CONVERT  1ST 

THEN  NEGATE  VALUE 

CONVERT  TO  REAL  NUMBER 
; PRINT  THE  VALUE 


DATA 


AC3 
AC2 
ACl 
ACO 


AC2,5  ^ 

PCMDX +1 

<FOR  CYLINDER  #>* 

[SIXBIT\FOR  CYLINDER 

[POINT  20J(AC3),35] 

BLKADR 

POCT 
PCMDX 


.•RESTORE  THE  AC'S  USED 


;AND  EXIT  THE  ROUTINE 


;IS  IT 
;YES 


A  RECAL?? 


■  ;GET  BLK  0   FROM  COMBUF  ENTRY 
;CALC  THE  CYL  # 
.-SAVE  JUST  THE  CYL  # 
; PRINT  THE  CYL  # 
;AND  EXIT 
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SEQ  0447 


13929 

13930 

13931 

13932 

13933 

13934 

13935 

13936 

13937 

13938 

13939 

13940 

13941 

13942 

13943 

13944 

13945 

13946 

13947 

13948 

13949 

13950 

13951 

13952 

13953 

13954 

13955 

13956 

13957 

13958 

13959 

13960 

13961 

13962 

13963 

13964 

13965 

13966 

13967 

13968 

13969 

13970 

13971 

13972 

13973 

13974 

13975 

13976 

13977 

13978 

13979 

13980 

13981 

13982 

13983 


SUBTTL   DISK  COMMAND  UUOS  (READ/WRITE,  SEEK,  S  RECAL) 
XLIST 

LIST 

;*  CMDUUO  —  TRANSFER  AND  POSITIONING  COMMAND  HANDLER 


COMMENT  $ 


THIS  IS  A  COMMON  DRIVE  OPERATION  UUO  HANDLER  FOR 

READ/READ  HEADERS  &  DATA,  WRITE/WRITE  HEADERS  &  DATA,  SEEK, 

AND  RECAL  UUOS  ISSUED  TO  THE  DISK. 

CALLING  FORMAT  FOR  READ  OR  WRITE  DATA  TRANSFERS: 

OR 


READ  PATTERN 
ERROR  RETURN 
NORMAL  RETURN 


CALLING  FORMAT  FOR  SEEK  AND  RECAL  IS: 

OR 


SEEK  CYLINDER 
ERROR  RETURN 
NORMAL  RETURN 


WRITE  PATTERN 
ERROR  RETURN 
NORMAL  RETURN 


RECAL 

ERROR  RETURN 

NORMAL  RETURN 


THE  UUO  IS  CALLED  WITH  SEVERAL  PARAMETERS  KNOWN  AND  SETUP 
PREVIOUS  TO  THE  CALL: 

1)  "DRIVE"  CONTAINS  THE  DESIRED  DRIVE*  (00  TO  77)   OF  THE 
OPERATION  TO  BE  PERFORMED. 


2) 


3) 


THE  DISK  AREA  FOR  THE  OPERATION  (I.E.  CYLINDER, 
SURFACE,  AND  SECTOR)  WILL  BE  IN  ".CYLIN",  ".SURF' 
AND  ".SECT". 


IF  A  DATA  TRANSFER  COMMAND,  ".SIZE"  WILL  CONTAIN 
THE  AMOUNT  OF  WORDS  TO  BE  TRANSFERED  AND  ".PATN"  THE 
PATTERN  NUMBER  OF  THE  DATA  SELECTED. 


052077 
052100 
052101 
052102 
052103 

052104 
052105 
052106 
052107 
052110 
052111 
052112 


*"  ^ 

$ 

XLIST 

261  17  0  00  000006 
135  06  0  00  073734 
202  06  0  00  077545 
335  00  0  13  100747 
254  00  0  00  052132 

CMDUUO: 

PUT 

LDB 

MOVEM 

SKIPGE 

JRST 

AC 

AC, [POINT  4,$SVUU0,12] 

ACCMDNUM* 

DSBTBL(DRIVE) 

CMDA 

260  17  0  00  053004 
200  00  0  06  052120 
037  14  0  00  000003 
037  02  0  00  073735 
037  02  0  00  073104 
200  OO  0  00  000013 
037  02  0  00  000000 

CMDERl : 

GO 

MOVE 

PSIXL 

PMSG 

PMSG 

MOVE 

PNT2 

lOWAIT 
CMDER(AC) 

<  COMMAND  ISSUED  TO  NO 

<DRIVE  .."> 

DRIVE 

.-EXTRACT  COMMAND  FUNCTION 
;SAVE  THE  FUNCTION  NUMBER 
;IS  THIS  DRIVE  OPERATOR  SELECTED? 
;YES  -  PROCEED 

;N0  -  WAIT  FOR  ALL  COMMANDS  TO  FINISH 
.GET  THE  MESSAGE  LOCATION 
;AND  PRINT  IT 
•SELECTED  DRIVE!*> 

;PRINT  DRIVE  # 


»«'•» 


T! 


DDRPI  - 
DDRPI3 

13984 
13985 
13986 
13987 
13988 
13989 
13990 
13991 
13992 
13993 
1399A 
13995 
13996 
13997 
13998 
13999 
HOOO 
14001 
14002 
14003 
14004 
14005 
14006 
14007 
14008 
14009 
14010 
14011 
14012 
14013 
14014 
14015 
14016 
14017 
14018 
14019 
14020 
14021 
14022 
14023 
14024 
14025 
14026 
14027 
14028 
14029 
14030 
14031 
14032 
14033 
14034 
14035 
14036 
14037 
14038 
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r 


SEO  0448 


DI 
D( 


052113 
052114 
052115 
052116 
052117 

052120 
052121 
052122 
052123 
052124 
052125 
052126 
052127 
052130 
052131 

052132 
052133 
052134 
052135 
052136 
052137 
052140 
052141 
052142 
052143 
052144 
052145 
052146 
052147 

052150 
052151 
052152 
052153 
052154 
052155 
052156 
052157 
052160 
052i61 
052162 
052163 
052164 
052165 
052166 
052167 
052170 
052171 
052172 
052173 
052174 
052175 


037  00  0  00  000011 
260  17  0  00  044454 
260  17  0  00  053151 
262  17  0  00  000006 
254  00  0  00  030065 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

332  00 
254  00 
200  06 
261  17 
550  01 
306  01 
550  01 
336  00 
402  00 
332  00 
260  17 
26?  17 
2oJ  17 
254  00 


073744 
073745 
073751 
073753 
073757 
073760 
073762 
073764 
073770 
073774 


0  00 
0  00 


261 
261 
261 
261 
261 


17 
17 
17 
17 
17 


137  06 
200  01 
402  00 
301  01 
254  00 
301  01 
660  00 
200  01 
603  01 
660  00 
437  00 
137  00 
661 
200 
242 

434  05 
504  05 


06 
5 
5 


§ 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
13 
00 
00 
00 
0 

00 
00 


100233 
052356 
077545 
000001 
030113 
077562 
077562 
000001 
100734 
000001 
052320 
000001 
052607 
052113 

000001 
000002 
000003 
000004 
000005 
073777 
077545 
000000 
000004 
052171 
000002 
000040 
100747 
020000 
000020 
100734 
074000 
000000 
100731 
000010 
100732 
100730 


CMDER3:  PNTCI 
GO 
60 
GET 
JRST 


1 1 


•  I 


CMDER: 


CMDA: 
CMDB: 


CMC: 


SIXBT2 
SIXBT2 
SIXBTZ 
SIX8TZ 
SIXBTZ 
SIXBTZ 
SIXBTZ 
SIXBTZ 
SIXBTZ 
SIXBTZ 

SKIPE 

JRST 

MOVE 

PUT 

HRRZ 

CAIN 

HRRZ 

SKIPN 

SETZM 

SKIPE 

GO 

GET 

GO 

JRST 

PUT 

PUT 

PUT 

PUT 

PUT 

DPB 

MOVE 

SETZM 

CAIL 

JRST 

CAIL 

TRO 

MOVE 

TLNE 

TRO 

I  ORB 

DPB 

TLO 

MOVE 

LSH 

I  OR 

HRL 


RUNTIM 
TELTST 
AC 
UUOEXT 

*READ 

*READ  HEADERS  &  DATA 

^WRITE 

•WRITE  HEADERS  I   DATA 

•SEEK 

•RECAL 

•SEARCH 

•RETURN-TO-CENTERLJNE 

•DUAL  PORT  RELEASE 

•PACK  UNLOAD 

CMBFND 

CMDFUL 

AC.CMDNUM 

AC1 

AC1,$SVUU0 

AC1,DATARG 

ACKDATARG 

ACl 

.PATN 

ACl 

ARGSET 

ACl 

VALCK 

CMDER3 

ACl 

AC2 

AC3 

AC4 

AC5 

AC-CPOINT  6, AC, 5] 

AC1,CMDNUM 

ACO 

ACl, 4 

CMC 

ACl, 2 

40 

AC1,DSBTBL(DRIVE) 

AC1,(.F11) 

20 

.PATN 

[POINT  6, AC, 113 

AC. (DRIVE) 

AC5,.SyRF 

AC5,^D8 

AC5,.SECT 

AC5,.CYLIN 


PRINT  A  TAB 
REPORT  PGM  RUN  TIME 
AND  TEST  NAME 
RESTORE  THE  SAVED  AC 
EXIT  TO  UUO  CALL  ^1 


COMMAND  BUFFER  FULL? 

YES  -  SPECIAL  PROCESSING  NEEDED  NOW 

GET  THE  CMD  FUNCT  NUMBER 

SAVE  ACl 

GET  THE  ARGUMENT  FROM  UUO 

IS   IT  VARIABLE  AR6 

YES  GET  PATRN  ADDR 

ANY  PATTERN 

INIT  PATTERN  M 

ANY  PATERN/CYLINDER  ARGUMENT?? 

SET  THE  UUO  ARGUMENT 


.•DRIVE  PARAMETERS  SELECTED  VALID? 
;N0  -  REPORT  AND  EXIT  NOW 


;SAVE  SOME  AC'S 


LEFT  JUSTIFY  FUNCTION  M 

GET  THE  CMD  NUMBER 

CLEAR  THE  WORD  TO  GENERATE 

DATA  TRANSFER?? 

NO  -  SKIP  CODE 

READ  TRANSFER?? 

NO  -  SET  THE  'XrfRITE"  PATTERN  BIT 

GET  THE  TABLE  STATUS 

PACK  IN  11  FORMAT?? 

YES  -  INDICATE  IN  PA i TERN  NUMBER 

ADD  IN  THE  PATERN  REQUESTED 

INSERT  PATTERN  # 

INSERT  DRIVE  # 

GET  SURFACE  #  SELECTED 

POSITION  IT 

GET  SECTOR  # 

GET  CYLINDER  M 
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SEQ  0449 


14039 

14040 

14041 

14042 

14043 

14044 

14045 

14046 

14047 

14048 

14049 

14050 

14051 

14052 

14053 

14054 

14055 

14056 

14057 

14058 

14059 

14060 

14061 

14062 

14063 

14064 

14065 

14066 

14067 

14068 

14069 

14070 

14071 

14072 

14073 

14074 

14075 

14076 

14077 

14078 

14079 

14080 

14081 

14082 

14083 

14084 

14085 

14086 

14087 


052176 
052177 
052200 
052201 
052202 
052203 
052204 
052205 
052206 
052207 
052210 
052211 
052212 
052213 
052214 
052215 
052216 
052217 
052220 
052221 
052222 
052223 
052224 


052225 
052226 
052227 

052230 
052231 
052232 
052233 
052234 
052235 
052236 
052237 
052240 
052241 
052242 
052243 
052244 

052245 
052246 


200  00 
202  05 
661  05 
540  06 
202  06 
350  00 
200  06 
307  06 
254  00 
402  00 
254  00 
514  06 
242  06 
260  17 
434  06 
202  06 
200  06 
301  06 
476  00 
370  00 
200  06 
303  06 
254  00 


0 
0 
0 


00 
11 
00 


0  00 


1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000005 
000024 
400000 
030114 
077552 
077552 
077545 
000003 
052211 
000006 
052213 
100733 
000003 
045573 
000000 
077552 
077552 
100232 
100233 
077552 
077545 
000003 
052310 


200  00  0  00  030046 
606  00  0  00  100000 
254  00  0  00  052245 


201  01  0 
403  02  0 
261  17  0 
200  06  0 
200  00  0 
621  00  0 


262  17 
275  00 
260  17 
202  00 
260  17 
332  00 
260  )7 


00  777777 
00  000003 
00  000006 
00  077552 
06  000001 
00  77777^ 
00  000006 
00  000006 
00  045627 
00  000005 
00  052711 
00  100233 
00  052570 


J 


14088 

052247 

14089 

052250 

14090 

052251 

14091 

052252 

14092 

052253 

14093 

052254 

303  06  0  00  000001 
254  00  0  00  052303 


200  00  0  13  100747 
605  00  0  00  000100 
200  02  0  00  101162 
607  00  0  00  000100 
200  02  0  00  101161 
336  00  0  00  000002 


MOVE  AC5 

MOVEM  AC5,.SELAD(DSBP) 

TLO  ACS. (ISO) 

HRR  ACiSVUPC 

MOVEM  ACaCOMBPT* 

AOS  COMBPT 

MOVE  ACCMDNUM 

CAIG  AC-3 

JRST  .+3 

SETZM  AC 

JRST  .+3 

HRLZ  AC, .SIZE 

LSH  AC, 3 

GO  L0G6LK 

lOR  ACACO 

MOVEM  ACaCOMBPT 

MOVE  AC, COMBPT 

CAIL  AC,CMBFND-1 

SETOM  CMBFND 

SOS  COMBPT 

MOVE  ACCMDNUM 

CAILE  AC, 3 

JRST  POSCMD 


SAVE  THE  ADDRESS  IN  DSB 

SET  THE  CREATED  COMMAND  INDICATOR 

GET  UUO  CALL  PC 

SAVE  1ST  ENTRY 

UPDATE  POINTER 

GET  FUNC 

A  DATA  XFR  ? 

YES 

NO 

GET  THE  SIZE 

POSITION  IT 

CREATE  LOG  BLOCK  M 

OR  SIZE  +  LOG  BLK 

SAVE  2ND  COMBUF  WORD  IN  BUFFER 

GET  THE  POINTER 

END  OF  COMMAND  BUFFER 

YES  -  SET  FLAG 

NOW  CORRECT  THE  POINTER  ADDRESS 

GET  UUO  #  AGAIN 

IS  COMMAND  A  DATA  TRANSFER? 

NO  -  MUST  BE  POSITIONING 


DD 
DD 

1 
1 
1 


;UUO  COMMAND  HAS  BEEN  DETERMINED  TO  BE  A  DATA  TRANSFER 
.-PROCESS  FOR  A  TRANSFER  FOLLOWS: 


XFRCMD:  MOVE 
TRNN 
JRST 


XFRSEK: 


MOVE  I 

SETZB 

PUT 

MOVE 

MOVE 

TLZ 

GET 

SUB  I 

GO 

MOVEM 

GO 

SKIPE 

GO 


XFRA:   CAILE 
JRST 


RDXFR: 


MOVE 
TLNE 
MOVE 
TLNN 
MOVE 
SKIPN 


CONSW 

ACTSEK 

XFRA 

AC1,-1 

AC2,AC3 

AC 

AC. COMBPT 

AC0,1(AC) 

ACO, 777774 

AC 

6 

BLKADR 

AC5 

FILLQ 

CMBFND 

QFIN 

AC.1 
WRTXr? 


ACO,DSBTBL(DRIVE) 

AC0,(.RP06) 

AC2,.0FST1 

AC0,(.RP06) 

AC2,.0FSET 

AC2 


GET  PGM  SWITCHES 
ACTUAL  SEEKS  DESIRED? 
NO  -  USE  IMPLIED  SEEKS 


.-INDICATE  A  POSITION  COMMAND 


GET  POINTER 

GET  2ND  ENTRY 

CLEAR  ALL  BUT  BLOCK  # 

SEEK  6  SECTORS  SOONER 

CALC.  THE  DSK  ADDR  (FOR  REAL) 

SAVE  THE  ADDR 

INSERT  COMMAND  IN  QUE  AND  DSB  -  IF  POSSIBLE 

CMD  STORAGE  FULL? 

YES  -  EMPTY  SOME  OF  IT 


;IS  THE  COMMAND  A  WRITE  TRANSFER 
;YES  -  PROCESS  FOR  A  WRITE 


GET  TABLE  DATA 

RP06  ? 

YES  GET  ITS  OFFSET  DATA 

RP06  ? 

NO  GET  RP04/05  OFFSET  DATA 

ANY  OFFSET  DATA 


DDRPl  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  167-3 
DDRPI3  MAC     28-Aug-85  15:49        DISK  COMMAND  UUOS  (READ/WRITE,  SEEK,  i   RECAL) 


SEQ  0A50 


D[ 
CC 


H09A 

U095 

U096 

H097 

14098 

14099 

14100 

14101 

14102 

14103 

14104 

14105 

14106 

14107 

14108 

14109 

14110 

14111 

14112 

14113 

14114 

14115 

14116 

14117 

14118 

14119 

14120 

14121 

14122 

14123 

14124 

14125 

14126 

14127 

14128 

14129 

14130 

14131 

14132 

14133 

14134 

14135 

14136 

14137 

14138 

14139 

14140 

14141 

14142 

14143 

14144 

14145 

14146 

14147 

14148 


052255 

254  00 

052256 

202  02 

052257 

201  01 

052260 

403  02 

052261 

260  17 

052262 

332  00 

052263 

260  17 

052264 

200  02 

052265 

260  17 

052266 

332  00 

052267 

260  17 

052270 

514  00 

052271 

540  00 

052272 

260  17 

052273 
052274 
052275 
052276 
052277 
052300 

052301 
052302 


052303 
052304 
052305 
052306 
052307 


052310 
052311 
052312 
052313 
052314 
052315 
052316 
052317 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


052270 
077654 
777777 
000003 
052711 
100233 
052570 
077654 
052711 
100233 
052570 
100734 
100733 
044362 


262  17  0  00  000005 
262  17  0  00  000004 
262  17  0  00  000003 
262  17  0  00  000002 
262  17  0  00  000001 
262  17  0  00  000006 

260  17  0  00  047234 
254  00  0  00  030065 


514  00  0  00  100734 
661  00  0  00  400000 
540  00  0  00  100733 
2oJ  17  0  00  044312 
254  00  0  00  052273 


201  01 
403  02 
306  06 
476  00 
301  06 
476  00 
260  17 
254  00 


052320 

261 

052321 

261 

052322 

261 

052323 

301 

052];24 

254 

052325 

201 

052326 

200 

052327 

316 

052330 

254 

052331 

367 

17 
17 
17 
06 
00 
15 
02 
01 
00 
15 


0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
15 
00 
00 
00 


777777 
000003 
000005 
000005 
000007 
000005 
052711 
052273 

000000 
000002 
00001 5 
000004 
052354 
00QQ1 7 
053302 
000002 
052347 
052326 


RDOFF 


RE ADA; 


JRST 

MOVEM 

MOVE  I 

SETZB 

60 

SKIPE 

60 

MOVE 

60 

SKIPE 

60 

HRLZ 

HRR 

60 


CMDCOM:  6ET 
6ET 
6ET 
6ET 
6ET 
6ET 

60 
JRST 


READA 

AC2,0FSAV# 

ACU-I 

AC2,AC3 

FILLQ 

CMBFND 

QFIN 

AC2,0FSAV 

FILLQ 

CMBFND 

QFIN 

.PATN 

.SIZE 

RDALC 

AC5 
AC4 
AC3 
AC2 
ACl 
AC 

CMDXCT 
UUOEXT 


NO  ZERO  OFFSET 

YES  SAVE  OFFSET  DATA 

YES  -  SETUP  FOR  THE  CMD 

ISSUE  A  SEEK  FIRST 

NOW 

BUFFER  FULL?? 

YES  -  EMPTY  SOME  OF  IT 

6ET  THE  OFFSET  VALUE 

6EN  THE  CMD 

BUFFER  FULL  NOW?? 

YES  -  EMPTY  SOME  OF  IT 

6ET  THE  DATA  PATTERr:  NUMBER 

ADD  IN  THE  TRANSFER  SIZE 

ALLOCATE  MEMORY  AND  SETUP  TO  READ 


;RESTORE  0RI6INAL  AC  CONTENTS 


;HERE  TO  PROCESS  WRITE  DATA  TRANSFERS 


WRTXFR:  HRLZ 
TLO 
HRR 
60 
JRST 


.PATN 

(1B0) 

.SIZE 

WRTALC 

CMDCOM 


;HERE  TO  PROCESS  A  POSITION  COMMAND 
;PORT  RELEASE,  OR  UNLOAD  COMMAND 


POSCMD:  MOVE I 
SETZB 
CAIN 
SETOM 
CAIL 
SETOM 
60 
JRST 

AR6SET:  PUT 
PUT 
PUT 
CAIL 
JRST 
MOVE  I 
MOVE 
CAMN 
JRST 
REPTLP 


AR6PAT: 


AC1,-1 
AC2-AC3 
AC,5 
AC5 

AC5 

FILLQ 

CMDCOM 

ACO 

AC2 

REPT 

AC, 4 

AR6CYL 

REPT,<FSP-DPATN> 

AC2,DPATN(REPT) 

AC1,AC2 

AR6EXT 


;TRY  TO  EXECUTE  THE  QUE 
.-TAKE  +1  UUO  RETURN 


6ET  THE  PATTERN  NUMBER 

SET  THE  WRITE  PATTERN  INDICATOR 

ADD  IN  THE  TRANSFER  SIZE 

ALLOCATE  MEMORY,  AND  DATA  &  SETUP  TO  WRITE 

EXIT 


-  SEEK,  RECAL,  SEARCH,  CENTER, 


INDICATE  A  P0SITI0NIN6  COMMAND 

CLEAR  SCNTBL  ENTRY  SLOTS 

DESIRE  A  RECAL 

YES  -  SFT  DISK  ADDRESS  TO  -1 

CENTER,  RELEASE,  OR  UNLOAD? 

YES  -  ALSO  SET  THE  DSK  ADDR  WORD 

MAKE  COMQ  ENTRY  AND  DSB  ENTRY 

EXIT 

;SAVE  SOME  AC'S 


IS  IT  A  POSITION  COMMAND?? 
YES  -  6ET  THE  CYLINDER  # 
6ET  THE  NUMBER  OF  PATTERNS 
6Ei  THE  6EN  ADDRESS  OF  ROUTINE 
SAME  PATTERN  ADDRESS?? 
YES  -  EXIT 
NO  TRY  A6AIN 


J 


L_ 


DDRPl  - 
DDRPI3 

H1A9 
14150 
1A151 
14152 
14153 
14154 
14155 
14156 
14157 
14158 
14159 
14160 
14161 
14162 
14163 
14164 
14165 
14166 
14167 
14168 
14169 
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SEQ  0451 


Dl 
Dl 


052332 
052333 


05: 


8! 
8 


;4 

i5 

16 

\7 

540 


052341 
052342 
052343 
052344 
052345 
052346 
052347 
052350 
052351 
052352 
052353 


0  00 


074001 


200  00 
037  13 
037  02 
550  00 
260  17 
037  00 
334  00 
202  15 
262  17 
262  17 

262  17 

263  17 


0 
0 
0 


88 

00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


07401 2 
030113 
000000 
074015 
030114 
066174 
030242 
000000 
100734 
00001 5 
000002 
000000 
000000 


PMS6F 
MOVE 
MOVE 
PNTSXF 
PMSGF 
PMSG 
MOVE 
PNTHW 
PMSG 
HRRZ 
GO 

PCRL 
SKI  PA 
ARGEXT:  MOVEM 
GET 
GET 
GET 
RTN 


<'^INVALID  PATTERN  SELECTED. .  .PGM  WILL  USE  "> 
AC2^.PATN  ;GET  THE  LAST  PATTERN  #  USED 

DPAtNM(AC2)  ;GET  THE  NAME 

; PRINT  THE  NAME 

<*UUO  CALLED  WAS  => 
SSVUUO 

OFROM  PC  => 

SSVUPC 

POCT 


REPT,.PATN 

REPT 

AC2 

ACO 


052354  202  01  0  00  100730 

052355  254  00  0  00  052350 


ARGCYL:  MOVEM   AC1,.CYLIN 
JRST    ARGEXT+1 


;SAVE  THE  PATTERN 
.-RESTORE  AC'S 


;SAVE  THE  ARGUMENT  AS  CYLINDER  # 
;AND  EXIT 


L 


DDRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
WRITE/REAO/RECAL/SEEK  COMMAND  GENERATOR  -  CMDUUO 


DECFLO  VER  00.12  12-APR-78  00:4A  PAGE  25 


SEQ  0452 


0 
D 


••CMDUUO  *♦ 

I 

THIS  DRIVE 
OPR  SELECTED 


UUO  COMMAND  FLOW  FOR 

READ,  WRITE,  SEEK,  AND  RECAL 


\N0  ILLEGAL  DRIVE 
\ 


I  YES 
I  CMDA 


/     COMBUF 
/      FULL 


\YES  *********** 

\ >**CMDFUL  ** 


CMDER1 

*  PRINT     * 
~*    COMMAND    *• 

t    FAILURE    * 

CMDER2 

*  PRINT  DRIVE  * 
— *   PARAM  IN    *• 

*  ERROR     * 


I  NO 
VALCK   I  CMDB 


/    THE  DRIVE 
y     PARAMS  OK 


\N0  ERR  IN  PARAMETERS 
\ 

\ 


I  CMDER3 

*  PRINT  RUNTIM  * 

*  PRINT  TEST   * 

*  * 

I 

♦♦UUOEXT  *♦    +1  ERROR  RETURN 

*********** 


I  YES 

***************** 

♦SAVE  AC1  TO  AC5* 
*     AC      * 

***************** 

I 

*********************** 

♦SAV  CODED  ENTRY  WRDS  * 

♦  IN  COMBUF  FRM  KNOWN  * 

*  PARAMETERS     * 
*********************** 


I 


/     IS  CMDA     \N0 
/   POSITION  CMD    \- 
/         ?         \ 

I  YES 

I     POSCMD 

*********************** 

♦  BUILD  A  POSITION   * 

♦  CMD  ENTRY  FORMAT   ♦ 

♦  IN  AC1  TO  AC5    ♦ 
*********************** 

FILLO      I 
**************♦*♦♦♦♦♦♦* 

♦SAVE  CMD  IN  DRIVE  DS8* 

♦  AND  BUILD  A  COMQ   ♦ 

♦  ENTRY  FOR  COMMAND  * 

**♦♦♦****♦*♦********♦♦* 


I 

I  XFRCMD 


OPR  WANT  TO   \YES 
DO  ACTUAL  SEEKS  \— 
?         \ 


XFRSEK 

***************** 

♦BLD  A  COMQ  SEEK* 
'>*ENTRY  FRM  COMB  * 

*    COMMAND    ♦ 

***************** 


I  NO  USE  IMPLIED  SEEK 
K 

I  XFRA 


I 


RDXFR 


I 


/    IS  CMD  A     \N0 
WRITE  XFR     \- 
f         \ 


/     ISSUE  A     \YES 
■>/    READ  OFFSET    \— 
/     CMD  (OPR)?      \ 


•> 

■ 


WRTALC 


I  YES 

I     WRTXFR 


************************* 


RDALC 


I  NO 

I< 

I  READA 


♦*  SETUP  DRV  DSB  COMQ 
♦*   ENTRY,  CSB  AREA 


*♦ 

** 

♦♦    TO  DO  A  WRITE  '   ♦* 

************************* 


\ 


***************** 

♦SETUP  CSB, DSB  £♦ 
♦COMQ  FOR  A  READ^ 

♦    COMMAND    ♦ 

***************** 


RDOFF 


•>I 


I 


\ 


*********************** 

♦BLD  A  COMQ  OF  SET  CMD  ♦ 

♦  W/  PGM  OF  SET  VALUE  ♦ 

♦  SEL  BY  OPR  IN  OFSET  ♦ 
*********************** 


*********** 

♦♦CMDCOM  ♦♦ 
*********** 


.^..) 


L 
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SEQ  0453 


D 
D 


U171 

U172 

H173 

1A17A 

U175 

HI  76 

14177 

14178 

14179 

14180 

14181 

14182 

14183 

14184 

14185 

14186 

14187 

14188 

14189 

14190 

14191 

14192 

14193 

14194 

1  "^5 

U  6 

14i97 

14198 

14199 


052356 
052357 
052360 
052361 
052362 
052363 
052364 
052365 
052366 
052367 
052370 
052371 
052372 


052373 
052374 
052375 
052376 
052377 
05240C 
052401 
052402 
052403 


332 
254 
260 
260 
260 
300 
261 
037 
262 
602 
254 
332 
037 


00 
00 
17 
17 
17 
00 
17 
10 
17 
00 
00 
00 
02 


402  00 
402  00 
200  00 


00 
00 


251 
201 
202  00 

201  00 

202  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 

0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 


0  00 
0  00 


077720 
052134 
052570 
053015 
044244 
000000 
030046 
000002 
030046 
040000 
052404 
077703 
074017 


077703 
100163 
070427 
100560 
100235 
077546 
100163 
077552 
05cM34 


SUBTTL  COMflAND  REGENERATOR 

.-HERE  WHEN  THE  COMMAND  BUFFER  (COMBUF)  IS  FULL 


CMDFUL:  SKIPE 
JRST 
GO 
GO 
GO 
CAI 
PUT 

SWITCH 
GET 
TRNE 
JRST 
SKIPE 

CFULLP:  PMSG 


RETFLG 

CMDB 

QFIN 

lOTERM 

CMPCHK 

CONSW 

CONSW 

FREEZE 

RUNQUE 

QPFLAG 

<*ABORTING  FREEZE 


.-DOING  A  RETRY? 
;D0  THE  CMD  NOW! 
;WAIT  TILL  ALL  CMDS 
.-WAIT  TILL  LAST  CMD 
;ANY  COMPARES 


STARTED 
IS  DONE 


CMD 


;SAVE  THE  SELECTED  PGM  SWITCHES 
;AND  READ  THE  SWITCHES 

;IS  THE  FREEZE  ON  COMMANDS  SET? 
;YES  -  ISSUE  COMMANDS  IN  BUFFER  AGAIN 
.•PRINTED? 
LIST*'"> 


.•CLEAR  "COMQ"  TABLE  AND  "COMBUF"  STORED  COMMAND  TABLE 


SETZM  QPFLAG# 

SETZM  COMBUF 

MOVE  [COMBUF.. COMBUF +1] 

BLT  SAVQE 

MOVE I  COMQ 

MOVEM  CMDQPT 

MOVE I  COMBUF 

MOVEM  COMBPT 

JRST  CMDB 


;CLEAR  THE  PRINT  CMD  LIST 
.•CLEAR  THE  FIRST  LOCATION 
.•BUILD  A  BLT  WORD 
.-ZAP!  AREA  NOW  CLEAR 
.•SETUP  THE  COMMAND  POINTERS 


;G0  FILL  'EM  AGAIN  SAM 


FLAG 


J 


L 
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SEQ  0454 


D 

D 


14200 

14201 

14202 

14203 

14204 

14205 

14206 

14207 

14208 

14209 

14210 

14211 

14212 

14213 

14214 

14215 

14216 

14217 

14218 

14219 

14220 

14221 

14222 

14223 

14224 

14225 

14226 

14227 

14228 

14229 

14230 

14231 

14232 

14233 

14234 

14235 

14236 

14237 

1423C 

14239 

14240 

14241 

14242 

14243 

14244 

14245 

14246 

14247 

r,248 

14249 

14250 

14251 

14252 

14253 

14254 


052404 

052405 

052406 

052407 

052410 

052411 

052412 

052413 

052414 

052415 

052416 

052417 

052420 

052421 

052422 

052423 

052424 

052425 

052426 

052427 

05243C 

052431 

052432 

052433 


052434 
052435 
052436 
052437 
052440 
052441 
052442 
052443 
052444 
052445 
052«*46 
052447 
052450 
052451 

052452 
052453 
052454 
052455 
052456 
052457 
052460 
052461 


261 
261 
261 

;'.1 

cr 

261 
261 
261 
261 
261 
261 
332 
254 
476 
037 
037 
254 
260 
037 
037 
254 
402 
254 


17 
17 
17 
17 
7 
.7 
17 
17 
17 
17 
17 
17 
00 
00 
00 
04 
01 
00 
17 
04 
02 
00 
00 
00 


0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


260  17 
402  00 
200  00 
251  00 
402  00 
402  00 

200  CO 
251  00 

201  00 

202  00 

201  01 

202  01 

201  06 

202  06 

135  07 
202  07 
135  00 
260  17 
202  00 
661  05 
556  00 
553  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 

8§ 

00 
00 


000001 
000002 
000003 
000004 
000005 
000007 
000013 
077545 
100730 
100731 
100732 
100733 
077703 
052434 
077703 
074024 
000003 
052434 
051715 
074033 
000003 
052434 
077703 
052551 


034540 
100235 
074037 
100331 
101103 
100233 
070430 
101153 
101103 
101154 
100235 
077546 
100163 
077552 

074040 
077545 
074041 
045627 
000005 
400000 
100730 
000000 


;-*RUNQUE  —  HERE  TO  EXECUTE  THE  CONTENTS  OF  "COMBUF"  STORED  COMMANDS  AGAIN 


RUNQUE : 


PUT 

PUT 

PUT 

PUT 

?UT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

SKIPE 

JRST 

SETOM 

PMSGF 

TTIYES 

JRST 

60 

PMSGF 

TTINO 

JRST 

SETZM 

JRST 


ACl 

AC2 

AC3 

AC4 

AC5 

AC7 

DRIVE 

CMDNUM 

.CYLIN 

.SURF 

.SECT 

.SIZE 

QPFLA6 

RUNOA 

QPFLAG 

<*FREEZING  THE 


;SAVE  SOME  AC'S 


CMD  LIST. 


RUNQA 

CMDPNT 

<*PROCEED 

RUNQA 

QPFLAG 

RUNQX 


WITH  THE  LIST?> 


ALSO  SAVE  SELECTED  DRIVE  # 
SAVE  THE  COMMAND  POINTER  NUMBER 
SAVE  PACK  PARAMETERS 


PRINTED? 

YES 

NO  -  SET  THE  FLAG 

.PRINT  LIST?> 

Y  OR  N  RESPONSE 

NO 

YES  -  PRINT  THE  CMD 


LIST  TO  OPR 


Y  OR  N 
YES 

CLEAR  THE 
AND  EXIT 


FLAG 


;NOW  CLEAR  "COMO"  AREA  FOR  RE-QUE  OPERATION 


RUNQA:     GO  CLENU2 

SETZM  COMQ 

MOVE  [C0MQ,,C0M0+13 

BLT  COMQE 

SETZM  SCNT8L 

SETZM  CMBFND 

MOVE  CSCNTBL,.SCNTBL^1] 

BLT  SCNEND 

MOVE I  SCNTBL 

MOVEM  SCNADD 

MOVEI  ACl, COMQ 

MOVEM  AC1,CMDQPT 

MOVEI  ACCOMBUF 

MOVEM  ACCOMBPT 

RUNQ8:  LDB  AC7, [POINT  6, (AC), 5] 

MOVEM  AC7, CMDNUM 

LDB  [POINT  20,1 (AC), 35] 

GO  BLKADR 

MOVEM  AC5 

TLO  AC5,(1B0) 

HLRZM  .CYLlN 
HRRZS 


RECLAIM  MEMORY 

CLEAR  THE  FIRST  ONE 

BUILD  A  BLT  WORD 

ZAP!  COMQ  IS  NOW  CLEARED 

CLEAR  THE  SCNTBL  BUFFER  ALSO 

CLEAR  THE  CMD  FULL  INDICATOR 

BUILD  A  BLT  WORD 

ZAP!  IT  IS  CLEAR  ALSO... 

GET  THE  ADDRESS  OF  THE  BUFFER 

AND  SETUP  THE  POINTER  TO  IT 

GET  ADDRESS  OF  QUE 

SETUP  THE  QUE  POINTER  TO  INSERT 

POINT  TO  START  OF  CMD  LIST 

RESET  THE  COMMAND  BUFFER  POINTER 

GET  THE  CODDED  COMMAND  FUNCTION 

SAVE  IT 

GET  LOG  BLOCK  # 

CONVERT  IT  TO  7EAL  DISK  ADDR 

SAVE  IN  AC5  FOR  LATER  USE 

SET  THE  DSK  ADDR  INDICATOR  BIT 

SAVE  THE  CYLINDER  ADDRESS 

STRIP  THE  CYL  NUMBER 


L 


-^ 


r 


DDRPl  - 
DDRP13 

1A255 

1A256 

1A257 

U258 

U259 

14260 

1A261 

14262 

14263 

14264 

14265 

14266 

14267 

14268 

U269 

14270 

14271 

14272 

14273 

14274 

14275 

14276 

14277 

14278 

14279 

14280 

14281 

14282 

14283 

14284 

14285 

14286 

14287 

14288 

14289 

14290 

14291 

14292 

14293 

14294 

14295 

14296 

14297 

14298 

14299 

14300 

14301 

14302 

14303 

14304 

14305 

14306 

14307 

1430? 
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052462 
052463 
052464 
052465 
052466 

052467 
052470 
052471 
052472 

052473 
052474 
052475 
052476 

052477 
052500 
052501 
052502 

052503 
052504 
052505 
052506 
052507 

052510 
052511 

052512 
052513 
052514 
052515 
052516 
052517 
052520 
052521 
052522 
052523 
052524 

052d25 
052526 
052527 
052530 

052531 
052532 
052533 
052534 

052535 
052536 
052557 


241  00  0  00  777770 
552  00  0  00  100731 
513  00  0  00  000000 
241  00  0  00  000010 
202  00  0  00  100732 

135  00  0  00  074042 
622  00  0  00  000040 
660  00  0  00  400000 
202  00  0  00  100734 

135  13  0  00  074043 

135  00  0  00  074044 

620  00  0  00  700000 

202  00  0  00  100733 

301  07  0  00  000004 
254  00  0  00  052535 

331  00  0  06  000001 
254  00  0  00  052510 

201  01  0  00  777777 
403  02  0  00  000003 
260  17  0  00  052711 

332  00  0  00  100233 
260  17  0  00  052570 

301  07  0  00  000002 
254  00  0  00  052531 


2uJ  01 
603  01 
200  02 
607  01 

200  02 
336  00 
254  00 

201  01 
260  17 
332  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


13 
00 
00 
00 
00 
00 
00 
00 

no 

UO 

00 


100747 
000100 
101162 
000100 
101161 
000002 
052525 
777777 
052711 
100233 
052570 


514  00  0  00  100734 

540  00  0  00  100733 

260  17  0  00  044362 

254  00  0  00  052544 

514  00  0  00  100734 
540  00  0  00  100733 
260  17  0  00  044312 
254  00  0  00  052544 

201  01  0  00  777777 
403  02  0  00  000005 
305  07  0  00  000007 


RUNQBl : 


ROT 

HRRZM 

HLLZS 

ROT 

MOVEM 

LDB 
TRZE 
TRO 
MOVEM 


RUNQ62:  LDB 
LDB 
TRZ 
MOVEM 


RUNQB3 : 


CAIL 
JRST 
SKIRL 
JRST 


RUNQB4:  MOVE I 
SETZB 
GO 
SKIPE 


RUNQBT: 


CAIL 
JRST 


RUNQBR:  MOVE 
TLNE 
MOVE 
TLNN 
MOVE 
SKIPN 
JRST 
MOVEI 
GO 

SKIPE 
GO 

RUNQB5;  HRLZ 
HRR 


JR^T 

RUNQBW:  HRLZ 
HRR 
GO 
JRST 

RUNQ8P:  MOVEI 
SETZB 
CAIiiE 


-^D8 
.SURF 

*D8 
.SECT 
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GET  THE  SURFACE  NUMBER  W   RH 
SAVE  THE  SURFACE  NUMBER 
CLEAR  THE  SURFACE  NUMBER 
GET  THE  SECTOR  NUMBER 
AND  SAVE  IT  ALSO... 


SEQ  0455 


r 

iC 

c 


[POINT  6,(AC)  Jl] 

40 

400000 

.PATN 

DRIVE, [POINT  6, (AC), 17] 
[POINT  14,1(AC),H3 
700000 
.SIZE 

AC7,4 
RUNQBP 
KAC) 
RUNQBT 

AC1,-1 

AC2,AC3 

FILLQ 

CMBFND 

QFIN 

AC7,2 
RUNQBU 

AC1,DSBTBL(DRIVE) 

AC1,(.RP06) 

AC2,.0FST1 

AC1,(.RP06) 

AC2,.0FSFT 

AC2 

RUN0B5 

AC1,-1 

FILLC 

CMBFND 

QFIN 

.PATN 
.SIZE 
RDALC 
RUNQC 

.PATN 
.SIZE 

WRTALC 
RUNQC 

AC1,-1 

AC2,AC3 

AC7,7 


GET  THE  PATTERN  NUMBER 
IS  IT  A  WRITE  PATTERN?? 
YES  -  SET  THE  INDICATOR 
SAVE  THE  DATA  PATTERN  NUMBER 

NOW  EXTRACT  THE  DRIVE  NUMBER 

GET  SIZE 

STRIP  JUNK  BITS 

THEN  SAVE  THE  SIZE 

IS  THIS  A  POSITION  COMMAND?? 

YES  -  DO  IT  THEN! 

DOING  AN  ACTUAL  SEEK  FIRST?? 

NO 

YES  -  SETUP  TO  INDICATE  SUCH 

SAVE  THE  COMMAND 
BUFFIR  FULL?? 
YES  -  EMPTY  SOME 

READING?? 

NO  -  MUST  BE  WRITING 

GET  TABLE  DATA 

RP06  ? 

YES  GET  ITS  OFFSET  DATA 

RP06  ? 

NO  GET  RP04/05  OFFSET  DATA 

ANY  OFFSET  DESIRED 

NO 

YES  -  DO  IT 
BUFFER  FULL?? 
YES  -  EMPTY  IT 

GET  THE  DATA  PATTERN  ft 

AND  SIZE 

ALLOCATE  A  READ  THING 


GET  PATTERN  # 
AND  SI!c 

ALLOCATE  A  WRITE 


.-INDiCATE  A  POSITION  COMMAND 
;PC3  CMD.' 


r 


DDRPl  - 
DDRP13 

U310 

H311 

1A312 

U313 

H3U 

14315 

14316 

14317 

14318 

14319 

14320 

14321 

14322 

14323 

14324 

14325 

14326 

14327 

14328 

14329 

14330 

14331 

14332 

14333 

14334 

14335 

14336 

14337 

14338 

14339 

14340 

14341 

14342 

14343 

14344 

14345 

14346 

14347 

14348 

14349 

14350 

14351 

14352 

14353 

14354 

14355 

14356 

14357 

14358 
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SEQ  0456 


Dl 

Dl 


052540  306  07  0  00  000005 

052541  476  00  0  00  000005 

052542  661  05  0  00  400000 

052543  260  17  0  00  052711 


052544 
052545 
052546 
052547 
052550 

052551 
052552 
052553 
052554 
052555 
052556 
052557 
052560 
052561 
052562 
052563 
052564 
052565 
052566 
052567 


260  17  0  00  047234 
201  06  0  00  000002 
273  06  0  00  077552 
305  06  0  00  100233 
254  00  0  00  052452 

262  17  0  00  100733 
262  17  0  00  100732 
262  17  0  00  100731 
262  17  0  00  100730 
262  17  0  00  077545 
262  17  0  00  000013 
262  17  0  00  000007 
262  17  0  00  000005 
262  17  0  00  000004 
262  17  0  00  000003 
262  17  0  00  000002 
262  17  0  00  000001 
336  00  0  00  077703 
254  00  0  00  052372 
254  00  0  00  052356 


052570 
052571 
052572 
052573 
052574 

052575 
052576 
052577 
052600 
052o01 
052602 
052603 

052604 
052605 
052606 


261  17  0  00  000006 
201  06  0  00  100235 
402  00  0  00  077704 
333  00  0  06  000000 
260  17  0  00  052604 


350  00  0 

332  00  0 

254  00  0 

305  06  0 

254  00  0 

262  17  0 

263  17  0 


00  000006 
00  0^^7704 
00  052571 
00  100331 
00  052573 
00  000006 
00  000000 


476  00  0  00  077704 
260  17  0  00  047234 
263  17  0  00  000000 


RUNQC : 


RUNQX 


CAIN 

AC7,5 

SETOM 

AC5 

TLO 

AC5,(1B0) 

GO 

FILLQ 

GO 

CMDXCT 

MOVE  I 

AC, 2 

ADDS 

ACCOMBPT 

CAI6E 

ACCMBFND 

JRST 

RUNQ6 

GET 

.SIZE 

GET 

.SECT 

GET 

.SURF 

GET 

.CYLIN 

GET 

CMDNUM 

GET 

DRIVE 

GET 

AC7 

GET 

AC5 

GET 

AC4 

GET 

AC3 

GET 

AC2 

GET 

AC1 

SKIPN 

QPFLAG 

JRST 

CFULLP 

JRST 

CMDFUL 

OR  A  RECAL? 

YES 

NO  -  SET  THE  DSK  ADDR  INDICATOR 

SAVE  THE  CODED  CMD 

TRY  TO  EXECUTE  THE  COMMAND 

SETUP  TO  UPDATE  COMBPT 

UPDATE  THE  POINTER 

AT  END  OF  THE  BUFFER?? 

NO  -  PROCESS  NEXT  COMMAND  IN  COMBUF 

; RESTORE  PACK  PARAMETERS 


.•RESTORE  THE  ORRIGINAL 
;ALL  DONE  -  EXIT 


COMMAND  NUMBER 


PRINT  FLAG  SET? 

NO  -  ABORT  THE  LIST 

GO  BACK  AND  CHECK  SWITCH  AGAIN 

♦QFIN  —  ROUTINE  TO  WAIT  UNTIL  ALL  COMMANDS  IN  THE  QUE  ARE  EXECUTED 
*      BEFORE  RETURNING  TO  PROGRAM  CONTROL. 


QFIN: 


QFIN1: 


QFINX 


PUT 

AC 

MOVEI 

ACCOMQ 

SETZM 

QXCTF# 

SKIPLE 

(AC) 

GO 

QFINX 

AOS 

AC 

SKIPE 

QXCTF 

JRST 

QFIN+1 

CAIGE 

ACCOMQE 

JRST 

QFIN+3 

GET 

AC 

RTN 

SETOM 

QXCTF 

GO 

CMDXCT 

RTN 

SAVE  THE  AC  POINTER 

POINT  TO  THE  START  OF  THE  Q 

CLEAR  THE  XCT  FLAG 

ANY  CMD  HERE  TO  DO?? 

YES  -  DO  IT 

BUMP  THE  POINTER 

FLAG  SET? 

YES  -  RESTART 

END  OF  THE  Q?? 

NO  -  LOOK  AT  NEXT  Q  ENTRY 


;SET  THE  FLAG 
.-EXECUTE  AN  CMD 


DDRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
WRITE/READ/RECAL/SEEK  COMMAND  GENERATOR  -  CMDUUO 


DECFLO  VER  00.12  12-APR-78  08:44  PAGE  26 


SEQ  0457 


DC 
DC 


♦♦CMDFUL  ** 
I QUA IT  I< 

*  WAIT  FOR  ALL  * 

*  DRV  COMMANDS  ♦ 

*  TO  FINISH   * 

*t**t**4r  it  It  It -kit  It  til 


I 


IS  'TREEZE' 
SWITCH  SET 


WES 
\- 


\ 


I  NO 

It  *  it  t  It  It  t  tit*  nit  Hit  It  It  It 

♦  CLR  COMQ  AREA  * 

♦  CLR  COMBUF   ♦ 

♦  AREA     ♦ 

Ititititifkitititifktitltltitit 

I 
It  it  it  it  it  it  tit  it  it  it 

♦♦CMDB  ** 


RUNQUE 
ttttttttttttttttttttttt 

♦CLEAR  COMQ  AREA  REBLD* 

•>*  W/  CMD  DATA  IN  CMBF  *• 

♦AREA  &  REISSUE  CMNDS  ♦ 
ttttttttttttttttttttttt 


I 
I 
I 
I 
I 
I 
I 
I 
•>I 


CMDCOM 

♦  RESTORE  ORIGINAL   * 

*  CONTENTS  OF  USED   * 

♦AC'S  AC1  TO  ACS  8  AC  ♦ 
ttttttttttttttttttttttt 


CMDXCT 


I 


ttttttttttttttttttttttt 

♦  TRY  TO  USE  A  CMD  IN  ♦ 

♦  COMQ  TO  START  AN   ♦ 
♦OPERATION  IN  THE  DRV  ♦ 

I 
**•*•***«*«    +1  RETURN 

♦♦UUOSKP  ♦♦    FOR  NORMAL  EXIT 


ttttttttttt 

♦♦RUNQUE  ♦♦ 
ttttttttttt 

t 

ttttttttttt tttttt 

♦SAVE  AC'S  8  O^y* 

♦  #  SELECTED   ♦ 

♦  t 
tttttt ttttttttttt 

I     RUNQA 

ttttttttttttttttttttttt 

♦RESET  COMBUF  POINTER  ♦ 
♦  TO  STRT  OF  COMBUF  ♦ 
♦LIST  &  CLR  COM-  AREA  ♦ 


m 


TO 
I 


RUNUB 


CMDXCT     RUNQC 

tttttt ttttttttttt 

♦  EXECUTE  A   ♦ 

•  COMMAND    ♦ 

♦  * 
tttttt ttttttttttt 

I 

ttttttttttttttttt 

t  t 

*  +2->C0MBPT   ♦ 

I 

/     END 

OF  CDMBUF 


\ 


ttttttfrtttttttttt-^tttt 

♦BUILD  COMMAND  IN  ACI  ♦ 

♦  TO  ACS  FROM  CMD   ♦ 

♦  IN  COMBUF      ♦ 

FILLQ      I 

♦SAVE  CMD  IN  DRIVE  DSB^ 

♦  i  BLD  A  COMQ  ENTRY  ♦ 

♦  FOR  THE  COMMAND   ♦ 

I 
ttttttttttt 

♦♦RUNQC  ♦♦ 


I  YES 

♦  RESTORE  AC'S  ♦ 

♦USED  ♦  DRIVE  #  ♦ 

*  * 

I 
*********** 

♦  ^RTN    ♦♦ 
*********** 


DDRPl  • 
0DRPI3 

H360 

1A361 

14362 

14363 

14364 

14365 

14366 

14367 

14368 

14369 

14370 

14371 

14372 

14373 

14374 

14375 

14376 

14377 

14378 

14379 

14380 

14381 

14382 

14383 

14384 

14385 

14386 

14387 

14388 

14389 

14390 

14391 

14392 

14393 

14394 

14395 

14396 

14397 

14398 

14399 

14400 

14401 

14402 

14403 

14404 

14405 

14406 

14407 

14408 

14409 

14410 

14411 

14412 

14413 

14414 
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SUBTTL  DISK  PARAMETER  CHECKER  8  QUE  POINTER  SETUP 

•^♦♦♦•♦♦t ♦*♦**♦***♦*♦*♦♦♦♦♦♦♦*♦*****♦•**♦♦*•♦•♦♦*****♦•••****♦♦♦**• ******* 
)*VALCK  —  ROUTINE  TO  CHECK  DISK  PARAMETERS  AND  TO  SETUP  POINTERS 
;♦      INTO  "COMBUF"  AND  "COMQ"  AREAS 


SEQ  0458 


052607 

052610 

052611 

052612 

052613 

052614 

052615 

052616 

052617 

052620 

052621 

052622 

052623 

052624 

052625 

052626 

052627 

052630 

052631 

052632 

052633 

052634 

052635 

052636 

052637 

052640 


052641 
052642 
052643 
0S2644 
052645 
052646 
052o47 
052650 
052651 
052652 
052653 
052654 
052655 
052656 
052657 
052660 
052661 
052662 


261 
261 
261 
201 
274 
242 
200 
336 
254 
271 
367 
202 
200 
201 
274 
336 
254 
350 
367 
202 
306 
402 
306 

23  • 

301 
254 


17 
17 
17 
15 
15 
15 
01 
00 
00 
01 
15 
01 
01 
15 
15 
00 
00 
00 
15 
01 
06 
00 
06 
00 
06 
00 


200  CO 
242  00 
434  00 
504  00 
621  00 
260  17 
200  01 
301  06 
254  00 
332  00 
254  00 
037  04 
254  00 
231  01 
370  00 
270  00 
317  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

88 

00 
00 
00 
00 

11 

00 


000000 
000001 
00001 5 
100233 
077552 

111111 

011SS2 
000000 
052622 
000002 
052616 
077552 
077546 
100331 
077546 
000000 
052632 
000001 
052626 
077546 
000004 
100733 
000005 
052704 
000^07 
05*704 


100731 
000010 
100732 
100730 
776000 
045573 
100733 
000004 
052656 
000001 
052656 
074045 
052673 
000200 
000001 
000001 
000031 
052704 


VALCK: 


PUT 

PUT 

PUT 

MOVE  I 

SUB 

LSH 

MOVE 

SKIPN 

JRST 

ADDI 

REPTLP 

MOVEM 

MOVE 

MOVE  I 

SUB 

SKIPN 

JRST 

AOS 

REPTLP 

MOVEM 

CAIN 

SETZh 

CAIN 

JRST 

CAIL 

JRST 


ACO 

AC1 

REPT 

REPT^CMBFND 

REPT^COMBPT 

REPT,-1 

ACl-COMBPT 

(ACl) 

.-^3 

AC1,2 

ACKCOMBPT 

ACKCMDQPT 

REPT,COMQE 

REPT.CMDQPT 

(ACl) 

.+3 

ACl 

.-3 

ACl.CMDQPT 

AC, 4 

.SIZE 

AC, 5 

VALCK2 

AC, 7 

VALCK2 


.-SAVE  AC'S 


GET  THE  LAST  ADDRESS  OF  COMMANDS 
CALC  SIZE  REMAINING  IN  BUFFER 
DIVIDE  BY  2 

EMPTY?? 

YES 

NO  -  LOOK  AT  NEXT 

POINT  TO  SLOT  ADDRESS 
GET  POINTER  INTO  QUE 
CALC  SIZE  LEFT  IN  QUE 
FOR  INSERTING  COMMANDS 
THIS  LOCATION  EMPTY?? 
YES 

LOOP  TILL  'OUND  ONE 

POINT  TO  SLOT 

SEEK? 

YES 

RECAL? 

YES 

OTHER  NON-AREA  TYPE  COMMAND? 

YES  -  SKIP  PACK  AREA  CHECK 


Dl 
DI 


;HERE  TO  CHECK  THE  PACK  PARAMETERS  FOR  A  VALID  PACK  AREA 


VALCKl:  MOVE  .SURF 

LSH  *D8 

lOR  .SECT 

HRL  .CYLIN 

TLZ  776000 

GO  LOGBLK 

MOVE  ACl,. SIZE 

CAIL  AC-4 

JRST  .♦S 

SKIPE  ACl 

JRST  .^3 

PMSGF  <*TRANSFER 

JRST  VALCKE 

IDIVI  AC1,BLKSIZ 

SOS  ACl 

ADD  ACl 

CAMG  .MXBLK(DSBP) 

JRST  VALCK2 


GET  THE  SURFACE  SELECTED 
SLIDE  IT  OVER 
GET  THE  SECTOR  # 
ANu  THE  CYLINDER  If 
KILL  ALL  BADO  BITS 
CALC  BLOCK  NUMBER 
GET  XFR  SIZE 
SEEK  CMD  OR  HIGHER? 
YES  -  SKIP  SOME  CODE 
NO  -  IS  SIZE  =  0?? 
NOPE 
SIZE  =0  ?*DRIVE  =  > 


;CALC  BLOCKS 

; CORRECT  THE  COUNT 

;WILL  XFR  FIT?? 
;YES  -  XFR  PARAMS  OK 


DDRPl  - 
DDRPI3 

14415 
14416 
14417 
14418 
14419 
14420 
14421 
14422 
14423 
14424 
14425 
14426 
14427 
14428 
14429 
14430 
14431 
14432 
14433 
14434 
14435 
14436 
14437 
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SEQ  0459 


Dl 
Dl 


052663 
052664 
052665 
052666 
052667 
052670 
052671 
052672 
052673 
052674 
052675 
052676 
052677 
052700 
052701 
052702 
052703 

052704 
052705 
052706 
052707 
052710 


202  00 
037  04 
200  00 
037  15 
037  04 
200  00 
037  17 
037  04 
200  00 
037  02 
200  00 
037  15 
037  04 
540  00 
037  06 
037  01 
334  00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
06 
00 
00 
00 
00 
00 
00 


000001 
074052 
000001 
000001 
074055 
000001 
000003 
074057 
00001 3 
000001 
052120 
000003 
074065 
030114 
000001 
030242 
000000 


350  00  0  17  llllT^ 

262  17  0  00  000015 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


MOVEM 
PMS6F 
MOVE 
PNTDCF 
PMSGF 
MOVE 
PNTOCF 
PMSGF 
VALCKE:  MOVE 
PNT2F 
MOVE 
PSIXLF 
PMSGF 
HRR 
PNT6F 
PCRLF 
SKIPA 


ACl 

<''L06ICAL  BLOCK  #> 

ACl 

<.  (OR  #  > 

ACl 


;SAVE  THE  LOGICAL  BLOCK  n 

;6ET  THE  BLOCK  NUMBER 
; PRINT  THE  BLOCK  H 


;GET  THE  BLOCK  NUMBER  AGAIN 

;PRINT  IT  IN  OCTAL 
<(8))*IS  NOT  ACCESSABLE  ON  DRIVE  *> 
DRIVE 

;PRINT  THE  DRIVE  U 
CMDER(AC)  ;GET  THE  COMMAND  MESA6E  PC 

; PR I NT  THE  MESSAGE 
<  COMMAND  ISSUED  AT  PGM  PC  > 
SSVUPC  ;GET  THE  PC 

;AND  PRINT  IT 


VALCK2: 


AOS 
GET 
GET 
GET 
RTN 


-3(P) 
REPT 
ACl 
ACO 


;ERROR  -  TAKE  THE  +1  RETURN 
; SETUP  FOR  +2  ItU 
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SEQ  0460 


Dl 

Dl 


14438 

14439 

14440 

14441 

14442 

14443 

14444 

14445 

14446 

14447 

14448 

14449 

14450 

14451 

14452 

14453 

14454 

14455 

14456 

14457 

14458 

14459 

14460 

14461 

14462 

14463 

14464 

14465 

14466 

14467 

14468 

14469 

14470 

14471 

14472 

14473 

14474 

14475 

14476 

14477 

14478 

14479 

14480 

14481 

14482 

14483 

14484 

14485 

14486 

14487 

14488 

14489 

14490 

14491 

14492 


052711 
052712 
052713 
052714 
052715 
052716 
052^7 
052720 
052721 


052722 
052723 


261 
261 
261 
261 
261 
550 
336 
332 
254 


17 
17 
17 
17 
17 
11 
00 
00 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
13 
00 
11 
00 


000001 
000002 
000003 
000005 
000006 
100747 
077720 
000033 
052757 


332  00  0  11  000041 
254  00  0  00  052745 


SUBTTL  COMMAND-TO-DRIVE  DSB  STORAGE  FILLER  ROUTINE 
XLIST 

LIST 

;♦  FILLQ  —  DSB  AND  COMQ  ENTRY  GENERATOR 


COMENT  $ 


IS: 


UPON  ENTRY,  AC1  THRU  AC5  CONTAINS  A  COMMAND  TO  BE  STORED 
IN  A  DRIVE  DSB  AREA  AND  AN  ENTRY  TO  BE  MADE  INTO  "COMQ". 

"DRIVE"  IS  POINTING  TO  THE  SELECTED  DRIVE. 
"CMDQPT"  POINTS  TO  A  FREE  SLOT  IN  "COMQ"  QUE  LIST. 
"COMBPT"  POINTS  TO  THE  COMMAND  ENTRY  IN  "COMBUF"  BUFFER 

FORMAT  OF  NEEDED  INFORMATION  IN  AC1  TO  AC5  FOR  A  DATA  TRANSFER 

ACl  ADDRESS  OF  "SCNTBL"  ENTRY 

AC2  "SCNTBL"  ENTRY  WORD  #1 

AC3  "SCNTBL"  ENTRY  WORD  M2 

AC4  EMPTY  (WILL  CONTAIN  COMQ  ENTRY  ADDRESS  UPON  EXIT) 

AC5  DISK  ADDRESS  IN  THIS  FORMAT:  CCYL, , SURF-SECT] 

FORMAT  FOR  A  SEEK  OR  RECAL  IS: 

ACl  0,,-1 

AC2  EMPTY 

AC3  EMPTY 

AC4  EMPTY  -  FILLED  BY  THIS  ROUTINE 

AC5  DISK  ADDRESS  FOR  A  "SEEK"  OR  -1  FOR  A  "RECAL" 
$ 
XLIST 


FILLQ. 


PUT  ACl 

PUT  AC2 

PUT  AC3 

PUT  AC3 

PUT  AC 

HRRZ  DSBP,rSBTBL(DRIVE) 

SKIPN  RETFLG 

SKIPE  .INUSE(DSBP) 

JRST  FILQXS 


;SAVE  AC'S  (AC4  WILL  BE  MODIFIED) 


SETUP  DSB  POINTER 

RETRY? 

IS  THE  DRIVE  "GAGGED"? 

YES  -  JUST  MAKE  COMQ  ENTRY 


;FURTHER  PROCESSING  DONE  BECAUSE  THE  DRIVE  IS  ABLE  TO 
.•ACCEPT  MORE  COMMANDS  IN  THE  DSB  COMMAND  AREA 


FILQA:  SKIPE   .DSKAD(DSBP) 
JRST    FIlQB 


;N0  2ND  COMMAND  AVAILABLE 


;ANY  2ND  COMMAND  AVAILABLE 
;YES  -  PROCfED 


iHM 


"1 
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ANY  PRIMARY  COMMAND? 

YES  -  SAVE  IN  SAVQ  AREA  AND  EXIT 

ANY  HOLD  COMMAND? 

NO  -  SAVE  IN  SAVQ  AND  EXIT 

YES  -  PREPARE  TO  GET  IT 

BUILD  A  BLT  WORD 

SAVE  THE  HOLD  CMD  IN  PRIM  AREA 

CLEAR  THE  HOLD  AREA 


SEQ  0461 


r 

D 
D 


14493 

052724 

332  00  0  11  000046 

FILQA1: 

SKIPE 

.PRIM^4(DSBP) 

14494 

052725 

254  00  0  00  052757 

JRST 

FILQXS 

14495 

14496 

052726 

336  00  0  11  000053 

FQPE: 

SKIPN 

.HLDQ+4(DSBP) 

14497 

052727 

254  00  0  00  052757 

JRST 

FILQXS 

14498 

052730 

205  00  0  11  000047 

MOVSI 

.HLDQ(DSBP) 

14499 

052731 

541  00  0  11  000042 

HRRI 

.PRIM(DSBP) 

14500 

052732 

251  00  0  11  000046 

BLT 

.PRIM+4(DSBP) 

14501 

052733 

402  00  0  11  000047 

SETZM 

.HLDQ(DSBP) 

14502 

052734 

402  00  0  11  000050 

SETZM 

.HLDQ+KDSBP) 

14503 

052735 

402  00  0  11  000051 

SETZM 

.HLDQ+2(DSBP) 

14504 

052736 

402  00  0  11  000052 

SETZM 

.HLDQ+3(DSBP) 

14505 

052737 

402  00  0  11  000053 

SETZM 

.HLDQ+4(DSBP) 

14506 

052740 

402  00  0  11  000033 

SETZM 

.INUSE(DSBP) 

14507 

052741 

550  00  0  11  000042 

HRRZ 

.PRIM(DSBP) 

14508 

052742 

302  00  0  00  777777 

CAIE 

-1 

14509 

052743 

^76   00  0  11  000033 

SETOM 

.INUSE(DSBP) 

14510 

052744 

254  00  0  00  052757 

JRST 

FILQXS 

14511 

14512 

;A  COMMAND  EXISTS  IN  SECONDAR 

14513 
14514 
14515 

.•LOOK  FOR  A  PRIMARY  COMMAND 

052745 

332  00  0  11  000046 

FILGB: 

SKIPE 

.PRIMi-4(DSBP) 

14516 

052746 

254  00  0  00  052757 

JRST 

FILQXS 

14517 

052747 

201  00  0  11  000042 

MOVE  I 

.PRIM(DSBP) 

14518 

052750 

505  00  0  11  000035 

HRLI 

.SCNAD(DSBP) 

14519 

052751 

251  00  0  1 1  000046 

BLT 

.PRIMH(DSBP) 

14520 

052752 

402  00  0  11  000035 

SETZM 

.SCNAD(DSBP) 

14521 

052753 

402  00  0  11  000036 

SETZM 

.SCNKDSBP) 

14522 

052754 

40?  00  0  11  000037 

SETZM 

.SCN2(DSBP) 

14523 

052755 

4ui  00  0  11  000040 

SETZM 

.XCTQ(DSBP) 

14524 
14525 
14526 

052756 

402  00  0  11  000041 

SETZM 

.DSKAD(DSBP) 

052757 

200  04  0  00  077546 

FILQXS: 

MOVE 

AC4,CMDQPT 

14527 
14528 
14529 

052760 

260  17  0  00  051612 

GO 

SAVQUE 

052761 

402  00  0  00  000006 

FILQX: 

SETZM 

AC 

14530 

052762 

302  01  0  00  777777 

CAIE 

AC1.-1 

14531 

052763 

254  00  0  00  052772 

JRST 

FILQXl 

14532 

052764 

336  00  0  00  000002 

SKIPN 

AC2 

14533 

052765 

254  00  0  00  052770 

JRST 

.^3 

14534 

052766 

661  06  0  00  100000 

TLO 

AC-(1B2) 

.^3 

14535 

052767 

254  00  0  00  052772 

JRST 

14536 

052770 

312  05  0  00  067276 

CAME 

AC5,[-1] 

14537 
14538 
14539 

052771 

661  06  0  00  200000 

TLO 

AC.dBD 

052772 

661  06  0  13  000000 

FILQXl. 

•  TLO 

AC, (DRIVE) 

14540 

052773 

540  06  0  00  077552 

HRR 

ACCOMBPT 

14541 

052774 

202  06  1  00  077546 

MOVEM 

ACaCMDQPT 

14542 
14543 
14544 

052775 

350  00  0  00  077546 

AOS 

CMDQPT 

052776 

262  17  0  00  000006 
262  17  0  00  000005 

FILQX2 

:  GET 

AC 

14545 

052777 

GET 

AC5 

14546 

053000 

262  17  0  00  000003 

GET 

AC3 

14547 

053001 

262  17  0  00   000002 

GET 

AC2 

NOT  GAGGED  ANYMORE 

GET  THE  1ST  WORD  OF  PRIM  CMD 

POSITION  CMD? 

YES  -  SET  THE  GAG  FLAG 

AND  EXIT 


ANY  PRIMARY  DSB  COMMAND? 

YES  -  GET  OUT  NOW 

POINT  TO  THE  PRIM  DSB  AREA 

BUILD  A  BLT  WORD 

FILL  DSB  PRIMARY  COMMAND  AREA 

CLEAR  1ST  LOCATION  OF  2ND  CMD  AREA 

AND  ALL  OTHER 

SECONDARY 

COMMAND 

LOCATIONS 

GET  THE  COMQ  ADDRESS 

SAVE  COMMAND  IN  AC1  TO  AC5  IN  SAVQ  AREA 

CLEAR  THE  POINTER 

WAS  COMMAND  A  POSITION  COMMAND 

NO  -  DATA  CMD 

ANY  OFFSET  VALUE? 

NO 

YES  -  SET  COI*^Q  OFFSET  BIT 

RECAL'' 

NO  -  MUST  BE  SEEK...  SET  BIT 

SET  DRIVE  #  IN  COMQ  WORD 
GET  COMBUF  ENTRY  ADDRESS 
SAVE  COMQ  ENTRY  WORD  IN  COMQ 
UPDATE  THE  QUE  POINTER 

RESTORE  AC'S  AND  EXIT 


L 


1 


"~l 
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AC1 


SEQ  0462 


H5A8     053002     262  17  0  00  000001 

GET 

1A5A9     053003     263  17  0  00  000000 

RTN 

U550 

F 

D 
D 


mH^mitmmimmmiittmmmmiim 


mmtmimmimmmmim  i\ 


L 


DDRPl  SUBROUTINES  (RPOA/05/06  RELIABILITY) 
COMMAND  STORAGE  ROUTINE  -  FILLQ 


**FILLQ  *♦ 


I 


DSB  WES 

.INUSE  SET  \— 

(GAGGED)?  \ 

I  NO 

*  (DSBP)+         ♦ 

♦  .PRIM->AC       * 
»  * 


I     FILQA 


ANY 
2ND  CMD 
IN  DSB? 


\N0 
\- 
\ 


I  YES 
FILQB   I  [NOT  RH10J 


ANY 
PRIM  CMD 
IN  DSB? 


\YES 

V 


I  NO 

♦  BLT  2ND->PRIM  ♦ 

♦  0->2ND  ♦ 

♦  (DSBP)*2ND->AC  ♦ 


t 


FILQC 


♦SAVE  CONTENTS  OF  AC1  * 

♦  TO  ACS  IN  DSB  AREA  * 

*  POINTED  TO  BY  AC   * 


I 

I< 

I  FILQD 


♦  SETUP  AC4  TO  ♦ 

♦  POINT  TO  COMO  * 

♦  ENTRY  ADDR   ♦ 

I 
♦♦FILQEX  ♦♦ 


DECFLO  VER     00.12  12-APR-78  08:44     PAGE  21 


I     FILQA1 


/ 


/ 


ANY 
PRIM  CMD 
IN  DSB? 


\N0 
\- 
\ 


I  YES 

I  FIL0A2 


YES   / 
7 


/ 


IS  MBC 
RH10  TYPE 

9 


I  NO 

*  (DSBP)^         ♦ 

*  2ND->AC         * 


FILQC 

*  -1->INUSE   ♦ 

•  (DSBP)^    * 

♦  HOLD->AC    ♦ 


i 


I<- 


SEQ  0463 


r 

c 
c 


T 


FILQEX 

*  MAKE  A  COMQ  ENTRY  * 

*  FROM  INFORMATION   * 

*  IN  AC1  TO  ACS    * 

I 

♦*•**••♦•♦••••*•♦ 

*  RESTORE    ♦ 

*  AC1  TO  ACS   * 

<r  ♦ 

I 

**RTN    ** 


mmmm 


- J 


r 


DDRPl  - 
DDRPI3 

14552 
U553 
K55A 
H555 
U556 
U557 
U558 
U559 
14560 
14561 
14562 
14563 
14564 
14565 
14566 
14567 
14568 
14569 
14570 
14571 
14572 
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SUBTTL  PROGRAM  MANAGEMENT  FOR  I/O  AND  CLOCK  TIMERS 


SEQ  0464 


053004 
053005 
053006 
053007 
053010 
053011 
053012 
053013 
053014 


;*IOWAIT  —  ROUTINE  TO  WAIT  FOR  ALL  DRIVES  TO  FINISH  CURRENT 
;*     DATA  TRANSFERS  AND  POSITIONING  COMMANDS.  THIS  IS 
;*     USEFUL  WHEN  PRINTING  DATA  AND  NO  INTERRUPTS  FROM 
;*     A  DRIVE  IS  DESIRED  OR  WHEN  A  DATA  TRANSFER  OR  POSITION 
;♦      COMMAND  HAS  TO  BE  "RETRYED". 

;^*****»**************** ♦♦♦**♦♦*»***♦*****♦*****♦*♦♦*♦♦***♦***♦ ♦♦♦*♦♦♦♦♦♦* 


261  17  0 
336  00  0 
7  004  20 
200  15  0 


335 
254 
365 
262 
263 


00 
00 
15 
17 

17 


00  000015 
00  030037 
0  00  000200 
00  100670 
15  101047 
00  053005 
00  053010 
00  000015 
00  000000 


lOWAIT:  PUT 

SKIPN 

CONO 

MOVE 

SKIPGE 

JRST 

SOJGE 

GET 

RTN 


REPT 

USER 

PI,PION 

REPT,RHMAX 

CSBTBL(REPT) 

lOWAIT^-l 

REPT, .-2 

REPT 


;SAVE  AN  AC 


;MAKE  SHURE  PI  IS 
;GET  THE  MAX  #  OF 
;THIS  MBC  BUSY? 
;YES  -  START  AGAIN 
;N0  -  LOOK  AT  THE  NEXT 
.-RESET  THE  AC  USED 


ON 
CONTROLLERS 


MBC 


tHMMMMMBnMIM 


L 


DDRPl 
DDRP13 


1A573 

1A574 

14575 

U576 

U577 

14578 

14579 

14580 

14581 

14582 

14583 

14584 

14585 

14586 

14587 

14588 

14589 

14590 

1459 

14592 

14593 

14594 

14595 

14596 

14597 

14598 

14599 

14600 

14601 

14602 

14603 

14604 

14605 

14606 

14607 

14608 

14609 

14610 

14611 

14612 

14613 

14614 

14615 

14616 

14617 

14618 

14619 

14620 

14621 
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r 


SEQ  0465 


053015  260  17  0  00  053004 

053016  332  00  0  00  030037 

053017  263  17  0  00  000000 


053020 
053021 
053022 
053023 
053024 
053025 
053026 
053027 
053030 
053031 

053032 
053033 
05303'« 
053035 
053036 
053037 
053040 
053041 
053042 
053043 


261 
261 
2^: 
550 
332 
260 
365 
262 
262 
263 


17 
17 
02 
10 
00 
17 
02 
17 
17 
17 


17 
17 


261 
261 

200  12 
402  00 
332  00 
660  01  0 
260  17  0 
262  17  0 

262  17  0 

263  17  0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 


00 
00 
00 
02 
00 
00 
00 
00 
00 
00 


000010 
000002 
100670 
101047 
000010 
053032 
053023 
000002 
000010 
000000 


00  000012 
00  000001 
10  000020 
00  000001 
00  077722 
00  000400 
00  063522 
00  000001 
00  00001? 
00  000000 


XLIST 


LIST 


;♦   lOTERM  -  10  TERMINATION  ROUTINE 

COMMENT  $ 

WAIT  UNTIL  ALL   10  THAT   IS  IN  PROGRESS  HAS  BEEN  PROCESSED  BY 

INTERRUPT  SERVICE  BEFORE   EXITING. THE  ROUTINE  WILL  CLEAR  THE 

PI   ASSIN6MENT  FOR  ALL  THE  EXISTING  RH'S.   SINCE   THIS  PROGRAM 

PRINTS  AT  MULTIABLE  LEVELS  MAINLINE  AND  INTERRUPT  SERVICE   THIS 

ROUTINE  WILL  PROVIDE  A  MEANS  TO  CONRTROLL  THE   INTERRRUPTS 

AND  PREVENT  INTERLACING  OF  ERROR  MESSAGES   .    THIS   IS 

IMPORTANT  ON  KLlO'S  SINCE   ITS  POSSIBLE   TO  HANG  IN  THE   SUBRT  PKG   . 

$ 

XLIST 


;WAIT  FOR   10  TO  COMP 


lOTERM: 

GO 

lOWAIT 

SKIPE 

USER 

RTN 

;NOW  TURN  PI   CHAN  OFF 

PUT 

CSBP 

PUT 

AC2 

MOVE 

AC2,RHMAX 

lOTLP: 

HRRZ 

CSBP,CSBTBL(AC2) 

SKIPE 

CSBP 

GO 

CLRPI 

SOJGE 

AC2J0TLP 

GET 

AC2 

GET 

CSBP 

RTN 

CLRPI: 

PUT 

MBCN 

PUT 

ACl 

MOVE 

MBCN,.MBCN(CSBP) 

SETZM 

AC! 

SKIPE 

RH20 

TRO 

AC1,MBE 

GO 

.CONO 

GET 

ACl 

GET 

MBCN 

RTN 

;GET  TABLE  POINTER 
;IS   THERE  ONE  ASSINGED 


_  ijli  lUlliin.iullill  III     lii|illli)««l<w»«iMI*Wi>IP»W«*«»»il    linai  iimmKMWIiwml  .       I      illiiiililiii 
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S5Q  0466 


14622 

14623 

14624 

14625 

14626 

14627 

14628 

14629 

14630 

14631 

14632 

14633 

14634 

14635 

14636 

14637 

14638 

14639 

14640 

14641 

14642 

14643 

14644 

14645 

14646 

14647 

146A8 

14649 

14650 

14651 

14652 

14653 

14654 

14655 

14656 

14657 

14658 

14659 

14660 

14661 

14662 

14663 

14664 

14665 

14666 

14667 


053044 
053045 
053046 
053047 
053050 
053051 
053052 
053053 
053054 
053055 
053056 
053057 
053060 
053061 

053062 
053063 
053064 
05306S 
053066 
0530C7 

053070 
053071 
053072 
053073 
053074 
053075 
053076 
053077 
053100 
053101 
053102 
053103 
05310'. 
053i05 
053106 
053107 
053110 


261  17  0 
261  17  0 
200  01  0 
603  01  0 
254  00  0 
037  02  0 
200  00  0 
037  02  0 
336  00  0 
254  00  0 
037  02  0 
200  00  0 
037  00  0 
037  02  0 


00  000000 
00  000001 
00  030046 
00  000200 
00  053132 
00  074072 
00  000013 
00  000000 
11  000022 
00  053062 
00  074074 
11  000022 
00  000002 
00  067761 


336  00 
254  00 
037  02 
200  00 
037  00 
037  02 

037  02 
2uJ  01 
554  00 
260  17 
037  02 
135  00 
037  02 
037  02 
135  00 
037  02 
037  02 
200  00 
260  17 
260  17 
037  02 
260  17 
037  02 


0  11  000023 
0  00  053070 
0  00  074076 
0  11  000023 
0  00  000002 
0  00  067761 


00 
11 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


074100 
000024 
000001 
066174 
074106 
070114 
000000 
074110 
067506 
000000 
074112 
000001 
045573 
066174 
073347 
066163 
074120 


SUBTTL  ADDITIONAL  PROGRAM  PRINTERS 

;*PINITP  —  ROUTINE  TO  REPORT  DISK  ADDRESS  AND  BUFFER  ADDRESS  USED 
;♦     AS  WELL  AS  THE  TRANSFER  SIZE  IN  USE. 


PINITP:  PUT 
PUT 


PINP1 


PINP2: 


MOVE 

TLNE 

JRST 

PMSG 

MOVE 

PNT2 

SKIPN 

JRST 

PMSG 

MOVE 

PNTSIX 

PMSG 

SKIPN 

JRST 

PMSG 

MOVE 

PNTSIX 

PMSG 

PMSG 

MOVE 

HLRZ 

GO 

PMSG 

LD6 

PNT2 

PMSG 

LDB 

PNT2 

PMSG 

MOVE 

i 

PMSG 

GO 

PMSG 


AfO 

AC1 

ACi:CONSU 

AC1,TXTINH 

PINPS 

<*DRIVE  ♦> 

DRIVE 

.DNAME(DSBP) 
PINP1 

<3NAME:  ••> 
.DNAflE(DSBP) 


<••> 


.PKID(DSBP) 

P1HP2 

OPACK  ID;  "> 

.PKID(DSBP) 


GET  THE  SWITCHES 
SHORT  PRINTOUT? 
YES  -  DO  IT 

GET  THE  DRIVE  NUMBER 

AND  PRINT  IT 

ANY  SIXBIT  NAME  WITH  IT?? 

NOPE 


;GET  THE  SIXBIT  NAME 
;AND  PRINT  IT 


;ANY  PACK  ID?? 
;N0  -  DON'T  PRINT 

;GET  IT 

;AND  PRINT  THE  ID 


<*DISK  START  ADDRESS  IS:  CYLINDER  > 


AC1,.SELAD(DSBP) 

AC1 

POCT 

<  SURFACE  > 
[POINT  5, AC1, 27: 

<  SECTOR  > 
[POINT  5,AC1,35] 


GET  THE  DISK  ADDRESS 
EXTRACT  CYLINDER  # 
PRINT  IT 

;GET  THE  SURFACE  # 
.-PRINT  IT 


;GET  THE  SECToR  # 
.•PRINT  IT 

<  •  WHICH  EQUALS  LOGICAL  BLOCK  > 

AC1 


L06BLK 
POCT 
<  (> 
PSDN 


CALC  THE  LOGICAL  BLOCK  # 
Print  LBN  in  octal 
••(decimal.)" 
PRINT  IT 


O''  BUFFER  START  ADDRESS  =  > 


r 
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SEQ  0467 


14668 

14669 

053111 

200  00  0  00  100735 

MOVE 

.BUFF 

14670 

053112 

037  13  0  00  000002 

MAPADR 

14671 

053113 

037  14  0  00  000004 

ERRMLT 

14672 

053114 

260  17  0  00  066174 

60 

POCT 

14673 

053115 

037  02  0  00  074125 

PMS6 

<^  TRANSFER  SIZE 

14674 

053116 

200  00  0  00  100733 

MOVE 

.SIZE 

14675 

053117 

260  17  0  00  066174 

GO 

POCT 

14676 

053120 

037  02  0  00  073347 

PMSG 

<  (> 

14677 

053121 

260  17  0  00  066163 

GO 

PSDN 

14678 

053122 

037  02  0  00  074131 

PMSG 

<)  WORDS  OR  > 

14679 

053123 

271  00  0  00  000177 

ADDI 

BLKSIZ-1 

14680 

053124 

231  00  0  00  000200 

IDIVI 

BLKSIZ 

14681 

053125 

260  17  0  00  066163 

GO 

PSDN 

14682 
14683 
14684 

053126 

037  02  0  00  073432 

PMSG 

<  SECTORS*> 

053127 

262  17  0  00  000001 

PINITX:  GET 

AC1 

14685 

053130 

262  17  0  00  000000 

GET 

ACO 

14686 

053131 

263  17  0  00  000000 

RTN 

14687 

14688 
14689 
14690 

;Here  to  print 

it  short  mode 

053132 

037  02  0  00  074133 

PINPS:  PMSG 

<^DRV  > 

14691 

053133 

200  00  0  00  00001]; 

MOVE 

DRIVE 

14692 

053134 

037  02  0  00  000000 

PNT2 

14693 

053135 

037  02  0  00  074134 

PMSG 

<  DRV  LOG  BLK  > 

14694 

053136 

200  00  0  1 1  000024 

MOVE 

.SELAD(DSBP) 

14695 

05313? 

260  17  0  00  04557]; 

GO 

LOGBLK 

14696 

053140 

260  17  0  00  066163 

GO 

PSDN 

14697 

053141 

037  02  0  00  074137 

PMSG 

<  a  MEM  ADR  > 

14698 

053142 

2uJ  00  0  00  100735 

MOVE 

.BUFF 

14699 

053143 

260  17  0  00  066174 

GO 

POCT 

14700 

053144 

037  02  0  00  074141 

PMSG 

<  XFR  SIZE  =  > 

14701 

053145 

200  00  0  00  100733 

MOVE 

.SIZE 

14702 

053146 

260  17  0  00  066174 

GO 

POCT 

14703 

053147 

037  00  0  00  030242 

PCRL 

14704 

053150 

254  00  0  00  053127 

JRST 

PINITX 

=  > 


.•CONVERT  TO  A  REAL  ADDR 

.•SHOULD  NEVER  GET  HERE  11 

;PRINT  THE  MEMORY  BUFFER  ADDRESS 


.•PRINT  THE  SIZE  IN  OCTAL 

.•PRINT  DECIMAL  SIZE 

.•Compute  sectors 

;  that  were  transferred 

.•Print  decimal 


;GET  THE  DISK  ADDRESS 
;CALC  THE  LOG  BLK  # 
.•PRINT  IT 


.•PRINT  THE  BUFFER  ADDRESS 


;PRINT  THE  TRANSFER  SIZE  IN  USE 


J 


.,.,...  J 


r 


DDRPl  - 
DDRP13 

1A705 

1A706 

1A707 

H708 

U709 

H710 

14711 

1A712 

1A713 

U7K 

1A715 

14716 

1A717 

1A718 

1A719 

1A720 

1A721 

1A722 

1A723 

U72A 

1A725 

1A726 

1A727 

1A728 

1A729 

1A730 

1A731 

1A732 

1A733 

1A73A 

1A735 

1A736 

1A737 

1A738 

1A739 

1A7A0 

1A7A1 
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;*TELTST  —  ROUTINE  TO  REPORT  THE  TEST  NAME  OF  TEST  EXECUTED 


SEQ  0A68 


053151 
053152 
053153 

0531 5A 

053155 

053156 

053157 

053160 

053161 

053162 

053163 

05316A 

053165 

053166 

053167 

053170 

053171 

053172 

053173 

053174 

053175 

053176 

053177 

053200 

053201 

053202 

053203 

05320A 

053205 

053206 

053207 


200  00  0  00  100010 
336  00  0  00  000000 
263  17  0  00  000000 


261  17  0 
261  17  0 
037  02  0 
200  00  0 
037  00  0 
A02  00  0 


336  02 
25A  00 
312  02 
3AA  01 


200  02  0 
316  02  0 
25A  00  0 
A02  00  0 
336  02  0 
25A  00  0 
312  02  0 
3AA  01  0 
037  02  0 
200  00  0 
037  00  0 
col   17  0 

262  17  0 
037  02  0 
200  00  0 
260  17  0 
037  00  0 

263  17  0 


00  000001 
00  000002 
00  07A1AA 
00  100010 
00  000002 

00  000001 

01  031133 
00  053201 
00  100010 

00  053162 

01  031162 
00  030051 
00  053201 

00  000001 

01  031162 
00  053201 
00  030051 
00  053172 

00  07A147 

01  031133 
00  000002 
00  000002 
00  00000^ 
00  074151 
00  030051 
00  066 i 74 
00  030243 
00  000000 


TELTST:  MOVE 
SKIPN 
RTN 

PUT 
PUT 
?MS6 

rovE 

PNTSIX 
SET2M 
SKIPN 
JRST 
CAME 
AOJA 
MOVE 
CAMN 
JRST 
SETZM 
SKIPN 
JRST 
CAME 
AOJA 
PMS6 
MOVE 
PNTSIX 
TELTX:  GET 
GET 
PMSG 
MOVE 
GO 

PCRL2 
RTN 


TSTSAV 


AC1 

AC2 

<'^TEST  NAME:  "> 

TSTSAV 

AC1 

AC2,SCRIPT(AC1) 

TELTX 

AC2, TSTSAV 

AC1,.-3 

AC2,TSTG0(AC1) 

AC2,TESTPC 

TELTX 

AC1 

AC2JSTG0(AC1) 

TELTX 

AC2,TESTPC 

ACl,.-3 


,*  • 


RUNNING  "> 


SCRIPT(ACI) 

AC2 

ACi 

<•"  AT  PC  ADDRESS  > 

TESTPC 

POCT 


GET  THE  TEST  NAME  IN  SIX3IT 
ANY  NAME?? 
NO  -  EXIT  NOW 


.-SAVE  SOME  AC'S 


GET  THE  NAME  AGAIN 

AND  PRINT  IT 

CLEAR  INDEX  POINTER 

GET  A  NAME 

NO  MATCH  -  EXIT 

SAME  NAME? 

NO  -  TRY  AGAIN 

YES  -  GET  THE  TEST  PC 

SAME  PC?? 

YES  -  EXIT 

NO  -  CLEAR  THE  POINTER  AGAIN 

NOW  GET  A  TEST  PC 

NO  MATCH  -  EXIT 

SAME  ADDR  YET? 

NO  -  TRY  NEXT  ONE 

NOW  GET  THE  ACTUAL  TEST  NAME 

AND  PRINT  IT 

RESET  THE  SAVED  AC'S 


;GET  THE  PC  ADDRESS 
;AND  PRINT  IT 

;EXIT 
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SEQ  0469 


Dl 
Dl 


14742 
14743 
14744 
14745 
14746 
14747 
14748 
14749 
14750 
14751 
14752 
14753 
14754 
14755 
14756 
14757 
14758 
14759 
14760 
14761 
14762 
14763 
14764 
14765 
14766 
14767 


053210 
053211 
053212 
053213 
053214 
053215 
053216 
053217 
053220 


053221 
053222 
053223 
053224 
053225 
053226 


!-*TELPAT  —  ROUTINE  TO  REPORT  THE  PATTERN  NAME  IN  USE 


261  17  0 
037  02  0 
200  01  0 
405  01  0 
200  00  0 
037  00  0 
037  02  0 

262  17  0 

263  17  0 


00  000001 
00  074154 
00  100734 

00  000017 

01  053323 
00  000002 
00  067761 
00  000001 
00  000000 


TELPAT:  PUT 
PMS6 
MOVE 
AND  I 
MOVE 
PNTSIX 
PMSG 
GET 
RTN 


AC1 


<*DATA  PATTERN  IN  USE  IS  "> 


;SAVE  AC1 


AC1,.PATN 

AC1J7 

DPATNM(ACI) 

<•> 

AC1 


;6ET  THE  PATTERN  NUMBER 
•STRIP  IT 

•GET  THE  SIXBIT  DATA  NAME 
;PRINT  IT 


•*SWPNT  —  ROUTINE  TO  PRINT  THE  CONTENTS  OF  THE  PROGRAM  SWITCHES 
;*      USED  WHILE  RUNNING. 


261  17  0  00  000000 
037  02  0  00  074161 
200  00  0  00  030046 
037  13  0  00  000000 

262  17  0  00  000000 

263  17  0  00  000000 


SWPNT 


PUT 

ACO 

PMSG 

<PGM  SW 

MOVE 

CONSW 

PNTHW 

GET 

ACO 

RTN 

=  > 


;PRINT  THE  CONTENTS  OF  SWITCHES 
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SEQ  0A70 


r 
i 

ID 
D 


H768 

K769 

1A770 

14771 

14772 

14773 

14774 

14775 

14776 

14777 

14778 

14779 

14780 

14781 

14782 

14783 

14784 

14785 

14786 

14787 

14788 

14789 

14790 

14791 

14792 

14793 

14794 

14795 

14796 

14797 

14798 

14799 

14800 

14801 

14802 

U803 

14804 

14805 

14806 

14807 


053227 
053230 
053231 
053232 
053233 
053234 
053235 
053236 
053237 
053240 
053241 
053242 
053243 
053244 
053245 
053246 
053247 
05325C 

053251 
053252 
053253 
053254 
053255 
053256 
053257 
053260 
053261 
053262 
053263 
053264 
053265 


261 
261 
261 
261 
261 


17 
17 
17 
17 
17 


200  01  0 
661  01  0 

200  06  0 
622  06  0 
271  06  0 
326  06  0 
037  04  0 
037  04  0 

201  06  0 

202  06 
210  02 
270  01 
402  00 

260  17  0 
200  04  0 
200  00  0 
6u<  00 
404  04 
202  04  1 
346  02  0 

:62  ir 

262  r 

262  M 

262  17 

262  17 

263  17 


0  00  000001 
0  00  00000? 
0  00  000003 
0  00  000004 
0  00  000006 
00  100735 
00  000002 
00  100733 
00  000777 
00  001000 
00  053246 
00  074163 
00  074170 
00  001000 
0  00  100733 
0  00  000006 
0  00  000006 
0  00  00000! 

GO  053266 

00  000006 

13  100747 

0  00  020000 

0  00  072462 

00  000001 

00  053251 

0  00  000006 

0  00  000004 

0  00  0C0003 

0  00  000002 

0  00  000001 

0  00  000000 


SUBTTL  DATA  PATTERN  GENERATOR 


•♦GENDAT  —  ROUTINE  TO  GENERATE  A  DATA  PATTERN  SPECIFIED  BY  ".PATN" 
;*     FOR  A  BUFFER  OF  ".SIZE"  IN  A  MEMORY  ADDRESS  SPECIFIED  BY 
;♦     ".BUFF". 


GENDAT:  PUT 
PUT 


GNDAT1 


PUT 

PUT 

PUT 

MOVE 

TLO 

MOVE 

TRZE 

ADDI 

JUMPN 

PMSGF 

PMSGF 

MOVE  I 

MOVEM 

MOVN 

ADD 

SETZM 


GNDATX:  GO 

MOVE 

MOVE 

TLNE 

AND 

MOVEM 

AOJN 

GET 

GET 

GET 

GET 

GET 

RTN 


AC1 

AC2 

AC3 

AC4 

AC 

AC1,.BUFF 

AC1,2 

AC, .SIZE 

AC, 777 

AC, 1000 

ACGNDATI 


SAVE  SOME  AC'S 


<*8UFFER  SIZE  SELECTED  =  0  ??> 

<'^WILL  ASSUME  SIZE  AS  1000  WORDS. 

AC, 1000 

AC-. SIZE 

AC2,AC  ;GET 

AC1,AC  ;ADD 

AC3 


;GET  BUFFER  ADDRESS 
;SET  AC1  TO  USE  AC2 
;GET  TRANSFER  SIZE 
;OVER  EVEN  K? 
;YES  -  UPDATE  AMOUNT 
;JUMP  IF  OK 


FOR  INDEXING 


OF  K  NEEDED 


*> 


NEG  SIZE  OF  BUFFER 
IN  BUFFER  SIZE 


GENUD 
AC4  AC 

aco!dsbtbl(drive) 

ACO,(.Fn) 

AC4, [177777, ,177777] 

AC4,aAC1 

AC2, GNDATX 

AC 

AC4 

AC3 

AC2 

AC1 


.•GENERATE  1  WORD  OF  DATA 

;GET  DRIVE  STATUS  BITS 

;11  FORMAT? 

;YES  -  STRIP  UNWANTED  BITS 

.-SAVE  DATA  IN  BUFFER 

.-GENERATE  DATA  TILL  BUFFER  FULL 

.•RELTORE  T  E  SAVcD  AC'S 


;AND  E)(l 


-J 


ODRPl  - 
DDRP13 

H808 

H809 

U810 

H811 

14812 

H813 

1481 A 

14815 

14816 

14817 

14818 

14819 

14820 

14821 

14822 

14823 

14824 

14825 

14826 

14827 

14828 

14829 

14830 

14831 

14832 

14833 

14834 

14835 

14836 

14837 

14838 

14839 

14840 

14841 

14842 

14843 

14844 

14845 

14846 

14847 

14848 

14849 

14850 

14851 

14852 

14853 

14854 

14855 

14856 

14857 

14858 
14859 
14860 
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•♦6ENWD  —  kOUTINE  TO  GENERATE  1  WORD  OF  DATA  AND  EXIT  WITH  _  ^ 

:♦      "AC"  LOADED  WITH  THE  DATA.  ".PATN"  HAS  TO  BE  LOADED  WITH  A  VALID  NUMBER 


SEQ  0471 


;f *♦♦♦♦*♦♦*»***•»♦*♦**♦*♦♦*♦♦♦**♦*♦** ♦•♦♦••♦********f  *♦♦♦♦♦♦♦♦♦♦♦♦♦♦**♦*♦*♦ 


053266 
053267 
053270 
053271 
053272 
053273 
053274 
053275 
053276 
053277 
053300 
053301 

053302 
053303 
053304 
053305 
053306 
053307 
053310 
053311 
053312 
053313 
053314 
053315 
053316 
053317 
053320 
053321 
053322 

053323 
053324 
053325 
053326 
05332:^ 
053330 
053331 
053332 
053333 
053334 
053335 
053336 
053337 
0533A0 
053341 
053342 


261 
261 
261 
200 
405 
200 
202 
262 
262 
256 
262 
263 


17 
17 
17 
01 
01 
02 
02 
17 
17 
00 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
0 
0 


00 
00 
00 
00 
00 
01 
00 
00 
00 
00 
00 
00 


077562 
000001 
000002 
100734 
000017 
053302 
077562 
000002 
000001 
077562 
077562 
000000 


GENWD: 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
OOO'^OO 
Gu.vJO 
000000 
000000 
000000 
000000 
000  00 

41  56 
57  56 

n  45 

41  54 

43  41 

46  54 

46  54 

43  57 

43  50 

43  50 
67  57 
62  41 

44  41 
43  44 
50  45 
50  45 


053343 
053343 
053344 
053345 
053346 
053347 
053356 
053363 
053515 
053530 
053404 
053372 
053434 
053512 
053572 
053600 
0  00  000000 


DPATN: 


SP: 


FSP: 


PUT 

PUT 

PUT 

HOVE 

AND  I 

MOVE 

MOVEM 

GET 

GET 

XCT 

GET 

RTN 

.ONES 

.ONES 

.ZEROS 

.ALTB 

.CALTB 

.FLZRO 

.FLONE 

.COUNT 

.CHPAT 

.CHPAR 

.WORST 

.RAND 

.TA 

.lDA 

.MEDIO 

.HEui ; 

Z 


71  00 
45  63 
62  57 

64  42 
54  64 
n  62 
57  56 

65  56 
60  41 
60  41 
62  63 
56  44 
00  00 
41  00 
44  21 
44  21 


00  00 
00  00 

63  00 
00  00 
42  00 
57  00 
45  00 

64  00 
64  00 
62  00 
64  00 
00  00 
00  00 
00  00 

20  00 

21  00 


DPATNM:  SIXBIT 

sixc: 

SIXBIi 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 


DATARG 

ACl 

AC2 

ACl, .PATN 

AC1J7 

AC2,DPATN(AC1) 

AC2,DATARG# 

AC2 

ACl 

SDATARG 

DATARG 


/ANY/ 
/ONES/ 

ZEROS/ 
/ALTB/ 
/CALTB/ 
/FL7R0/ 
/FLONE/ 
/COUNT/ 
/CHPAT/ 
/CHPAR/ 
/WORST/ 
/RAND/ 
/DA/ 
/CDA/ 
/HED10/ 
/HED11/ 


;SAVE  THE  DATA  ARGUMENT 
;SAVE  SOME  AC'S 

;GET  PATTE.7N  U   OF  DATA  TO  ^l   USED 
;SAVE  ONLY  THE  PATTERN  # 
;GET  THE  PATTERN  ROUTINE  ADDR 
;SAVE  GENERATION  ADDRESS 
.-RESTORE  AC'S 

.•GENERATE  1  WORD  OF  DATA 
.•RESET  ORRIGINAL  DATA  ARGUMENT 
;EXIT 


1  -  ALL  ONES 

2  -  ALL  ZEROS 

3  -  ALTERNATE  BITS 

4  -  COMPLEMENT  ALTERNATE  BITS 

5  -  FLOATING  ZEROS 

6  -  FLOATING  ONES 

7  -  BINARY  UP  COUNT 

10  -  CHANNEL  PATTERN  (DFIO) 

11  -  CHANNEL  PARITY  PATTERN  (DFIO) 

12  -  DISK  WORST  CASE  -  LOGIC 

13  -  RANDOM  DATA  PATTERN 

14  -  DISK  ADDRESS 

15  -  COMPLEMENT  DISK  ADDRESS 

;16  -  DISK  PDP-10  FORMAT  W/WORST  CASE 

;17  -  DISK  PDP-11  FORMAT  W/WORST  CASE 


iD 


1 


DORPl  - 
DDRP13 

H861 

U862 

H863 

H86A 

14865 

H866 

1A867 

14868 

14869 

14870 

14871 

14872 

14873 

14874 

14875 

14876 

14877 

14878 

14879 

14880 

14881 

14882 

14883 

14884 

14885 

14886 

14887 

14888 

14889 

14890 

14891 

14892 

14893 

14894 

14895 

14896 

14897 

14898 

14899 

14900 

14901 

14902 

14903 

14904 

14905 

14906 

14907 


RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  180 
MAC     28-Aug-85  15:49        DATA  GENERATION  SUBROUTINES  -  BASIC 


SEQ  0472  1 


D 

D 


0533A3  476  00  0  00  000006 


053344  402  00  0  00  000006 


053345  200  06  0  00  074176 


053346  200  06  0  00  074177 


053347 
053350 
053351 
053352 
053353 
053354 
053355 


2oJ  17 
667  03 
254 
241 


00 
06 


263  17 
211  06 
263  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


053350 
400000 
053354 
000001 
000000 
000002 
OOOOCO 


053356 
053357 
053360 
053361 
053362 


260  17  0  00  053357 
663  03  0  00  400000 
254  00  0  00  053352 
201  06  0  00  000001 
263  17  0  00  000000 


SUBTTL  DATA  GENERATION  SUBROUTINES  -  BASIC 

^♦••********* *•*♦•*•*•*•♦♦♦*•****<;  *************************************** 

♦.ONES  —  GENERATE  ALL  ONES 

/If  ♦♦•*****•*  *****•******%•*•***♦*•♦•***•♦**•*♦*••••********♦♦*♦*♦*♦♦♦♦♦*♦♦ 


ONES:  SETOM   AC 


;AC  TO  ALL  ONES 


/(f********  **♦**•♦**♦♦♦♦*♦*♦•*♦*♦**•  **♦**•♦***••*♦•**♦**••♦*♦♦♦*♦♦♦♦♦♦♦**♦♦ 

♦.ZEROS  —  GENERATE  ALL  ZEROS 
/If********************************************  ******************  **••**•*** 


ZEROS:  SETZM   AC 


;AC  TO  ALL  ZEROS 


/lf***********************************************************^*t  ********** 

♦.ALTB  —  GENERATE  ALTERNATE  BITS 

/If****************************  ****************  ****♦**••♦♦*♦•♦♦**♦♦*♦♦♦♦♦♦♦ 


ALTB:  MOVE    AC, C525252, ,5252523 


;AC  TO  ALT  BITS 


/If***************  ********************************************  ♦♦♦**♦♦*♦♦♦♦♦ 

♦.CALTB  —  GENERATE  COMPLEMENT  ALTERNATE  BITS 

/If*********  *******************************************  *****•***•****♦♦♦*♦♦ 


CALTB:  MOVE    AC, C252525, ,252525] 


;AC  TO  COMP  ALT  BITS 


/If***********************************  ******************  ****••♦*•*♦***♦♦*♦♦ 
♦.FLZRO  —  GENERATE  FLOATING  ZERO  THROUGH  ONES 

; /If********  *************♦****»**♦*****♦******♦♦♦♦***♦****♦*♦♦♦♦  ♦*♦♦♦♦**♦*♦♦ 


.FLZRO:  GO 

TLON 
JRST 

.JEX:   ROT 
RTN 
MOVNI 
RTN 


AC3,(1B0) 
AC,1 
AC, 2 


;SAVE  XCT  PC. 
.-FIRST  TIME? 

.•PERFORM  SHIFT 
.•RE-ENTER  XCT 


•  /!(********************♦♦♦♦******♦********♦♦♦♦***♦***♦***♦♦♦♦*♦♦*♦♦♦♦♦♦♦♦♦* 

;^.FLONE  —  GENERATE  A  FLOATING  ONE  THROUGH  ZEROES 

•  /If************************************************************************ 

;GEN  FLOATING  ONE 
.•FIRST   TIME 


.FLONE:  GO 

.-n 

TLOE 

AC3.(1B0) 

JRST 

.JEX 

MOVE  I 

AC.l 

RTN 

r' 


DDRPl  - 
DDRPI3 

U908 
U909 
H910 
14911 
14912 
14913 
14914 
14915 
14916 
14917 
14918 
14919 
14920 
14921 
14922 
14923 
14924 
14925 
14926 
14927 
14928 
14929 
14930 
14931 
14932 
14933 
14934 
14935 
14936 
14937 
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SUBTTL  DATA  GENERATION  SUBROUTINES  -  ADVANCED 

^•♦♦♦•♦♦•♦♦♦•♦♦********************************************************** 

♦.COUNT  —  GEN  A  HEXADECIMAL  CNT  OF  0  TO  -1 

/jf***********  ***♦****•***#•****•*****♦*•**•••**•••*****•*♦♦***♦♦*♦*****♦*♦ 


SEQ  0473 


C 
D 


053363 
053364 
053365 
053366 
053367 

053370 
053371 


053372 
053373 
053374 
053375 
053376 
053377 

053400 
053401 
053402 
053403 


260  17  0  00  053364 
667  03  0  00  400000 
254  00  0  00  053370 
270  06  0  00  074200 
263  17  0  00  000000 

200  06  0  00  077551 
263  17  0  00  000000 


260  17  0  00  053373 
663  03  0  00  400000 
254  00  0  00  053400 
200  06  0  00  100030 
202  06  0  00  077655 
263  17  0  00  000000 

270  06  0  00  074201 
241  06  0  00  mill 
447  06  0  00  077655 
263  17  0  00  000000 


.COUNT:  GO 

TLON 
JRST 
ADD 
RTN 

MOVE 
RTN 


AC3,(1B0) 
AC,C042104210421] 


ACCNTU 


*.RAND  —  GENERATE  RANDOM  NUMBERS  OF  SORTS 

^************************ ********************************* *************** 


.RAND:  GO 

TLOE 

JRST 

MOVE 

MOVEM 

RTN 

.RANLX:  ADD 
ROT 
EQVB 
RTN 


AC3,(1B0) 
.RANLX 
AC.  RAN* 
AC, OLD* 


AC, [PARE A1] 
AC,-1 
AC, OLD 


;SAVE  XCT  PC 


.-EXIT 


;AC  HAS  NEW  RANDOM 
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r 


SEQ  0474 


14938 

14939 

14940 

14941 

14942 

14943 

14944 

14945 

14946 

14947 

14948 

14949 

14950 

14951 

14952 

14953 

14954 

14955 

14956 

14957 

14958 

14959 

14960 

14961 

14962 

14963 

14964 

14965 

14966 

14967 

14968 

14969 

14970 

14971 

14972 

14973 

14974 

14975 


053404 
053405 
053406 
053407 
053410 
053411 

053412 
053413 
053414 
053415 
053416 
053417 
053420 
053421 
053422 
053423 


053424 
053425 
053426 
053427 
053430 
053431 
053432 
053433 


260  17 
200  06 
607  06 
254  00 
200  06 
263  17 


000007 

0  00  053405 
0  13  100747 
0  00  020000 
0  00  053412 
0  00  074202 
0  00  000000 


667  03  0 
403  06  0 
261  17  0 
200  01  0 
303  01  0 


403  01 
200  06 
350  00 

262  17 

263  17 


0 
0 
0 
0 
0 


00  400000 
00  100034 
00  000001 
00  100034 
00  000007 

00  100034 

01  053424 
00  100034 
00  000001 
00  000000 


7^2666 
555555 
333333 
666666 
555557 
333372 
667655 
573333 


666676 
555753 
337266 
765555 
533333 
666666 
555555 
333333 


SUBTTL  DATA  GENERATION  SUBROUTINES 

;**. WORST  —  GENERATE  WORST  CASE  DATA  PATTERNS 

;4f********** *****••*•**•♦♦**••*****•*****•*♦*****♦*** ********************* 


.WCSIZ=.WCE-.WC 

.WORST:  GO 
MOVE 
TLNN 
JRST 
MOVE 
RTN 


W0RST1 


TLON 

SETZB 

PUT 

MOVE 

CAILE 

SETZB 

MOVE 

AOS 

GET 

RTN 


.+1 

ACDSBTBLCDRIVE) 
AC, (.FID 
W0RST1 
AC,C165555133333J 


AC3,(1B0) 

AC,.WCP* 

ACl 

AC1,.WCP 

AC1,.WCSIZ 

AC1,.WCP 

AC,.WC(AC1) 

.WCP 

AC1 


;SIZE  OF  WORST  WORD  PATTERN 

.•EXECUTABLE  PUSHJ 

;GET  THE  DRIVE  STATUS 

;11  FORMAT  PACK? 

;N0  -  GO  BUILD  10  FORMAT  PATTERN 

;11  FORMAT  *JRST  WORD 

;EXIT 

;SET  FIRST  TIME  FLAG  (CHECK  ON  FUTURE  CALLS) 

;ZEROES  ONLY  ON  FIRST  PASS 

•SAVE  ACl 

•LENGTH  OF  PATTERN  TO  ACl 

.•GENERATED  COMPLETE  PATTERN? 

; YES-START  AT  BEGINNING  AGAIN 

;GET  A  WORD  OF  THE  PATTERN 

;BUMP  POINTER 

.•RESTORE  ACl 

;AND  EXIT  WITH  WORD  IN  AC 


•#♦♦♦•♦•♦*•*♦***************♦********************************************* 

•WORST  WORD  PATTERN  (10  FORMAT  PACKS) 
•#*»»♦*♦»**♦************♦*********************************♦*************** 

.WC:    726666666676 

555555555753 

333333337266 

666666765555 

555557533333 

333372666666 

667655555555 
.WCE:   573333333333 
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SEQ  0475 


U976 

H977 

14978 

14979 

14980 

14981 

14982 

14983 

14984 

14985 

14986 

14987 

14988 

14989 

14990 

14991 

14992 

14993 

14994 

14995 

14996 

14997 

14998 

14999 

15000 

15001 

15002 

15003 

15004 

15005 

15006 

15007 

15008 

15009 

15010 

15011 

15012 

15013 

15014 

15015 

15016 

15017 

15018 

15019 

15020 

15021 

15022 

15023 

15024 

15025 

15026 

15027 

15028 

15029 

15030 


053434 

053435 

053436 

053437 

053440 

053441 

053442 

053443 

053444 

053445 

053446 

053447 

053450 

053451 

053452 

053453 

053454 

053455 

053456 

053457 

053460 

053461 

053462 

053463 

053464 

053465 
053466 
053467 
053470 
053471 
053^72 
053473 
053474 
053475 
053476 
053477 
053500 
053501 

053502 
053503 
053504 
053505 


260  17 
402  00 
667  03 
254  00 
350  06 
302  06 
254  00 
402  00 
350  06 
200  00 
603  00 
254  00 
307  06 


254 
254 


00 
00 


06 
00 


307  06 
254  00 
402  00 
350  06 
3ui 
254 
402  00 
350  06 
313  06 
402  00 

402  00 
200  00 
137  00 
200  00 
137  00 
200  00 
137  00 
200  00 
137  00 
434  06 
332  00 
450 
263 


0  00  053435 
0  00  077525 
0  00  400000 
0  00  053502 
0  00  077564 
0  00  000200 
0  00  053465 
0  00  077564 
0  00  100024 
0  13  100747 
0  00  020000 
0  00  053453 
0  00  000023 
0  00  053465 
0  00  053455 
0  00  000025 
0  00  053465 
0  00  100024 
0  00  100025 
0  00  000022 
0  00  053465 
0  00  100025 
0  00  100023 
0  11  000026 
0  00  100023 

0  00  000006 
0  00  000013 
0  00  073777 
0  00  100023 
0  00  074203 
0  00  100025 
"  00  074204 
0  00  100024 
0  00  074205 
0  00  077564 
0  00  077525 
0  00  000000 
0  00  000000 


402  00  0  00  077564 
200  06  0  00  100731 
202  06  0  00  100025 
200  06  0  00  100732 


;*.DA  - 


-  GEN  ADDRESS  IN  CORE  THAT  CORRESPOND  TO  THE  DISK  ADDRESS 

BITS  (0-5)  =  DRIVE  UNIT  IN  OCTAL. 

BITS  (06-17)  =  CYLINDER  ADDRESS  IN  OCTAL 

BITS  (18-23)  =  SURFACE  ADDRESS  IN  OCTAL 

BITS  (24-28)  =  SECTOR  ADDRESS  IN  OCTAL 

BITS  (29-35)  =  WORD  LOCATION  IN  SECTOR. 
STARTING  NUMBERS  TAKEN  FROM  .SURF,  .CYLIN,  AND  .SECT 

;#♦*•••••**•*****♦**** ••t***************** ***•**••*•••**** **************** 


•■-■ 


.DA: 


DA10: 

DAI  1 : 
DAEND 


DAI 


DA2 


GO  .+1 

SETZM  CDAFLG* 

TLON  AC3,(1B0) 

JRST  DA2 

AOS  AC,DAUD# 

CAIE  AC-BLKSIZ 

JRST  DAI 

SETZM  DAWD 

AOS  AC.DASEC* 

MOVE  DSBTBL (DRIVE) 

TLNE  (.FID 

JRST  DA11 

CAIG  AC.SECTIO 

JRST  DAI 

JRST  DAEND 

CAIG  AC.SECTll 

JRST  DAI 

SETZM  .DASEC 

AOS  AC.DATRKf 

CAIE  AC, SURFACES 

JRST  DAI 

SETZM  .DATRK 

AOS  AC,.DACYL# 

CAMLE  AC,.MAXCY(DSBP) 

SETZM  .DACYL 

SETZM  AC 

MOVE  DRIVE 

DPB  [POINT  6, AC, 5] 

MOVE  .DACYL 

DPB  [POINT  10,ACJ7] 

MOVE  .DATRK 

DPB  [POINT  5,AC,23] 

MOVE  .DASEC 

DPB  [POINT  5, AC, 28] 

OR  AC, DAWD 

SKIPE  CDAFLG 

SETCA  AC, 

RTN 

SETZM  DAWD 

MOVE  AC.  SURF 

MOVEM  AC. DATRK 

MOVE  AC. SECT 


;SAVE  PC 


FIRST  TIME 

COUNT  WORDS 

AT  END  OF  1  SECTOR 

RESET  WORD  COUNT 

AND  INC  SECTOR  CNTR 

GET  THE  DRIVE  STATUS 

10  FORMAT? 

NO  -  ITS  11  FORMAT 

END  OF  10  FORMATTED  SURFACE? 

NO  -  PROCEED 

YES 

END  OF  11  FORMATTED  SURFACE? 

NO 

RESET  SECTOR  CNTR 

INC  SURFACE  CNTR 

AT  LAST  SURFACE 

RESET  SURFACE 
BUMP  CYLINDER 
AT  LAST  CYL 
YES-RESET 


.•CLEAR  DATA  ADDRESS  WORD 
;SET  .SURF  TO  .DATA  SURFACE 


J 


DDRPl  - 
D0RPI3 

15031 
15032 
15033 
1503A 
15035 
15036 
15037 
15038 
15039 
150A0 
150A1 
150A2 
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SEQ  0A76 


053506  202  06  0  00  100024 

053507  200  06  0  00  100730 

053510  202  06  0  00  100023 

053511  254  00  0  00  053465 


MOVEM 
MOVE 
MOVEM 
JRST 


AC.DASEC 
AC.CYLIN 
AC,.DACYL 
DAI 


;SET  .SECT  TO  .DATA  SECTOR 
;GET  CYLINDER 

;END  OF  INIT 


053512  260  17  0  00  053513 

053513  476  00  0  00  077525 

053514  254  00  0  00  053436 


;*.CDA  —  GEN  COMPLEMENT  DISK  ADDRESSES 

.CDA;   GO     ."••I 

SETOM   CDAFLG 
JRST    .DA^2 


•WMttoMaMMMMM 
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SEQ  ^11 


150A3 

150A4 

15045 

15046 

15047 

15048 

15049 

15050 

15051 

15052 

15053 

15054 

15055 

15056 

15057 

15058 

15059 

15060 

15061 

15062 

15063 

15064 

15065 

15066 

15067 

15068 

15069 

15070 

15071 

15072 

15073 

15074 

15075 

15076 

15077 

15078 

15079 

15080 

15081 


000017 


053515 

053516 
053517 

053520 
053521 
053522 
053523 
053524 
053525 
053526 
053527 


260 
667 
403 
261 
200 
303 
403 
200 
350 
262 
263 


17 
03 
06 
17 
01 
01 
01 
06 
00 
17 
17 


053530 
053531 
053532 
053533 
053534 
053535 
053536 
053537 
053540 
053541 
053542 


260 
667 

4u< 
261 
200 
303 
403 
200 
350 
262 
263 


17 
03 
06 
17 
01 
01 
01 
06 
00 
17 
17 


000006 

0  00  053531 
0  00  400000 
0  00  100027 
0  00  000001 
0  00  100027 
0  00  000006 
0  00  100027 
0  01  053563 
0  00  100027 
0  00  000001 
0  00  000000 


i*.CHPAT  —  SUBROUTINE  TO  GENERATE  AN  UP  COUNT  FOR  THE  DF10 
AS  PER  EACH  W102. 


.DFSIZ==.DFDA1-.DFDAT 


0  00  053516 

.CHPAT:  GO 

0  00  400000 

TLON 

0  00  100026 

SETZB 

0  00  000001 

PUT 

0  00  100026 

MOVE 

0  00  000017 

CAILE 

0  00  100026 

SETZB 

0  01  053543 

MOVE 

0  00  100026 

AOS 

0  00  000001 

GET 

0  00  000000 

RTN 

AC3,(1B0) 

AC,.DFNDX# 

ACl 

AC1,.DFNDX 

ACU.DFSIZ 

AC1,.DFNDX 

AC,.DFDAT(AC1) 

.DFNDX 

AC1 


; TABLE  SIZE  FOR  PATTERNS 


SAVE  XCT  PC  FOR  RETURN 

FIRST  TIME  HERE 

YES,  START  AT  FIRST  WORD  OF  TABLE 

SAVE  FOR  INDEX  POINTER 

GET  LAST  POINTER 

AT  END  OF  TABLE 

YES,  RESET  POINTERS 

GET  WORD  FROM  TABLE 

POIMT  TO  NEXT  WORD  IN  TABLE 


•  /If*  »»♦♦♦**♦♦♦♦**♦**»»♦*♦♦♦♦♦**»**♦♦*»*********♦*♦♦♦♦♦♦***♦*********  ******* 
;*.CHPAR  —  SUBROUTINE  TO  GENERATE  ALTERNATE  PARITY  WORDS 
FOR  THE  DF10  AS  PER  EACH  B130. 

;4f********************»*************************** ************** ********** 


.DFPSZ==.DFPT1-.DFPTY 

.CHPAR:  GO  .♦I 

TLON  AC3,(1B0) 

SETZB  AC,.DFNX1# 

PUT  ACl 

MOVE  AC1,.DFNX1 

CAILE  ACU.DFPSZ 

SETZB  AC1,.DFNX1 

MOVE  AC,.DFPTY(AC1) 

AOS  .DFNX1 

GET  ACl 

RTN 


;PARITY  TABLE  LENGTH 


SAVE  XCT  PC  FOR  RETURN 

FIRST  TIME  HERE 

YES,  START  AT  FIRST  WORD  OF  TABLE 

SAVE  FOR  INDEX  POINTER 

GET  LAST  POINTER 

AT  END  OF  TABLE 

YES,  RESET  POINTERS 

GET  WORD  FROM  TABLE 

POINT  TO  NEXT  WORD  IN  TABLE 


DDRPl  -  RH10/RH20  -  RP04/05/06  - 

DDRPI3  MAC  28-Aug-85  15:49 

15082 
15083 
1508A 
15085 
15086 

15087  0535A3  042104  210421 

15088  053544  104210  421042 

15089  053545  146314  631463 

15090  053546  210421  042104 

15091  053547  252525  252525 

15092  053550  314631  463146 

15093  053551  356735  573567 

15094  053552  421042  104210 

15095  053553  463V.6  314631 

15096  053554  525252  525252 

15097  053555  567356  735673 

15098  053556  631463  146314 

15099  053557  573567  356735 

15100  053560  735673  567356 

15101  053561  mill  111111 

15102  053562  OOCOOO  000000 
15103 
15104 
15105 
15106 
15107 
15108 

15109  053563  111111  111111 

15110  053564  333333  333333 

15111  053565  <44444  444444 
15112 

15113  053566  222112  222222 

15114  053567  666666  666666 

15115  053570  111111  mill 

15116  053571  000000  000000 


RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  185 
DATA  GENERATION  SUBROUTINES 

;-*.DFDAT  —  DF10  DATA  PATTERNS  GENERATED  FOR  W102*S 

•  /lf***»»  *»»♦*♦»***»*  *♦*•♦♦♦♦•♦♦»♦♦♦**♦*♦♦*♦***♦*♦♦*♦*♦•♦♦♦♦**♦♦♦♦**♦♦♦*♦♦♦♦ 


SEQ  0478 


DFDAT:  042104210421 
104210421042 
146314631463 
210421042104 
252525252525 
314631463146 
356735573567 
421042104210 
463146314631 
525252525252 
567356735673 
631463146314 
573567356735 
735673567356 
111111111111 

.DFDA1:  000000000000 


FLOATING  1(4  BITS) 
FLOATING  1(4  BITS) 

FLOATING  1(4  BITS) 
ALTERNATING  1/0(4  BITS) 

FLOATING  0(4  BITS) 
FLOATING  1(4  BITS) 

ALTERNATING  1/0(4  BITS) 
FLOATING  0(4  BITS) 

FLOATING  0(4  BITS) 
FLOATING  0(4  BITS) 

.ALL  rs 

;ALL  0*S 


)*.DFPTY  —  DFIO  PARITY  LOGIC  DATA  PATTERNS 

PARITY  IS  GENERATED  VIA  B130'S  3  BITS/MODULE. 


.DFPTY:  111111111111 
333333333333 
444444444444 

222222222222 

666666666666 

111111111111 

.DFPT1:  000000000000 


;THIS  PATTERN 
.•CAUSES  A  CHANGE 
;IN  THE  PARITY 

;WORD  XFERED 
.-THROUGH  THE 
;DF10 


DDRPl  - 
DDRPI3 

15117 

15118 

15119 

15120 

15121 

15122 

15123 

1512A 

15125 

15126 

15127 

15128 

15129 

15130 

15131 

15132 

15133 

15134 

15135 

15136 

15137 

15138 

15139 

15140 

15141 

15142 

15143 

15144 

15145 

15146 

15147 

15148 

15149 

15150 

15151 

15152 

15153 

15154 

15155 

15156 

15157 

15158 

15159 

15160 

15161 

15162 

15163 

15164 

i:i65 

15166 

15167 

15168 
15169 
15170 
151;^! 


RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO 
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X53B(124?)  15:51  28-Aug-85  Page  186 


SEQ  0479 


053572  260  17  0  00  053573 

053573  261  17  0  00  000000 

053574  261  17  0  00  000001 

053575  603  03  0  00  020000 

053576  254  00  0  00  053610 

053577  254  00  0  00  053605 

053600  260  17  0  00  053601 

053601  261  17  0  00  000000 

053602  261  17  0  00  000001 

053603  603  03  0  00  020000 

053604  254  00  0  00  053610 

053605  550  11  0  13  100747 

053606  663  03  0  00  020000 

053607  254  00  0  00  053610 

05361 C  667  03  0  00  200000 

053611  254  00  0  00  053622 

053612  667  03  0  00  100000 

053613  254  00  0  00  053653 

053614  3:>}   06  0  00  077564 

053615  302  06  0  00  000200 

053616  25'.  00  0  00  053674 

053617  476  00  0  00  077564 

053620  621  03  0  00  500000 

053621  254  00  0  00  053624 

053622  667  03  0  00  040000 

053623  254  00  0  00  053664 

053624  350  06  0  00  100024 

053625  317  06  0  11  000030 
053o26  254  00  0  00  053637 

053627  402  00  0  00  100024 

053630  350  06  0  00  100025 

053631  307  06  0  00  00Q022 

053632  254  00  0  00  05363^ 


053633  402  00  0  00  100025 

053634  350  06  0  00  100023 

053635  313  06  0  11  0000" 

053636  402  00  0  00  1000 


053637  402  00  0  00   000006 


;*. MEDIO  -  .HED11  —  HEADER  AND  DATA  GENERATION  ROUTINES 

SPEflFICALLr  DESIGNED  TO  BUILD  HEADER  INFORMATION 
I  IN  EITHER  16  OR  18  BIT  FORMAT  WITH  THE  UORST  CASE  DATA 

!      PATTERN  FOR  THE  DATA  FIELD. 


.MEDIO:  GO  .+1 

PUT  ACO 

PUT  AC1 

TLNE  AC3,(1B4) 

JRST  .HDWD 

JRST  .HEDA 

.HED11:  GO  ."^1 

PUT  ACO 

PUT  AC1 

TLNE  AC3,(1B4) 

JRST  .HDWD 

.HEDA:   HRR2  DSBP,DSBTBL(DRIVE) 

TLOE  AC3,(1B4) 

JRST  .HDWD 

.HDWD:   TLON  AC3,(1B1) 

JRST  HDWD 

TLON  AC3,(1B2) 

JRST  HDWD3 

AOS  ACDAWD 

CAIE  ACBLKSIZ 

JRST  .HDDAT 

SETOM  DAWD 

TLZ  AC3,(5B2) 

jRST  HDWDl 

HDWD:   TLON  AC3,(1B3) 

JRST  HDWD4 

HDWDl:      AOS  AC.DASEC 

CAMG  AC,.MXSEC(DSBP) 

JRST  HDWD2 

SETZM  .DASEC 

AOS  AC.DATRK 

CAIG  AC, SURFACE 

JRST  HDWD2 

SETZM  .DATRK 

AOS  AC.DACYL 

CAMLE  AC,.MAXCY(DSBP) 

SETZM  .DACYL 

HDWD2:   SETZM  AC 


.-EVERYTHING  SETUP?? 
;YES  -  JUMP  AROUND  CODE 


EVERYTHING  SETUP?? 
YES  -  JUMP  AROUND  CODE 

SETUP  THE  DSB  POINTER 

HERE  ALREADY? 

YES 

FIRST  HEADER  WORD  GENERATED? 

NO  -  GO  DO  IT 

KEY  WORDS  GENERATED? 

NO  -  GO  DO  IT 

YES  -  COUNT  WORD  IN  SECTOR 

END  OF  THE  SECTOR? 

NO  -  GENERATE  NEXT  DATA  FIELD  WORD 

YES  -  RESET  THE  WORD  COUNTER 

AND  THE  PATTERN  "FIRST  TIME"  BIT 


SETUP  DONE  YET? 
NO  -  GO  DO  IT  NOW 

COUNT  THE  SECTOR 
END  OF  TRACK? 
NO 

YES  -  CLEAR  COUNTER 
COUNT  THE  CYLINDER 
END  OF  CYLINDER? 
NO 

YES  -  CLEAR  THE  COUNTER 
COUNT  THE  CYLIXER 
END  OF  PACK 
YES  -  CLEAR  THE  COUNTER 

IMTAL  CLEAR 


tji|W»iil'«»     |l«iiHIM»1ifc  I 


ODRPl   - 
DDRPI3 

15172 

15173 

151 74 

15175 

15176 

15177 

15178 

15179 

15180 

15181 

15182 

15183 

1518A 

15185 

15186 

15187 

15188 

15189 

15190 

15191 

15192 

15193 

1519A 

15195 

15196 

15197 

15198 

15199 

15200 

15201 

15202 

15203 

15204 

15205 

15206 
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SEQ  0480 


053640 
053641 
053642 
053643 
053644 
053645 
053646 
053647 
053650 
053651 
053632 

053653 
053654 
053655 
053656 
053657 
053660 
053661 
053662 
053663 

053664 
053665 
053666 
053667 
053670 
053671 
053672 
053673 

053674 
053675 
053676 
053677 


200 
137 
200 
137 
434 
200 
302 
661 
262 
262 
263 

336 
254 
402 
254 
514 
621 
262 
262 
263 


00 
GO 
00 
00 
06 
00 
00 
06 
17 
17 
17 

00 
00 
00 
00 
06 
06 
17 
17 
17 


476  00 
200  00 
202  00 
200  00 
202  00 
200  00 
202  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 

11 

00 
00 
00 
00 
00 

00 
00 
00 
00 

11 

00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 


100023 
074203 
100023 
072464 
100024 
000030 
000023 
010000 
000001 
000000 
000000 

077576 
053657 
000006 
053661 
000010 
600000 
000001 
000000 
000000 

077564 
100731 
100025 
100730 
100023 
100732 
100024 
053637 


260  17  0  00  053404 
262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


HDyD3: 


HDWDA : 


.HDDAT: 


MOVE 

DPB 

MOVE 

DPB 

I  OR 

MOVE 

CAIE 

TLO 

GET 

GET 

RTN 

SKIPN 

JRST 

SET2M 

JRST 

HRLZ 

TLZ 

GET 

GET 

RTN 

SETOM 

MOVE 

MOVEM 

MOVE 

MOVEM 

MOVE 

MOVEM 

JRST 

GO 
GET 
GET 
RTN 


.DACYL 

[POINT  10, AC, 17] 

.DATRK 

[POINT  5, AC, 27] 

AC.DASEC 

.MXSEC(DSBP) 

SECT10 

AC, (185) 

AC! 

ACO 


DSKAD 
.^3 

AC 
.♦3 

AC,.D'N(DSBP) 
AC, 600000 
AC1 
ACO 


DAUD 

.SURF 

.DATRK 

.CVLIN 

.DACYL 

.SECT 

.DASEC 

HDUD2 

.WORST 

AC1 

ACO 


;GET  THE  CYLINDER  # 
.•POSITION  IT 
;GET  THE  TRACK  # 
.•POSITION  IT 
.•INSERT  SECTOR  POSITION 
;GET  THE  #  SECTORS/TRACK 
;PDP-10  FORMAT? 
;NOPE  -  ITS  11  FORMAT 
.•RESTORE  AC'S 


;1ST  SURFACE  SELECTED? 

;YES  -  GET  THE  DRIVE  SERIAL  NUMBER 

;N0  -  CLEAR  THE  KEY  WORD  FIELD 

;GET  CURRENT  DRIVE  SERIAL  NUMBER 
.•BLANK  OUT  TWO  BITS 


.•GENERATE  THE  DATA  FIELD 
.•RESET  THE  AC'S 

;AND  EXIT 


r 


DDRPl  - 
DDRP13 

15207 
15208 
15209 
15210 
15211 
1 521 2 
15213 
152H 
15215 
15216 
15217 
15218 
15219 
15220 
15221 
15222 
15223 
15224 
15225 
15226 
15227 
15228 
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SEQ  0481 


053700  260  17 

053701  541  00 

053702  037  13 

053703  037  14 

053704  202  00 

053705  263  17 


0  00  053701 

1  00  000001 
0  00  000002 
0  00  000004 
0  00  000006 

0  00  cooooo 


053706  260  17  0  00  053707 

053707  541  00  1  00  000001 

053710  037  13  0  00  000002 

053711  037  14  0  00  000004 

053712  212  00  0  00  000006 

053713  263  17  0  00  000000 


;*.ADR  —  GENERATE  ADDRESS  RIGHT 


.ADR:   GO      ."^1 
HRRI    aACl 
MAPADR 
ERRHLT 
MOVEM   AC 
RTN 


.•ADDRESS  TEST 

;GET  THE  ADDRtSS 

;MAKE  IT  PHYSICAL  ADDRESS 


;*.CADR  —  GENERATE  COMPLEMENT  ADDRESS  RIGHT 


.CADR:  GO      .+1 
HRRI    aACl 
MAPADR 
ERRHLT 
MOVNM   AC 
RTN 


;GET  THE  ADDRESS 
.•COMPLEMENT  IT 


DDRPl  - 
DDRPI3 

15229 

15230 

15231 

15232 

15233 

15234 

15235 

15236 

15237 

15238 

15239 

152A0 

152A1 

15242 

15243 

15244 

15245 

15246 

15247 

15248 

15249 

15250 

15251 

15252 

15253 

15254 

15255 

15256 

15257 

15258 

15259 

15260 

15261 

15262 

15263 

15264 

15265 

15266 

15267 

15268 

15269 

15270 

15271 

15272 

15273 

15274 

15275 

15276 

15277 

15275 

15279 

15280 

15281 

15282 

15283 
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SEQ  0482 


Dl 
Rl 


053714 
053715 
053716 
053717 
053720 

053721 
053722 
053723 
053724 

053725 
053726 
05372.^ 
053/^30 

053731 
053732 
053733 
053734 
053735 
053736 
053737 
053740 
053741 
053742 
053743 


261  17  0  00  000000 

261  17  0  00  000001 

2o'  17  0  00  000002 

261  17  0  CO  000003 

261  17  0  00  000004 

606  01  0  00  400000 
254  00  0  00  053725 
200  00  0  00  030022 
202  00  0  00  077706 

606  01  0  00  200000 
254  00  0  00  053731 
200  00  0  00  077706 
202  00  0  00  030022 


606  01 
254  00 

261  17 
204  00 
225  00 
234  CO 
336  00 

201  01 
250  00 

202  00 

262  17 


0  00 
0  00 
0  00 


0 
0 


00 
00 


0  00 


0 
0 


00 
00 


0  00 


0 
0 


00 
00 


100000 
053744 
000001 
030022 
006065 
066643 
000001 
000001 
000001 
030022 
000001 


SUBTTL 
XLIST 


RANDOM  PARAMETER  GENERATOR 
LIST 


•/jf*  *••**♦•♦****♦•*****♦**♦♦♦♦*•*♦****♦♦***************♦**  ************** 
;*  RPARAM  —  ROUTINE   TO  GENERATE  RANDOM  DISK  PARAMETERS 

;/f* **************************************************** **************** 


COMMENT  $ 


THIS  ROUTINE  WILL  GENERATE  RANDOM  DRIVE  PARAMETERS  AS  NEEDED 
BY  ENTERING  WITH  AC1  CONTAINING  THE  PROPER  DESIRED  PARAMETER 
DEFINITIONS.  PARAMETER  DEFINITIONS  ARE: 


SVBAS 

RRBAS 

NW6AS 

RSEC 

RSUR 

RCYL 

RSIZ 

RSI2A 

RSIZL 

RTIM 

$ 

XLIST 


RPARAM:  PUT 
PUT 
PUT 
PUT 
PUT 

.SVBAS:  TRNN 
JRST 
MOVE 
MOVEM 


RRBAS: 


.'NWBAS 


TRNN 
JRST 
MOVE 
MOVEM 

TRNN 
JRST 
RBASE 


400000 
200000 
100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 


SAVE  RANDOM  BASE  » 

RESTORE  RANDOM  BASE  # 

GENERATE  A  NEW  RANDOM  BASE  » 

GEN  A  RANDOM  SECTOR  M 

GEN  A  RANDOM  SURFACE  ff 

GEN  A  RANDOM  CYLINDER  # 

GEN  A  RANDOM  TRANSFER  SIZE 

GEN  A  RANDOM  TRANSFER  ALTERNATE 

GEN  A  RANDOM  TRANSFER  LIMIT  TO  EVEN  If   BLOCK 

GEN  A  RANDOM  STALL  TIME 


ACO 
AC1 
AC2 
AC3 
AC4 

ACl, SVBAS 
.RRBAS 
RANDBS 
RANOLD* 

AC1, RRBAS 
.NWBAS 
RANOLD 
RANDBS 

ACl, NWBAS 
.RSEC 
RANDBS, BASE 


NUMBER 


SAVE  RANDOM  BASE  #/ 

NO 

YES  -  GET  THE  BASE  M 

SAVE  IT 

RESTORE  RANDOM  BASE  #? 

NO 

YES  -  GET  THE  SAVED  M 

RESTORE  IT 

.•GENERATE  A  NEW  RANDOM  BASE  #? 
;N0 
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SEQ   0483 


Id 


15284 

15285 

15286 

15287 

15288 

15289 

15290 

15291 

15292 

15293 

15294 

15295 

15296 

15297 

15298 

15299 

15300 

15301 

15302 

15303 

15304 

15305 

15306 

15307 

15308 

15309 

15310 

15311 

15312 

15313 

15314 

15315 

15316 

15317 

15318 

15319 

1532C 

15321 

15322 

15323 

15324 

15325 

15326 

15327 

15328 

15329 

15330 

15331 

15332 

15333 

15334 

15335 

15336 

15337 

15338 


053744 
053745 
053746 
053747 
053750 
053751 
053752 
053753 
053754 
053755 
053756 
053757 
053760 
053761 
053762 

053763 
053764 
053765 
053766 
053767 
053770 
053771 
053772 
053773 
053774 
053775 
053776 
053777 
054000 
054001 

054002 
054003 
054004 
054005 
05^006 
054007 
054010 
054011 
054012 
05401? 
05^014 
054015 

054016 
054017 
054020 
054021 
054022 

05402? 
054024 
054025 


606  01  0 
254  00  0 

261  17  0 
204  00  0 
225  00  0 
234  00  0 
336  00  0 

201  CI  0 
250  00  0 

202  00  0 

262  17  0 
405  00  0 
303  00  0 
254  00  0 
202  00  0 


00  040000 
00  053763 
00  000001 
00  101166 
00  006065 
00  066643 
00  000001 
00  000001 
00  000001 
00  101166 
00  000001 
00  000037 
00  000023 
00  053746 
00  100732 


606  01 
254  00 

261  17 
204  00 
225  00 
234  00 
336  00 

201  01 
250  00 

202  00 

262  17 
405  00 
303  00 
2:>  00 
202  00 

626  Oi 
254  00 

261  17 
204  00 
225  00 
234  00 
33d  00 

201  01 
250  00 

202  00 

262  17 
405  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 

c 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


020000 
054002 
000001 
101167 
006065 
066643 
000001 
000001 
000001 
101167 
000001 
000037 
000022 
053765 
100731 

004000 
054035 
000001 
101171 
006065 
066643 
000001 
000001 
000001 
101171 
000001 
003777 


606  01  0  00  002000 
254  00  0  00  054023 
350  02  0  00  100032 
602  02  0  00  000100 
405  00  0  00  000177 

336  00  0  00  030516 
602  01  0  00  001000 
620  00  0  00  000177 


.RSEC:   TRNN    AC1,RSEC 

JRST     RSUR 
.RSEC2:  RBASE   InSEC, SECTOR 


;6EN  A  RANDOM  SECTOR  ffl 
;N0 


ANDI 
CAILE 
JRST 
MCVEM 

,RSUR:   TRNN 
JRST 
.RSUR2:  RBASE 


RSI7: 


ANDI 
CAILE 
JRST 
MOVEM 

TRZN 
JRST 
RBASE 


RSIZA: 


ANDI 

TRNN 

J'^ST 

AUS 

TRNE 

ANDI 


RSIZL:  SKIPN 
TRNE 

mi 


37 

SECTIO 
.RSEC2 
.SECT 

ACURSUR 

.RSIZ 

.NSUR, SURFACE 


.•VALID  #? 

;N0  -  TRY  AGAIN 

;YES  -  SAVE  IT 

;GEN  A  RANDOM  SURFACE  Ml 
;N0 


37 

SURFAC 
.RSUR2 
.SURF 

ACl.RSIZ 

.RCYL 

.NSIZ,XFR 


SIZE 


.•VALID  07 

;N0  -  TRY  AGAIN 

;YES  -  SAVE  IT 

.GEN  A  RANDOM  XFR  SIZE? 
;N0 


3777 

ACT. RSIZA 

.RSIZL 

AC2..SIZAC# 

AC2,*D64 

BLKSIZ-1 

MONIYP 
AC1. RSIZL 
BLKSIZ-1 


.•LIMIT  TO  4  PAGE  XFR 

.•ALTERNATING  SIZE? 

;N0 

;YES  -  UPDATE   V.' 

.-TIME  TO  SWIT.H  .  KR  SIZE? 

;YES  -  LIMIT  TO  1  SECTOR  OR  LESS 

;T0PS-20  USER  MODE 

.•LIMIT  XFR  SIZE  TO  EVEN  M   SECTORS? 

;YES  -  STRIP  SECTOR  FRACTION 


DDRPI  - 
DDRPI3 

15339 
153A0 
153A1 
153A2 
153A3 
153AA 
153A5 
153A6 
153A7 
153A8 
153A9 
15350 
15351 
15352 
15353 
1535A 
15355 
15356 
15357 
15358 
15359 
15360 
15361 
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SEQ  0A8A 


D 
D 


05A026 
05A027 
05A030 
05A031 
05A032 
05A033 
05A03A 

05A035 
05A036 
05A037 
05A0A0 
05A0A1 
05A0A2 
05A0A3 
05A0AA 
05A0A5 
05A0A6 
05A0A7 
05A050 
05A051 
05A052 
05A053 


200  02 
602  02 
A05  00 
336  00 

201  00 
255  00 

202  00 

606  01 
25A  00 

261  17 
20A  00 
225  00 
23A  00 
336  00 

201  01 
250  00 

202  00 

262  17 
A05  00 
313  00 
25A  00 
202  00 


0 
0 
0 


00 
00 
00 


0  00 


0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

11 

00 
00 


0300A6 
002000 
000177 
000000 
000200 
000000 
100733 

010000 
05A05A 
000001 
101170 
006065 
0666A3 
000001 
000001 
000001 
101170 
000001 
001777 
000026 
05A037 
100730 


MOVE 

AC2,C0NSW 

TRNE 

AC2,0NESEC 

AND  I 

BLKSIZ-1 

SKIPN 

MOVE  I 

BLKSIZ 

JFCL 

MOVEM 

.SIZE 

RCYL:   TRNN    A:1,RCYL 

JRST     DPCHK 
,RCYL2:  RBASE   !nCYL, CYLINDER 


;GET  PGM  SWITCHES 

;OPR  LIMIT  XFR  SIZE   TO  1  SECTOR? 

.-LIMIT  TO  1  SECTOR  OR  LESS 

;SEE  IF  SIZE  IS  ZERO... 

;YES  -  RESET  TO  1  SECTOR 

;ROOM  TO  PLAY  WITH  SIZE 

;SAVE  XFR  SIZE  SELECTED 

;GEN  A  NEW  lYL  *? 
;N0 


AND  I 

1777 

CAMLE 

.MAXCY(DSBP) 

JRST 

.RCYL2 

MOVEM 

.CYLIN 

;VALID  CYLINDER? 
;N0  -  TRY  AGAIN 
;SAVE  CYL  # 


r 


1 
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SEQ  0A85 


D 
D 


15362 

15363 

15  36  A 

15365 

15366 

15367 

15368 

15369 

15370 

15371 

15372 

15373 

15374 

15375 

15376 

15377 

15378 

15379 

15380 

15381 

15382 

15383 

15384 

15385 

15386 

15387 

15388 

15389 

15390 

15391 

15392 

15393 

15394 

15395 

15396 

15397 

15398 

15399 

15400 

15401 

15402 

15403 

15404 


054054 
054055 
054056 
054057 
054060 
054061 
054062 
054063 
054064 
054065 
054066 
054067 
054070 
054071 
054072 

054073 
054074 
054075 
054076 
054077 
054100 
054101 
054102 

054103 
054104 
054105 
054106 
054107 
054110 
054111 

054112 
054113 
054114 

054115 
054116 
054117 
054120 
054 i21 


332  00  0 
606  01  0 
254  00  0 
550  00  0 
242  CO  0 


434  00 
504  00 
202  00 
332  00 
254  00 
261  17 
137  13 
336  00 


0 
0 
0 
0 
0 
0 
0 
0 

7  004  14 
262  17  0 


00  100733 
00  070000 
00  054122 
00  100731 
00  000010 
00  100732 
00  100730 
00  077576 
00  030041 
00  054073 
00  000000 
00  072532 
00  030037 
0  00  000000 
00  000000 


260  17 
200  02 
271  02 
231  02 
200  03 
270  00 
313  00 
254  00 

336  00 
254  00 
231  03 
250  00 
2y  03 
306  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 

11 

00 

00 
00 
00 
00 
00 
03 
00 


045573 
100733 
000177 
000200 
000000 
000002 
000031 
054112 

030516 
054115 
000574 
000003 
000574 
000000 
054115 


371  00  0  00  100732 
254  00  0  00  054054 
254  00  0  00  053744 

200  02  0  00  030046 
602  02  0  00  400000 
254  00  0  00  054122 
260  17  0  00  047153 
254  00  0  00  053763 


DPCHK:  SKIPE  .SIZE 

TRNN  ACI.RSECIRSURIRCYL 

JRST  .RTIM 

HRRZ  .SURF 

LSH  ^D8 

lOR  .SECT 

HRL  .CYLIN 

MOVEM  DSKAD 

SKIPE  KLFL6 

JRST  .DPCH1 

PUT  ACO 

DPS  DRIVE, [POINT  6, ACO, 53 

SKIPN  USER 

DATAO  PI,0 

GET  ACO 

.DPCHI:  GO  L0G8LK 

MOVE  AC2,.SI2E 

ADD]  AC2,BLICSIZ-1 

IDIVI  AC2,BLKSIZ 

MOVE  AC3,AC0 

ADD  AC0,AC2 

CAMLE  AC0,.MXBL)C(DSBP) 

JRST  .DPCH4 

.DPCH3:  SKIPN  MONTYP 
JRST     DPCH5 

IDIVI  AC3,<SURFAC^1>*<SECT10^1 

EXCH  ACO  AC3 

IDIVI  AC3!<SURFAC+1>*<SECT10+1 

CAIN  AC0,(AC3) 

JRST  .DPCH5 

.DPCH4:  SOSL  .SECT 

JRST  .DPCHK 

JRST  .RSEC 

.DPCH5:  MOVE  AC2,C0NSW 

TRNE  AC2,DELTRfC 

JRST  .RTIM 

60  DELCHK 

JRST  .RSUR 


ANY  SIZE  SELECTED? 
DSK  PARAMETERS? 
NOPE 


KLIO  CPU  ? 
YES  SKIP  CODE 
SAVE  AC 

CAN'T  EXECUTE  DATAO  IN  USER  MODE 
DISPLAY  IN  MI 
RESTORE  AC 

Convert  cyl/surf/sect  into  LBN  in  ACO 

Load  transfer  size  in  words 

Round  up  to  next  sector 

Compute  number  of  sectors  in  transfer 

Copy  starting  log  block  number  to  AC3 

Compute  ending  LBN 

Does  that  transfer  fit  on  disk? 

Nope,  backup  a  little  bit 

On  TOPS-20  you  can  only  do  1  cyl/JSYS 

Nope 

'  .'Compute  cyl  for  star  .  of  xfer 

Get  ending  Ibn 

'  ; Compute  cyl  for  ending  Ibn 

Start  and  end  on  same  cyl? 

Yes,  you  win 

Back  up  the  sector  number  by  1 
Check  it  all  again 
Do  get  all  new  stuff 

GET  THE  PGM  SWITCHES 

INHIBIT  TRACK  DELETION? 

YES 

YES  -  IS  DSK  AREA  AVAILABLE? 

NO  -  GET  ANOTHER 


._.j 


DDRPI  - 
DDRPI3 

15A05 
15406 
15407 
15408 
15409 
15410 
15411 
15412 
15413 
15414 
15415 
15416 
15417 
15418 
15419 
15420 
15421 
15422 
15423 
15424 
15425 
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SEQ  0486 


r 

c 


054122 
054123 
054124 
054125 
054126 
054127 
054130 
054131 
054132 
054133 
054134 
054135 
054136 

054137 
054140 
054141 
054142 
054143 
054144 


606  01 
254  00 

261  17 
204  00 
225  00 
234  00 
336  00 

201  01 
250  00 

202  00 

262  17 
405  00 
202  00 


0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000400 
054137 
000001 
101172 
006065 
066643 
000001 
000001 
000001 
101172 
000001 
000177 
100033 


.RTIM: 


TRNN         AChRTIM 

JRST         RPARMX 

RBASE   .NTIM, STALL  TIME 


;GEN  A  RANDOM  STALL  TIME'' 
;N0 


262  17  0  00  000004 

262  17  0  00  000003 

262  17  0  00  000002 

262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


RPARMX : 


AND  I 

177 

MOVEM 

.WAIT* 

GET 

AC4 

GET 

AC3 

GET 

AC2 

GET 

AC1 

GET 

ACO 

RTN 

;SAVE  IT 

.-Restore  the  ACs 
;EXIT 


.J 


L 
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SEQ  0487 


it 


15426 

15427 

15428 

15429 

15430 

15431 

15432 

15433 

15434 

15435 

15436 

15437 

15438 

15439 

15440 

15441 

15442 

15443 

15444 

15445 

15446 

15447 

15448 

15449 

15450 

15451 

15452 

15453 

15454 

15455 

15456 

15457 

15458 

15459 

15460 

15461 

15462 

15463 

15464 

15465 

15466 

15467 

15468 

15469 

15470 

15471 

15472 

15473 

15474 

15475 

15476 

15477 

15478 

15479 

15480 


054145 
054146 
054147 
054150 
054151 
054152 
054153 


054154 
054155 
054156 
054157 
054160 
054161 
054162 
054163 
054164 
05416S 
054166 
054167 
054170 
054171 
054172 
054173 
054174 

054175 
054176 
054177 

054200 
054201 
054202 
054203 
054204 
054205 
054206 
054207 
054210 

054211 
054212 
054213 
054214 
054215 
054216 


7  000  34 
254  00  1 
7  000  20 
7  004  20 
476  00  0 
350  00  0 
254  12  1 


0  00  001000 
00  100035 
0  00  003001 
0  00  004040 
00  030045 
00  030054 
00  030104 


261  17 
261  17 
261  17 
200  01 
200  15 
221  15 
230  01 
332  00 
254  00 
476  00 
476  00 
337  00 
254  00 
211  01 
2ui  01 
200  01 
200  15 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


000001 
000002 
00001 5 
030054 
077622 
106240 
00001 5 
000002 
054173 
077514 
077674 
030220 
054173 
000050 
030220 
066731 
100670 


331  02  0  15  101047 
365  15  0  00  054175 
321  15  0  00  054211 


274  02 
603  02 
254  00 
553  00 
661  02 
202  15 
350  00 
202  02 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
15 
00 


000001 
Mini 
05^201 
000002 
200000 
100005 
100005 
101047 
054176 


262  17  0  00  000015 
262  17  0  00  000002 
262  17  0  00  000001 
7  004  20  Q  00  020040 
7  004  20  0  00  004004 
254  12  1  00  100037 


SUBTTL  CLOCK  INTERRUPT  SERVICE 
)*KA10  OR  KIIO  CHANNEL  1  SERVICE 


CLSRV:  CONSO  APR^CLK 

JRST  aCLKSRV 

CONO  APR,CLKCLRICLKENB!1 

CONO  PI,REQSET!PICHN2 

SETOM  CLOCKF 

AOS  TICKS 

JEN  aiTRCHi 

.•CLOCK  CHANNEL  2  SERVICE 


CLSRV2:  PUT 
PUT 
PUT 
MOVE 
MOVE 
IMULI 
IDIV 
SKIPE 
JRST 
SETOM 
SETOM 
SKIP6 
JRST 
MOVNI 
MOVEM 
MOVE 
MOVE 

CLSRV3:  SKIPL 
S0J6E 
JUMPL 

SUB 
TLNE 
JRST 
HRRZS 
TLO 
MOVEM 
AOS 
CLSRV4;  MOVEM 
JRST 


CLSRVX: 


GET 

GET 

GET 

CONO 

CONO 

JEN 


ACl 

AC2 

REPT 

ACl, TICKS 

REPT, HERTZ 

REPT,*D<60*60*10> 

ACl, REPT 

AC2 

.'^7 

AUTTOT 

PNTOTS 

PNTENB 

AC1,*D40 
ACl, PNTENB 
ACl,ri,.0] 
REPT,RHMAX 

AC2,CSBTBL(REPT) 
REPT,CLSRV3 
REPT, CLSRVX 

AC2,AC1 

AC2, 177777 

CLSRV4 

AC2 

AC2,(1B1) 

REPT,TIMOUT# 

TIMOUT 

AC2,CSBTBL(REPT) 

CLSRV3n 


;DID  THE  CLOCK  TICK? 

;N0  -  SOME  OTHER  REASON  HERE 

;RESET  THE  CLOCK 

.•REQUEST  A  CHN  2  INTERRUPT 

.-SET  THE  FLAG 

;TICK  THE  CLOCK  COUNTER 

;AND  EXIT 


.•SAVE  SOME  AC'S 


;GET  THE  TICK  COUNT 

;AND  THE  POWER  THING 

.•CONVERT  TO  HOURS 

;SEE  IF  ITS  TIME  TO  PRINT 

;IS  IT? 

;NOPE 

;YES  -  SET  THE  NECESSARY  FLAGS 

;S0  IT  WILL  PRINT  AT  NEXT  SELECT  TIME 

;RUN  OUT  OF  PRINT  LINES?? 

;NOPE  -  PROCEED 

;YES  -  DO  A  PARTIAL  RESET 

;FOR  100  LINES  OF  PRINTOUT 

;GET  A  CLOCK  UPDATE  COUNT 


ANY  TIMING  GOING  ON  HERE? 
NO  -  CHECK  THE  NEXT 
ALL  DONE  -  EXIT 

UPDATE  THE  MBC  TICK  COUNT  IN  CSB 

ANY  TIME  LEFT? 

YES 

NO  -  SET  THE  TIMED  OUT  FLAG 
SAVE  THE  MBC  M 


SAVE  THE  UPDATED  CSBTBL  WORD 
.•CHECK  THE  NEXT 


.•RESTORE  THE  AC'S 


U 


REPT 

AC2 

ACl 

PI.LRQCLR!P1CHN2  ;CLEAR  THE  SOFTWARE  INT  REQ  FLAG 

PI.REQSET!PICHN5       ;AND  A  CH5  INTERRUPT 

aCLKINT  ;EXIT  THE  SERVICE 


DDRPl  - 
DDRP13 

15A81 

15482 

15A83 

15A84 

15A85 

1 5A86 

15A87 

15A88 

15A89 

1 5A90 

1 5A91 

15A92 

1 5A93 

15A9A 

1 5A95 

15A96 

15A97 

15A98 

15A99 

15500 

15501 

15502 

15503 

1550A 

15505 

15506 

15507 

15508 

15509 

15510 

15511 

15512 

15513 

1551A 

15515 

15516 

15517 

15518 

15519 

15520 

15521 

15522 

15523 

1552A 

15525 

15526 

15527 

15528 

15529 

15530 

15531 

15532 

15533 

1553A 

15535 
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J 


05A217 
054220 
054221 
054222 

054223 
054224 
054225 
054226 
054227 
054230 
054231 

054232 
054233 
054234 
054235 
054236 
054237 
054240 
054241 
054242 


054243 
054244 
054245 
054246 
054247 
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SUBTTL  COMMON  DEVICE  INTERRUPT  HANDLER  (CHANNEL  5) 
XLIST 

LIST 

•^•t******** *********************************************************** 
;*  INTERRUPT  PROCESSING  ON  CHANNEL  5 


SEQ  0488 


312  14  0  00  070416 
254  00  0  00  054223 
7  004  20  0  00  020004 
254  12  1  00  101660 

311  14  0  00  070416 
254  00  0  00  054232 
037  02  0  00  074206 
7  J04  20  0  00  000400 
200  14  0  00  070A16 
7  004  20  0  00  000200 
254  00  0  00  054217 

261  17  0  00  000013 

261  17  0  00  000011 

261  17  0  00  000010 

261  17  0  00  000012 

261  17  0  00  030113 

261  17  0  00  030114 

261  17  0  00  000000 

261  17  0  00  000001 

261  17  0  00  000040 


COMMENT  $ 


ALL  DISK  INTERRUPTS  INITIALLY  SERVICED  ON  PI   LEVEL  4  REQUEST 
A  SOFTWARE  INTERRUPT  TO  LEVEL  5  FOR  FURTHER  PROCESSING.  CHANNEL 
5  INTERRUPTS  HANDLE  ALL  NORMAL  AND  ERROR  PROCESSING  FOR  THE 
DISK.  CHANNEL  5  SERVICE  IS  COMMON  FOR  ALL  TYPES  OF  PDP-10 
PROCESSORS  AND  MASSBUS  CONTROLLERS.  UPON  DATA  TRANSFER  ERROR 
DETECTION,  LEVEL  5  SERVICE  WILL  REQUEST  A  DATA  RECOVERY  PROCEDURE 
USING  ECC  CORRECTION  AND  OFFSETTING  (IF  NECESSARY)  ON  INTERRUPT 
LEVEL  6. 
$ 
XLIST 


.DSKINT:  CAME 
JRST 
CONO 
JEN 

CAML 
JRST 
PMSG 
CONO 
MOVE 
CONO 
JRST 


ILVL5A: 


PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 


PP,[-*D40,,PPLIST] 
.o 

PI,LRQCLR!PICHN5 
aDSKINT 

PP,C-*D40,,PPLIST] 

ILVL5A 

<*?  INTERRUPT  STACK 

PI,PIOFF 

PP,C-*D40,,PPLIST] 

PI,PION 

.DSKINT 

DRIVE 

DSBP 

CSBP 

MBCN 

SSVUUO 

JSVUPC 

ACO 

AC1 

40 


DOES  THE  INT.  STACK  HAVE  ANYTHING? 
YES  -  PROCESS  m   INTERRUPT 
NO  -  CLEAR  CHN  5  REQUEST 
EXIT  THE  INT.  SERVICE 

;IS  THE  STACK  OK? 
;YE  '  PROCEED 
UNDERFLOW  I '^X  ATTEMPTING  TO  CORRECT  AND  RE-SYNC. 
TURN  OFF  PI  SYSTEM 
CORRECT  THE  POINTER 
TURN  PI  BACK  ON 
AND  EXIT 

YES  -  SAVE  CURRENT  # 

SAVE  THE  DSB  POINTER 

AND  THE  CURRENT  CSB  POINTER 

AND  CONTROLLER  DEVICE  CODE  # 

SAVE  CURRENT  USERS  UUO 

AND  ITS  RETURN  ADDRESS 

SAVE  SOME  AC'S 

;SAVE  SUBRTN  UUO  JUNK  TOO 


;TURN  OFF  THE  PI  SYSTEM  WHILE  RETRIEVING  CHANNEL  4  DATA  FROM  THE 
.•SPECIAL  INTERRUPT  "STACK" 


PI  SYSTEM  OFF 

GET  CONTENTS  OF  ATTN  SUMMARY  REG 
GET  2ND  XFR  CTL  REG  DATA  FROM  MBC 
AND  THE  PRIMARY  XFR  CTL  REG  DATA 
GET  THE  CONI  STATUS 


7  004  20  0  00  000400 

ILVL5: 

CONO 

PI,PIOFF 

262  14  0  00  077563 

ILVL51: 

POP 

PP,DATTN54f 

262  14  0  00  0:'7557 

POP 

PP,CSTCR5I 

262  14  0  00  0//556 

POP 

PP, CPTCR5# 

262  14  0  00  0;7524 

POP 

PP,CCONl54f 

DDRPI  - 
DDRPI3 

15536 

15537 

15538 

15539 

15540 

155A1 

155A2 

155A3 

155A4 

15545 

15546 

15547 

15548 

15549 

15550 

15551 

15552 

15553 

15554 

15555 

15556 

15557 

15558 

15559 

15560 

15561 

15562 

15563 

15564 

15565 

15566 

15567 

15568 

15569 

15570 

15571 

15572 

15573 

15574 

15575 

15576 

15577 

15578 

15579 

15580 

15581 

15582 

15583 

15584 

15585 

15586 

15587 

15588 

15589 

15590 
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054250  7  004  20  0  00  000200 


054251  200  00  0  00  077563 

054252  202  00  0  00  077511 

054253  510  12  0  00  077563 

054254  260  17  0  00  063421 

054255  202  01  0  00  077570 


054256  200  00  0  00  077524 

054257  602  00  0  00  000010 

054260  254  00  0  00  054372 

054261  336  00  0  00  077722 

054262  254  00  0  00  054266 

054263  602  00  0  00  000200 

054264  254  00  0  00  054713 

054265  254  00  0  00  054272 


054266 
054267 

054270 
054271 


602  00  0  00  000040 
254  00  0  00  054713 

602  00  0  00  000200 
254  00  0  00  055655 


054272 
054273 
054274 
054275 
054276 
054277 
054300 
054301 
054302 
054303 
054304 
054305 
054306 


054307 
054310 
054311 
054312 
054313 
054314 
054315 


7  000  24 
7  004  24 
037  02  0 
037  02  0 
200  00  0 
037  13  0 
200  00  0 
037  13  0 


200  00 
037  13 
037  00 
260  17 


037  02  0 


0  00  077523 
0  00  077554 
00  074222 
00  074233 
00  077523 
00  OOOOQO 
00  077554 
00  000000 
00  077524 
00  000000 
00  030242 
00  055667 
00  074240 


260  17 
260  17 
200  00 
607 
254 
661 


88 

00 


0 
0 
0 
0 
0 

0 


00 
00 
01 
00 
00 
00 


202  00  0  01 


056573 
063665 
101047 
MlVl 
054316 
400000 
101047 
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CONG    PKPION  ;ENABLE  PI  SYSTEM  AGAIN 

.-JUGGLE  CONTENTS  OF  "DATTN5"  TO  GET  MBC  DEVICE  n 


SEQ  0489 


MOVE  AC0,DATTN5 

MQVEM  ACO,ATTNSV# 

HLLZ  MBCN.DATTN5 

GO  RDDIB 

MQVEM  AC1.DICH5# 


GET  REG  DATA 

SAVE  IT 

SETUP  MBCN  DEVICE  CODE  n 

DO  BLIND  DATAI 

SAVE  IT 


.•DETERMINE  THE  CAUSE  OF  THE  INTERRUPT  ENTRY  ON  THE  SPECIAL  STACK 


MOVE 
TRNE 
JRST 

SKIPN 
JRST 
TRNE 
JRST 


AC0.CCONI5 

DONE 

DSKDON 

RH20 
.♦4 

DRATTN 
DSKATN 


JRST    DSKU^N 


TRNE 
JRST 

TRNE 
JRST 


ATTN 
DSKATN 

CBOV 
DSKOV 


GET  CONI  STATUS 

DONE  INTERRUPT?? 

YES  -  PROCESS  DISK  "DONE" 

M3C  =  RH20?? 

NO 

YES  -  IS  DRIVE  ATA  UP? 

YES  -  SERVICE  NOW 

UNKNOWN  TYPE  RH20  INTERRUPT 

ATTN  INTERRUPT??  (RHIO) 

YES  -  PROCESS  DISK  "ATTENTION" 

RHIO  CBOV  INTERRUPT?? 

YES  -  PROCESS  CONTROL  BUS  OVERRUN 


;HERE  IF  THE  INTERRUPT  IS  FROM  AN  UNKNOWN  CAUSE  -  REPORT 


DSKUKN: 


CONI 

CONI 

PMSG 

PMSG 

MOVE 

PNTHW 

MOVE 

PNTHW 

MOVE 

PNTHW 

PCRL 

GO 

PMSG 


APR.CAPR54f  ;GET  APR  STATUS 

PI,CPI5*  :GET  PI  SYSTEM  STATUS 

<^it-*.»-t-»  UNKNOWN  TYPE  INTERRUPT  ON  DRIVE  CHANNEL> 
<*CONI  APRDCONI  PI]]CONI  MBC*> 
CAPR5 

CPI5 

CC0NI5 


JUNK 


.A  A' 


.•PRINT  ADDITIONAL  INFORMATION 


;SEE  IF  OPERATOR  DESIRES  TO  HALT  ON  ERROR  -  CONTROLLED  FROM  SWITCHES 


HLFCHK: 


GO 

GO 

MOVE 

TLNN 

JRST 

TLO 

MOVEM 


HLTSW 

CHNSEL 

CSBTBL(ACI) 

DISMIS 

(1B0) 

CS8T8L(AC1) 


CHECK  FOR  A  HALT  ON  ERROR 

GET  THE  MBC  UNIT  # 

THEN  THE  CLOCK  COUNT  FOR  IT 

ANY  TICKS  LEFT?? 

NO 

YES  -  RESET  THE  CLOCK  TO  TICK 

AND  SAVE  THE  COUNT 
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SEQ  0490 


15591 

15592 

15593 

15594 

15595 

15596 

15597 

15598 

15599 

15600 

15601 

15602 

15603 

15604 

15605 

15606 

15607 

15608 

15609 

15610 

15611 

15612 

15613 

15614 

15615 

15616 

15617 

15618 

15619 

15620 

15621 

15622 

15623 

15624 

15625 

15626 

15627 

15628 

15629 

15630 

15631 

15632 

15633 

15634 

15635 

15636 

15637 

15638 

15639 

15640 

15641 

15642 

15643 

15644 

15645 


054316 
054317 
054320 

054321 
054322 
054323 
054324 
054325 
054326 
054327 
054330 

054331 
054332 
054333 
054334 
054335 
054336 
054337 

054340 
054341 
054342 
054343 
05A344 
054345 
054346 
054347 
054350 

054351 
054352 
054353 
054354 
054355 
054356 
05435^ 
054360 
054361 

054362 
054363 


260  17  0  00  056676 
336  00  0  00  077714 
254  00  0  00  054334 


205  01  0 
260  17  0 
254  00  0 
254  00  0 
606  01  0 
254  00  0 
606  01  0 
254  00  0 

200  01  0 
260  17  0 
254  00  0 
402  00  0 
7  004  20 
313  14  0 
254  00  0 

316  14  0 
254  00  0 
037  04  0 
200  14  0 
200  01  0 
4u-  01  0 
200  00  0 
434  00  0 
256  00  0 


262 
262 
262 
262 
262 
262 
262 
262 
262 


17 
17 
17 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00  010000 
00  057135 
00  054334 
00  054321 
00  010000 
00  054334 
00  000200 
00  054334 

00  072045 
00  063147 
00  054331 
00  077714 
0  00  000400 
00  070416 
00  054364 

00  070416 
00  054344 
00  074243 
00  070416 
00  077570 
00  074255 
00  074256 
00  000012 
00  000000 

00  000040 

00  000001 

00  000000 

00  030114 

00  030113 

00  000012 

00  000010 

00  000011 

00  000013 


7  004  20  0  00  000200 
254  00  0  00  054217 


054364  200 

054365  404 

054366  200 

054367  434 

054370  256 

054371  254 


;ALL  CHANNEL  5  INTERRUPTS  COME  HERE  FOR  INTERRUPT  DISMISSING 


t 


DISMIS:  GO     CLRCMD 
DISMI1:  SKIPN   RELSF6# 
JRST    DISMS1 


DISMS1: 


MOVSI 

GO 

JRST 

JRST 

TRNN 

JRST 

TRNN 

JRST 

MOVE 

GO 

JRST 

SET2M 

CONO 

CAMLE 

JRST 

CAMN 

JRST 

PMS6F 

MOVE 

MOVE 

AND 

MOVE 

I  OR 

XCT 

GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 

CONO 
JRST 


01  0  00  077570 

DISMS2:  MOVE 

01  0  00  074255 

AND 

00  0  00  074256 

MOVE 

00  0  00  000012 

lOR 

00  0  00  OOOOCO 

XCT 

00  0   00  054244 

JRST 

AC1,(DRSR) 

DRREG 

DISMS1 

.-3 

ACKMOL 

DISMS1 

AC1,DRY 

DISMS1 

ACUCDRCRIRELSED 

LDRE6 

.-2 

RELSF6 

PI.PIOFF 

PP,C-*D40,,PPLIST] 

DISMS2 


CLEAR  THE  PROCESSED  COMMAND 

DOES  THE  DRIVE  HAVE  TO  BE  'IRELEASED"?? 

NO  -  PROCEED 

PREPARE  TO  READ  THE  DRIVE  STATUS  REG 

DO  IT  NOW 

DRIVE  NOT  THERE??? 

READ  ERROR  -  TRY  AGAIN 

DRIVE  STILL  ONLINE 

NO  EXIT 

IS  DRIVE  READY  TO  DO  ANOTHER  CMD? 

NO  -  DON'T  ISSUE  THE  RELEASE  CMD 

YES  -  PREPARE  TO  ISSUE  RELEASE  COMMAND  TO  DRIVE 

DO  ITI 

LOAD  ERROR  -  TRY  AGAIN 

CLEAR  THE  RELEASE  REQUEST  FLAG 

DISABLE  PI  SYSTEM  WHILE  TESTING  THE  STACK 

MORE  ON  STACK? 

YES  -  GET  NEXT  ENTRY  FROM  STACK 


SPECIAL  STACK  SCREWED  UP?? 


PP-[-'*D40,,PPLIST] 

.♦3 

<*??1NTERRUPT  STACK  PUSHDOWN  LIST  UNDERFLOW  -  RESETTING, 

PP,C-*D40,,PPLISTJ 

ACl,DICH5  ;GET  THE  BLIND  DATAI  INFO 

AC1,C770007,J  ;STRIP  THE  DATA 

[DATAO  0,1]  ;GET  A  BASIC  DATAO  ARG 

MBCN  ;ADD  IN  THE  MBC  # 

ACO  ;D0  THE  DATAO 


.*> 


40 

AC1 

ACO 

SSVUPC 

SSVUUO 

MBCN 

CSBP 

DSBP 

DRIVE 

PI,PJON 
.DSKINT 


AC1,DICH5 

AC1J770007,,0] 

[DATAO  0,1] 

MBCN 

ACO 

ILVL51 


;RESTORE  SAVED  STUFF 


.•ENABLE  INTERRUPT  SYSTEM  AGAIN 
;AND  EXIT  LEVEL  5  SERVICE 


;GET  THE  BLIND  DATAI 


;GET  BASIC  DATAO 
.•INCLUDE  DEV  CODE 
;D0  DATAO 
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SEO  0491 


15646 


»|jp»TjlWH^»'X..ii 
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SEO  0492 


15647 

15648 

15649 

15650 

15651 

15652 

15653 

15654 

15655 

15656 

15657 

15658 

15659 

15660 

15661 

15662 

15663 

15664 

15665 

15666 

15667 

15668 

15669 

15670 

15671 

15672 

15673 

15674 

15675 

15676 

15677 

15678 
15679 
15680 
15681 
15682 
15683 
15684 
15685 
15686 
15687 
15688 
15689 
15690 
15691 
15692 
15693 
15694 
15695 

15696 
15697 

15698 
15699 

15700 
15701 


054372 
054373 
05437^ 

054375 
054376 
054377 
054400 
054401 
054402 
054403 
054404 
054405 


054406 
054407 
054410 
054411 
054412 
054413 
054414 
054415 
054416 
054417 
054420 
054421 

054422 
054423 
054424 
054425 
054426 
054427 
054430 
05443^ 
054^3^ 


402  00  0  00  077574 
602  00  0  00  000020 
254  00  0  00  054560 


554 
405 
260 
550 
242 
434 
550 
336 
201 


13 
13 
17 
10 
01 
13 
11 
00 
11 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
01 
00 
00 
13 


0  00 
0  00 


336  00 
254  00 
370  00 
336  00 
332  00 
254  00 
260  17 
553  00 
200  00 
3^.'  00 
316  00 
402  00 


205  01 
260  17 
254  00 
254  00 
602  01 
254  00 
037  02 
260  17 
037  02 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 


10 
00 
10 
10 
10 
00 
00 
01 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 


0  00 


077556 
000077 
063665 
101047 
000003 
000001 
100747 
00001 1 
1 00636 


000016 
054464 
000016 
000017 
000016 
054420 
063665 
101047 
100005 
000000 
000001 
100005 

000010 
057135 
054530 
054422 
004000 
054433 
074257 
054607 
074272 


054433  200  01  0  00  074273 

054434  260  17  0  00  057135 

054435  254  00  0  00  054530 

054436  254  00  0  00  054433 

054437  602  01  0  00   001000 
054440  476  00  0  00  0777^^ 


;*DSKDON  —  ROUTINE  TO  PROCESS  ALL  "DONE"  INTERRUPTS 


DSKDON:  SETZM 
TRNE 
JRST 

D0N1ST:  HLRZ 
AND  I 
GO 
HRRZ 
LSH 
I  OR 
HRRZ 
SKIPN 
MOVE  I 

;SEE  IF  "DONE* 

D0N1 :   SKIPN 
JRST 
SOS 
SKIPN 
SK I PE 
JRST 
GO 

HRRZS 
MOVE 
SOS 
CAMN 
SETZM 


D0N1A: 


MOVSI 

GO 

JRST 

JRST 

TRNE 

JRST 

PMSG 

GO 

PMSG 


DONHFG# 

BUSY 

D0N2ND 

DRIVE, CPTCR5 

DRIVE. 77 

CHNSEL 

CSBP-tSBTBL(ACl) 

AC1  J 

DRIVE, AC1 

DS8P,DSBTBL (DRIVE) 

DS8P 

DSBP,SNAP 

yAS  EXPECTED 

.BSYCT(CSBP) 

D0NER1 

.8SYCT(CSBP) 

.PIPCT(CSBP) 

.BSYCT(CSBP) 

.*5 

CHNSEL 

CS8TBL(AC^^ 

AC0,TIMOUT 

AC0,AC1 
TIMOUT 


CLEAR  THE  DONE  HEADER  FLAG 

IS  MBC  'BUSY"  AT  CHN  4  INTERRUPT  TIME?? 

YES  -  GET  DRIVE  #  FROM  "CSTCR5" 

NO  -  GET  DRIVE  #  FROM  "CPTCR5" 
SAVE  JUST  DRIVE  0 
DETERMINE  MBC  4f  (0  -  7)  IN  ACI 
SETUP  CONTROLLER  CSB  AREA  POINTER 


SETUP  DRIVE  DSB  AREA  POINTER 
ANY  DSB  AREA  FOUND? 
NO  -  MAKE  A  TEMP  AREA 


EXPECTED  "DONE"  INTERRUPT?? 

NO  -  ERROR 

YES  -  DOWNCOUNT  THE  BUSY  COUNTER  nR  "DONE' 

ANY  POSITION  COUNTS?? 

ANY  BUSY  LEFT  THIS  MBC?? 

YES 

NOPE 

CLEAR  REST  OF  THE  COUNT 

GET  TIMOUT  LOC 

MAKE  REAL  CHAN* 

FALSE  TIMOUT  ? 

YES 


aci,(drcr:ibi4) 

DRREG 

D0NER2 

D0N1A 

ACI.DVA 

DONIB 


READ  THE  DRIVE  CONTROL  REG 

NOW 

DRIVE  NOT  THERE? 

READ  ERROR  -  TRY  AGAIN 

CAPTURED  THE  PORT? 

YES  -  PROCEED 
<*??'DRIVE  ON  OTHER  PORT'yHILE  SERVICING  A  "DONE"  INTERRUPT  FOR  > 
PNTDRV  ;PRINT  THE  DRIVE  ff 

<  ??•> 


;READ  THE  DRIVE  STATUS  REGISTER 


-*  DONIB:  MOVE 
GO 
JRST 
JRST 

TRNE 

SETOM 


AC1,[DRSRI1B14] 

DRREG 

D0NER2 

D0N18 

ACI, PGM 
RELSFG 


PREPARE  TO  READ  THE  DRIVE  STATUS  REGISTER 

READ  DRIVE  STATUS 

DRIVE  DOES  NOT  ANSWER  -  ERROR 

ERROR  -  TRY  AGAIN 

;DUAL  PORT  &  IN  A/B  MODE?? 
;YUP 
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SEQ  0495 


15702 

15703 

15704 

15705 

15706 

15707 

15708 

15709 

15710 

15711 

15712 

15713 

15714 

15715 

15716 

15717 

15718 

15719 

15720 

15721 

15722 

15723 

15724 

15725 

15726 

15727 

15728 

15729 

15730 

15731 

15732 

15733 

15734 

15735 

15736 

15737 

15738 

15739 

15740 

15741 

15742 

15743 

1D744 

15745 

15746 
15747 

15748 
15749 
15750 
15751 
15752 
15753 
15754 
15755 
15756 


054441 
054442 
054443 

054444 
054445 
054446 

054447 
054450 

054451 
054452 
054453 
054454 
054455 
054456 
054457 
054460 
054461 

054462 
054463 


202  01  0  11  000001 
606  01  0  00  01000G 
254  00  0  00  054544 

200  00  0  00  077524 
602  00  1  00  100667 
254  00  0  00  054634 

602  01  0  00  140000 
254  00  0  00  054520 


205  01 
260  17 
254  00 
254  00 
202  01 
200  00 
602  00 
254  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
11 
00 
00 
00 
00 


000000 
057135 
054316 
054451 
000000 
077563 
000377 
054462 
054316 


260  17  0  00  056676 
254  00  0  00  054713 


054464 
054465 
054466 
054467 
054470 
054471 
054472 
054473 
054474 
054475 
054476 
054477 
054500 
054501 
054502 
054^03 
054504 
05a;505 
054506 
054507 
054510 
054511 
054512 
054513 
054514 
054515 
054516 
054517 


260  17 
037  02 
260  17 
Oy  01 
326  11 
037  02 
200  00 
607  00 
661  00 
603  00 
037  02 
603  00 
037  02 
607  00 
254  00 
476  00 
037  02 
607  00 
254  00 
037  02  0 
476  00  0 
607  00  0 
254  00  0 
037  02  0 
476  00  0 
607  00  0 
037  02  ' 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  055725 
00  074274 
00  054607 
00  000026 
00  054444 
00  074302 
13  100747 
00  000317 
00  000010 
00  000004 
00  072173 
00  000002 
00  072172 
00  000001 
00  054505 
00  077651 
00  071661 
00  000200 
00  054511 
00  074314 
00  077651 
00  0001 00 
00  05451? 
00  074315 
00  077651 
00  000010 
00  074316 
00  054422 


D0N2:   MOVEM  ACl ,.DSR(DSBP) 

TRNN  ACl.MOL 

JRST  D0NER3 

D0N3:   MOVE  CC0NI5 

TRNE  aRHERK 

JRST  D0NER4 

D0N4:   TRNZ  AC1,ATA1CERR 

JRST  D0NER5 

D0N5:   MOVSI  AC1,(DRCR) 

GO  DRREG 

JRST  DISMIS 

JRST  .-3 

MOVEM  AC1,.DCR(DSBP) 

MOVE  DATTN5 

TRNE  377 

JRST  D0N6 

JRST  DISMIS 

D0N6:   60  CLRCMD 

JRST  DSKATN 


;HERE  TO  PROCESS  UNEXPECTED  "DONE' 


SAVE  THE  RESULTS 
MEDIUM-ON-LINE  SET?? 
NO  -  ERROR 

GET  CONI  FROM  MBC  AGAIN 

MBC  HAVE  AN  ERROR? 

YES  -  PROCESS  MBC  ERROR 

DRIVE  STATUS  INDICATE  "ATA"? 
YES  -  ERROR 

NO  -  PREPARE  TO  READ  THE  DRIVE  CONTROL  REG 

READ  IT  NOW I 

DRIVE  IS  NOT  THERE  ANYMORE??? 

SAVE  THE  RESULTS  OF  THE  READ 
GET  THE  ATTENTION  STATUS 
ANY  ATTENTION  UP?? 
YES  -  PROCESS  IT  ALSO 
NO  -  NORMAL  EXIT 

CLEAR  THE  DONE  COMMAND  IN  THE  DSB  AREA 
SERVICE  THE  ATTENTION  REQUEST 


D0NER1 


GO 

PMSG 

GO 

PFORCE 

JUMPN 

PMSG 

MOVE 

TLNN 

TLO 

TLNE 

PMSG 

TLNE 

PMSG 

TLNN 

JRST 

SETOM 

PMSG 

TLNN 

JRST 

PMSG 

SETOM 

TLNN 

JRST 

PMSG 

SETOM 

TLNN 

PMSG 

JRST 


DONHDR  ;PRINT  "DONE"  INTERRUPT  HEADER  MESSAGE 

<*UNEXPECTED  "DONE"  INTERRUPT  FROM  > 

PNTDRV 

DSBP,D0N3  ;IF  ANY  DSB  AREA  JUMP  AROUND  CODE 

<  NOT  IN  ORIGINAL  SYSTEM  CONFIGURATION. . .*DRIVE  TYPE  IS:> 
DS8TBL(DRIVE) 


317 

(.UNKN) 

(.TU16) 

<TU16> 

(.RS04) 

<RS04> 

(.RP04) 

.♦3 

NEWDRV 

<RP04> 

(.RP05) 

.*3 

<RP05*> 

NEWORV 

(.RP06) 

.♦3 

<RP06*> 

NEWDKV 

(.UNKN) 

<UNKN0WN> 

D0N1A 


;SET  UNKNOWN  TYPE  BIT 
;THIS  DRIVE  A  TU16? 

;IS  IT  AN  RS04? 

.•POSSIBLY  AN  RP04? 

;N0 

;YES  -  ALSO  A  NEW  DRIVE    IN  CONFIGURATION 


.•UNKNOWN   TYPE 


DDRPl  - 
DDRPI3 

15757 
15758 
15759 
15760 
15761 
15-^62 
15763 
1576A 
15765 
15766 
15767 
15768 
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SEQ  049A 


;HERE  TO  PROCESS  ERROR  FOR  "ATA"  DURING  A  "DONE"  INTERRUPT 


054520 
054521 
054522 
054523 
054524 
054525 
054526 
054527 


260  17 
260  17 
260  17 
254  00 
037  02 
260  17 
037  02 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


055725 
055667 
057050 
054530 
074320 
054607 
074325 
054663 


D0NER5:  GO 
GO 
GO 
JRST 
PMSG 
GO 

PMSG 
JRST 


DONHDR  ; PRINT  HEADER  MESSAGE 

JUNK  .-PRINT  JUNK  THINGS 

SNAPS  .-SNAPSHOT  DRIVE  REGISTERS 

D0NER2  ;CBTO  IN  DRIVE?? 

<*GOT  AN  ATA  OR  ERROR  FROM  > 

PNTDRV 

<  DURING  A  DATA  TRANSFER*AND  THE  CONTROLLER  HAS  NO  ERROR  INCICATION?*> 

D0NE3E 


DDRPl   SUBROUTINES    (RPOA/05/06  RELIABILITY) 
RPOA   CHANNEL   5   INTERRUPT   SERVICE 


DECFLU  VER     00.12  12-APR-78  08:4A     PAGE   15 


SEQ  0A95 


CHANNEL   5  DONE   INTERRUPT  PROCESSING 

I   DSKDON 


YES       / 


CCONI 
BUSY 

9 


\N0 
\- 
\ 


I 

•••♦♦••♦•♦♦♦•*••• 

*  LOAD  "DRIVE"     ♦ 

*  FROM  CSTCR   ♦ 

*  ♦ 


*  LOAD  DRIVE       ♦ 

*  FROM  CPTCR       * 

*  • 


♦  DWNCNT     • 

♦  ".BSYCNT"   *• 

♦  IN  CSB  BY  1   * 


CLRCNT  D0N5 

tit*ititt1Htt*iftit1t1t*ir 

♦  CLR  COMMAND     ♦ 

♦  FROM  CSB  &       ♦ 

♦  DSB  AREA         ♦ 

I 

♦♦DISMIS   ♦♦ 
I 


I 

I   DONI 


/ 


/ 


/ 


EXPECT  \N0 

A  DONE  \ — 

INTERRUPT?  \ 


•**D0NER1    *♦ 


>I    YES 

1^*  ♦**♦♦*••♦*•*•*♦ 

♦  READ  DRIVE'S     * 

♦  STATUS  ♦ 

♦  REGISTER         * 

•♦•♦**♦♦*••♦♦••♦* 

I 


/ 
/ 

/ 

•  ^mmm^m  ^m  «»  «•  ^m  ^mmm  i^^m^m  ^ 

CBTO 

\YES 
\— 

\ 

I  NO 
I     D0N2 

/ 

/ 
/ 

DRV 
MOL   UP 

9 

• 

\N0 
\— 
\ 

I   YES 

I 

I     D0N3 

/ 
/ 
/ 

MBC 
ERROR 

9 

• 

vYES 

\— 

\ 

I  NO 
I     DONA 

/ 

/ 

/ 

<^  mm  ^m  «m  «m  ■ 

DEV  ATA 

=  1 
(DRSR) 

\YE$ 
\  — 

\ 

•**D0NER2  ♦♦ 


•♦♦D0NER3  ♦♦ 


♦♦♦•♦♦♦♦♦♦♦ 

•**D0NER4   ♦♦ 
♦♦♦♦♦♦♦♦♦♦♦ 


•♦♦DONERS   ♦♦ 


•>I  NO 


Dl 
D! 


♦♦D0NER1    ♦* 
I 

*MSG:HEADER+UNEXPECTED^ 

*  DONE   INTERRUPT         * 

*  FROM  DRIVE   XX         * 

I 

/                DSB               \YES 
/  ASSIGNED  \ 

/  ?  \  i 

I  NO  I 

*  MSG:   DRIVE  NOT   IN     ♦ 

*  ORIGINAL  * 

*  CONFIGURATION...        ♦  I 

j< 

/  DSB  \N0 

/         KNOWN  DRIVE         \ 

/  TYPE?  \  I 

I 

•»♦♦♦*••♦**•*••♦*  ♦  MSG:  * 

♦  MSG:  XXXX   ^  ♦    UNKNOWN    * 

♦  (RSOA)   ETC       *  *  * 

♦  *  *♦♦♦•♦**•♦♦♦••*•♦ 

j< 

*  MSG:   DETECTED  DRIVE   ♦ 

*  TYPE  PRINT   TYPE   IN     ♦  ♦♦**♦•♦♦♦♦* 
»         DSBTBL   STATUS         *  ♦♦DONERS  ♦♦ 

I  I 

♦♦D0N3       ♦♦  ♦PRINT  DONE   ERH  HEADER^ 

*t***ttt*««  ♦     MESSAGE&READ  ALL       ♦ 

♦  DRIVE  REGISTERS       ♦ 

I 

1tit1tit1t1t1ti(1tltt1titt1t1t1tit1tt1titit 

♦  MSG:GOT  ATN  FRM  DRV   ♦ 
♦XX  DURING  DATA  XFR  W/^ 

♦  NO   INDICAT  ERRS       ♦ 

I 
*********** 

♦♦D0NE3E   ♦♦ 
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SEQ  0496 


D 
D 


15770 

15771 

15772 

15773 

15774 

15775 

15776 

15777 

15778 

15779 

15780 

15781 

15782 

15783 

15784 

15785 

15786 

15787 

15788 

15789 

15790 

15791 

15792 

15793 

15794 

15795 

15796 

15797 

15798 
15799 
15800 
15801 
15802 
15803 
15804 
15805 
15806 
15807 
15808 
15809 
15810 
15811 
15812 
15813 
15814 
15815 
)5816 
15817 
15818 
15819 
15820 
15821 
15822 
15823 
15824 


054530 
054531 
054532 
054533 
054534 
054535 
054536 
054537 

054540 
054541 
054542 
054543 


054544 
054545 
054546 
054547 
054550 
054551 
054552 
054553 
054554 
054555 
054556 
054557 

054560 
054561 

054562 
054563 
05456'* 
054565 
054566 
05456:^ 
054570 
054571 
054572 
054573 
054574 
054575 
054576 
054577 
054600 
054601 
054602 
054603 
054604 


260  17  0 
037  00  0 


260  17 
037  02 
260  17 
200  00 
621  00 
202  00 


0 
0 
0 
0 
0 
0 


00  055725 
00  030242 
00  054607 
00  074341 
00  055667 
13  100747 
00  140060 
13  100747 


037  00  0  00  030242 
260  17  0  00  055771 
260  17  0  00  056577 
254  00  0  00  054316 


260  17 
037  00 
260  17 
037  02 
260 
254 


17 
00 


200  00  0 
62:  00 
202  00 
260  17 
2oJ  17 
254  00 


0  00  055725 
0  00  030242 
0  00  054607 
0  00  074353 
0  00  057050 
0  00  054530 
13  100747 
0  00  500000 
0  13  100747 
0  00  055667 
0  00  056047 
0  00  054540 


554  1?  0  00  077557 
254  00  0  00  054376 


037  04  0 
135  00  0 
037  03  0 
037  04  0 
200  00  0 
405  00  0 
037  17  0 
037  01  0 
200  00  0 
603  00  0 
037  01  0 
603  00  0 
037  01  0 
603  00  0 
037  01  0 
603  00  0 
037  01  0 
607  CO  0 
037  01  0 


00  074365 
C:  070150 
00  000001 
00  066356 
00  000013 
00  000007 
00  000003 
00  000074 
13  100747 
00  000001 
00  000064 
CO  000200 
00  000065 
00  000100 
00  000066 
00  000010 
00  000077 
00  000311 
00  000077 


.•PROCESS  A  DRIVE  POWER  DOWN  DURING  A  DATA  TRANSFER 

DONHDR  ;PRINT  THE  uONE  HEADER  MESSAGE 


D0NER2:  GO 
PCRL 
60 

PMSG 
GO 

MOVE 
TL2 
MOVEM 


PNTDRV  ;PRINT  DRIVE  #  ,^  ^„^ 

<  HAS  POWERED  DOWN  DURING  A  DATA  TRANSFER  CAUSING  A  "DONE  *?> 

JUNK 

DSBT8L(DRIVE)  ;GET  THE  TABLE  STATUS 

(. POSER!. XFRER!.PWR!.ONLN)      ;RESET  THE  PROPER  BITS 

DSBTBL(DRIVE)  ;SAVE  THE  UPDATED  STATUS 


D0NX1 


PCRL 
GO 
GO 
JRST 


ATACLR 
CLRALL 
DISMIS 


;CLR  ATA  BIT  IN  DATTN5 
; CLEAR  ALL  REMAINING  CMDS 
;EXIT 


.-PROCESS  A  DRIVE  DROPPING  OFF-LINE  DURING  A  DATA  TRANSFER 

DONHDR  .-PRINT  THE  HEADER  MESSAGE 


D0NER3:  GO 

PCRL 

GO 

PMSG 

GO 

JRST 

MOVE 

TLZ 

MOVEM 

t 

JRST 

D0N2ND:  Ml  ^Z 
JR  J 


PNTDRV  " 

<  HAS  DROPPED  OFF-LINE  DURING  A  DATA  TRANSFER  (MOL  =  0).> 


PNTDRF 


PMSGF 

LDB 

PNT3F 

PMSGF 

MOVE 

AND  I 

PNTOCF 

PNTCIF 

MOVE 

^lNE 

PNTCIF 

TLNE 

PNTCIF 

TLNE 

PNTCIF 

TLNE 

PMTCIF 

TLNN 

PNTCIF 


SNAPS 

D0NER2 

DSBT8L (DRIVE) 

(.OPRI.ONLN) 

DSBT8L(DRIVE) 

JUNK 

STATUS 

D0NX1 

DRIVE, CSTCR5 
DQN1ST+1 

<DRIVE  > 

[POINT  9.«BCN,11] 

<-  > 

DRIVE 
7 


ACO,i)SBTBL(DRIVE) 
AC0.(.RP04) 

AC0.(.RP05) 

AC0.(.RP06) 

ACO.(.UN<N) 

ACO. ( .RP04 ! .RP05 I .RP06 I .UNKN) 


.-SNAPSHOT  STATUS 
.-DRIVE'S  GONE  AWAY 
.-GET  TABLE  STATUS 
.-UPDATE  STATUS 
.-SAVE  IT 

.-PRINT  STATUS 

.-LOAD  DRIVE  ff   FROM  2ND  MBC  CMD  REGISTER 

.-GET  DEVICE  CODE 


_„.J 
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SEQ  0497 


r 

I 

iD 
R 


15825 

15826 

15827 

15828 

15829 

15830 

15831 

15832 

15833 

15834 

15835 

15836 

15837 

15838 

15839 

15840 

15841 

15842 

15843 

15844 

15845 

15846 

15847 

15848 

15849 

15850 

15851 

15852 

15853 

15854 

15855 

15856 

15857 

15858 

15859 

15860 

15861 

15862 

15863 

15864 

15865 

15866 

15867 

15868 

15869 

15870 

15371 

15872 

15873 

15874 

15875 

15876 

15877 

15878 
15879 


054605 
054606 


054607 
054610 
054611 
054612 
054613 
054614 
054615 
054616 
054617 
054620 
054621 
054622 
054623 
054624 
054625 
054626 
054627 
054630 
054631 
054632 
054633 


054634 
054635 
054636 
054637 
054640 
054641 

054642 
054643 
054644 

054645 
054646 
05464^ 
054o50 
054651 
054652 
054653 
054654 
054655 
054656 
054657 

054660 
054661 


037  01  0  00  000076 
263  17  0  00  000000 


037  02  0 
135  00  0 
037  03  0 
037  02  0 
200  00  0 
405  00  0 


037  16 
037  00 
200  00 
603  00 
037  00 
603  00 
037  00 
603  00 
037  00 
603  00 
037  00 
607  00 
037  00 
037  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  074365 
00  070150 
00  000000 
00  066356 
00  000013 
00  000007 
00  000003 
00  000074 
13  100747 
00  000001 
00  000064 
00  000200 
00  000065 
00  000100 
00  000066 
00  000010 
00  000077 
00  000311 
00  000077 
00  000076 
00  000000 


260  17  0  00  055725 
260  17  0  00  055667 
2c J  17  0  00  057050 
254  00  0  00  054530 
200  00  0  00  100636 
202  00  0  11  000000 

200  00  0  00  077524 
606  00  0  CO  200000 
254  00  0  00  054676 


200  01  0 
202  CI  0 
606  01  0 
254  00  0 
200  00  0 
434  00  0 
434  00  r 
602  00 
254  00  0 
037  00  0 
260  17  0 


00  100637 
11  000001 
00  040000 
00  054662 
00  100640 
00  100652 
00  100653 
00  Mllll 
00  054700 
00  030242 
CO  054607 


037  02  0  00  074367 
334  00  0  00  000000 


PNTCIF  '•>•• 
RTN 


PNTDRV:  PMSG 
LDB 
PNT3 
PMSG 
MOVE 
ANDI 
PNTOCS 
PNTCI 
MOVE 
TLNE 
PNTCI 
TLNE 
PNTCI 
TLNE 
PNTCI 
TLNE 
PNTCI 
TLNN 
PNTCI 
PNTCI 
RTN 


<DRIVE  > 

[POINT  9,MBCNjn 

<-  > 

DRIVE 

7 

ACO,DSBTBL(DRIVE) 

AC0,(.RP04) 
11/11 

AC0,(.RP05) 

AC0,(.RP06) 

ACO,(.UN)CN) 

ACO, ( . RP04 ! .RP05 ! .RP06 ! .UNKN) 
1 1^  I  • 


;GET  DEVICE  CODE  # 
;GET  UNIT  # 

;6ET  TABLE  DATA 


;MBC  DETECTS  AN  ERROR  DURING  A  DATA  TRANSFER 


D0NER4: 


GO 
60 

60 

JRST 
MOVE 
MOVEM 


D0NE3A:  MOVE 
TRNN 
JRST 

D0NE3B:  MOVE 
MOVEM 
TRNN 
JRST 
MOVE 
lOR 
lOR 
TRNE 
JRST 
PCRL 
GO 
PMSG 

SKIPA 


DONHDR 

JUNK 

SNAPS 

D0NER2 

SNAP 

.DCR(DSBP) 

CC0NI5 

EXCEP 

DCHNE1 

AC1,SNAPH 

AC1,.DSR(DSBP) 

AC1.CERR 

D0NE3C 

SNAP^2 

SNAP^U 

SNAP+15 

Mmi 

DCHNE2 


PRINT  "DONE"  HEADER  MESSAGE 
PRINT  ADDITIONAL  THINGS 
READ  ALL  DRIVE  REGISTERS 
DRIVE  HAD  A  CBTO 
GET  THE  DRIVE  CONTROL  REG  DATA 
AND  SAVE  IT 

GET  CONI  AGAIN 

MBC  DRIVE  EXCEPTION  UP?? 

NO  -  POSSIBLE  CHANNEL  ERROR 

GET  THE  DRV  STATUS  DATA 
SAVE  IT  IN  THE  DSB  AREA  FOR  DRIVE 
DRIVE  COMPOSITE  ERROR  UP?? 
NO  -  REPORT 

GET  ERROR  REGISTER  #1  jATA 
GET  ERROR  REGISTER  #2  DATA 
GET  ERROR  REGISTER  «3  DATA 
ANY  ERROR  DETECTED?? 
;YES 


PNTDRV 

<  HAS  COMPOSITE  ERROR  IN  STATUS  REGISTE:^  BUT 


ALL  ERROR  REGISTERS  ARE  ZERO*> 


L_.- 


M>*>«>MMIMM>* 


DDRPl  - 
DDRPI3 

15880 

15881 

15882 

15883 

1588A 

15885 

15886 

15887 

15888 

15889 

15890 

15891 

15892 

15893 

1589A 

15895 

13896 

15897 

15898 

15899 

15900 

15901 

15902 

15903 

1590A 

15905 

15906 

15907 

15908 
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054662  037  02  0  00  074404 


054663 
054664 
054665 
054666 
054667 
054670 
054671 
054672 
054673 
054674 
054675 

054676 
054677 
054700 
054701 
054702 
054703 

054704 
054705 
054706 
054707 
05471C 
054711 
054712 


200  00 
202  00 
602  00 
254  00 
200  00 
602  00 
254  00 
037  02 
254  00 
037  02 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
11 
00 
00 
00 
00 
00 
00 
00 
00 
00 


100636 
000000 
000076 
054676 
100637 
100000 
054674 
074420 
054704 
074427 
054704 


336 
260 
260 
200 
606 
260 


00 
17 
17 
00 
00 
17 


0  00  077720 
0  00  057030 
0  00  056047 
0  00  030046 
0  00  001000 
0  00  056626 


260  17  0 
260  17  0 
260  17  0 
200  00  0 
661  00  0 
202  00  0 
254  00  0 


00  056014 
00  056010 
00  055771 
13  100747 
00  000020 
13  100747 
00  054307 


D0NE3C:  PMSG 


D0NE3E: 


MOVE 

MOVEM 

TRNE 

JRST 

MOVE 

TRNE 

JRST 

PMSG 

JRST 

PMSG 

JRST 


DCHNE1:  SKIPN 
GO 

DCHNE2:  GO 
MOVE 
TRNN 
GO 

D0NX2 :  GO 


i 


MOVE 
TLO 
MOVEM 
JRST 


SEQ  0498 
<*DRIVE  EXCEPTION  FROM  MBC  CONI  BUT  NO  "CERR"  ERROR  IN  DRIVt  STATUS'^> 


r 
c 


SNAP 

.DCR(DSBP) 

76 

DCHNE1 

SNAP+1 

ATA 

.*3 

<*CAN'T  DECEIPHER  DRIVE 

D0NX2 

<*DRIVE  POWER  APPRENTLY 

D0NX2 

RETFLG 

CHNTST 

STATUS 

CONSU 

INHRET 

STPCMD 

DRVCLR 

PAKAK 

ATACLR 

DSBTBL (DRIVE) 

(.XFRER) 

DSBTBL (DRIVE) 

HLTCHK 


;GET  DRIVE  CONTROL  REGISTER  DATA 

;SAVE  IT  IN  DSB  AREA 

.•FUNCTION  BITS  =  0?? 

;N0 

;YES  -  GET  DRIVE  STATUS  REG  DATA 

;DRIVE  ATTENTION  UP?? 

REGISTER  STATES?*> 

GL ITCHED  (ON-OFF-ON)*> 


;N0  PRINTING  IF  IN  A  RETRY 

;TEST  FOR  POSSIBLE  CHANNEL  ERROR 

; ANALYZE  DRIVE  ERROR 

;GET  THE  PGM  SWITCHES 

;OPR  INHIBIT  "RETRY"  ?? 

;N0  -  STOP  ANY  PENDING  CMDS  TO  THIS  DRIVE 


; ISSUE  A  DRIVE  CLEAR  COMMAND 

;AND  A  PACK  ACKNOWLEDGE  COMMAND 

.-CLEAR  THIS  DRIVE'S  ATA  BIT  IN  "DATTNS"  WORD 

.•INDICATE  DRIVE  TRANSFER  ERROR 
.•SAVE  UPDATED  DRIVE  STATUS 


l_ 


DDRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
RPOA  CHANNEL  5  INTERRUPT  SERVICE 

♦♦D0NER2  ** 
*********** 

I 

♦  MSG:  DRIVE  XX  HAS  * 
♦POURED  DWN  DURING  XFR* 

♦  CAUSING  A  DONE  INT.  * 

I< 

***************** 

♦PRI  JUNK  THINGS* 

*  AND  WAIT  FOR  ♦ 

♦ATTN  TO  GO  AWAY* 
***************** 

I 

♦  SET  DSBTBL   ♦ 

♦  STATUS  FOR   * 

*  .XFRER  BIT   ♦ 
***************** 

I 
♦♦D0N5   ♦♦ 

Uttitititiiltititit 
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r 


SEQ  0499 


♦  RESET  DSBTBL  ♦ 
♦STATUS  (.XFER)  ♦ 

1 

♦♦HLTCHK  ♦♦ 


♦♦DCHNE1  ♦♦ 

I 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 

♦  ANALY2  ANY   ♦ 

♦  CHAN  TYPE   ♦ 

♦  PROBLEMS    ♦ 
♦♦♦♦♦♦*♦♦**♦♦♦♦♦♦ 

I 

tHltiHtttlHUtt 

♦♦DCHNE2  ♦♦ 


♦♦D0NER3  ♦♦ 

♦♦*♦♦♦♦♦»•* 

I 

itttt'kittiHttlttltifklrlHtltt'klUt 

♦MSG:  DRIVE  XX  DROPPED^ 

♦  OFF  LINE  DURING   ♦ 

♦  XFR        ♦ 

I 


I 
I 
I 
I 
I 
I 
I 


♦♦♦♦♦•♦♦♦♦♦ 

♦♦D0NX2  ♦♦ 
*********** 

I 
***************** 

*  * 

*  ISSUE  DRVCLR  ♦ 

*  » 
***************** 

I 
***************** 

*  * 

*  ISSUE  PACKACK  ♦ 
»  ♦ 
***************** 

I 


*****t,*****  *********** 

♦♦DCHNE1  ♦♦  ♦♦DONERA  ♦* 

***********  *********** 

CHNTST  I  I 

*****************  ***************** 

♦  LOOK  AT  CHN  ♦  *   MSG:  DONE   ♦ 

♦  FOR  ERRORS   ♦  ♦   HEADER  IF   ♦ 

♦  *  ♦  NOT  PRINTED  ♦ 
*****************  ***************** 

STATUS  I  DCHNE2(16)  I     JUNK 

*****************        ************************* 

♦  PRINT  DRIVE  ♦        ♦♦  PRI  PGM  RUNTIM,  PRI  ♦♦ 

♦  STATUS  ETC.   ♦        ♦♦  TST,  PRI  DRV#8C0NI,  ♦♦ 

♦  *        **      PRI  INTPC      ♦♦ 
*****************        ************************* 

I  I  D0NE3A 

***********  —«.-.— —,-.-«— 

♦♦D0NX2  ♦♦  /      CONI      \N0 

***********  /     EXCEPTION     \ — 

/        UP?        \ 
***********   «««——.—.————— 

♦♦DCHNE2  ♦♦  I  YES 

***********  J  D0NE3B 

/      DRV      \N0 
/     COMPOSITE     \— 
/      ERROR?       \ 

I  YES 

NO    /      DRV      \ 
/    £RROR  REGS     \ 

/  =0  \ 

I  YES 

*********************** 

♦  MSG:  DRV  HAS  COMP.   ♦ 
♦ERR  BUT  ERR  REGS  SHOW* 

♦  NO  ERRORS     ♦ 

*********************** 

I< 

*********** 

♦♦D0NE3E  *♦ 
*********** 


*********** 

•♦^DCHNEI  ♦♦ 
*********** 


I 
I 

I 

I 


D0NE3C 


***************** 

♦  MSG:  DRV  ERR  ♦ 

♦  BUT  NO  COMP,  ♦ 

♦  ERROR     ♦ 

***************** 


iDDRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
iRPOA  CHANNEL  5  INTERRUPT  SERVICE 


DECFLO  VER  00.12  12-APR-78  08:44  PAGE  17 


r 


SEQ  0500 


D0NE3E 


/      DRV      \N0 
CONT.  REG     \- 
=  0        \ 


I  YES 


DRV      \YES 
STATUS      \— ■ 
ATA=1       \ 


I  NO 


•MSG:  CAN'T  DETERMINE  * 
CAUSE  OF  DRV     * 
REGISTER  STATES   ♦ 


*MSG:DRV  PWR  APP* 
♦ARENTLY  GLITCHD* 
*   ON-OFF-ON   * 

I 
I 
I< 


I< 

**D0NX2  ♦♦ 
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SEQ  0501 


1 591 1 

15912 

15913 

15914 

15915 

15916 

15917 

15918 

15919 

15920 

15921 

15922 

15923 

15924 

15925 

15926 

15927 

15928 

15929 

15930 

15931 

15932 

15933 

15934 

15935 

15936 

15937 

15938 

15939 

15940 

15941 

15942 

15943 

15944 

15945 

15946 

15947 

15948 

15949 

15950 

15951 

15952 

15953 

15954 

15955 

15956 

15957 

15958 

15959 

15960 

15961 

15962 

1 5963 

15964 

15965 


054713  402  00  0  00  077510 

054714  200  00  0  00  077563 

054715  602  00  0  00  000377 

054716  254  00  0  00  055077 


054717 

260  17 

054720 

037  02 

054721 

135  00 

054722 

037  03 

054723 

037  02 

054724 

332  00 

054725 

037  02 

054726 

336  00 

054727 

037  02 

054730 

037  02 

054731 

260  17 

054732 

477  13 

054733 

260  17 

054734 

242  01 

054735 

202  01 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


055736 
074437 
070150 
000000 
074446 
077721 
072166 
077721 
074447 
074450 
055667 
07761 1 
063665 
000003 
077636 


054736 
054737 
054740 
054741 
054742 
054743 


054744 
054745 
054746 
054747 
054750 

054751 
054/52 
054753 
054754 
054755 
054756 

054757 
054760 


054761 
054762 


350  00  0  00  000013 
303  13  0  00  000007 
254  00  0  00  055070 
200  01  0  00  077636 
4:>-  01  0  00  000013 
200  00  0  01  100747 


205  01  0  00  000010 
260  17  0  00  057135 
254  00  0  00  055030 
254  00  0  00  054744 
254  00  0  00  054757 


200  01 
550  10 
200  00 
270  00 
202  00 
254  00 


0  00  077636 
0  01  101047 
0  10  000017 
0  00  073053 
0  10  000017 
0  00  054736 


603  00  0  00  040000 
254  00  0  00  055046 


606  01  0  00  004000 
254  00  0  00  054751 


•  /If************************************************************************ 
i*DSKATN  —  ROUTINE  TO  PROCESS  DISK  ATTENTION  INTERRUPTS 

;^************************************************************************ 


DSKATN:  SETZM 
MOVE 
TRNE 
JRST 


ATNHF6 
DATTN5 
377 
ATAOK 


CLEAR  THE  HEADER  PRINT  FLAG 
GET  DATA  FROM  ATTN  SUM.  REG. 
ANY  DRIVE  CAUSE  ATTENTION?? 
YES  -  PROCESS  AN  ATTENTION 


ATAND : 


ATAND1 


GO 

PMSG 

LDB 

PNT3 

PMSG 

SKIPE 

PMSG 

SKIPN 

PMSG 

PMSG 

GO 

SETOB 

GO 

LSH 

MOVEM 

AOS 

CAILE 

JRST 

MOVE 

I  OR 

MOVE 


ATAHDR  ; PRINT  ATTN  INTERRUPT  HEADER  MESSAGE 

<*GOT  AN  ATTENTION  INTERRUPT  FROM  MBC  > 
[POINT  9.MBCNJ1]      ;GET  MBC  DEVICE  CODE  » 

;PRINT  IT 
<(RH> 
RHIO 
<10> 
RHIO 
<20> 

<)  BUT  NO  DRIVE  RESPONDS  '^   -  ATTEMPTING  TO  ANALYZE  -^> 
JUNK 


DRIVE, FLAG* 
CHNSEL 
AC1,3 
AC1,MBCNUM# 

DRIVE 
DRIVE, 7 
ATANDX 
AC1,MBCNUM 
AC1, DRIVE 
DSBTBL(ACI) 


.•CAPTURE  THE  DRIVE  ON  THIS  PORT 


ATAND2:  MOVSI 
GO 

JRST 
JRST 
JRST 

ATANDP:  MOVE 
HRRZ 
MOVE 
ADD 
MOVEM 
JRST 

ATAND3:  TLNE 
JRST 


AC1,(DRCR!1B14) 

DRREG 

ATAND4 

ATAND2 

ATAND3 

ACKMBCNUM 

CSBP,CSBTBL(AC1) 

.PIPCT(CSBP) 

i:iB0!lB35] 

.PIPCT(CSBP) 

ATANDl 

(.PWR) 
ATAND5 


GET  MBC  UNIT  NUMBER 
POSITION  IT 
AND  SAVE  IT 

UPDATE  DRIVE  * 

LEGAL  VALUE?? 

NO  -  DONE  WITH  THIS  MBC  UNIT 


;GET  DRIVE  STATUS  BITS  FROM  TABLE 


SETUP  TO  READ  DRIVE  CONTROL  REGISTER 
DO  IT! 

CBTO!  -  DRIVE  HAD  NO  RESPONSE 
READ  ERROR  -  TRY  AGAIN 


GET  THE  MBC  UNIT  H 

LOAD  THE  CSB  POINTER 

GET  THE  POSITION  COUNT 

INDICATE  A  FUNNY  INTERRUPT  EXPECTED 

SAVE  IT 


;WAS  DRIVE  POWERED  UP?? 
;YES  -  LOOK  FOR  DRIVE  ERRORS 


;DRIVE  POSSIBLY  JUST  POWERED  UP  -  TRY  TO  PUT  IT  ONLINE 


TRNN 
JRST 


AC1,DVA 
ATANDP 


;0N  THE  CORRECT  PORT?? 
;N0 


'1 
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SEQ  0502 


15966 

15967 

15968 

15969 

15970 

15971 

15972 

15973 

15974 

15975 

15976 

15977 

15978 

15979 

15980 

15981 

15982 

15983 

15984 

15985 

15986 

15987 

15988 

15989 

15990 

15991 

15992 

15993 

15994 

15995 

15996 

15997 

15998 

15999 

16000 

16001 

16002 

16003 

16004 

16005 

16006 

16007 

16008 

16009 

16010 

16011 

16012 

16013 

16014 

16015 

16016 

16017 

16018 

16019 

16020 


054763 
054764 
054765 
054766 
054767 
054770 
054771 

054772 
054773 
054774 
054775 
054776 
054777 
055000 

055001 

055002 

055003 

055004 

055005 

055006 

055007 

055010 

055011 

055012 

055013 

055014 

055015 

055016 

055017 

055020 

055021 

055022 

055023 

055024 

055025 

055026 

055027 

055030 
055031 
055032 
055033 
055034 
055035 
055036 
055037 
055040 
055041 
05504P 
055043 


260  17 
205  01 
260  17 
254  00 
254  00 
602  01 
254  00 


0 
0 
0 
0 
0 
0 
0 


260  17  0 
205  01  0 
260  17  0 
254  00  0 
254  00  0 
602  01  0 
476  00  0 

037  00  0 
260  17  0 
037  02  0 
434  13  0 
200  00  0 
602  01  0 
037  02  0 

602  01  0 
661  00  0 
661  00  0 

606  00  0 
541  00  0 
20?  00  0 
4ui  00  0 
202  13  0 

603  00  0 
037  02  0 
037  00  0 
405  13  0 
200  00  0 
602  00  0 
254  00  0 
254  00  0 

434  13  0 

200  00  0 

607  00  0 
254  00  0 

0 
0 
260  17  0 
037  02  0 
200  00  0 
00  0 


402  00 
037  00 


621 

202  00  0 

260  17  0 


00  056014 
00  010000 
00  057135 
00  055030 
00  054764 
00  040000 
00  054763 

00  056010 
00  010000 
00  057135 
00  055030 
00  054773 
00  001000 
00  077714 

00  030242 
00  054607 
00  074461 
00  077636 
13  100747 
00  010000 
00  074464 
00  000100 
00  100000 
00  040000 
00  777777 
00  100636 
13  100747 
00  077611 
00  077651 
00  100000 
00  074467 
00  030242 
00  000007 
00  077563 
00  000377 
00  055454 
00  055305 

00  077636 
13  100747 
00  040000 
00  055044 
00  077611 
00  030242 
00  054607 
00  074472 
13  100747 
00  540000 
13  100747 
00  056577 


055044  405  13  0  00  000007 


GO 

MOVSI 

60 

JRST 

JRST 

TRNE 

JRST 

60 

MOVSI 

60 

JRST 

JRST 

TRNE 

SETOM 

ATAN3A:  PCRL 
60 
PMS6 
lOR 
MOVE 
TRNE 
PMS6 
TRNE 
TLO 
TLO 
TRNN 
HRRI 
MOVEM 
SETZM 
MOVEM 
TLNE 
PMS6 
PCRL 
AND  I 
MOVE 
TRNE 
JRST 
JRST 

ATAND4:  I OR 
MOVE 
TLNN 
JRST 
SETZM 
PCRL 
60 

PMSG 
MOVE 
TLZ 
MOVEM 
60 


DRVCLR 

ACU(DRSR) 

DRRE6 

ATAND4 

.-3 

AC1,CERR 

.-6 

PAKAK 

AC1,(DRSR) 

DRRE6 

ATAND4 

.-3 

AC1,P6M 

RELSF6 


PNTDRV 

<HAS  POWERED  UP> 

DRIVE, MBCNUM 

DSBTBL( DRIVE) 

AC1,M0L 

<  &  HEADS  LOADED> 
AC1.VV 

(.ONLN) 

(.PWR) 

-1 

SNAP 

DSBTBL(DRIVE) 

FLA6 

DRIVE, NEWDRV 

(.ONLN) 

<  AND  IS  ON-LINE> 

DRIVE-7 

DATTN5 

377 

ATAP4 

ATAHLT 

DRIVE, MBCNUM 

DS8TBL(DRIVE) 

(.PWR) 

ATAN4A 

FLAG 


.•ISSUE  A  DRIVE  CLEAR  COMMAND 
;READ  THE  STATUS  RE6ISTER  IN  DRIVE 


DRIVE  "CBTO"  -  POWERED  DOWN 
READ  ERROR  DETECTED  -  TRY  A6AIN 
DRIVE  COMPOSITE  ERROR  DETECTED?? 
YES  -  ISSUE  DRIVE  CLEAR  A6AIN 


;AND  A  PACK  ACKN0WLED6E  COMMAND 


READ  STATUS  RE6ISTER  A6AIN 
NO  RESPONSE  FROM  DRIVE? 
ERROR  -  READ  A6AIN 
DRIVE  IN  A/B  MODE?? 
YUP 


;6ET  DRIVE  TABLE  STATUS 
;DRIVE  MEDIUM-ON-LINE  SET?? 

DRIVE  PACK  ACKN0WLED6E  FAIL?? 

INDICATE  THE  DRIVE  EXISTS  -  ON  LINE 

INDICATE  POWER  UP 

ANY  ASSI6NED  DSB  AREA?? 

NO  -  MAKE  ONE 

SAVE  UPDATED  STATUS 

FLA6  THIS  DRIVE  CAUSED  ATA 

THIS  DRIVE  WAS  NOT  U*  STARTIN6  CONFIGURATION 

DRIVE  ON  LINE?? 


STRIP  TO  JUST  1  DI6IT 
6ET  THE  ATTENTION  STATUS 
ANY  ATTENTIONS  UP?? 
YES 
NO 

SETUP  TO  LOOK  AT  DRIVE  TABLE 
6ET  STATUS  FROM  TABLE 
POWER  UP  SET?? 
NO 


PNTDRV 

<  POWERED  DOWN 

DSBTBL (DRIVE) 

(.OPRl. ONLN!. PWR) 

DSBTBL(DRIVE) 

CLRALL 


;PRINT  THE  DRIVE  # 
AND  ATA  BIT  GOT  RESET*> 

GET  DRIVE  TABLE  STATUS 

CORRECT  IT 

RE-SAVE  STATUS 

CLEAR  ALL  DRIVE  CMDS  PENDING 


ATAN4A:  AND!    DRIVE, 7 


r 


DDRPl  - 
DDRP13 

16021 

16022 

16023 

1602A 

16025 

16026 

16027 

16028 

16029 

16030 

16031 

16032 

16033 

1603A 

16035 

16036 

16037 

16038 

16039 

16040 

160A1 

160A2 

16043 

16044 

16045 

16046 

16047 

16048 

16049 

16050 

16051 

16052 
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SEQ  0503 


055045  254  00  0  00  054736 


JRST    ATAND1 
.•LOOK  FOR  DRIVE  ERROR  IN  DRIVE  STATUS  REGISTER 


055046 
055047 
055050 
055051 
055052 
055053 
055054 
055055 
055056 
055057 
055060 
055061 
055062 
055063 
055064 

055065 
055066 
055067 

055070 
05507-; 
05507? 
0550713 
055074 
055075 
055076 


205  01  0 
260  17  0 
254  00  0 
254  00  0 
606  01  0 
254  00  0 
260  17  0 
254  00  0 
037  02  0 
260  17  0 
037  02  0 
260  17  0 

201  00  0 

202  00  0 
254  00  0 


00  010000 
00  057135 
00  055030 
00  055046 
00  040000 
00  054736 
00  057050 
00  055030 
00  074501 
00  054607 
00  074502 
00  056047 
00  000001 
00  077611 
00  054736 


ATAND5: 


337  00  0  00  077611 
037  02  0  00  074506 
254  00  0  00  055454 


332  00  0 
254  00  0 
037  02  0 
135  00  0 
037  03  0 
037  02  0 
2:>  00  0 


00  077611 
00  055065 
00  074516 
00  070150 
00  000000 
00  074527 
00  055454 


ATANX: 


ATANDX 


MOVSI 

60 

JRST 

JRST 

TRNN 

JRST 

60 

JRST 

PMS6 

60 

PMS6 

60 

MOVE  I 

MOVEM 

JRST 

SKIP6 

PMS6 

JRST 

SKIPE 

JRST 

PMS6 

LDB 

PNT3 

PMS6 

JRST 


AC1,(DRSR) 

DRRE6 

ATAND4 

ATAND5 

ACUCERR 

ATAND1 

SNAPS 

ATAND4 

<*—  > 

PNTDRV 

<DETECTED  AN  ERROR 

STATUS 

1 

FLA6 

ATAND1 


— •> 


.-PREPARE  TO  READ  DRIVE  STATUS  RE6 

.-READ  THE  RE6ISTER 

.•FATAL  ERROR  -  NO  RESPONSE 

;READ  ERROR  -  TRY  A6AIN 

.•DRIVE  HAVE  AN  ERROR? 

;N0  -  LOOK  AT  THE  NEXT  DRIVE 

;YES  -  READ  ALL  RE6ISTERS  THIS  DRIVE 

.•DRIVE  HAD  A  CBTO 

;PRINT  THE  DRIVE  ft 

.•PRINT  DRIVE  STATUS  FOUND 

.•UPDATE  THE  DETECTION  FLAG 
;LOOK  AT  OTHER  DRIVES 


FLA6 

<*FAILED  TO  DETERMINE  CAUSE  OF  ATTENTION!* > 

ATAP4 

FLA6  ;ANY  DRIVE  CAUSE  ATA?? 

ATANX 

<*EXTRANEOUS  ATTENTION  INTERRUPT. . .NO  DRIVE  ON  MBO 

[POINT  9.MBCN.11J 

<HAS  CHAN6ED  STATE?'^  —  POSSIBLE  POWER  GLITCH  (OFF-ON-OFF  )*> 
ATAP4 


DDRPI  SUBROUTINES  (RP04/05/06  RELIABILITY) 
RPOA  CHANNEL  5  INTERRUPT  SERVICE 


DECFLO  VER  00.12  12-APR-78  08:AA  PAGE  18 


CHANNEL  5 

ATTENTION  INTERRUPT  PROCESSING 
I  DSKATN 


SEQ  050A 


DATTN 
=  0 


\N0 
\ 


*********** 
•♦♦ATAOK  *♦ 


I  YES 

I     ATAND 
*********************** 

♦MSG.-GOT  DRV  ATTN  INT  ♦ 
•  FR«  MBC  XXX  NO  DRV  ♦ 
*RESP-ATTMPT  TO  ANALYZ* 

*********************** 

JUNK    I 
***************** 

♦  PRINT  JUNK   ♦ 

*  THINGS     ♦ 


***************** 

I 

***************** 

#  -1->DRIVE 

•  0->FLAG  # 

* 
* 

* 

* 

***************** 

I  ATAND1 

***************** 

* 

* 

♦DRIVE^1->DRIVE 

* 

* 

* 

***************** 

I 

/     DRIVE 

/      NOT  > 

/      THAN  8 

\YES 

\ 

I  NO 

I  ATAND2 

***************** 

»     READ      • 

#  DRIVE     ♦ 

•  STATUS     ♦ 
***************** 

I 

/    DRV  GONE 
/      (C8T0) 
/         ? 

\N0 

\ 

I  YES 

*********** 

**ATAND^  *• 

*********** 

/ 


I  ATANDX 


FLAG 
=0 


I  NO 
I< 

I 
*********** 

♦♦HLTCHK  ♦* 
*********** 


******♦*♦*♦ 

•>**ATAND3  ♦♦ 
******* **** 


\YES 
\  — 
\ 


*********************** 

♦  MSG:  ATN  INT  NO  DRV  * 

••  ON  M8C  *X  CH6  STAT  ♦ 

♦PWR  GLITCH  OFF-ON-OFF* 

*********************** 

I 


DDRPl   SUBROUTINES   (RPOA/05/06  RELIABILITY) 
RPOA   CHANNEL  5   INTERRUPT   SERVICE 


DECFLO  VER     00.12  12-APR-78  08:44     PAGE  19 


SEQ  0505 


ATAND4 


ATAND3 


NO         / 


DSBTBL 

.pyR=i 

9 


****««««t**       NO         / 
♦  ♦ATAND1   *♦< / 


DSBTBL 

.pyR=o 


1   YES  =1 

*********************** 

*  MS6:DRV  PURED  DUN  ft  * 

*  ATA  BIT  GOT  RESET     * 

*  RESET  DSBTBL   STATUS   ♦ 
*********************** 

I 
***************** 

*  ♦ 

t         0->FLAG         ♦ 

*  * 
***************** 

>I 

*********** 

♦♦ATAND1    *♦ 
*********** 


1   YES  =0 
***************** 

•ISSUE  PACKACK  ft* 

•CLR  DRV  TO  TRY  ♦ 

♦TO  PUT  IT  ONLNE* 
***************** 

I     ATAN3A 
***************** 

*  MSG:DRV  XX       ♦ 

♦  POWERED  UP...    * 

*  DRIVE  >NEWDRV  • 
***************** 

I 
***************** 

♦0->FLAG  ft  RESET* 

♦  DSBTBL   STATUS  ♦= 

*BUILD  DSB  SNAP  ♦ 
***************** 

I 

*********** 

**HLTCHK   *♦ 

*********** 


»-Miii)u}ititt>mj>mfmmmtt****^ 


r  ■ii.iiifiiwwiW*'" 
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SEQ  0506 


16055 

16056 

16057 

16058 

16059 

16060 

16061 

16062 

16063 

1606A 

16065 

16066 

16067 

16068 

16069 

16070 

16071 

16072 

16073 

16074 

16075 

16076 

16077 

16078 

16079 

16080 

16081 

16082 

16083 

1608A 

16085 

16086 

16087 

16088 

16089 

16090 

16091 

16092 

16093 

1609A 

16095 

16096 

16097 

16098 

16099 

16100 

16101 

16102 

16103 

1610A 

16105 

16106 
16107 

16108 
16109 


055077 
055100 
055101 
055102 
055103 
055104 
055105 


?61 
135 
243 
262 
260 
037 
254 


17 
12 
12 
17 
17 
02 
00 


0  00 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


055106 

262  17 

055107 

213  00 

055110 

271  13 

055111 

260  17 

055112 

260  17 

055113 

550  10 

055114 

242  01 

055115 

434  13 

055116 

550  11 

055117 

336  00 

055120 

201  11 

055121 

205  01 

055122 

260  17 

055123 

254  00 

055124 

254  00 

055125 

602  01 

055126 

254  00 

055127 

017  02 

055130 

260  17 

055131 

0:)^  02 

055132 

336  00 

0551!;3 

254  00 

055134 

332  00 

0551315 

254  00 

0551!16 

261  17 

055137 

260  17 

055140 

200  02 

055141 

307  02 

055 142 

55!;  00 

055143 

200  00 

055144 

370  00 

055145 

!;i6  00 

055146 

402  00 

055147 

262  17 

055150 

402  00 

055151 

200  00 

055152 

606  00 

055153 

254  00 

0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
01 
00 
00 
13 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000012 
074541 
055106 
000012 
055736 
074542 
054720 

000012 
00001 3 
000043 
055771 
063665 
101047 
000003 
000001 
100747 
00001 1 
100636 
000010 
057135 
055416 
055121 
004000 
055132 
074553 
054607 
074272 


10 
00 
10 
00 
00 
00 
10 
00 
01 
00 
00 
00 
00 
00 
00 
0) 
00 
00 


00001 7 
055150 
000016 
05i;i50 
000002 
063665 
00001 7 
000001 
101047 
100005 
000000 
000001 
100005 
00000? 
077626 
077524 
000020 
055371 


.-HERE  TO  PROCESS  AN  ATTENTION 
;IN  '•DATTN5"  LOCATION. 


INTERRUPT  FROM  A  :',NOWN  DRIVE  -  AS  INDICATED 


ATAOK : 


ATA. OK: 


PUT 

LD6 

JFFO 

GET 

GO 

PMSG 

JRST 

GET 

MOVNS 

ADD  I 

GO 

GO 

HRRZ 

LSH 

I  OR 

HRRZ 

SKIPN 

MOVE  I 

MOVSI 

GO 

JRST 

JRST 

TRNE 

JRST 

PMSG 

GO 

PMSG 


DRIVE'I  'SAVE  AN  AC 

DRIVE-1, [POINT  8,DATTN5,55]     ;GET  ATTN  STATUS  BITS 

DRIVE-1,ATA.0K         ;GET  THE  DRIVE  WHO  GAVE  ATTN 

DRIVE-1  .-RESTORE  THE  SAVED  AC 

ATAHDR 


.*•• 


JFFO"  FAILED  -  "DATTN5"  WAS  MODIFIED??  (PGM  ERROR)> 
ATAND^I  ;G0  ANALYZE  FURTHER 


DRIVE-1 

DRIVE 

DRIVE. *D35 

ATACLR 

CHNSEL 

CSBP-CSBTBL(ACl) 

AC1.3 

DRIVE. ACl 

DSBP.DSBTBL(DRIVE) 

DS8P 

DS8P.SNAP 

AC1.(DRCR!1B14) 

DRREG 

ATANDE 

.-3 

ACl.DVA 

AT. OKI 

<**??  DRIVE  ON  OTHER 

PNTDRV 

<  ??*> 


A  NEG.  0 
LEGAL  M   (0  TO 
IN  "DATTN5" 


7) 


RESTORE  SAVED  AC 
MAKE  BIT  POSITION 
"DRIVE"  NOW  HAS  A 
CLEAR  THE  ATA  BIT 
DETERMINE  RH  # 
SETUP  CSB  POINTER 
POS  IT 

MAKE  TWO  DIGIT  # 
SETUP  THE  DSB  POINTER 
ANY  DSB  AREA?? 
NO  -  MAKE  ONE  FOR  NOW 

CAPTURE  THE  PORT  (SHOULD  HAVE  IT  ALREADY 
READ  THE  REG 

FATAL  -  DRIVE  NOT  THERE?? 
READ  ERROR  -  TRY  AGAIN 
HAVE  THE  PORT?? 
.YES 

PORT  WHILE  SERVICING  AN  "ATTENTION"  FOR  > 
PRINT  THE  DRIVE  0 


;SEE  IF  MBC  IS  BUSY  AT  ATTN  TIME 


AT. OKI:  SKIPN 
JRST 
SKIPE 
JRST 
PUT 
GO 

MOVE 
CAIG 
HRRZS 
MOVE 
SOS 
CAMN 
SETZM 
GET 

AT.0K2:  SETZM 
MOVE 
TRNN 
JRST 


.PIPCT(CSBP) 

AT.0K2 

.BSYCT(CSBP) 

AT.0K2 

AC2 

CHNSEL 

AC2..PIPCT(CSBP) 

AC2.1 

CSBT8L(AC1) 

ACO.TIMOUT 

AC0.AC1 

TIMOUT 

AC2 

IDRCLR<^ 

CCCNI5 

BUSY 

ATANDT 


EXPECTED? 

NO!! 

DOING  A  DATA  XFR 

YES 

GET  CHAN  0 

GET  POS  IN  PROG  CNT 

MORE  THAN  ONE 

NO  STOP  THE  CLOCK 

GET  TIMOUT  LOC 

MAKE  IT  REAL  CHAN* 

FALSE  TIMOUT 

YES 


CLEAR  DRIVE  CLR  INH 

GET  MBC  CONI 

IS  MBC  BUSY?? 

NO  -  PROCESS  AS  A  NON 


FLAG 


DATA  XFR  ATTN 


/ 


;M8C  IS  BUSY  -  LOAD  DRIVE  #  FROM  "CPTCR5"  LOCATION 


.....J 


.J 


— , 
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SEQ   0507 


16110 

16111 

16112 

16113 

16114 

16115 

16116 

16117 

16118 

16119 

16120 

16121 

16122 

16123 

1f124 

16125 

16126 

16127 

16128 

16129 

16130 

16131 

16132 

16133 

16134 

16135 

16136 

16137 

16138 

16139 

16140 

16141 

16142 

16143 

16144 

16145 

16146 

16147 

16148 

16149 

16150 

16151 

16152 

16153 

16154 

16155 

16156 

16157 

16158 
16159 
16160 
16161 
16162 
16163 
16164 


055154 
055155 
055156 
055157 
055160 
055161 


055162 
055163 
055164 
055165 

055166 
055167 
055170 
055171 


055172 
055  1 73 
055174 
055175 
055176 
055177 
055200 
055201 
055202 
055203 
055204 
055205 
055206 
055207 
055210 
055211 
055212 
055213 
055214 
055215 


554  00 
405  00 
200  01 
405  01 
312  00 
254  00 


0  00  077556 
0  GO  000007 
0  00  000013 
0  00  000007 
0  00  000001 
0  00  055371 


205  01  0  00  010000 
260  17  0  00  057135 
254  00  0  00  055254 
254  00  0  00  055162 

606  01  0  00  010000 
254  00  0  00  055216 
606  Oi  0  00  040000 
254  00  0  00  055240 


260 
606 
254 
260 
254 
260 
254 
260 
037 
53i 
254 
200 
661 
202 
260 
260 
260 
332 
260 
254 


17 

01 

00 

17 

00 

17 

00 

17 

02 

00 

00 

00 

00 

00 

17 

17 

17 

00 

17 

00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
13 
00 
13 
00 
00 
00 
00 
00 


0  00 


063540 
000020 
055270 
05^050 
055254 
055315 
055270 
055765 
074566 
077536 
055207 
100747 
000020 
100747 
056676 
055667 
056047 
077536 
055357 

055270 


055216 
055217 


055220 
055221 
055222 
055223 
055224 


602  01  0  00  040000 
254  00  0  00  055270 


260  17  0  00  057050 
254  00  0  00  055254 
476  00  C  00  077626 
260  17  0  00  055315 
25^  00  0   00  055270 


ATAXFR:  HLR2 
ANDI 
MOVE 
ANDI 
CAME 
JRST 


CPTCR5 

7 

ACl, DRIVE 

AC1,7 

AC0,AC1 

ATANDT 


;ATTN  IS  FROM  THE  BUSY  DRIVE  - 


MOVSI 
60 

JRST 
JRST 

TRNN 
JRST 
TRNN 
JRST 


AC1,(DRSR) 
DRRE6 
ATAXF4 
.-3 

ACnWOL 
ATAXF2 
AC1,CERR 
ATAXF3 


GET  DRIVE  # 

MAKE  IT  SINGLE  DIGIT  M 

SAME  DRIVE  BUSY  AS  ATTN?? 

NO  -  HANDLE  AS  A  NON  DATA  XFR  ATTN 


FIND  OUT  WHAT'S  WRONG 

;READ  DRIVE  STATUS 

;CBTO  ERROR  -  GONE  AWAY 
.•PARITY  ERROR  TRY  AGAIN 


DRIVE  STILL  ONLINE 

NO 

COMPOSITE  ERROR  SET 

NO  SPURIOUS  ATA 


;POSST^.Y  FAILED  TO  START  XFf*  DUE  TQ  DRIVE  ERROR 


GO  .CONI 

TRNN  AC1,BUSY 

JRST  ATAXFX 

GO  SNAPS 

JRST  ATAXF4 

GO  CONSTP 

JRST  ATAXFX 

GO  ATTNHD 

PMSG  <  POSSIBLY  FAILED 

SKIPE  CFAIL 

JRST  .+3 

MOVE  DSBT8L (DRIVE) 

TLO  (.XFRER) 

MOVEM  DSBT8L(DRIVc) 

GO  CLRCMD 

GO  JUNK 

GO  STATUS 

SKIPE  CFAIL 

GO  CFERR 

JRST  ATAXFX 


TO 


GET  UPDATED  CONI  STATUS 

STILL  BUSY 

NO  ASSUME  DONE  INTR  WILL  COME 

YES  GET  STATUS 

CBTO  ERROR 

ISSUE  CONO  STOP 


:PRINT  ATA  HEADER 
STaAt  XFR   DUE  TO  ERROR> 
CONO  STOP  OK  ? 
NO  DONT  UPDATE  TAOLE  STATUS 
GET  TABLE  STATUS 
SET  XFR  ERROR 
SAVE  UPDATED  STATUS 
CLEAR  THE  COMMAND 


PRINT  THE  STATUS 

R  PORT  CONO  STOP 

Y.S 

NOW  EXIT 


PROB 


.•DRIVE  IS  NOT  ONLINE 


ATAXF2:  TRNE 
JRST 


AC1.CERR 
ATAXFX 


.•COMPOSITE  ERROR  SET 

;YES  ASSUME  DONE  INTR  WILL  COME 


;0RIVE  HAS  GONE  OFF-LINE  WlTHGui  ANY  ERROR  CONDITION 


65  SNAPS 

JRST  ATAXF4 

SETOM  IDRCLR 

GO  CONSTP 

JRST  ATAXM 


SNAPSHOT  STATUS 

CBTO  ERROR 

INHIBIT   DRIVE   CLR 

ISSUE    CONO  STOP 

XfR   TERW  EXIT   AM   SERVICE 
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SEQ  0508 


DDI 
DDI 


16165 

16166 

16167 

16168 

16169 

16170 

16171 

16172 

16173 

16174 

16175 

16176 

16177 

16178 

16179 

16180 

16181 

16182 

16183 

16184 

16185 

16186 

16187 

16188 

16189 

16190 

16191 

16192 

16193 

16194 

16195 

16196 

16197 

16198 

16199 

16200 

16201 

16202 

16203 

16204 

16205 

16206 

16207 

16208 

16209 

16210 

16211 

16212 

16213 

16214 

16215 

16216 

16217 

16218 

16219 


055225 
055226 
055227 
055230 
055231 
055232 
055233 
055234 
05S235 
055236 
055237 


055240 
055241 
055242 
055243 
055244 
055245 
055246 
055247 
055250 
055251 
055252 
055253 


055254 
055255 
055256 
055257 
055260 
055261 
055262 
055263 
055264 
055265 
055266 
055267 


055270 
055271 
055272 
055273 
055274 
055275 
055276 
055277 
055300 
055301 
055302 
055303 


260  ^?  0 
037  02  0 
200  00  0 
621  00  0 
202  00  0 
260  17  0 
260  17  0 
260  17  0 
332  00  0 
260  17  0 
254  00  0 


260  17  0 
254  00  0 
260  17  0 
254  00  0 
260  17  0 
037  02  0 
260  17  0 
260  17  0 
260  17  0 
332  00  0 
260  17  0 
254  00  0 


476  00  0 
2oJ  17  0 
254  00  0 
260  17  0 
037  02  0 
260  17  0 


332  00 
260  17 
200  00 
621 
202  00  0 
260  17  0 


0 
0 
0 
00  0 


00  055765 
00  074576 
13  100747 
00  500000 
13  100747 
00  056676 
00  055667 
00  056047 
00  077536 
00  055357 
00  055270 


00  057050 
00  055254 
00  055315 
00  055270 
00  055765 
00  074606 
00  055667 
00  056047 
00  056676 
00  077536 
00  055557 
00  055270 


00  077626 
00  055315 
00  055270 
00  055765 
00  074616 
00  055667 
00  077536 
00  055357 
13  100747 
00  540000 
13  100747 
00  056676 


336  00 
332  00 
254  00 
260  17 


0 
0 
0 
0 


553  00  0 
200  00  0 
370  00  0 
316  00  0 
402  00  0 
200  00  0 
602  00  0 
254  00  0 


10  000016 
10  000017 
00  055277 

00  063665 

01  101047 
00  100005 
00  000000 
00  000001 
00  100005 
00  077563 
00  000377 
00  055077 


GO  ATTNHD 

PMSG  <  HAS  GONE  AUAY 

MOVE  DSBTBL(DRIVE) 

TLZ  (.OPR!.ONLN) 

MOVEM  DSBTBL (DRIVE) 

GO  CLRCMD 

GO  JUNK 

GO  STATUS 

SKIPE  CFAIL 

GO  CFERR 

JRST  ATAXFX 


;PR1NT  THE  HEADER 
(MOL  =■  0)  DURING  A  DATA  XFR  > 
;GET  TABLE  STATUS 
;UPDATE  THE  STATUS 

.-CLEAR  ALL  COMMANDS  TO  THIS  DRIVE 

;PRINT  THE  STATUS 
;CONO  STOP  FAIL  ? 
;YES  REPORT  ERROR 
.-CHECK  FOR  MORE  ATA'S 


;ATA  FROM  BUSY  DRIVE  WITHOUT  ANY  ERROR  CONDITION  +  M0L=1 


ATAXF3:  GO  SNAPS 

JRST  ATAXF4 

GO  CONSTP 

JRST  ATAXFX 

GO  ATTNHD 

PMSG  <  HAS  ASSERTED 

GO  JUNK 

GO  STATUS 

GO  CLRCMD 

SKIPE  CFAIL 

GO  CFERR 

JRST  ATAXFX 

.-DRIVE  HAS  POWERED  DOWN 


ATAXF4:  SETOM  IDRCLR 

GO  CONSTP 

JRST  ATAXFX 

GO  ATTNHD 

PMSG  <  HAS  POWERED  DOWN 

GO  JUNK 

SKIPE  CFAIL 

GO  CFERR 

MOVE  DSBTBL(DRIVE) 

TLZ  (.OPRI.ONLNl.PWR) 

MOVEM  DSBTBL(DRIVE) 

GO  CLRCMD 


ATAXFX:  SKIPN  .BSYCT(CSBP) 

SKIPE  .PIPCT(CSBP) 

JRST  .t5 

GO  CHNSEL 

HRRZS  CSBTBL(ACI) 

MOVE  ACO.TIMOUT 

SOS  ACQ 

CAMN  ACO.ACl 

SETZM  TIMOUT 

MOVE  DATTN5 

TRNE  377 

JRST  ATAOK 


SNAPSHOT  THE  STATUS 
CBTO  ERROR 
ISSUE  CONO  STOP 
XFR  TERM  EXIT  ATA  SERVICE 
PRINT  THE  HEADER 
ATA  WHILE  BUSY  WITH  CERR  =  0  > 


PRINT  THE  STATUS 
CLEAR  THE  COMMAND 
CONO  STOP  FAIL  ? 
YES  REPORT  ERROR 
CHECK  FOR  MORE  AfA'S 


INHIBIT  DRIVE  CLEAR 
ISSUE  CONO  STOP 
XFR  TERM  EXIT  ATA  SERVICE 
PRINT  HEADER 
DURING  A  DATA  XFR  > 

;CONO  STOP  FAIL  ? 
.-YES  REPORT  ERROR 
.-GET  TABLE  STATUS 

.-UPDATE  THE  STATUS 

.-CLEAR  ALL  COMMANDS  TO  THIS  DRIVE 


ANY  BUSY  CNT 

OR  P0STI0NIN6  CNTS 

YES 

NO  STOP  I  HE  CLOCK  " 

GET  TIMOUT  LOC 

MAKE  REAL  CHAN  # 

FALSE  TIMOUT 

YES 

ANY  MORE  ATA'S 

YES 


IMER 


r 


DDRPI  - 
DDRPI3 

16220 
16221 
16222 
16223 
16224 
16225 
16226 
16227 
16228 
16229 
16230 
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SEQ  0509 


055304     254  00  0  00  054317 


JRST    DISMI1 


;N0  EXIT  INTR  SERVICE 


055305 
055306 
055307 
055310 
055311 
055312 
055313 
055314 


260  17 
260  17 
200  00 
607  00 
254  00 
661  00 
202  00 
254  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
01 
00 
00 
00 
01 


0  00 


056573 
063665 
101047 

054317 
400000 
101047 
054317 


ATAHLT: 


60 

HLTSW 

GO 

CHNSEL 

MOVE 

CSBTBL(ACI) 

TLNN 

M7777 

JRST 

DISMI1 

TLO 

(1B0) 

MOVEM 

CSBT8L(AC1) 

JRST 

DISMI1 

TO  HALT  ON  ERROR 
COUNT 


;SEE  IF  OPR  WANTS 

;6ET  THE  MBC  UNIT 

;AND  THE  MBC  TICK 

;ANY  LEFT? 

;N0  -  EXIT 

;.'c'S  -  RESET  THE  CLOCK  TO  TICK 

;AND  SAVE  IT 

;EXIT  THE  ATTENTION  SERVICE 


DO 
RP 


.J 


DDRPl  SUBROUTINES  (RPOA/05/06  RELIABILITY) 
RPOA  CHANNEL  5  INTERRUPT  SERVICE 


DECFLO  VER  00.12  12-APR-78  08:A4  PAGE  20 


SEQ  0510 


NO 

I 
I 
I 
I 


I 
I 
V 


— / 
/ 


♦♦ATAXFX  ** 
*********** 

I< 

♦CLR  ATA  BIT  IN  ♦ 

♦  "DATTN"  FOR  ♦ 

♦  THIS  DRV    * 

I 

ATTN 
ALL  DONE 


I  YES 
*********** 

♦♦DISWIS  ♦♦ 

♦♦♦♦♦♦♦♦♦♦♦ 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


*********** 

♦♦ATAOK  *♦ 


**ATAOK  ♦* 
I 


BIT  FOUND  FOR  A  DRIVE 
IN  ••DATTN"  STORAGE 


*  CONVERT  DRIVE  #   * 

♦  FROM  JFFO  TO  REAL  * 
t      DRIVE  n  * 

I 

/    MBC  BUSY  \N0 

/    AT  ATN  TIME  \- 

/         •'  \ 


I  YES 

I  ATAXFR 

♦  DETERMINE   ♦ 

♦  WHO  :S  BUSY  ♦ 

♦  FROM  "CPTCR"  ♦ 


I 


/   THIS  DRIVE    \N0 
/   THE  BUSY  ONE    \- 
/         ?         \ 

I  YES 

***************** 

♦  READ  DRV    ♦ 

♦  STATUS  REG   ♦ 

♦  * 


I 


/ 


/ 


DRV 
CBTO 


\YES 
\— 
\ 


I  NO 


I  YES 


/ 


DRV 
MOL 

?!..... 

I  YES 

VALID  MBC 
CMD  TO  DRV 


\N0 
\- 
V 


\N0 
\- 


\ 


*********** 

•>**ATANDT  ♦* 
*********** 

HANDLE  A  NON-DATA 
ATTN  TYPE  INTERRUPT 
FROM  A  KNOWN  DRIVE 


ATAXF2 

***************** 

♦MSG:ATA  HEADER  * 
•>♦  MSG  SNAPSHOT     ♦ 

♦  DRV  REGS^JUNK  ♦• 

*♦♦**♦*♦♦******♦* 


*********** 

•>**ATAXF3  ♦• 
*********** 


I  ATAXF1 

*********************** 

♦  MSG: DRV  XX  POWERED  * 

♦  DOWN  IN  MIDDLE    * 

♦  OF  A  DATA  XFh    ♦ 
*********************** 


>I     ATAXFC 

*********************** 

♦  PR I  JUNK  DO  A  SNAPS  ♦ 

♦UPDATE  DSBTBL  STATUS  ♦ 

♦CLR  CMDS  TO  DRV  IN  Q  ♦ 
*********************** 

I 
*********** 

♦♦ATAXFD  ♦♦ 
*********** 


DDRPl  SUBROUTINES   (RPOA/05/06  RELIABILITY) 
RP04  CHANNEL  5   INTERRUPT  SERVICE 


DECFLO  VER     00.12  12-APR-78  08:AA     PAGE  21 


SEQ  0511 


ATAXF3 

♦PRI   ATA  HEADER  * 

♦  MSG  SNAPSHOT     * 

♦  ORV  REGS+JUNK   ♦ 

I 

/  DRV  \N0 

/       FUNCTION  BITS       \- 
/  =0  \ 


DC 
DC 

1 


YES 


ATAXFA 


♦MSGrXFR  CTL  REG* 

•>*REG*DRV  CTL  REG* 

*  NOT   IN  AGREE?   * 

I 


*«SG:PWR  GLITCH  ON-OFF* 

♦  -ON  ISSUE  A  PACK       * 

♦  ACKNOWLEDGE  * 
*********************** 

I 


I 
I 
I 
I 
I 
I 


.... >i     ATAXFB 

**»***♦»♦*»***♦♦* 

*  ISSUE  A         * 

*  DRIVE  ♦ 

*  CLEAR  * 

I 

I     ATAXFD 
***************** 

*  SET  XFRER  IN     * 

*  DSBTBL  DWN  CT  * 

*  BYCT   IN  CS8     * 

♦♦♦♦♦»♦♦♦♦♦»♦•♦♦♦ 

I 

tlttHttitltltitlt 

**ATAXFX   ♦* 


111  liiWirinTitMi  Mini 


L. 


r 


DDRPl  - 
DDRP13 

16233 

1623A 

16235 

16236 

16237 

16238 

16239 

162A0 

16241 

16242 

16243 

16244 

16245 

16246 

16247 

16248 

16249 

16250 

16251 

16252 

16253 

16254 

16255 

16256 

16257 

16258 

16259 

16260 

16261 

16262 

16263 

16264 

16265 

16266 

16267 

16268 

16269 

16270 

16271 

16272 

16273 

16274 

16275 

16276 

16277 

16278 

16279 

16280 

16281 

16282 

16283 

16284 

16285 

16286 

16287 
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•HERE  TO  ISSUE  CONO  STOP  iT  ABORT  ^HE  DATA  TRANSFER 

•  if  ********** t ******* t ****** ^t*** *********♦****♦*♦♦**♦♦**♦♦♦*** **♦*♦***♦**♦ 


SEQ  0512 


D[ 
D( 


055315  261  17  0  00  000002 

055316  261  17  0  00  000001 

055317  402  00  0  00  077536 
055320  7  004  20  0  00  000400 


055321 
055322 
055323 
055324 
055325 
055326 


260  17  0  00  063540 
602  01  0  00  000020 
254  00  0  00  055327 
7  004  20  0  00  000200 
350  00  0  17  77777t 
254  00  0  00  055353 


055327 
055330 
055331 
055332 
055333 
055334 
055335 
055336 
055337 
055340 
055341 


055342 
055343 
055344 
055345 
055346 
055347 
055350 
055351 
055352 

055353 
055354 
055355 
055356 

055357 
055360 
055361 


201  01  0 
260  17  0 
201  02  0 
260  17  0 
606  01  0 
365  02  0 


32S  02 
i^tz  00 
201  01 
260  17 
254  00 


00  000020 
00  063522 
00  005670 
00  063540 
00  000010 
00  055332 
00  055342 
00  077536 
00  000444 
00  063522 
00  055353 


201 
332 
201 
260 
332 
254 
260 
260 
370 


01 
00 
01 
17 
00 
00 
17 
17 
00 


0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
10 


734054 
077722 
001454 
063522 
077626 
055352 
056014 
056010 
000016 


7  004  20  0  00  00C200 
262  17  0  00  00000^ 

262  17  0  00  00000 5 

263  17  0  00  000000 

037  02  0  00  074625 
037  02  0  00  074636 
260  17  0  00  042657 


CONSTP:  PUT  AC2 

PUT  AC1 

SET2M  CFAIL 

CONO  PI, PIOFF 


;SAVE  THE  AC'S 

;INIT  FLAG 

;TURN  INTR  SYS  OFF 


.-CHECK  THE  RH  MAKE  SURE  IT'S  STILL  BUSY  IF  NOT  A  CHAN  4  INTR 
;HAS  OCCURED  EXIT  ATA  SERVICE  TO  AVOID  DOUBLE  REPORTING 


GO 

TRNE 

JRST 

CONO 

AOS 

JRST 


.CONI 

ACl.BUSY 

CONSTl 

PI.PION 

-2i?) 

CSTEX 


GET  CONI  STATUS 

STILL  BUSY 

YES  ISSUE  CONO  STOP 

NO  TURN  PI  SYS  ON 

TAKE  ^2  RTN 

EXIT  STOP  ROUTINE 


;RH  IS  STILL  BUSY  ISSUE  THE  CONO  STOP  ^  WAIT  FOR  DONE  TO  SET 


CONSTl : 


MOVE  I 

GO 

MOVE  I 

GO 

TRNN 

SOJGE 

JUMPGE 

SETOM 

MOVE  I 

GO 

JRST 


AC1,20 

.CONO 

AC2.*D3000 

.CONI 

ACMO 

AC2,.-2 

AC2..+5 

CFAIL# 

AC1,444 

.CONO 

CSTEX 


;DONE  IS  SET  CLEAR  ANY  ERRORS 


CSTEX: 


FERR: 


MOVE  I 

SKIPE 

MOVE  I 

GO 

SKIPE 

JRST 

i 

SOS 

CONO 
GET 
GET 
RTN 

PMSG 
PMS6 
GO 


AC1,734054 

RH20 

AC1J454 

.CONO 

IDRCLR 

.^3 

DRVCLR 

PAKAK 

.BSYCT(CSBP) 

PKPION 

ACT 

AC2 


WAIT  TIME 

GET  CONI  STATUS 

DONE  SET 

NO  TRY  AGAIN 

TIMED  OUT  ? 

YES  SET  FLAG 

RESET  INTR  ENABLES  FOR  RH 

EXIT 


SETUP  TO  CLEAR  RH  ERRORS 

SETUP  RH20  CLEAR 

INHIBIT  DRIVE  CLEAR  ? 
YES 

DO  PACK  ACK 

DOWN  CNT  BUSY  CNT 


TURN  PI  SYS  ON 


<**DONE  FAILED  TO  SET  AFTER  ISSUEING  CONO  STOP  !i:*> 
<THIS  DRIVE  WILL  BE  DESELECTED  FROM  TEST**> 
MBCCLR  .-CLEAR  THE  RH  (MASS  INIT) 


L. 


~~1 


DDRPl  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  Z53B(12A2)  15:51  28-Aug-85  Page  198-1 
DDRPI3  MAC     28-Aug-85  15:49        COMMON  DEVICE  INTERRUPT  HANDLER  (CHANNEL  5) 

;RESET  CHAN  CMDLST  POINTER 
•SAVE  IT 

) CLEAR  ALL  REMAINING  CMDS 
; CLEAR  INRT  COUNTS 


SEQ  0513 


Dl 
Dl 


16288 

055362 

260  17  0  00  063665 

m 

CHNSEL 

16289 

055363 

550  00  0  01  100712 

HRRZ 

CADTBL(ACI) 

16290 

055364 

202  00  0  01  100672 

MOVEM 

SCLP(ACI) 

16291 

055365 

260  17  0  00  056577 

GO 

CLRALL 

16292 

055366 

402  00  0  10  000016 

SETZM 

.BSYCT(CSBP) 

16293 

055367 

402  00  0  10  000017 

SETZM 

.PIPCT(CSBP) 

16294 

055370 

263  17  0  00  000000 

RTN 

L 


L_ 


DDRPl  - 
DDRPI3 

16295 

16296 

16297 

16298 

16299 

16300 

16301 

16302 

16303 

16304 

16305 

16306 

16307 

16308 

16309 

16310 

16311 

16312 

16313 

1631 A 

16315 

16316 

16317 

16318 

16319 

16320 

16321 

16322 

16323 

16324 

16325 

16326 

16327 

16328 

16329 

16330 

16331 

16332 

16333 

16334 

16335 

16336 

16337 

16338 

16339 

16340 

16341 

16342 

16343 

16344 

16345 

16346 

16347 

16348 

16349 
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•  /If************************************************************************ 

•HERE  TO  PROCESS  ALL  NON-DAfA  TRANSFER  CAUSED  ATTENTION  INTERRUPTS 
./If************************************************************************ 


SEQ  0514 


r 

D 
D 


055371 

055372 

055373 

055374 

055375 

055376 

055377 

055400 

055401 

055402 

055403 

055404 

055405 

055406 

055407 

055410 

055411 

055412 

055413 

055414 

055415 

055416 
055417 
055420 
055421 
055422 
055423 
055424 
055425 
055426 
055427 

055430 
055431 
055432 
055433 
055**  34 
055435 

055436 
055437 
055440 
055441 
055442 
055443 
055444 
055445 
055446 
055447 


205  01 
260  17 
254  00 
254  00 
202  01 
602  01 
254  00 
260  17 
242  01 
202  01 
434  13 
200  00 
607  00 
254  00 
607  00 
254  00 
621  00 
202  00 
260  17 
037  02 
254  00 


260  17 
242  01 
20?  01 
4y-  13 
550  11 
332  00 
254  00 
260  17 
037  02 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 

11 

00 
00 
00 
00 
00 
00 
13 
00 
00 
00 
00 
00 
13 
00 
00 
00 

00 
00 
00 
00 
13 
00 
00 
00 
00 
00 


010000 
057135 
055416 
055371 
000001 
010000 
055502 
063665 
000003 
077636 
000001 
100747 
040000 
055460 
100000 
055473 
100060 
100747 
055765 
074645 
055436 

063665 
000003 
077636 
000001 
100747 
00001 1 
055430 
055765 
074654 
055454 


260 
037 
260 
200 
621 
202 


17 
02 
17 
00 
00 
00 


0  00  055765 
0  00  074667 
0  00  056577 
0  13  100747 
0  00  540000 
0  13  100747 


550  00  0 
302  00  0 
254  00  0 


331  00  0 
0 
0 

00  0 
254  00 


254  00 
037  02 


11  000042 
00  777777 
00  055445 
11  000042 
00  055445 


260  17 


0 
0 


QC  074672 
00  056676 
13  100747 
00  055454 
00  056577 


ATANDT:  MOVSI 
60 
JRST 
JRST 
MOVEM 

ATAP1 :  TRNE 
JRST 
GO 
LSH 
MOVEM 
lOR 
MOVE 
TLNN 
JRST 
TLNN 
JRST 
TLZ 
MOVEM 
GO 

PMSG 
JRST 


ATANDE : 


GO 

LSH 

MOVEM 

I  OR 

HRRZ 

SKIPE 

JRST 

GO 

PMSG 

JRST 


ATAP2:  GO 

PMSG 

GO 

MOVE 

TLZ 

MOVEM 

ATAP3:  HRRZ 
CAIE 
JRST 
SKIPL 
JRST 
PMSG 
GO 

ATAP3A:  SKIPL 
JRST 
GO 


ACK(DRSR) 

DRREG 

ATANDE 

ATANDT 

AC1,.DSR(DSBP) 

ACUMOL 

ATAPA 

CHNSEL 

AC1,3 

ACUMBCNUM 

DRIVE, AC1 

DS8TBL (DRIVE) 

(.PWR) 

ATAP5 

(.ONLN) 

ATAUND 

(. POSER!. XFRER!. ONLN) 

DSBT8L(DRIVE) 

ATTNHD 

<  HAS  GONE  AWAY  (MOL=0) 

ATAP3 

CHNSEL 

AC1,3 

ACUMBCNUM 

DRIVE, AC1 

DSBP,DSBTBL(DRIVE) 

DS8P 

ATAP2 

ATTNHD 


READ  DRIVES'  STATUS  REGISTER 

DO  IT 

DRIVE  NOT  THERE  ANYMORE! 

READ  ERROR  -  TRY  AGAIN 

SAVE  DATA  IN  DSB  AREA 

DRIVE  MEDIUM-ON-LINE  SET?? 

YES 

DETERMINE  MBC  UNIT  0 


MAKE  DRIVE  A  2  DIGIT  M 
GET  DRIVES'  TABLE  STATUS 
DID  DRIVE  HAVE  POWER?? 
NO  -  POSSIBLY  IT  POWERED  UP! 
WAS  THE  DRIVE  ONLINE?? 
NO  -  UNEXPECTED  ATA! 
KILL  THE  ERROR  BITS 
AND  SAVE  THE  STATUS 
YES  -  PRINT  THE  ATTN  HEADER 
HEADS  UNLOADED*> 


.-DETERMINE  MBC  UNIT  M 


GET  THE  DSB  POINTER  FOR  THIS  DRIVE 

ANY  KNOWN  DRIVE  STORAGE  BUFFER? 

YES 

PRINT  THE  HEADER  MESSAGE 
<  CAUSED  A  SPURIOUS  ATTN  INTERRUPT  -  THIS  DRIVE  NOW  NON-EXISTANT*> 
ATAP4 


ATTNHD 

<  HAS  POWERED  DOWN> 

CLRALL 

DSBTBL(DRIVE) 

(.OPR!. ONLN!. PWR) 

DSBTBL (DRIVE) 

.PRIM(DSBP) 

-1 

ATAP3A 

.PRIM(DSBP) 

ATAP3A 


<*POSITIONING  WAS  IN  PROGRESS> 


; PRINT  THE  HEADER  MESSAGE 


CLEAR  ALL  PENDING  COMMANDS  TO  THIS  DRIVE 

GET  THE  TABLE  STATUS 

AND  CORRECT  IT 

THEN  SAVE  THE  UPDATED  STATUS 

GET  COMMAND  IN  PRIMARY  DRIVE  CMD  AREA 

POSITION  COMMAND? 

NO 

YES  -  WAS  IT  ISSUED?? 

NO 


CLRCMD 
DSBTBL(DRIVE) 
ATAP4 
CLRALL 


CLEAR  THE  CMD 

DRIVE  SELETED  FOR  TEST 

NO 

CLEAR  REMAINING  CMDS 


L_ 


DDRPI  - 
DDRPI3 

16350 

16351 

16352 

16353 

1635^ 

16355 

16356 

16357 

16358 

16359 

16360 

16361 

16362 

16363 

1636A 

16365 

16366 

16367 

16368 

16369 

16370 

16371 
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SEQ  0515 


r 

D 
D 


055450 
055451 
055452 
055453 

055454 
055455 
055456 
055457 

055460 
055461 
055462 
055463 
055464 
055465 
055466 
055467 
055470 
055471 
055472 


260  17  0  00  057050 
254  00  0  00  055430 
260  17  0  00  055667 
260  17  0  00  056047 

200  00  0  00  077563 
602  00  0  00  000377 
254  00  0  00  055077 
254  00  0  00  055305 


260  17  0 
037  02  0 
200  00  0 


661  00 
202  00 
202  13 
550  00 
326  00 
201  00 


0 
0 
0 
0 
0 
0 
542  00  0 
254  00  0 


00  055765 
00  074677 
13  100747 
00  040000 
13  100747 
00  077651 
13  1007^7 
00  055454 
00  100636 
13  100747 
00  055454 


ATAP4 : 


ATAP5: 


GO 

SNAPS 

JRST 

ATAP2 

GO 

JUNK 

GO 

STATUS 

MOVE 

DATTN5 

TRNE 

377 

JRST 

ATAOK 

JRST 

ATAHLT 

GO 

ATTNHD 

PMSG 

<  HAS  POSSIBLY 

MOVE 

DSBTBL(DRIVE) 

TLO 

(.PWR) 

MOVEM 

DSBTBL(DRIVE) 

MOVEM 

DRIVE, NEWDRV 

HRRZ 

DSBTBL(DRIVE) 

JUMPN 

ATAP4 

MOVE  I 

SNAP 

HRRM 

DSBT8L(DRIVE) 

JRST 

ATAP4 

;CBTO  ERROR 

;PRINT  STATUS 

;GET  THE  ATTN 
;ANY  LEFT?? 
;VES 
;N0 


STORED  STATUS 


;PRI?;:  THE  HEADER  MESSAGE 
POWERED  UP...^> 

GET  DKiVES'  TABLE  STATUS 

SET  POWER  FLAG  BIT 

SAVE  UPDATED  STATUS 

INDICATE  CONFIGURATION  CHANGE 

GET  THE  DSB  AREA  ASSIGNED 

JUMP  AROUND  IF  ONE  THERE 

MAKE  AN  AREA 

SAVE  THE  AREA  ASSIGNED 


r 


DDRPl  SUBROUTINES  (RPOA/05/06  RELIABILITY) 
RPOA  CHANNEL  5  INTERRUPT  SERVICE 


DECFLO  VER  00.12  12-APR-78  08:44  PAGE  22 


SEQ  0516 


**ATANDT  ♦* 
I 

♦  READ  DRV    ♦ 

♦  SR      ♦ 


HERE  TO  PROCESS  AN  INTERRUPT 
FROM  A  DRIVE  FOR  NON-DATA 
TYPE  HANDLING 


I 


DRV 
CBTO 


\N0 
\- 
\ 


I 
•>I 


I  YES 

I  ATANDE 


ANY 
DS6  AREA 

9 


\YES 
\— 
\ 


I  NO 

1^  ****#*******  ********** 

♦MSG:HDR  THEN  SPURIOUS* 

*  ATA  FROM  DRIVE  XX  ♦ 

♦  (NON-X  DRIVE)    ♦ 


I 


NO 
<— 

I 
V 


ATAP2 

♦  MSG:  DRV  HAS  PURED  ♦ 
•♦  DWN  UPDATE  DSBTBL  * 

♦  STATUS  I   CLR  CMD   ♦ 

I< 

I  ATAP3 

/    THIS  DRV     V 
-/  POSITIONING  AT   \ 
/      ATA  TIME?      \ 

I  YES 

♦  MSG:  POSITIONING  IN  * 

♦  PROGRESS  -1->. POSER  ♦ 

♦  IN  DSBTBL      ♦ 


\ 


I< 

I  ATAP4 

♦  CLR  ATA  BIT 

♦  FROM  "DATTN" 

♦  STORAGE 

**  t  ********** '^  *  * 

I 

»*♦♦♦♦♦♦*♦♦ 

•♦ATAXFX  ♦♦ 

♦♦♦♦♦♦*♦♦♦♦ 


I 

lo 


I  ATAP1 

DRV 
MOL 
=1 


\YES   ♦*♦♦#♦♦*♦♦♦ 

\ **ATAPA  ♦♦ 


/ 


I  NO 

DSBTBL 

.PWR 

=1 


\N0  (=0) 
\ 

\ 


I  YES  =1 


/ 


DSBTBL 
.0NLN=1 

7 


\N0  =0 
\ 


I  YES 
***************** 

♦  DRV  HAS    ♦ 
•♦  GONE  OFF  LINE  * 

*  * 


»♦*♦♦♦*♦♦***♦♦♦♦* 


ATAUNX 

*   GO  SNAPSfc   * 

»   PRI  JUNK    * 

•♦      DRV      * 


I     ATAP5 

♦  MSG:  DRV  XX  HAS   * 

♦  PWRED  UP  -  INDICATE  ♦ 

♦  IN  DSBTBL      ♦ 

I 


SPURIOUS 
ATA  FROM 
OFFLINE  DRIVE 


r 
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SEO  0517 


16373 

16374 

16375 

16376 

16377 

16378 

16379 

16380 

16381 

16382 

16383 

16384 

16385 

16386 

16387 

16388 

16389 

16390 

16391 

16392 

16393 

16394 

16395 

16396 

16397 

16398 

16399 

16400 

16401 

16402 

16403 

16404 

16405 

16406 

16407 

16408 

16409 

16410 

16411 

16412 

16413 

16414 

16415 

16416 

16417 

16418 

16419 

16420 

16421 

16422 

16423 

16424 

16425 

16426 

16427 


055473 
055474 

055475 
055476 
055477 
055500 
055501 


055502 
055503 
055504 
055505 
055506 
055507 
055510 
055511 
055512 

055513 
055514 
05551S 
055516 
055517 

055520 
055521 
055522 
055523 
055524 
055525 
055526 
055527 
055530 
055531 
055532 
055533 
055534 

055^35 
055536 
055537 

055540 
055541 

0555^2 
055543 
055544 
055545 
055546 
055547 

055550 


260  17  0  00  055765 
037  02  0  00  074704 

260  17  0  00  057050 
254  00  0  00  055430 
260  17  0  00  055667 
260  17  0  00  056047 
254  00  0  00  055454 


260  17 
242  01 
202  01 
434  13 
200  00 
603  00 
254  00 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
13 
00 
00 
00 
00 


063665 
000003 
077636 
000001 
100747 
040000 
055513 
055736 
055001 


200  01  0 
606  01  0 
254  00  0 


260  17 
260  17 
25^  00 
260  17 
2uJ  00 
434  00 
434  00 
602  00 
254  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


037  02  0 
550  11  0 
336  00  0 
254  00  0 
254  00  0 


11  000001 
00  040000 
00  055562 
00  055736 
00  057050 
00  055430 
00  055667 
00  100640 
00  100652 
00  100653 
00  MlVl 
00  055531 
00  054607 
00  074716 
13  100747 
00  000011 
00  055537 
00  055562 


037  02  0  00  074731 

334  00  0  00  000000 
037  02  0  00  074740 
306  13  0  00  077651 
254  00  0  00  055646 

260  17  0  00  056047 
260  17  0  00  056014 
260  17  0  00  056010 
302  11  0  00  100636 
331  00  0  11  000042 
254  00  0  00  055454 

335  m   0  10  000017 


;HERE  IS  ATA  FROM  A  NON  EXISTANT  DRIVE 


ATAUND:  GO 

PMSG 

ATAUNX:  GO 

JRST 
GO 
GO 
JRST 


ATTNHD 

<  GAVE  A  SPURIOUS  ATTN 

SNAPS 

ATAP2 

JUNK 

STATUS 

ATAP4 


; PRINT  THE  HEADER  MESSAGE 

•  DRIVE  WAS  OFFLINE  OR  NON-EXISTANT*> 


READ  ALL  DRIVE  REGISTERS 

DRIVE  POWERED  OFF  I!! I 

PRINT  ADDITIONAL  THINGS 

PRINT  DRIVE  REGISTERS  FROM  SNAPS 


;HERE  IF  DRIVE  HAS  ATTN  AND  IS  STILL  ON-LINE 


ATAPA: 


A TAPS: 


ATANP: 
ATANPA 

ATANDC 


GO 

LSH 

MOVEM 

I  OR 

MOVE 

TLNE 

JRST 

GO 

JRST 

MOVE 

TRNN 

JRST 

GO 

GO 

JRST 

GO 

MOVE 

I  OR 

I  OR 

TRNE 

JRST 

GO 

PMSG 

HRRZ 

SKIPN 

JRST 

JRST 

PMSG 
SKI  PA 
PMSG 
CAIN 
JRST 

GO 

GO 

GO 

CAIE 

SKIPL 

JRST 

SKIPGE 


CHNSEL 

AC1,3 

ACl.MBCNUM 

DRIVE, AC1 

DSBTBL(DRIVE) 

(.PWR) 

ATAP8 

ATAHDR 

ATAN3A 

AC1,.DSR(DSBP) 

ACnCERR 

ATAP6 

ATAHDR 

SNAPS 

ATAP2 

JUNK 

SNAP^2 

SNAP^14 

SNAP* 15 

M1177 

.*3 

PNTDRV 

<  HAD  A  COMPOSITE  ERROR 

DSBP,DSBTBL(DRIVE) 

DSBP 

ATANPA 

ATAP6 


GET  DRIVES'  TABLE  STATUS 

WAS  POWER  BIT  SET?? 

YES  -  DRIVE  HAS  POWER 

NO  -  PRINT  ATTN  HEADER  MESSAGE 

DRIVE  POWERED  UP 

GET  DRIVE  STATUS  REGISTER  CONTENTS 

DRIVE  HAVE  A  COMPOSITE  ERROR?? 

NO  -  NO  ERROR  IN  DRIVE 

PRINT  ATTN  HEADER  MESSAGE 

READ  ALL  DRIVE  REGISTERS 

DRIVE  HAD  A  CBTO  ERROR 

PRINT  ADDITIONAL  THINGS 

GET  ERROR  DATA 

FROM  ALL  DRIVE'S 

ERROR  REGISTERS 

ANY  DRIVE  ERROR  DETECTED?? 

NO 

^YES  -  PRINT  THE  DRIVE  # 
&UT  NO  ERROR  IN  ITS  ERROR  REGISTERS??*> 

SETUP  DSB  AREA  POINTER  FOR  DRIVE 

ANY  DSB  ASSIGNED?? 

NO  -  ATTN  FROM  NON-EXISTANT  DRIVE  1 

YES 


<SPURIOUS  ATTENTION  FROM  AN  ONLINE  DRIVE*> 

<SPURIOUS  ATTENTION  FROM  A  NON-EXISTANT  DRIVE*> 
DRIVE, NEWDRV  ;SAME  DRV  #  AS  NEW  ONE?? 

ATAP7E  ;YES  -  COULD  HAVE  LOADED  HEADS 


STATUS 

DRVCLR 

PAKAK 

DSBP, SNAP 

.PRIM(DSBP) 

ATAP4 

.PIPCT(CSBP) 


PRINT  DRIVE  STATUS  FROM  SNAPSHOT  OF  DRIVE 

CLEAR  DRIVE  OF  ERRORS 

ISSUE  A  PACK  ACKNOWLEDGE 

FAKE  DSB  AREA?? 

OR  IS  CMD  A  POS  CMD? 

SKIP  THE  CLEAR  CODE 

SPECIAL  ATA 


r 
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SEO  0518 


16428 

055551 

254  00  0  00  055454 

16429 

055552 

260  17  0  00  056676 

16430 

055553 

370  00  0  10  000017 

16431 

055554 

254  00  0  00  055454 

i 

16432 

16433 

055555 

200  00  0  13  100747 

16434 

055556 

661  00  0  00  000040 

16435 

055557 

202  00  0  13  100747 

: 

16436 

055560 

260  17  0  00  056626 

16437 

055561 

254  00  0  00  055542 

16438 

) 

16439 

f 

16440 

T 

16441 

16442 

055562 

550  11  0  13  100747 

16443 

055563 

302  11  0  00  100636 

' 

16444 

055564 

336  00  0  00  000000 

16445 

055565 

254  00  0  00  055642 

16446 

055566 

200  00  0  11  000042 

;  "     i 

16447 

055567 

331  00  0  00  000000 

: 

16448 

055570 

254  00  0  00  055611 

1   - 

16449 

055571 

550  00  0  00  000000 

1... 

16450 

055572 

302  00  0  00  777777 

-1 

16451 

055573 

254  00  0  00  055611 

\ 

16452 

055574 

205  01  0  00  000000 

16453 

05557: 

260  17  0  00  057135 

i  " 

16454 

055576 

254  00  0  00  055416 

16455 

055577 

254  00  0  00  055574 

; 

16456 

055600 

202  01  0  11  000000 

1      ■  ; 

16457 

055601 

200  01  0  11  000001 

16458 

055602 

6uJ  01  0  00  040000 

1   , 

16459 

055603 

254  00  0  00  055555 

■ 

16460 

055604 

331  00  0  10  000017 

i 

16461 

055605 

260  17  0  00  056676 

>    . 

16462 

055606 

553  00  0  10  000017 

^ 

16463 

055607 

370  00  0  10  000017 

16464 

0556^0 

254  00  0  00  055270 

■1- 

16465 

i 

16466 

055611 

335  00  0  10  000017 

16467 

055612 

254  00  0  00  055574 

16468 

055613 

260  17  0  00  057050 

9 

16469 

0556  V, 

254  00  0  00  055430 

16470 

055o15 

260  17  0  00  055765 

16471 

055616 

200  00  0  13  100747 

16472 

055617 

603  00  0  00  100000 

16473 

055620 

254  00  0  00  055535 

16474 

'[ 

16475 

055621 

202  13  0  00  077651 

16476 

055622 

057  02  0  00  074750 

i 

16477 

055623 

200  01  0  00  100637 

16478 

055624 

602  01  0  00  000100 

16479 

055625 

254  00  0  00  055635 

16480 

055626 

260  17  0  00  056014 

16481 

055627 

260  17  0  00  056010 

16482 

■.r  .-HI  I.I.I.  ■_.i.ir..r-' 

055630 

205  01  0  00  010000 

JRST  ATAP4 

GO  CLRCMD 

SOS  .PIPCT(CSBP) 

JRST  ATAP4 

ATAP8:  MOVE  DSBTBL (DRIVE) 

TLO  (.POSER) 

MOVEM  DSBTBL (DRIVE) 

GO  STPCMD 

JRST  ATANDC 


YES  EXIT 
NO  CLEAR 
DECR  PIP 
EXIT 


CMD 
CNT 


FROM  DSB 


GET  DRIVES'  TABLE  STATUS 
FLAG  A  POSITION  ERROR 
SAVE  UPDATED  STATUS 
STOP  ALL  PENDING  DRV  CMDS 


;DRIVE  IS  ONLINE  AND  HAS  AN  ATTENTION  -  NO  ERROR  IS  PRESENT  IN  DRIVE 
;NOy  CHECK  IF  DRIVE  ATTENTION  WAS  CAUSED  BY  POSITIONING 


ATAP6: 


ATAP6A: 


ATAP6B: 


ATAP7: 


ATAP7D 


ATAP7A 


HRRZ 

CAIE 

SKIPN 

JRST 

MOVE 

SKI  PL 

JRST 

HRRZ 

CAIE 

JRST 

MOVSI 

GO 

JRST 

JRST 

MOVEM 

MOVE 

TRNE 

JRST 

SKIPL 

GO 

HRRZS 

SOS 

jRST 

SKIPGE 
JRST 
GO 
JRST 

GO 

MOVE 
TLNE 
JRST 

MOVEM 

PMSG 

MOVE 

TRNE 

JRST 

GO 

GO 

MOVSI 


DSBP,DSBTBL(DRIVE) 
DSBP,SNAP 

ATAP7B 
.PRIM(DSBP) 


ATAP7 

-1 

ATAP7 

AC1,(DRCR) 

DRREG 

ATANDE 

.-3 

AC1,.DCR(DSBP) 

AC1,.DSR(DSBP) 

AC1.CERR 

ATAP8 

.PIPCT(CSBP) 

CLRCMD 

.PIPCT(CSBP) 

.PIPCT(CSBP) 

ATAXFX 

.PIPCT(CSBP) 

ATAP6B 

SNAPS 

ATAP2 

ATTNHD 

DSBTBL (DRIVE) 

(.ONLN) 

ATANP 

DRIVE, NEWDRV 

<  HAS  PWR  &  HEADS 

AC1,SNAPt1 

AC1.VV 

ATAP7C 

DRVCLR 

PAKAK 

AC1,(DPSR) 


GET  DRIVES'  DSB  POINTER 

FALSE  DSB  AREA? 

ANY  AREA?? 

NO 

GET  DRIVE  COMMAND  WORD  FROM  DSB  AREA 

HAS  THE  COMMAND  BEEN  ISSUED 

NO 

SAVE  JUST  RIGHT  SIDE  OF  CMD  WORD 

WAS  IT  A  POSITION  COMMAND?? 

NO 

YES  -  PREPARE  TO  READ  DRV  CTL  REG 

READ  IT  NOW 

DRIVE  GONE  NOW??? 

READ  ERROR  -  TRY  AGAIN 

SAVE  DATA  IN  DSB  AREA 

GET  THE  DRIVE  STATUS  REG  FROM  DSB 

COMPOSITE  DRIVE  ERROR?? 

YES  -  REPORT 

CAPTURE  INTERRUPT? 

NO  -  CLEAR  THE  COMMAND 

CLEAR  THE  CAPTURED  INDICATOR 

DECR  PIP  CNT 

CLR  ATTN  ♦  LOOK  FOR  MORE 

CAPTURED  INTERRUPT? 

YES 

SNAPSHOT  DRIVE  REGISTERS 

DRIVE  HAD  A  CBTO  ^ 

PRINT  THE  HEADER  MESSAGE      ^^^ 

GET  THE  TABLE  STATUS  FOR  DRIVE 

WAS  IT  ON-LINE? 

YES  -  SPURIOUS  ATTN  FROM  AN  ONLINE  DRIVE 


.-INDICATE  A  DRIVE  CONMGURATION  CHANGE 
LOADED> 

GET  THE  DRV  STATUS  DATA 

VOL.  VALID  SET?? 

YES 

NO  -  ISSUE  DRIVE  CLEAR 

AND  PACK  ACKN. 

THEN  READ  THE  DRV  STATjS  AGAIN 


r 


i 


DDRPI  - 
DDRPI3 

16A83 
16A8A 
16A85 
16A86 
16487 
16488 
16489 
16490 
16491 
16492 
16493 
16494 
16495 
16496 
16497 
16498 
16499 
16500 
16501 
16502 
16503 
16504 
16505 


I; 

1 

1 

' 

i 
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SEQ  0519 


055651 
055632 
055633 
055634 
055635 
055636 
055637 
055640 
055641 

055642 
055643 
055644 
055645 

055646 
055647 
055650 
055651 
055652 
055653 
055654 


260  17 
254  00 
254  00 
602  01 
037  02 
200  00 
661  00 
202  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
13 
00 

00 


057135 
055416 
055630 
000100 
074754 
100747 
140000 
100747 
055454 


260  17  0  go  057050 
254  00  0  00  055430 
260  17  0  00  055765 
254  00  0  00  055537 


200  00 
602  00 
254  00 
476  00 
254  00 
260  17 
254  00 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


0  00 


100637 
010000 
055653 
077651 
055542 
054607 
055616 


ATAP7C: 


GO 

JRST 

JRST 

TRNF 

PMSG 

MOVE 

TLO 

MOVEM 

JRST 


ATAP7B:  GO 

JRST 

GO 

JRST 


ATAP7E: 


MOVE 

TRNE 

JRST 

SETOM 

JRST 

GO 

JRST 


DRREG 

ATANDE 

.-3 

AC1,VV 

<  -  AND  IS  ON-LINE''> 

DSBT8L (DRIVE) 

(.PyRI.ONLN) 

DSBT8L(DRIVE) 

ATAP4 

SNAPS 
ATAP2 
ATTNHD 
ATANPA 

SNAP+1 

HOL 

.♦3 

NEUDRV 
ATANDC 
PNTDRV 
ATAP7D 


;T0  SEE  IF  VV  IS  SET 
;DRV  NOT  THERE??? 
;READ  ERROR  DETECTED 
;IS  VV  SET?? 


-  TRY  AGAIN 


;6ET  THE  DRV  TABLE  STATUS 
;AND  CHANGE  IT 

;T0  REFLECT  THE  STATUS  CHANGE 
;THEN  EXIT 

;GET  THE  DRV  STATUS 

;PRINT  THE  HEADER 
; PRINT  ERROR  MESSAGE 

;GET  THE  DRIVE  STATUS  REGISTER  DATA 

.•HEADS  LOADED?? 

;YES  -  REPORT  IT 

;NOPE  -  SOME  OTHER  REASON  FOR  ATTN 

.-REPORT  DRIVE  STATUS 

.•PRINT  THE  DRIVE  # 

.•REPORT  NOU 


DDRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
RP04  CHANNEL  5  INTERRUPT  SERVICE 
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SEQ  0520 


/ 


**ATAPA  ♦* 

I 

DSBTBL 
.PyR=1 


I  NO 

♦♦♦♦♦♦*♦♦*♦ 

**ATAN3A  ♦* 
*********** 


*** 

»A* 
*** 


I 


/    DRV    we: 

/    POSITIONING    \- 
/         ?         % 

I  NO 

I     ATANP 
*********************** 

♦  MSG: SPURIOUS  ATA   ♦ 

♦  FROM  DRV  XX     » 

»    AN  ONLINE  DRV    ♦ 
*********************** 

I< 

I     ATANDC 
*********************** 

♦  STATUS  PRINT  FROM  ♦ 

♦  SNAPS  ♦  LOG  ANY   ♦ 

♦  ERRORS       ♦ 
*********************** 

I 
***************** 

♦  CLR  DR..'   ♦ 

♦  ISSUE  PACK   ♦ 

♦  ACKNOWLEDGE   ♦ 
***************** 

I 
*********** 

*.ATAP4   •• 


\YES 
\— ' 
\ 


I  ATAP8 
***************** 

*  CLR  POSITION  ♦ 

♦FLG  1  TO  .POSER* 

♦IN  DS8TB,  STAT  * 
***************** 


j 


*********** 
**ATAPB  ** 

******x**** 

>I 


/ 


DRV      \N0 
COMPOSITE     \- 
ERROR?       \ 


I  ATAP6 


I  YES 

*********************** 

*  MSG:  ATA  HEADER  &  * 

*  DO  A  SNAPS      * 

*  PRINT  JUNK      * 

*********************** 

I 


/      ANY       \YES 

/   ERRORS  IN  DRV   \ — 

/       REGS?       \  I  I 
I 

I  NO        I 

***********************  J 

*MSG:  COMPOSITE  ERROR  ♦  I  I 

♦  BUT  NO  ERROR  IN   *  I  I 

♦  ERROR  REGS??     *  I 
***********************  ] 

I< 

*** 

•A* 
*** 


NO 


I 


/      DRV      \ 
-/    POSITIONING    \ 
/         ?         \ 

I  YES 
***************** 

♦  CLR  CMD    * 

♦  IN  DSB     ♦ 

♦  * 

***************** 

I 
***************** 

*  CLR  POSITION  ♦ 

*  FLG^.POSFR   * 

*  *-  • 

***************** 

I 
*********** 

**ATAPA  ♦♦ 
*********** 


I   ATAP7 
***************** 

*  PRINT  ATA   * 
♦HEADER  ♦  SNAPS  ♦ 

♦  ♦  JUNK     ♦ 
***************** 

I 
*********** 

••ATANP  ♦♦ 

4  ********** 


r' 


DDRPI  - 
DDRPI3 

16507 
16508 
16509 
16510 
16511 
16512 
16513 
165K 
16515 
16516 
16517 
16518 
16519 
16520 
16521 
16522 
16523 
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;*DSKOV  —  ROUTINE  TO  PROCESS  ALL  RHIO  CONTROL  BUS  OVERRUNS 


SEQ  0521 


055655 
055656 
055657 
055660 
055661 
055662 
055663 
055664 
055665 
055666 


037  01 
200  01 
135  13 
037  02 
260  17 
037  00 
260  17 
037  02 
260  17 
254  00 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


000026 
101667 
074760 
074761 
055667 
030242 
054607 
074767 
064523 
054307 


DSKOV:   PFORCE 
MOVE 
LDB 
PMS6 
60 

PCRL 
GO 

PMSG 
GO 
JRST 


;XCT  CONTROL  0  OVERRIDE  UUO 
AC1,DIBCH5  ;D0  A  BASIC  'DATAI"  TO  READ  LAST  ACCESSED  REG 

DRIVE, [POINT  3,AC1J7]  ;LOAD  DRIVE  # 
<**#*/f*#**RHlO  CONTROL  BUS  OVERRUN*> 
JUNK  ;PRINT  ADDITIONAL  THINGS 

PNTDRV  ;PRINT  MBC  #  &  DRIVE  ft 

<   WAS  LAST  IN  COMMUNICATION  WITH  CONTROLLER*> 
REGPNT  ;PRINT  REGISTER  DATA 

HLTCHK  ;EXIT 


ODRPl   SUBROUTINES   (RPOA/05/06  RELIABILITY) 
RPOA  CHANNEL  5   INTERRUPT  SERVICE 


DECFLO  VER     00.12  12-APR-78  08:44     PAGE  24 


SEQ  0522 


DDI 
DDI 


CHANNEL  5 

OVERRUN  INTERRUPT  PROCESS  FOR  RHIO 


ttttittittittt 
**DSKOV     ♦♦ 

I 

*  READ  THE  MBC 

*  ••DIB" 

*  REGISTER 

I 

*  LOAD  ••DRIVE" 

*  FROM  THE 

«       DIB  READ 

♦♦*•♦•♦»**♦♦♦♦♦• 

I 

♦♦♦♦♦*♦♦♦♦•♦♦♦♦♦ 

*  CLEAR  ERROR 

*  (ISSUE  CONO) 

I 

*  MSG:   CONTROL 

*  BUS  OVERRUN 

I 

*  PRINT  JUNK  & 

*  REG  FROM  DIB 

*  READ 

I 
♦♦HLTCHK   *♦ 


■<piiill*j^tfiilil  iruHw'  ia>'H*!w 
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SEQ  0523 


iDDI 
DDI 


16525 

16526 

16527 

16528 

16529 

16530 

16531 

16532 

16533 

1653A 

16535 

16536 

16537 

16538 

16539 

165A0 

165A1 

165A2 

165A3 

165AA 

165A5 

165A6 

165A7 

165A8 

165A9 

16550 

16551 

16552 

16553 

1655A 

16555 

16556 

16557 

16558 

16559 

16560 


055667 
055670 
055671 
055672 
055673 

05567A 
055675 
055676 
055677 
055700 
055701 
055702 
055703 
05570A 
055705 
055706 
055707 
055710 
055711 
055712 
055713 
05571A 
055715 
055716 
055717 
055720 
015721 
055722 
055723 
05572A 


200  00  0  00  0300A6 
336  00  0  00  077720 
25A  00  0  00  05567A 
607  00  0  00  001000 
263  17  0  00  000000 


603 
037 
260 
332 
25A 
200 
62: 
202 
261 
261 
200 
550 
202 
55A 
202 
260 
262 
262 
037 

0:>' 
200 
621 
260 
037 
263 


00 

01 

17 

00 

00 

00 

00 

00 

17 

17 

00 

01 

01 

01 

Ot 

17 

1^ 

17 

CO 

02 

00 

00 

17 

00 

17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 

11 

00 

11 

00 
00 

11 

00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 


00 
00 


010000 
000007 
053151 
077510 
055716 
0000A6 
AOOOOO 
00002A 
100735 
100733 
0000A3 
000000 
100735 
000000 
100733 
0550AA 
100733 
100735 
0302A2 
07A777 
101660 
777760 
0661 7A 
0302A2 
000000 


i*JUNK  —  ROUTINE  TO  PRINT  ADDITIONAL  THINGS 


JUNK: 


JUNK1 


JUNK2 


MOVE 

CONSU 

SKIPN 

RETFL6* 

JRST 

JUNK1 

TLNN 

PALERS 

RTN 

TLNE 

DIN6 

PBELL 

60 

TELTST 

SKIPE 

ATNHF6 

JRST 

JUNK2 

MOVE 

.PRIM+A(DSBP) 

TLZ 

(ISO) 

MOVEM 

.SELAD(DSBP) 

PUT 

.BUFF 

PUT 

.SIZE 

MOVE 

.PRIM+KDSBP) 

HRRZ 

ACKACO 

MOVEM 

AC1,.BUFF 

HLR2 

AC1,AC0 

MOVEM 

ACl^.SIZE 

60 

PINITP 

6ET 

,SIZE 

6ET 

.BUFF 

PCRL 

PMS6 

<P6M  INTERRUPT 

MOVE 

DSKINT 

TLZ 

777760 

60 

POCT 

PCRL 

RTN 

6ET  THE  P6M  SWITCHES 

PRESENTLY  IN  A  RETRY  PROCESS?? 

NO  -  PRINT 

PRINT  ALL  ERRORS?? 

NO  -  EXIT 

RING  THE  BELL?? 
YES  -  DIN6 
AND  THE  TEST  INFO 
IN  A  ATTENTION  SERVICE? 
YUP  -  SKIP  CODE 

NOPE  -  GET  THE  DSK  ADDR  IN  USE 
CLEAR  THE  DSK  ADDR  INDICATOR 
SAVE  IT  FOR  PRINTING 
SAVE  CURRENT  VALUE  OF  .BUFF 
AND  .SIZE 

GET  SIZE  i   BUFF  FROM  CMD 
GET  .BUFF 
SAVE  IT 
6ET  .SIZE 
SAVE  IT 

THEN  THE  INITAL  DSK  ADDR 
•RESET  VALUES 


PC  WAS  -  > 

;GET  THE  PC  ADDRESS 
;STRIP  ADR  BITS  TO  22 
;AND  PRINT  IT 


LONG 


MiMHMHp>i#Mw«Mi»> 
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SEQ  052A 


r" 

DO 
DD 


16561 

16562 

16563 

1656A 

16565 

16566 

16567 

16568 

16569 

16570 

16571 

16572 

16573 

16574 

16575 

16576 

16577 

16578 

16579 

16580 

16581 

16582 

16583 

1658A 

16585 

16586 

16587 

16588 

16589 

16590 

16591 

16592 

16593 

1659A 

16595 

16596 

16597 

16598 

16599 

16600 

16601 

16602 

16603 

16604 

16605 

16606 

16607 

16608 


055725 
055726 
055727 
055730 
055731 
055732 
055733 
055734 
055735 


037  01 
336  00 
332  00 
263  17 
201  00 
260  17 
037  02 
476  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000026 
077720 
077574 
000000 
000144 
042726 
075003 
077574 
055746 


055736 
055737 
055740 
055741 
055742 
055743 
055744 
055745 

055746 
055747 
055750 
055751 
055752 
055753 
055754 
055755 
055756 
055757 
055760 
055761 
055762 
055763 
055/64 

055765 
055766 
055767 
055770 


037  01 
336  00 
332  00 
263  17 
201  00 
260  17 
037  02 
476  00 


260  17 
200  00 
6^'  00 
202  00 
260  17 
260  17 
037  00 
402  00 
200  01 
260  17 
037  02 
550  00 
037  06 
037  00 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 

00 
01 
00 
01 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000026 
077720 
077510 
000000 
000144 
042726 
075010 
077510 

063665 
:D1047 
40(.'GC0 

i:  04/ 

053221 
044454 
030242 
077755 
077524 
064471 
075016 
077511 
000000 
030242 
000000 


260  17  0  00  055736 

037  00  0  00  030242 

260  17  0  00  054607 

263  17  0  00  000000 


)*DONHDR  —  ROUTINE  TO  PRINT  THE  DONE  INTERRUPT  HEADER  MESSAGE 

.  4f  ♦»*♦****♦•♦♦*♦*****♦♦« ♦♦t***»************^ *♦*****♦»*****♦♦**♦ *♦♦♦**♦♦♦♦♦ 


DONHDR:  PFORCE 
SKIPN 
SKIPE 
RTN 
MOVEI 
GO 

PMSG 
SETOM 
JRST 


;XCT  CONTROL  0  OVERRIDE  UUO 
RETFLG  .-CURRENTLY  IN  A  RETRY? 

DONHFG  .-PRINTED  ALREADY?? 

.-EXIT  NOU 

*D100 

WAITIT  .-WAIT  100MS  FOR  CURRENT  10  TO  COMP 

<**♦-♦-♦-*-*  DONE  INTERRUPTJ> 

DONHFG  .-SET  THE  PRINT  FLAG 

HDREXT  .-GO  TO  THE  COMMON  HEADER  EXIT 


!-*ATAHDR  —  ROUTINE  TO  PRINT  THE  HEADER  MESSAGE  FOR  ATTENTION  INTERRUPTS 

;^******* ****************************************************** *♦♦**♦♦**♦* 


ATAHDR:  PFORCE 
SKIPN 
SKIPE 
RTN 
MOVEI 
GO 

PMSG 
SETOM 

HDREXT:  GO 

MOVE 

TLZ 

MOVEM 

GO 

GO 

PCRL 

SET2M 

MOVE 

GO 

PMSG 

HRRZ 

PNT6 

PCRL 

RTN 

ATTNHD:  GO 

PCRL 

GO 

RTN 


.-XCT  CONTROL  0  OVERRIDE  UUO 
.-CURRENTLY  IN   A  RETRY? 
.-PRINTED  ALREADY?? 
.•THEN  EXIT  NOW 


RETFLG 
ATNHFG* 

*D100 

WAITIT  .-WAIT  FOR  CURRENT  10  TO  COMP 

<***-*-*-♦-•  ATTENTION  INTERRUPT:> 


ATNHFG 

CHNSEL 

CS8T8L(AC1) 

(180) 

CS8T8L(AC1) 

SWPNT 

RUNTIM 

SHREG 

AC1.CC0NI5 

CONIPT 

<*DRAS:]> 

ATTNSV 


ATAHDR 
PNTDRV 


.-SET  THE  PRINTED  FLAG 


GET  THE  MBC  UNIT  # 

GET  THE  CLOCK  COUNT  FOR  THEIS  MBC 

KILL  THE  CLOCK 

SAVE  UPDATED  MBC  STATUS 

PRINT  THE  CONTENTS  OF  THE  PGM  SWITCHES 

THEN  PRINT  THE  RUN  TIME 

SET  FOR  WORDS 

GET  THE  CONI  STATUS 

AND  PRINT  IT 

GET  THE  ATTN  REG  STUFF 

PRINT  IT 

THROW  IN  A  FREE  CR  &  LP 


.-PRINT  THE  ATTN  HEADER  MESSAGE 
.•THEN  PRINT  THE  DRIVE  # 


L_ 


DDRPl  - 
DDRPI3 

16609 
16610 
16611 
16612 
16613 
166U 
16615 
16616 
16617 
16618 
16619 
16620 
16621 
16622 
16623 
1662A 
16625 
16626 
16627 
16628 
16629 
16630 
I  16631 
1  16632 
i  16633 
1663A 
16635 
16636 
16637 
16638 
16639 
166A0 
166A1 
166A2 
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•  /If**************************************************************  ♦♦♦**♦♦*♦* 

;-*ATACLR  —  ROUTINE  TO  CLEAR  THE  ATTENTION  BIT  IN  •DATTN5"  FOR  THE  DRIVE 
•A«» »*****♦*♦*»****♦***♦*♦•*****************♦**♦***♦♦*♦***♦***♦***** ******* 


SEQ  0525 


055771 
055772 
055773 
055774 
055775 
055776 
055777 
056000 
056001 
056002 
056003 
056004 
056005 


261 
261 
201 
200 
405 
242 
250 
200 
430 
202 
262 
262 
263 


17 
17 
00 
01 
01 
00 
00 
00 
00 
00 
17 
17 
17 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
01 
00 
00 
00 
00 
00 
00 
00 


000000 
000001 
000001 
000013 
000007 
000000 
000001 
077563 
000001 
077563 
000001 
000000 
000000 


056006  037  02  0  00  075020 

056007  263  17  0  00  000000 


ATACLR:  PUT 
PUT 
MOVE  I 
MOVE 
ANDI 
LSH 
EXCH 
MOVE 
XOR 
MOVEM 
GET 
GET 
RTN 


ACO 

AC1 

1 

AC1, DRIVE 

AC1,7 

(ACl) 

AC1 

DATTN5 

AC1 

DATTN5 

ACl 

ACO 


;SAVE  SOME  AC'S 


;GET  THE  DRIVE  H 

;SAVE  ONLY  THE  UNIT  #  FROM  IT 

;GEN  A  MASK 

;PUT  THE  MASK  IN  ACO 

;GET  THE  ATTN  STATUS  WORD 

.•CLEAR  THE  BIT  FOR  THE  DRIVE 

;SAVE  THE  UPDATED  WORD 

.•RESTORE  THE  AC'S 


./)f  ♦»*»♦»*♦*♦*♦♦»♦♦**♦*♦♦♦*♦♦♦**♦**♦***•»•**♦*****•*****♦*  ***************** 

)*PSTAR  —  ROUTINE  TO  OUTPUT  A  STRING  OF  STARS 

•^♦****»* ************************************************ ***************** 


PSTAR.:  PMSG 
RTN 


<**%i^tt****> 


056010  2uJ  01  0  00  072066 

056011  260  17  0  00  063147 

056012  254  00  0  00  056010 

056013  263  17  0  00  000000 


•f ♦»♦»*♦**♦♦♦****♦♦♦♦♦♦♦♦♦♦♦♦*********************♦****************♦****** 

;*PAKAK  -  ROUTINE  TO  ISSUE  A  PACK  ACKNOWLEDGE  COMMAND 

.^f  ***************************************************************** ******* 

.•PREPARE   TO   ISSUE   A  PACK  ACKNOWLEDGE 

.•ISSUE   THE   CMD 

;LOAD  ERROR  DETECTED  -  TRY  AGAIN 

;EXIT 


PAKAK : 

MOVE 

AC1.CDRCRIPAKACK] 

GO 

LDREG 

JRST 

PAKAK 

RTN 
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SEQ  0526 


166A3 

166AA 

166A5 

166A6 

166A7 

166A8 

166A9 

16650 

16651 

16652 

16653 

1665A 

16655 

16656 

16657 

16658 

16659 

16660 

16661 

16662 

16663 

1666A 

16665 

16666 

16667 

16668 

16669 

16670 

16671 

16672 

16673 

1667A 

16675 

16676 

16677 


05601 A 
056015 
056016 
056017 
056020 
056021 
056022 
056023 

05602A 
056025 
056026 
C 56027 
056030 
056031 
056032 
056033 
05603A 
056035 
056036 
056037 
0560A0 


A02  00  0 
260  17  0 
7  OOA  20 
260  17  0 
A05  01 
202  01 
201  01 
260  17 


200  01  0 
260  17  0 


25A  00 
205  01 
260  17 
25A  00 
25A  00 
606  01  0 
25A  00  0 
332  00  0 
25A  00  0 
A76  00  0 
25A  00  0 


00  0775A1 
00  056573 
0  00  OOOAOO 
00  0635A0 
00  000007 
00  077537 
00  OOOAOO 
00  063522 

00  070AA1 
00  0631A7 
00  0560A1 
00  010000 
00  057135 
00  0560A1 
00  056027 
00  OAOOOO 
00  0560A2 
00  0775A1 
00  0560A1 
00  0775A1 
00  05602A 


0560A1  350  00  0  17  000000 

0560A2  2u'  01  0  00  OOOAAO 

0560A3  A3A  01  0  00  077537 

0560AA  260  17  0  00  063522 

0560A5  7  OOA  20  0  00  000200 

0560A6  263  17  0  00  000000 


•♦DRVCLR  -  ROUTINE  TO  ISSUE  A  DRIVE  CLEAR 
•4f*********************************** ************************************* 


DC 
DC 

1 


DRVCLR:  SETZM 
60 

CONO 
GO 
AND  I 
MOVEM 
MOVE  I 
GO 

DRCLR1:  MOVE 
GO 

JRST 
MOVSI 
GO 

JRST 
JRST 
TRNN 
JRST 
SKIPE 
JRST 
SETOM 
JRST 

CLREX2:  AOS 

CLREXl:  MOVEI 
lOR 
GO 

CONO 
RTN 


CLRCNT# 

HLTSW 

PI.PIOFF 

.CONI 

AC1,7 

AC1,CHNSAV# 

ACUAOO 

.CONO 

ACUCDRCRICLEAR] 

LDREG 

CLREX2 

AC1,(DRSR) 

DRREG 

CLREX2 

.-3 

ACl^CERR 

CLREXl 

CLRCNT 

CLREX2 

CLRCNT 

DRCLRl 

(P) 

AC1,AA0 
AC1,CHNSAV 
.CONO 
PI,PIO^' 


INIT  CLEAR  ATTEMPT  COUNT 

SEE  l^   HALT  ON  ERROR 

TURN  PI  SYS  OFF 

GET  CONI  STATUS 

SAVE  PI  CHAN  ASSIGNED 


;TURN  PI  CHAN  OFF 

;GET  CMD 

.•ISSUE  DRIVE  CLEAR 
;CBTO  ERROR  EXIT  +2 
;READ  THE  STATUS  REG 

;CBTO  ERROR 

.•PARITY  ERROR  TRY  AGAIN 

.•ANY  ERROR  LEFT 

;N0  EXIT  +1 

;1ST  TIME 

;N0  STUCK  ERROR  EXIT  +2 

;MARK  THE  ATTEMPT 

;TRY  AGAIN 

;TAKE  +2  RETURN 

;ENA  MASSBUS  *  ATTN  INTR 
.•RESTORE  PI  CHAN 

.-TURN  PI  SYS  BACK  ON 
.•RETURN 


L 
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SEQ  0527 


16678 

16679 

16680 

16681 

16682 

16683 

1668A 

16685 

16686 

16687 

16688 

16689 

16690 

16691 

16692 

16693 

1669A 

16695 

16696 

16697 

16698 

16699 

16700 

16701 

16702 

16703 

16704 

16705 

16706 

16707 

16708 

16709 

16710 

16711 

16712 

16/13 

16714 

16715 

16716 

16717 

16718 

16719 

16720 

16721 

16722 

16723 

16724 

16725 

16726 

16727 

16728 

16729 

16730 


056047  200  00  0  00  030046 

056050  336  00  0  00  077720 

056051  254  00  0  00  056054 

056052  607  00  0  00  001000 

056053  254  00  0  00  056171 


056054 

261  17 

056055 

261  17 

056056 

200  00 

056057 

336  00 

056060 

254  00 

056061 

602  00 

056062 

254  00 

056063 

602  00 

056064 

260  17 

056065 

602  00 

056066 

350  00 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
CO 
00 
00 
00 
10 


000001 
000002 
077524 
077721 
056067 
002000 
056205 
100000 
056215 
020000 
000023 


056067 
056070 
056071 
056072 

056073 
056074 
056075 
056076 
056077 
056100 
056101 
056102 
056103 
056104 
056105 
056106 
056107 
056i10 
056111 
056112 
056113 
056114 
056115 
056116 
056117 
056120 
056121 
056122 


602  00  0  00  400000 

260  17  0  00  056467 

602  00  0  00  200000 

260  17  0  00  056477 


037  00  0 
33r  00  0 
254  00  0 
200  01  0 
260  17  0 
336  00  0 
254  00  0 
200  01  0 
260  17  0 
200  01  0 
402  00  0 
606  01  0 
476  00  0 
260  17  0 
200  01  0 
402  00  0 
606  01  0 
476  00  0 


260  17 
200  01 
402  00 
606  01 
476  00 
260  17 


00  030242 
00  077574 
00  056104 
00  077556 
00  064523 

00  ^iim 

00  056104 
00  077557 
00  064523 
00  100636 
00  077755 
00  Mini 
00  077755 
00  064523 
00  100637 
00  077755 
00  Mllll 
00  077755 
00  064523 
00  100640 
00  077755 

00  Mim 

00  077755 
00  064523 


!-*STATUS  —  ROUTINE  TO  DETERMINE  THE  DRIVE  ERROR  AND  TO  REPORT  IT 
•♦     FROM  THE  STATUS  GATHERED  BY  THE  "SNAPSHOT"  OPERATION. 

;/(f*****************************t  ****************************************** 


r 

DI 
DI 


STATUS:  MOVE 
SKIPN 
JRST 
TLNN 
JRST 


STATSA: 


STATSB: 


STATSC: 


STATSE: 


PUT 

PUT 

MOVE 

SKIPN 

JRST 

TRNE 

JRST 

TRNE 

60 

TRNE 

AOS 

TRNE 

GO 

TRNE 

PCRL 

SKIPN 

JRST 

MOVE 

GO 

SKIPN 

JRST 

MOVE 

GO 

MOVE 

SET2M 

TRNN 

SETOM 

GO 

MOVE 

SETZM 

TRNN 

SETOM 

GO 

MOVE 

SETZM 

TRNN 

SETOM 

GO 


CONSU 

RETFLG 

STATSA 

PALERS 

STATSD 

AC1 
AC2 

croNi5 

RH10 

STATSB 

PSFAIL 

PWRFAL 

CHNER 

DFERR 

OVRRUN 

.OVR(CSBP) 

DPE 
SDBPE 
EXCEP 
SEXCEP 


D0NHF6 

STATSE 

AC1,CPTCR5 

REGPNT 

RH20 

STATSE 

AC1,CSTCR5 

REGPNT 

AC  1, SNAP 

SHREG* 

AC1,RDAT 

SHREG 

REGPNT 

ACnSNAPH 

SHREG 

AC1-RDAT 

SHREG 

REGPNT 

AC1,SNAP+2 

SHREG 

AC1-RDAT 

SHREG 

REGPNT 


GET  THE  PGM  SWITCHES 

IN  A  RETRY?? 

NO  -  PROCEED 

PRINT  ALL  ERRORS  SWITCH  SET?? 

NO  -  EXIT 


;SAVE  SOME  AC'S 


GET  THE  MBC  CONI  STATUS 

IS  THE  MBC  =  RH10?? 

NO  -  MUST  BE  AN  RH20 

RHIO  POWER  FAILURE?? 

YES 

RHIO  CHANNEL  ERROR  DETECTED?? 

YES  -  TELL  OPR 

RHIO  OVER  RUN?? 

YES  -  COUNT  IT 

DATA  BUS  PARITY  ERROR?? 
YES  -  REPORT 
DRIVE  EXCEPTION?? 
YES  -  REPORT 


DONE  ERROR  DETECTED?? 

NO 

YES  -  PRINT  THE  PRIM  MBC 


;PRINT  2  REGISTERS?? 
;N0 


REG 


;GET  DRIVE  CONTROL  REG  DATA 


ANY  DATA  IN  REG? 

NO 

PRINT  IT 

GET  THE  DRIVE  STATUS  REG  DATA 


;ANY  DATA  IN  REG? 

.-PRINT  IT 

.•DRIVE  ERROR  REG  #1 


.•PRINT  IT 


L_ 
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SEQ  0528 


D 


16731 

16732 

16733 

16734 

16735 

16736 

16737 

16738 

16739 

16740 

16741 

16742 

16743 

16744 

16745 

16746 

16747 

16748 

16749 

16750 

16751 

16752 

16753 

16754 

16755 

16756 

16757 

16758 

16759 

16760 

16761 

16762 

16763 

16764 

16765 

16766 

16767 

16768 

16769 

16770 

16771 

16772 

16773 

16774 

16775 

16776 

16777 

16778 

16779 

16780 

16781 

16782 


056123 

056124 

056125 

056126 

056127 

056130 

056131 

056132 

056133 

056134 

056135 

056136 

056137 

056140 

056141 

056142 

056143 

056144 

056145 

056146 

056147 

056150 

056151 

056152 

056153 

056154 

056155 

056156 

056157 

056160 

056161 

056162 

056163 

056164 

056165 

056166 

056167 

056170 

056171 
056172 
056 1 73 
056' "4 
056175 
056176 
056177 
056200 
056201 
056202 
056203 
056204 


200  01  0 
402  00  0 
606  01  0 
476  00  0 
260  17  0 
260  17  0 
200  01  0 
402  00  0 
606  01  0 
476  00  0 
260  17  0 
260  17  0 
200  01  0 
402  00  0 
260  17  0 
200  01  0 
260  17  0 
200  01  0 
260  17  0 
200  01  0 
402  00  0 


606  01 
476  00 
260  17 
200  01 
402  00 
606  01 
476  00 
260  17 
2uJ  01 


0 
0 
0 
0 
0 
0 
0 
0 

0 

40?  00  0 
606  01  0 
476  00  0 


260  17 
402  00 
260  17 
260  17 
254  00 


261 
261 


17 
17 


332  00 
254  00 
336  00 
260  17 
205  00 
541  00 
251  00 
262  17 

262  17 

263  17 


0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  100652 
00  077755 
00  Villi 
00  077755 
00  064523 
00  056275 
00  100653 
00  077755 
00  Mini 
00  077755 
00  064523 
00  056407 
00  100643 
00  077755 
00  064523 
00  100650 
00  064523 
00  100651 
00  064523 
00  100647 
00  077755 

00  Mini 

00  077755 
00  064523 
00  100654 
00  077755 

00  Mini 

00  077755 
00  064523 
00  100655 
00  077755 

00  Mini 

00  077755 
00  064523 
00  077755 
00  057030 
00  056527 
00  056173 

00  000001 
00  000002 
00  030037 
00  056177 
00  077720 
00  056223 
00  100636 
11  000000 
11  000017 
00  000002 
00  000001 
00  000000 


MOVE 

SETZM 

TRNN 

SETOM 

GO 

GO 

MOVE 

SETZM 

TRNN 

SETOM 


^ 


STATSD: 


MOVE 

SETZM 

GO 

MOVE 

GO 

MOVE 

GO 

MOVE 

SETZM 

TRNN 

SETOM 

GO 

MOVE 

SETZM 

TRNN 

SETOM 

GO 

MOVE 

SETZM 

TRNN 

SETOM 

GO 

SETZM 

i 

JRST 

PUT 

PUT 

SKIPE 

JRST 

SKIPN 

GO 

MOVSI 

HRRI 

BLT 

GET 

GET 

RTN 


AC1,SNAP*14 

SHREG 

ACl-RDAT 

SHREG 

REGPNT 

E2ANAL 

AC1,SNAP+15 

SHREG 

ACURDAT 

SHREG 

REGPNT 

E3ANAL 

ACl,SNAP+5 

SHREG 

REGPNT 

AC1,SNAP*12 

REGPNT 

ACKSNAP^13 

REGPNT 

ACUSNAP^Il 

SHREG 

ACl.RDAT 

SHREG 

REGPNT 

AC1,SNAP>16 

SHREG 

ACKRDAT 

SHREG 

REGPNT 

AC1,SNAP+17 

SHREG 

ACURDAT 

SHREG 

REGPNT 

SHREG 

CHNTST 

UPDERR 

."►3 

AC1 

AC2 

USER 

.-^3 

RETFLG 

ECCTST 

SNAP 

(DSBP) 

17(DSBP) 

AC2 

ACl 


; ERROR  REG  #2 


.•PRINT  ANY  ERROR  FAULTS 
.•ERROR  REG  *3 


PRINT  IT 

PRINT  ERROR  FAULTS 

GET  THE  DRIVE  DTS  REG  DATA 

PRINT  IT 

GET  THE  DRIVE  CYL  DATA 

PRINT  IT 

GET  THE  CURRENT  CYL  DATA 

PRINT  IT 

GET  DRIVE  OFFSET  REG  DATA 


.•PRINT  IT 
;ECC  REG  #1 


.•PRINT  IT 
.•ECC  REG  #2 


PRINT  IT 

INTO  LONG  PRINTOUT  MODE 

PRINT  CHAN  STATUS  IF  NECESSARY 

UPDATE  THE  ERROR  COUNTERS  IN  DSB 


;USER  MODE? 

•IN  A  RETRY'' 

•CHECK  IF  ECC  MSG  NEEDED 

.•PREPARE  TO  BLT  THE  SNAPSHOT  INTO 

.-THE  DRIVES*  DSB  AREA 

.•DO  IT 

.•RESTORE  AC'S 

;EXIT  STATUS 


L 


•—•» 


DDRPl  - 
DDRPI3 

16783 
16784 
16785 

]m 

16788 
16789 
16790 
16791 
16792 
16793 
16794 
16795 
16796 
16797 
16798 
16799 
16800 
16801 
16802 
16803 
1680A 
16805 
16806 
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SEQ  0529 


P 

iD 
D 


056205 

8W 

056210 
056211 
056212 
056213 
056214 


056215 
056216 
056217 
056220 
056221 
056222 


402  00 

037  02 
135  00 
037  03 
037  02 
037  15 


)0  Q0Q0Q1 

.  JO  0QOQQ7 
0  00  071757 
0  00  070150 
0  00  000000 
0  00  075022 
0  00  000004 


602  00  0  00  200000 
263  17  0  00  000000 
037  02  0  00  075030 
350  00  0  10  000021 
200  00  0  00  077524 
263  17  0  00  000000 


';*PWRFAL  -  HERE  TO  PROCESS  A  POWER  FAILURE  IN  AN  RHlO  CONTROLLER 


PWRFAL:  SETZM 
GO 

PBELL 
PMSG 
LDB 
PNT3 
PMSG 
FATAL 


AC1 
.CONO 

<'^MBC  #> 

[POINT  9,MBCNJ1] 


;SEND  A  CONO  RH,0 
;RING  THE  BELL  (DING!) 


;GET  THE  MBC  DEVICE  CODE  M 
;AND  PRINT  IT 
<INDICATES  A  POWER  SUPPLY  FAILURE*> 


i*DFERR  -  HERE  FOR  AN  RHIO  CHANNEL  ERROR 


DFERR:   TRNE 
RTN 
PMSG 
AOS 
MOVE 
RTN 


EXCEP 

<*DF10  CHANNEL  ERROR> 

.CHNER(CSBP) 

CC0NI5 


;DRIVE  EXCEPTION  UP?? 
;YES  -  GO  NO  FURTHER! 

.•COUNT   IT   IN  THE   CSB  AREA 

.•RESTORE  ACO 

;EXIT 


L 


T 


DDRPI  - 
DDRPI3 

16807 

16808 

16809 

16810 

16811 

16812 

16813 

168U 

16815 

16816 

16817 

16818 

16819 

16820 

16821 

16822 

16823 

1682A 

16825 

16826 

16827 

16828 

16829 

16830 

16831 

16832 

16833 

1683A 

16835 

16836 

16837 

16838 

16839 

168A0 

168A1 

16842 

168A3 

168A4 

16845 

16846 

16847 

16848 

16849 

16850 

16851 

16852 

16853 

16854 

16855 

16856 

16857 

16858 
16859 

16860 
16861 
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•♦ECCTST  —  ROUTINE   TO  DETERMINE  AN  ECC  FAILURE  AND  PRINT  MESSAGE 

^  ;       TO  THE  OPR. 

•if********** *****♦♦•♦*♦*♦♦♦♦*♦*♦*******♦♦*♦*♦***♦**♦*♦****♦♦**♦♦♦**♦♦♦♦♦*♦ 


SEQ  0530 


r 

c 
c 


056223 
056224 
056225 
056226 
056227 
056230 
056231 
056232 
056233 
056234 
056235 


056236 
0562'7 
0562'.0 


056241 
056242 
056243 
056244 


056245 
056246 
056247 
056250 
056251 
056252 
056253 


17 
17 


261 
261 
332  00 
260  17 
332  00 


0 
0 
0 
0 
0 


00  000000 

ECCTST:  PUT 

00  000001 

PUT 

00  077721 

SKIPE 

00  063433 

60 

00  ^77722 

SKIPE 

00  063505 

GO 

00  200000 

TRNE 

00  056273 

JRST 

00  100640 

MOVE 

00  100000 

TRNN 

00  056266 

JRST 

260  17  0 
602  01  0 
254  00  0 
200  00  0 
606  00  0 
254  00  0 


200  00  0  00  100647 
602  00  0  00  004000 
254  00  0  00  056266 


135  00  0  00  075034 
326  00  0  00  056245 
037  02  0  00  075035 
254  00  0  00  056266 


200  00  0 
602  00  0 


254  00 
135  00 
326  00 
037  02 
254  00 


0 
0 
0 
0 
0 


00  100640 
00  000100 
00  056254 
00  075047 
00  056266 
00  075050 
00  056266 


056254 
056255 
056256 
056257 
056260 
056261 
056262 
056263 
056264 
056265 


135 
135 
313 
254 
037 
037 
200 
370 
260 
037 


01 
00 
00 
00 
02 
02 
00 
00 
17 
02 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
01 
00 
00 
00 
01 
00 
00 


0  00 


075064 
075034 
056271 
056266 
075065 
075075 
056271 
000000 
066163 
067332 


ACO 

ACl 

RHIO 

RDCR 

RH20 

RDPTCR 

ACUDXES 

ECTDES 

SNAP+2 

1820 

ECTEX 


;HAVE  DCK...SEE  IF  ECC  UAS  ENABLED 


MOVE 
TRNE 
JRST 


SNAP^ll 

1B24 

ECTEX 


;SAVE  SOME  AC'S 


MQf  -    f^HlO^ 

YES  -  READ 'the  CONTROL  REG 

RH20? 

YES 

WAS  THE  DXES  BIT  SET? 

YES  -  EXIT  NOU 

GET  THE  ER1  DATA 

DCK  ERROR? 

NO  -  EXIT 


GET  THE  OFFSET  REG  DATA 
ECC  INHIBITED? 
YES  -  EXIT 


; CHECK  FOR  ERROR  (POSITION  =  0) 


LDB     CPOINT  16,SNAP+16,35]   ;GET  THE  ECC  POSITION  DATA 

JUMPN   ECTA  ERROR  IF  =  0 

PMSG    <''ECC  FAULT:  POSITION  Riu  =0  WITH  DCK  =1  AND  ECI  =0  !  1  ^> 


JRST    ECTEX 
;SEE  IF  HAD  HARD  ECC  ERROR  (ECH  =1) 
ECTA: 


;EXIT 


GET  THE  ERl  DATA 

ECH^l  ? 

YES  -  GO  TO  NEXT  TEST 

GET  THE  ECC  PATTERN 

ERROR  IF  PATTERN  =0 
PMSG    <*ECC  FAULT:  PATTERN  REG=0  WITH  DCK  =1,  ECI  =0,  POS  =NON-0  &  ECH 
JRST    ECTEX  ;EXIT 


MOVE  SNAP+2 

TRNE  1B29 

JRST  ECTB 

LDB  [POINT  11,SNAP+17,35] 

JUMPN  ECTEX 


=0  ::'^> 


;HARD  ERROR  ...  MAKE  SHURE  POSITION  COUNTS  ARE  CORRECT 


ECTB: 


LDB 

LDB 

CAMLE 

JRST 

PMSG 

PMSG 

MOVE 

SOS 

GO 

PMSG 


ACl, [POINT  1,SNAP*11,23]  ;GET   THE   FORMAT  BIT 

[POINT   16,SNAPM6,35]       ;GET  THE  POSITION  COUNT 


AC0,ECTCNT(AC1) 
ECTEX 


COMPARE? 

NO  ERROR  "  EXIT 
<^ECC  FAULT:  DCK  =1,  ECr=0,  POS  =N0N-6  &  ECH  =1> 
<*P0SITI0N  COUNT  INCORRECT  FOR  ECH  =1   COUNT  MUST  BE  GREATER  THAN  > 
ECTCNT(ACI) 


PSDN 

<!  !*> 


.-PRINT  THE  COUNT 


L 
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SEO  0531 


16862 
16863 
1 6864 
1686S 
16866 
16867 
16868 
16869 
16870 
16871 
16872 


056266  262  17  0  00  000001 

056267  262  17  0  00  000000 
056270  263  17  0  00  000000 


056271  000000  011026 

056272  000000  010026 

056273  037  02  0  00  075110 

056274  254  00  0  00  056266 


ECTEX:  GET  AC1 

GET  ACO 
RTN 

.•COUNTS  FOR  THE  ECC  CHECK 


ECTCNT:  ^^04630 
^D4118 


ECTDES 


PMSG 
JRST 


;F0R  10  MODE  FORMAT 
;FOR  11  MODE  FORMAT 

<*"DXES"  WAS  SET  IN  THE  CONTROLLER*^> 
ECTEX  ;EXIT 
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SEQ  0532 


16873 

1687A 

16875 

16876 

16877 

16878 

16879 

16880 

I608I 

16882 

16883 

1688A 

16C85 

16886 

16887 

16888 

16889 

16890 

16891 

16892 

16B93 

1689A 

16895 

16896 

16897 

16898 

16899 

16900 

16901 

16902 

16903 

1690A 

16905 

16906 

16907 

16908 

16909 

16910 

16911 

16912 

16913 

1691 4 

16915 

16916 
16917 

16913 
16919 
16920 
16921 
16922 


056275 

056276 

056277 

056300 

056301 

056302 

056303 

056304 

056305 

056306 

056307 

056310 

056311 

056312 

05631 

0563^ 

0563 

05631O 

056317 

05632C 

056321 

056322 

056323 

056324 
056325 
056326 
056327 
056330 
056331 
056332 
056333 
056334 
056335 
056336 
05633^ 
056340 
056341 
056342 
056343 
056344 

056345 
056346 


606  01 
263  17 
261  17 
200  00 

607  00 
254  00 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
13 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000000 
100747 
000001 
056347 
075116 
100000 
075130 
020000 
075134 
010000 
075140 
004000 
075146 
002000 
075152 
001000 
075161 
000400 
075165 
000200 
075173 


t\ji   01  0 

037  02  0 

602  01  0 

037  02  0 

602  01  0 

037  02  0 

602  01  0 


037  02 
60?  01 
037  02 
602  01 
037  02 
602  01 
037  02 


0 
0 
0 
0 
0 
0 
0 


037  00  0 

262  17  0 

263  \1   0 


00  000100 
00  075176 
00  000040 
00  075202 
00  000020 
00  075206 
00  000010 
00  075210 
00  000004 
00  075215 
00  000002 
00  075221 
00  000001 
00  075225 
00  030242 
00  000000 
00  000000 


262  17  0  CO  000000 

263  17  0  00  000000 


;»E2ANAL  —  ROUTINE  TRANSLATES  ER2  DATA  TO  POSSIBLE  FAULTY  MODULES 
;*0N  ENTRY  FR2  DATA  IS  EXPECTED  IN  ACI. 


E2ANAL:  TRNN 
RTN 
PUT 
MOVE 
TLNN 
JRST 
PMSG 
TRNE 
PMSG 
TRNE 
PMS6 
TRNE 
P«SG 
TRNE 
P«SG 
TRNE 
PMSG 
TRNE 
P«SG 
TRNE 
PMSG 
TRNE 
P«SG 

TRNE 

PMSG 

TRNE 

P«SG 

TRNE 

P«SG 

TRNE 

P«SG 

TRNE 

PMSG 

TRNE 

PMSG 

TRNE 

PMSG 

PCRL 

GET 

RTN 

ERAEX:   GET 
RTN 


\.M7111  ;ANY  ERRORS 

;N0,  EXIT 

0  ;YES.  SAVE  ACO 

ACO,DSBTBL(DRIVE)  ;GET  TABLE  DATA 

AC0,(.RP04)  ;AN  RP04  ? 

E2ANH  ;N0  MEMOREX  DRIVE 

<*TOANSLATI0N  Of  ER2  DATA  TO  POSSIBLE  FAULTY  ISS  MODULES 

<ACb.>    •]B16,B04,B07,B03''> 

1J822 

<PLOUNS]A06,A08,A04''> 

1-1B23 

<30VVNS]B16, POWER  SUPPLY  FAULT'^> 

M824 

<INDXER]A08,B08,A04,B06*> 

1JB25 

<NHDSEL]B09,B07,B03,B05.BOJ8,B12,A05*> 

1JB26 

<MHSEL]B09,B03,A05*> 

1JB27 

<WRTRU]B16,B04,B13,B07,B03,B12,B05*> 

1JB28 

<FAILSE]B09,BU'^> 

1JB29 

<TRANSU]B09,B04,B07,B03*> 
1JB30 
<TRADF]B09,B04,B03,B07^> 

1JB31 

<«SEJB14*> 

1,1B32 

<CSWyNS]B09,B04,B03,B07,805'^> 

1,1B33 

<WSUNSDB09,B04,B03,B07*> 

1JB34 

<CSFAIL]909,B04,B07,B03'^> 

1,1B35 

<yCUNS]B09,B03,B07*> 


A  A< 


d 

ACO 


.•RESTORE  AC 
;EXIT 


-..,„ J 
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SEQ  0533 


16923 
1692A 
16925 
16926 
16927 
16928 
16929 
16930 
16931 
16932 
16933 
1693A 
16935 
16936 
16937 
16938 
16939 
169A0 
169A1 
169A2 
16943 
169A4 
16945 
16946 
-16947 
16948 
16949 
16950 
16951 
16952 
16953 
16954 
16955 
16956 


056347 

056350 

056351 

056352 

C56353 

056354 

056355 

056356 

056357 

056360 

056361 

056362 

056363 

056364 

056365 

056366 

056367 

056370 

056371 

056372 

056373 

056374 

056375 

056376 

05637^ 

05^hOO 
0*^6401 
056402 
056403 
056404 
056405 
056406 


0 
0 
0 
0 
0 
0 


607  00 
254  00 
037  02 
602  01 
037  02 
602  01  . 
037  02  0 
602  01  0 
037  02  0 
602  01  0 
037  02  0 
602  01  0 
037  02  0 
602  01  0 
037  02  0 
602  01  0 
0:^7  02  0 
602  01  0 
03r  02  0 
602  01  0 
037  02  0 
602  01  0 


037  02 
602  01 
C37  02 
602  01 
037  02 
602  01 
037  02 
0:>'   00 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000300 
00  056345 
00  075231 
00  020000 
00  075244 
00  004000 
00  075251 
00  002000 
00  075260 
CO  001000 
00  075263 
00  000400 
00  075266 
00  000200 
00  075271 
00  000100 
00  075277 
00  000040 
00  075302 
00  000020 
00  075305 
00  0C0010 
00  075307 
00  000004 
00  075312 
00  000002 
00  075315 
00  000001 
00  075320 
00  030242 
00  000000 

on  000000 


E2ANM:  TLNN  AC0,(.RP05l .RP06)      ;MEMOREX  DRIVE  ? 

JRST  ERAEX  ;N0  EXIT 

PMS6    <*TRANSLATION  OF  ER2  DATA  TO  POSSIBLE  FAILING  MEMOREX  MODULES^*> 

TRNE  1,1822 

PMS6  <PLU]D15,D14, PACK, SERVO  HEAD*> 

TRNE  1,1824 

PMS6  <IXE]D04,D15,D16,D02, PACK, SERVO  HEAD*> 

TRNE  1,1825 

PMSG  <NHS]D20,D11*> 

TRNE  1,1826 

PMSG  <MHS]D20,D16,D17^> 

TRNE  1,1827 

PMSG  <WRU]D15,D16,D20'^> 

TRNE  1,1828 

PMSG  <A8S:D10,D11,Me(M7788),SS(M7786)*> 

TRNE  1,1829 

PMSG  <TUF3D16,D17,D20*> 

TRNc  1,1830 

PMSG  <TDF]D16,D17,D20'^> 

TRNE  1,1831 

PMSG  <RAW]D20*> 

TRNE  1,1832 

PMSG  <CSUJD17,D20*> 

TRNE  M833 

PMSG  <WSUJD16,D17,D20^> 

TRNE  1,183^ 

PMSG  <CSFJD17,D20*> 

TRNE  1,1835 

PMSG  <WCU]D17,D20*> 

PCRL 

GET  ACO 

RTN 


DDRPl  " 
DDRPI3 

16957 

16958 

16959 

16960 

16961 

16962 

16963 

1696A 

16965 

16966 

16967 

16968 

16969 

16970 

16971 

16972 

16973 

16974 

16975 

16976 

16977 

16978 

16979 

16980 

16981 

16982 

16983 

16984 

16985 

16986 

16987 

16988 

16989 

16990 

16991 

16992 

16993 

16994 

16995 

16996 

16997 

16998 

16999 

17000 

17001 

17002 

17003 

17004 

17005 

17006 

17007 

17008 

17009 

17010 

17011 
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•#*****t***t********t***************-^* ♦*♦****♦♦♦****♦**♦*♦**♦♦ ************ 

i*E3ANAL  —  ROUTINE  TRANSLATES  ER3  DATA  TO  POSSIBLE  FAULTY  MODULES 

;*0N  ENTRY,  ER3  DATA  IS  EXPECTED  IN  ACI. 

•if*tt******** ************************************************************* 


SEQ  0534 


056407 

056410 

056411 

056412 

056413 

056414 

056415 

056416 

056417 

056420 

056421 

056422 

056423 

056424 

056425 

056426 

056427 

056430 

056431 

056432 

056433 

056434 

056435 

056436 

056437 

056440 

056441 

056442 

056443 

056444 

056445 

056446 

056447 

056450 

056451 

056^.52 

056453 

056454 

056455 

056456 

056457 

056460 

056461 

056462 

056463 

056464 

056465 

056466 


606  01  0 
263  17  0 
261  17  0 
200  00  0 

607  CO  0 
254  00  0 
037  02  0 
602  01  0 
037  02  0 
602  01  0 


037 
60^ 
037  02 
602  01 


02  0 


1 


0 
0 
0 


037  02  0 
602  01  0 
037  02  0 
602  01  0 
037  02  0 
602  01  0 


037  02 
602  01 


037  02  0 
037  00  0 
2oi  17  0 
263  17  0 


00  ^77777 
00  000000 
00  000000 
13  100747 
00  000001 
00  056441 
00  075323 
00  100000 
00  075335 
00  040000 
00  075341 
00  000100 
00  075345 
00  000040 
00  075356 
00  000020 
00  075367 
00  000010 
00  075375 
00  000002 
00  075403 
00  000001 
00  075407 
00  030242 
00  000000 
00  000000 


607  00 
254  00 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
602  01 
037  02 
037  00 

262  17 

263  17 


0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


0 
0 
0 
0 


00 
00 
00 
00 


0  00 
0  00 
0  00 
0  00 


00 
00 
00 
00 
00 


0  00 
0  00 


000300 
056345 
075413 
100000 
075426 
040000 
075431 
020000 
075444 
000100 
075456 
000040 
075464 
000020 
075^72 
000002 
075500 
000001 
075507 
0302A2 
000000 
000000 


E3ANAL:  TRNN 
RTN 
PUT 
MOVE 
TLNN 
JRST 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
PCRL 
GET 
RTN 

ER3ANM:  TLNN 
JRST 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
TRNE 
PMSG 
PCRL 
GET 
RTN 


'[A7777y  ;ANY  ERRORS 

;N0,   EXIT 

0  'YES,   SAVE  AC 
ACO,DSBTBL(DRIVE)                ;GET'tABLE  DATA 
AC0,(.RP04)                           ;AN  RP04   ? 
ER3ANM                                     ;N0  MEMOREX  DRIVE 
<nRANSLATI0N  OF   ER3  DATA  TO  POSSIBLE   FAULTY   ISS  MODULES 
1JB20 

<OF-CYL]B09,B08,B13*> 

1,1821 

<SKI]B08,A17,A08,B13*> 

1  1B29 

<AC-LOW]POWER  MONITOR  MODULE  OR  POWER  SUPPLY  FAULT^> 

1,1B30 

<DC-LOW]POWER  MONITOR  MODULE  OR  POWER  SUPPLY  FAULT*> 

1,1B31 

<DISA8L]B12, FAULTY  DISABLE  SWITCH*> 

1,1832 

<US0TRW]B16, A09, 813, 814,81 7, 812, B04"> 

1,1834 

<VELUNS]B16,B11,813,814*> 
1,1835 
<RVUNS]B12,B13,814**> 


A  A- 


AC0,(.RPO5!.RP06)      ;MEMOREX  DRIVE 

ERAEX  ;N0  EXIT 

<nRANSLATION  OF  ER3  DATA  TO  POSSIBLE  FAILING  MEMOREX  MCDULES*> 

1,1820 

<0CYL]D11,D14,D15*> 

1,1821 
<SKI]D11,D15,D16,D01,D14,SS(M7786),MB(M7788),PACK,SFRVO  HEAD*> 

1,1822 

<0PEJD10,D02,Me(M7789/, LOOSE  ADDR  PLUG, FAULTY  SWITCHES*> 

1,1829 

<ACLJPOWER  SUPPLY  OR  MONITOR  IN  DCL*> 

1,1830 

<DCLJPOWER  SUPPLY  OR  MONITOR  IN  DCL^> 

1J831 

<35VF]D20,D17, POWER  SUPPLY  FAULT*> 

1,1834 

<WAOJD20,D11,D01,MA(M7788),RG(M7774)^> 

1,1835 

<DCU]D04, POWER  SUPPLY  OR  REGULATOR*^ 

ACO 
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SEQ  0535 


17012 

17013 

17014 

17015 

17016 

17017 

17018 

17019 

17020 

17021 

17022 

17023 

17024 

17025 

17026 

17027 

17028 

17029 

17030 

17031 

17032 

17033 

17034 

17035 

17036 

17037 

17038 

17039 

17040 

17041 

17042 

17043 

17044 

17045 

17046 

17047 

17048 

17049 

17050 

17051 

17052 

17053 

17054 

17055 

17056 

17057 

17058 

17059 

17060 

17061 

17062 

17063 


056467 
056470 
056471 
056472 
056473 
056474 
056475 
056476 


350  00 
037  02 
336  00 
254  00 
260  17 
260  17 
037  00 
263  17 


0  10 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


000024 
075515 
077721 
056475 
063431 
064523 
030242 
000000 


056477 
056500 
056501 
056502 
056503 
056504 
056505 
056506 
056507 
056510 
056511 
056512 


200  00  0 
602  00  0 
260  17  0 

602  00  0 
260  17  0 
200  00  0 

603  00  0 
254  00  0 
037  02  0 
260  17  0 
200  00  0 
263  17  0 


05651. 
056514 
056515 
056516 
056517 


037  01  0  00  000007 
037  00  0  00  030242 
260  17  0  00  054607 
037  02  0  00  075526 
263  17  0  00  000000 


056520 
056521 
056522 
056523 
056524 
056525 
056526 


037  00 
260  17 
037  02 
200  00 
621  CO 
202  00 
263  17 


0 
0 
0 
0 
0 
0 
0 


•♦SDBPE  -  HERE  FOR  A  DATA  BUS  PARITY  ERROR 


SDBPE : 


AOS 

.DBPE(CSBP) 

PMS6 

<*DATA  BUS 

SKIPN 

RHIO 

JRST 

."^3 

GO 

RDDBUF 

GO 

REGPNT 

PCRL 

RTN 

.-COUNT  THE  DATA  BUS  PARITY  ERROR 


MBC  =  RHIO?? 

NOPE 

YES  -  READ  THE  RHIO  DATA  BUFFER  REG 

AND  PRINT  THE  CONTENTS 


;*SEXCEP  -  ROUTINE  TO  PROCESS  DRIVE  EXCEPTION 

•  /If*********  »♦»♦*»»♦»»**  *************************************************** 

GET  THE  DRIVE  ERROR  REG  DATA 
DRIVE  TIMING  ERROR  DETECTED?? 
YES  -  TELL  THE  OPR 
DRIVE  UNSAFE  UP?? 
YES  -  TFLL  THE  OPR 
GET  THE  PGM  SWITCHES 
TEXT  INHIBIT? 
YES 
<*DRIVE  EXCEPTION  ERROR  ON  > 

;PRINT  TME  DRIVE  WHERE  THE  ERROR  IS 

;RESTORt  ACO 

•/If*********************************  ♦♦******♦**♦**♦♦♦♦♦♦*♦♦**♦*♦♦♦*♦**♦♦♦*♦ 

•♦SDTE  -  HERE  FOR  DRIVE  TIMING  ERROR 

;/|f******************************»**»*  »**»•*****♦**♦♦*********'  t  *********** 


00  100640 

SEXCEP:  MOVE 

SNAP+2 

00  010000 

TRNE 

DTE 

00  056513 

GO 

SDTE 

00  040000 

TRNE 

UNSF 

00  056520 

GO 

SUNSF 

00  030046 

MOVE 

CONSW 

00  000200 

TLNE 

TXTINH 

00  056511 

JRST 

.'^3 

00  075521 

PMSG 

<*DRIV 

00  054607 

GO 

PNTDRV 

00  077524 

MOVE 

CC0NI5 

00  000000 

RTN 

SDTE:   PBELL 
PCRL 
GO 

PMSG 
RT.M 


;DING  THE  BELL 

PNTDRV  ; PR I NT  THE  DRIVE  NUMBER 

<  TIMING  ERROR  DETECTED*> 

;EXIT 


•  4f****\;********fr  *****************************  **•*♦**<***********  *********** 

;*5UNSF  -  HERE  FOR  DRIVE  UNSAFE 
•#******************************************♦*****♦**♦**♦♦♦♦****♦**♦♦*♦**♦ 


;PRINT  THE  DRIVE  NUMBER 
<  HAS  AN  "UNSAFE"  CONDITION  AND  WILL  NO  LONGE'^  BE  TESTED1*> 


00  030242 

SUNSF : 

PCRL 

00  054607 

GO 

PNTDRV 

00  075532 

PMSG 

<  HAS  AN  "UNS 

13  100747 

MOVE 

LSBTBL(DRIVE) 

00  500000 

TLZ 

(.OPR.'.ONLN) 

13  100747 

MOVEM 

DSBT8L(DRIVE) 

00  000000 

RTN 

GET  THE  TABLE  STATUS  FOR  THE  DRIVE 
CLEAR  THE  OPR  SELECT  ♦  ONLINE 
SAVE  THE  UPDAT:D  STATUS 


I 
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■-1 


r 


SEQ  0536 


DDI 
DDI 


17064 

17065 

17066 

17067 

17068 

17069 

17070 

17071 

17072 

17073 

17074 

17075 

17076 

17077 

17078 

17079 

17080 

17081 

17082 

17083 

17084 

17085 

17086 

17087 

17088 

17089 

17090 

17091 

17092 

17093 

17094 

17095 

17096 

17097 

7098 

(7099 

17100 

17101 

17102 

17103 

17104 

17105 

17106 

17107 


056527 
056530 
056531 
056532 
056533 
056534 
056535 
056536 
056537 
056540 
056541 
056542 

056543 
056544 
056545 
056546 
056547 
056550 
056551 
056552 
056553 
056554 
056555 
056556 

056557 
056560 

056561 
056562 
056563 
056564 
056565 
056566 
056567 
056570 
056571 
056572 


514  01  0 

242  01  0 

243  01  0 
254  00  0 
201  00  0 
270  00  0 
350  00  1 
205  00  0 
213  00  0 
242  00  0 
430  01  0 
254  00  0 


514  01 

242  01 

243  01 
254  00 
201  00 
270  00 


0 
0 
0 
0 
0 
0 


350  00  1 
205  00  0 


213  00 
242  00 
01 
00 


tf. 


00  100640 
00  000002 
00  056533 
00  056543 
11  000054 
00  000002 
00  000000 
00  400000 
00  000002 
02  000000 
00  000000 
00  056531 

00  100652 
00  000002 
00  056547 
00  056557 
11  000074 
00  000002 
00  000000 
00  400000 
00  000002 
02  COOOOO 
00  000000 
00  056545 


5  14  01  0  00  100653 
242  01  0  00  000002 


243  01 
263  17 
201  00 
270  00 
350  00 
205  00 
213  00 
242  00 
430  01 
254  00 


0 
0 
0 
0 
1 
0 
0 
0 
0 
0 


00 
00 
11 
00 
00 
00 
00 
02 
00 
00 


056563 
000000 
000114 
000002 
000000 
400000 
000r^2 
000c JO 
000000 
056561 


!-*UPDERR  -  HERE  TO  UPDATE  ALL  THE  ERROR  COUNTERS  IN  THE  DRIVES'  DSB  AREA 


UPDERR:  HRLZ 
LSH 

UPDER1:  JFFO 
JRST 
MOVEI 
ADD 
AOS 
MOVSI 
MOVNS 
LSH 
XOR 
JRST 

UPDER2:  HRLZ 
LSH 

UPDE2A:  JFFO 
JRST 
MOVEI 
ADD 
AOS 
MOVSI 
MOVNS 
LSH 
XOR 
JRST 


UPDER3: 


HRLZ 
LSH 


UPDE3A:  JFFO 
RTN 
MOVEI 
ADD 
AOS 
MOVSI 
MOVNS 
LSH 
XOR 
JRST 


AC1,SNAP^2 
ACU2  ^ 
AC1,.*2 
UPDER2 

.DCK^ssr; 

AC2 

aA.o 

40  )000 
AC 
(A  2) 
AC,  ^ 
UPDER1 

AC1,SNAPt14 

AC1,? 

ACL.+2 

UPDER3 

.ER20(DSBP) 

AC2 

aACO 

400000 

AC2 

(AC2) 

AC1, 

UPDE2A 

ACi,SNAP*15 
Afl,2 

AC1,.'^2 

AC0,.ER30(DSBP) 

AC0-AC2 

3AC0 

ACO, 400000 

AC2 

AC0,(AC2) 

AC1,AC0 

UPDE3A 


GET  DRIVE  ERROR  REG  #1  DATA 

LEFT  JUSTIFY  THE  DATA  AT  BIT  0 

GET  THE  FIRST  BIT  #  OF  ERROR 

DONE  WITH  REG  n^ 

GET  THE  ADDR  FOR  1ST  ERROR  .7EG 

GET  THE  OFFSET  INTO  THE  REG 

UPDATE  THE  PROPER  ERROR  COUNTER  IN  DSB 

MAKE  A  MASK  WORD 

GET  A  NEG  COUNT  FOR  BIT  NUMBER 

SHIFT  MASK  TO  PROPER  BIT 

CLEAR  THE  BIT  FROM  THE  TEST  WORD 

PROCESS  ANOTHER  ERROR  BIT 

GET  DRIVE  ERROR  REG  #2 

JUSTIFY  AT  BIT  0 

FIND  AN  ERROR  BIT 

DONE  WITH  ERROR  REG  #2 

GET  ADDR  FOR  REG  *2  COUNTERS 

GET  THE  OFFSET  INTO  THE  REG 

UPDAE  THE  PROPER  ERROR  COUNTER 

BUILD  A  MASK  WORD 

GET  NEG  BIT  COUNT  FOR  SHIFTING 

FINISH  THE  MASK  WORD 

CLEAR  THE  TESTED  BIT 

PROCESS  THE  NEXT  ERROR  BIT 


;GET  ERROR  REG  3  DATA 
;LEFT  JUST  AT  BIT  0 


FIND  A  ERROR  BIT 

NO  ERROR  RETURN 

GET  REG  3  CNTR  ADDR 

GET  OFFSET 

CNT  ERROR 

BUILD  A  MASK 

GET  NEG  BIT  CNT  FOR  SHIFTING 

FINISH  MASK  WORD 

CLEAR  THE  TESTED  BIT 

DO  NEXT  BIT 


r 


r 


DDRPl  - 
DDRPI3 

17108 

17109 

17110 

17111 

17112 

17113 

171U 

17115 

17116 

17117 

17118 

17119 

17120 

17121 

17122 

17123 

1712A 

17125 

17126 

17127 

17128 

17129 

17130 

17131 

17132 

17133 

1713A 

17135 

17136 

17137 

17138 

17139 

17140 

171A1 

17U2 

17143 

17144 

17145 

17146 

17147 

17148 

17149 
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./(f**»«***»*»***  »♦♦***♦♦♦♦**♦♦♦♦*****♦**♦*♦**♦♦**♦♦♦**  ♦*♦*♦♦*♦*♦*♦***♦**♦** 

•♦HLTSW  —  ROUTINE  TO  SEE  IF  HALT  ON  ERROR  SWITCH  IS  SET  AND  TO 

;»      HALT  IF  IT  IS 

•if*********** **♦♦***♦*♦♦♦*♦*♦**♦**♦*♦*****♦♦*♦*******♦♦***♦*♦***♦♦**♦♦**♦* 


SEQ  0537 


DDI 
DDI 


056573  200  00  0  00  030046 

056574  603  00  0  00  002000 

056575  037  14  0  00  000004 

056576  263  17  0  00  000000 


HLTSW: 


MOVE 
TLNE 
ERRHLT 
RTN 


CONSW 
ERSTOP 


GET  THE  PGM  SWITCHES 
HALT  SWITCH  SET?? 
YUP  -  HALT  NOW! 
NOPE  -  RETURN 


056577 
056600 
056601 
056602 
056603 
056604 
056605 
056606 

056607 
056610 
056611 
056612 
056613 
056614 
056615 
056616 
056617 

056620 
056621 
056622 
056623 
056624 
056625 


261  17 
261  17 
261  17 
201  01 

201  15 
200  00 
621  00 

202  00 

135  00 
316  00 
336  00 
254  00 
3^'  00 
254  00 
200  00 
661  00 
202  00 


0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
13 
00 
13 

00 
00 
01 
00 
01 
00 
01 
00 
01 


000001 
00001 5 
000000 
100235 
000074 
100747 
400000 
100747 

075544 
00001 3 
000000 
056620 
000000 
056620 
000000 
400000 
000000 


•4f********************** ♦♦♦♦**♦****♦*♦******♦*♦♦*♦*****♦♦♦♦♦♦***♦♦♦**♦♦*♦♦ 
•♦CLRALL  —  ROUTINE  TO  CLEAR  ALL  PENDING  DRIVE  COMMANDS  FROM  THE 
;t     EXECUTE  QUEUE  BY  SETTING  THE  COMMAND  "EXECUTED"  BIT  IN  THE 

;♦     QUEUE  ENTRY  POINTER  WORD 

./If*  ****************♦**♦♦♦♦♦♦♦*****♦*♦♦*♦**♦*♦♦♦*♦♦*♦♦♦♦♦**♦♦*♦*♦**  ♦♦*♦♦♦♦♦ 

;SAVE  AC'S 


CLRALL:  PUT 
PUT 
PUT 
MOVEI 
MOVE  I 
MOVE 
TLZ 
MOVEM 


CLCMAl: 


350  00  0  00  000001 

367  15  0  00  056607 

262  17  0  00  000000 

262  17  0  00  000015 

262  17  0  00  000001 

263  17  0  00  000000 


CLCMA2: 


LDB 

CAMN 

SKIPN 

JRST 

SKIPG 

JRST 

MOVE 

TLO 

MOVEM 

AOS 

REPTLP 

GET 

GET 

GET 

RTN 


AC1 

REPT 

ACO 

ACnCOMQ 

REPT,*D60 

DSBTBL(DRIVE) 

(.OPR) 

DSBTBL(DRIVE) 

[POINT  6,(AC1)J73 

DRIVE 

(ACl) 

CLCMA2 

(ACl) 

CLCMA2 

(ACl) 

(1B0) 

(ACl) 

ACl 

CLCMAl 

ACO 

REPT 

ACl 


GET  THE  START  ADDR  OF  THE  QUEUE 
SETUP  THE  LOOP  COUNTER 
GET  DRIVE  TABLE  STATUS 
CLEAR  SELECT  FLAG 
SAVE  UPDATED  STATUS 

GET  THE  DRIVE  #  FROM  ENTRY 
COMMAND  TO  SELECTED  DRIVE?? 
OR  IS  THE  QUEUE  SLOT  EMPTY?? 
NO  -  GET  THE  NEXT  ENTRY  POINTER 
HAS  THIS  ENTRY  BEEN  PROCESSED? 
YES  -  TRY  THE  NEXT  COMMAND 
NO  -  GET  THE  ENTRY  WORD 
SET  THE  EXECUTED  BIT 
SAVE  THE  UPDATED  WORD 

BUMP  THE  QUEUE  POINTER 
LOOP  TILL  ALL  DONE 


;EXIT 
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SEQ  0538 


DO 
DO 


17150 

17151 

17152 

17153 

1715A 

17155 

17156 

17157 

17158 

17159 

17160 

17161 

17162 

17163 

1716A 

17165 

17166 

17167 

17168 

17169 

17170 

17171 

17172 

17173 

17174 

17175 

17176 

17177 

17178 

17179 

17180 


056626 
056627 
056630 
056631 
056632 

056633 
056634 
056635 
056636 
056637 
056640 
056641 
056642 
056643 

056644 
05664 S 

056646 
056647 
056650 
056651 


;*STPCMD  —  ROUTINE   TO  TEMP.   CLEAR  ANY  PENDING  COMMANDS  TO  THE 
i*  SELECTED  DRIVE  BY  SETTING  THE  "EXECUTED"  BIT  IN  THE 

|»  COMMAND  QUEUE  ALONG  WITH  A  "CMD  STOPPED"  FLAG  IN  THE 

;*  QUEUE   ENTRY. 


261  17  0  00  000000 

261  17  0  00  000001 

261  17  0  00  000015 

201  01  0  00  100235 

201  15  0  00  000074 


STPCMD:   PUT 
PUT 
PUT 
MOVE  I 
MOVE  I 


135  00 
316  00 

336  00 
254  00 

337  00 
254  00 
200  00 
661  00 
202  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
01 
00 
01 
00 
01 
00 
01 


075544 
000013 
000000 
056644 
000000 
056644 
000000 
440000 
000000 


STPCM1 


350  00  0  00  000001 

367  15  0  00  056633 

262  17  0  00  000015 

262  17  0  00  000001 

26?  17  0  00  000000 

2o<  17  0  00  000000 


STPCM2: 


LDB 

CAMN 

SKIPN 

JRST 

SKIPG 

JRST 

MOVE 

TLO 

MOVEM 

AOS 
REPTLP 

GET 
GET 
GET 
RTN 


ACO 

AC1 

REPT 

AC1,C0MQ 

REPT,*D60 

ACO, [POINT  6,(AC1)J7J 

ACO, DRIVE 

(ACl) 

STPCM2 

(ACl) 

STPCM2 

(ACl) 

(1B0I1B3) 

(ACl) 

ACl 
STPCM1 

REPT 

AC1 

ACO 


;SAVE  SOME  AC'S 


POINT  TO  THE  START  OF  THE  CMD  Q 
SETUP  A  LOOP  COUNT 

GET  THE  DRIVE  #  FROM  Q 

THIS  CMD  IN  Q  POINTING  TO  SELECTED  DRIVE? 

OR  IS  THE  SLOT  EMPTY? 

NO  -  GET  THE  NEXT  ENTRY 

THIS  Q  ENTRY  EXECUTED? 

YES  -  GET  THE  NEXT  ONE 

GET  THE  Q  ENTRY 

SET  THE  EXECUTED  AND  STOPPED  FLAGS 

SAVE  THE  UPDATED  ENTRY 

POINT  TO  THE  NEXT  ENTRY 
•LOOP  TILL  ALL  Q  t'NTRYS  CHECKED 

.•RESET  THE  AC'S  USED 


;AND  EXIT 


r 


1^ 


r 


ODRPl  - 
DDRPI3 

17181 

17182 

17183 

17184 

17185 

17186 

17187 

17188 

17189 

17190 

17191 

17192 

17193 

1719A 

17195 

17196 

17197 

17198 

17199 

17200 

17201 

17202 

17203 

1720A 

17205 

17206 

17207 

17208 

17209 
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)*STCMD  —  ROUTINE  TO  RESET  THE  COMMAND  STOPPED  BY  THE  "STPCMD" 
*     ROUTINE.  THIS  ROUTINE  IS  USED  TO  RESET  THE  COMMAND  QUEUE 
•»     AFTER  A  RETRY  SEQUENCE  IS  FINISHED. 

•  /(f***  ***••♦••**•♦******••••♦********♦****************♦*♦**  **************** 


SEQ  0539 


DD 
DD 


056652 
056653 
056654 
056655 
056656 

056657 
056660 
056661 
056662 
056663 
056664 
056665 
056666 
056667 

056670 
056671 
056672 
056673 
056674 
056675 


261  17  0  00  000000 

261  17  0  00  000001 

261  17  0  00  000015 

201  01  0  00  100235 

201  15  0  00  000074 


STCMD:  PUT  ACO 

PUT  AC1 

PUT  REPT 

MOVEI  ACUCOMQ 

MOVEI  REPT,^D60 


135  00 
316  00 
336  00 
254  00 
200  00 
607  00 
254 
621 


00 

00 

202  00 


0  00  075544 
0  00  000013 
0  01  000000 
0  00  056670 
0  01  000000 
0  00  040000 
0  00  056670 
0  00  440000 
0  01  000000 


STCMD1:  LDB 
CAMN 
SKIPN 
JRST 
MCVE 
TLNN 
JRST 
TLZ 
MOVEM 


[POINT  6,(AC1) ,17] 

DRIVE 

(AC1) 

STCMD2 

(AC1) 

(1B3) 

STCMD2 

(1B011B3) 

(AC1) 


350  00  0  00  000001 
367  15  0  00  056657 
262  17  0  00  000015 
262  17  0  00  000001 

262  17  0  00  000000 

263  17  0  00  000000 


STCMD2:  AOS  AC1 

REPTLP  STCMD1 

GET  REPT 

GET  AC1 

GET  ACO 
RTN 


;SAVE  SOME  AC'S 


; POINT  TO  THE  QUEUE 
;GET  A  LOOP  COUNT 

;GET  THE  DRIVE  #  FROM  THE  Q  ENTRY 

;SAME  DRIVE  AS  NOW  IN  USE? 

;0R  IS  THE  ENTRY  EMPTY? 

;YUP 

;GET  THE  ENTRY 

.•FORCED? 

;N0 

.•CLEAR  THE  PROPER  BITS  TO  RESTART  THE  CMD 

;SAVE  THE  UPDATED  CMD  ENTRY 

.•UPDATE  THE  POINTER 
;LOOP  TILL  ALL  DONE 
.•RESET  THE  AC'S 


;AND  EXIT 


L 
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SEQ   05A0 


DC 
DC 


17210 

17211 

17212 

17213 

17214 

17215 

17216 

17217 

17218 

17219 

17220 

17221 

17222 

17223 

17224 

17225 

17226 

17227 

17228 

17229 

17230 

17231 

17232 

17233 

17234 

17235 

17236 

17237 

17238 

17239 

17240 

17241 

17242 

17243 

17244 

17245 

17246 

17247 

17248 

17249 

17250 

17251 

17252 

17253 

17254 

17255 

17256 

17257 

17258 

17259 

17260 

17261 

17262 

17263 

17264 


056676 
056677 
056700 
056701 
056702 
056703 
056704 
056705 
056706 

056707 
056710 
056711 
056712 
056713 
056714 
056715 
056716 
056717 
056720 
056721 
056722 
056723 
056724 
056725 
056726 


056727 
056730 
056731 
056732 


056733 
056734 

056735 
056736 
056737 
056740 
056741 


200  00 
550  11 
307  11 
263  17 
607  00 
254  00 
607  00 
603  00 
254  00 

336  00 
254  00 
550  01 
306  01 
254  00 
200  00 
336  00 
370  00 
202  00 
200  00 
332  00 
254  00 
316  00 
254 
3ir 


00 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


254  00  0 


13  100747 
13  100747 
00  100636 
00  000000 
00  100000 
00  056751 
00  000020 
00  000040 
00  057000 

11  000046 
00  056755 
11  000042 
00  777777 

00  056720 

01  000001 
00  077720 

00  000000 

01  000001 
11  000045 
00  030037 
00  056727 
10  000006 
00  056733 
10  000013 
00  056742 


402  00  0  11  000042 
402  00  0  11  000046 
402  00  0  11  000033 
263  17  0  00  000000 


260  17  0  00  056735 
254  00  0  00  056727 

402  00  0  10  000003 
205  00  0  10  000003 
541  00  0  10  000004 
251  00  0  10  000007 
263  17  0  00  000000 


056742  260  17  0  00  056744 


•♦CLRCMD  —  ROUTINE  TO  CLEAR  THE  COMMAND 
;♦     AREA  WHEN  THE  INTERRUPT  SERVICE 


CLRCMD:  MOVE 
HRRZ 
CAI6 
RTN 
TLNN 
JRST 

CCMDA:  TLNN 
TLNE 
JRST 


CCMDAl: 


SKIPN 

JRST 

HRRZ 

CAIN 

JRST 

MOVE 

SKIPN 

SOS 

MOVEM 

MOVE 

SKIPE 

JRST 

CAMN 

JRST 

CAMN 

JRST 


DSBTBL (DRIVE) 

DSBP,DSBTBL(DRIVE) 

DS8P,SNAP 

(.ONLN) 

CCMDAL 

(.XFRER) 

(.POSER) 

RETCMD 

.PRIM+4(DSBP) 
CCMDB 

AC1,.PRIM(DSBP) 
AC1,-1 

KACD 
RETFLG 

KACD 

.PRIM+3(DSBP) 

USER 

CCMDA2 

.PCMD(CSBP) 

CPMBC 

.SCMD(CSBP) 

CSMBC 


.•CLEAR  DRIVE  PRIM  CMD  AREA 


CCMDA2: 


SETZM 
SETZM 
SETZM 
RTN 


.PRIM(DSBP) 

.PRIM+4(DSBP) 

.INUSE(DSBP) 


.•CLEAR  THE  MBC  PRIMARY  CMD  AREA 


CPMBC : 
CPRIM: 


GO 
JRST 

SETZM 

MOVSI 

HRRI 

BLT 

RTN 


CPRIM 
CCMDA2 

.PBAR(CSBP) 
.PBAR(CSBP) 
.PTCR(CSBP) 
.PSCN(CSBP) 


; CLEAR  THE  MBC  2ND  CMD  AREA 
CSMBC:  GO     CLR2ND 


•••••♦••*•••••••••**•*•••*•*•••••• 
FROM  THE  DRIVE'S  DSB 

IS  DONE  WITH  IT. 
••••****•*•••••••••••••••*••**•*♦• 

GET  THE  DRIVE  TABLE  STATUS 

GET  THE  DSB  POINTER 

IS  IT  THE  FAKE  AREA?? 

YES  -  EXIT  NOW 

IS  IT  ONLINE?? 

NO 

DRIVE  DATA  XFR  ERROR?? 

OR  POSITION  ERROR?? 

YES  -  NEED  A  RETRY  OF  COMMAND 

.•ANY  PRIM  DRIVE  CMD?? 


GET  THE  SCNTBL  ADDR 
POSITION  CMD? 
YES 

GET  THE  SCNTBL  WORD 
DOING  A  RETRY? 
NO  -  UPDATE  THE  COUNT 
UPDATE  AND  SAVE  AGAIN 
YES  -  GET  THE  "COMQ"  POINTER 
IN  USER  MODE? 
YES 

MBC  ON  THE  SAME  CMD?? 
CLEAR  PRIM  MBC  CMD 
OR  SAME  AS  2ND  MBC  COMMAND?? 
CLEAR  2ND  MBC  CMD 


CLEAR  THE  1ST  ADDR  IN  PRIM  AREA 
AND  THE  LAST 

THEN  CLEAR  THE  GAGGED  FLAG 
EXIT  NOW 


;YES  -   CLEAR  THE  CSB  PRIM  AREA 
.-AND  THE  PRIM  DSB  AREA 


CLEAR  THE  1ST  CSB  PRIM  ADDR 
GEN  A  BLT  WORD 
TO  CLEAR  THE  PRIM  CSB  AREA 
ZAP... PRIM  CSB  AREA  NOW  CLEAR  I 


.•CLEAR  THE  2ND  CSB  AREA 


L. 


n. 
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;EQ  0541 


DI 
01 


17265 

17266 

17267 

17268 

17269 

17270 

17271 

17272 

17273 

17274 

17275 

17276 

17277 

17278 

17279 

17280 

17281 

17282 

17283 

17284 

17285 

17286 

17287 

17288 

17289 

17290 

17291 

17292 

17293 

17294 

17295 

17296 

17297 

17298 

17299 

17300 

17301 

17302 

17303 

17304 

17305 

17306 

17307 

17308 

17309 

17310 

17311 

17312 

17313 

17314 

17315 

17316 

17317 

17318 

17319 


056743     254  00  0  00  056727 


056744  402  00 

056745  205  00 

056746  541  00 

056747  251  00 
056750  263  17 


0  10  000010 
0  10  000010 
0  10  000011 
0  10  000014 
0  00  000000 


056751 
056752 
056753 
056754 

056755 
056756 
056757 
056760 
056761 
056762 
056763 
056764 
056765 
056766 
056767 

056770 
056771 
056772 
056773 
056774 

056775 
056776 
056777 


057000 
057001 
057002 
057003 
057004 
057005 
057006 
057007 
057010 
057011 


260  17  0  00  056577 
621  00  0  00  000060 
202  00  0  13  100747 
254  00  0  00  056707 


336  00  0 
254  00  0 
550  01  0 
306  01  0 
254  00  0 
200  00  0 
370  00  0 
202  00  0 
200  00  0 
316  00  0 
254  00  0 


11  000041 
00  056770 
11  000035 
00  777777 

00  056765 

01  000001 

00  000000 

01  000001 
11  000040 
10  000006 
00  056775 


037  04  0  00  075545 
2uJ  00  0  00  000013 
037  02  0  00  000001 
037  04  0  00  075553 
263  17  0  00  000000 

402  00  0  11  000035 
402  00  0  11  000041 
254  00  0  00  056733 


200  00 
602  00 
254  00 
205  00 
541 
251 


00 
00 


260  17 
553  00 
316  01 
402  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


JRST    CCMDA2 


CLR2ND:  SETZM 
MOVSI 
HRRI 
BLT 
RTN 


.SBAR(CSBP) 
.SBAR(CSBP) 
.STCR(CSBP) 
.SSCN(CSBP) 


;AND  THE  PRIM  DSB  AREA 

CLEAR  THE  1ST  CSB  ADDR  IN  2ND  XFR  AREA 
THEN  GEN  A  BLT  WORD  TO 
CLEAR  THE  2ND  CSB  AREA 
CLEAR  THE  MBC  AREA  NOW 


;HERE  TO  CLEAR  \LL  DRIVE  COMMANDS  BY  SETTING  THE  "EXECUTED' 
;BIT  IN  THE  CO  V\ND  QUEUE  TABLE 


CCMDAL:  60 
TLZ 
MOVEM 
JRST 

CCMDB:  SKIPN 
JRST 
HRRZ 
CAIN 
JRST 
MOVE 
SOS 
MOVEM 
MOVE 
CAMN 
JRST 

CCMDER:  PMSGF 
MOVE 
PNT2F 
PMSGF 
RTN 

CSDCMD:  SETZM 
SETZM 
JRST 


CLRALL 

(.XFRERI. POSER) 
DSBTBL(DRIVE) 
CCMDA1 

.DSKADCDSBP) 

CCMDER 

AC1,.SCNAD(DSBP) 

AC1,-1 

.+4 

KACD 

KACD 
.XCTQ(DSBP) 
.PCMD(CSBP) 
CSDCMD 

<*N0  COMMAND 
DRIVE 


WAS  ISSUED 


<*: 


:*> 


.SCNAD(DSBP) 
.DSKAD(DSBP) 
CPMBC 


CLEAR  ALL  CMD  TO  THIS  DRIVE 
CLEAR  THE  ERROR  FLAGS 
SAVE  UPDATED  STATUS 
CLEAR  CSB  +  DSB  AREAS 

ANY  2ND  DRIVE  CMD?? 

NO  -  DON'T  KNOW  WHAT  TO  DO??? 

GET  THE  CMD  POINTER 

POSITION  CMD? 

YES 

NO  -  GET  THE  SCNTBL  WORD 

UPDATE  IT 

AND  SAVE  IT  AGAIN 

GET  THE  QUE  ADDR 

SAME  CMD  AS  IN  MBC  PRIM?? 

YES  -  CLEAR  The  DRIVE  2ND  CMD 


TO  DRIVE  M> 
;GET  THE  DRIVE  » 
:AND  PRINT  THE  NUMBER 


CLEAR  THE  1ST  LOC  IN  DRV  2ND  CMD 

AND  THE  LAST 

THEN  CLEAR  THE  MBC  PRIM  CMD  AREA 


AREA 


;*RETCMD  WILL  SAVE  THE  MBC  2ND  COMMAND  AND  REQUEST  A  SOFTWARE  INTERRUPT 
;*     ON  CHANNEL  6  FOR  THE  ERROR  RECOVERY  PROCEDURE 

;#***********************♦**♦**♦*♦*♦**♦♦*♦♦*♦***♦******♦*♦****♦***♦*♦*♦♦♦♦ 

GET  THE  PGM  SWITCHES 

OPR  INHIBIT  "RETRY"  OPERATION?? 

YES  -  EXIT  CLEANLY  (SORT  OF..) 

NO  -  BUILD  A  BLT  WORD  TO  SAVE  THE 

SNAPSHOT  OF  THE  DRIVE  REGISTERS 

SAVE  THE  REG  DATA  IN  DRIVE  DSB 

GET  THE  MBC  UNIT  # 

KILL  ALL  CLOCK  COUNTS  FOR  THIS  MBC 

FALSE  TIMOUT  ? 

YES 


00  030046 

RET CMD:  MOVE 

CONSW 

00  001000 

TRNE 

INHRET 

00  057100 

JRST 

OPREX 

00  100636 

MOVSI 

SNAP 

11  000000 

HRRI 

.DCR(DSBP) 

11  000017 

BLT 

.DEC2(DSBP) 

00  063665 

GO 

CHNSEL 

01  101047 

HRRZS 

CSBTBL(ACl) 

00  100005 

CAMN 

ACl, TIMOUT 

00  100005 

SETZM 

TIMOUT 

DDRPl  - 
DDRPI3 

17320 
17321 
17322 
17323 
17324 
17325 
17326 
17327 
17328 
17329 
17330 
17331 
17332 
17333 
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SEQ  0542 


D 
C 


057012 
057013 
057014 
057015 
057016 
057017 
057020 
057021 
057022 
057023 
057024 
057025 
057026 
057027 


00 
00 


332 
254 

200  00 
603  00 
350  00 
607  00 
254  00 
135  00 
306  00 
350  00 
306  00 
350  00 
7  004  20 
263  17  0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  077720     REQ6:   SKIPE 

00  056727  JRST 

13  100747  MOVE 

00  000040  TLNE 

11  000142  AOS 

00  000020  TLNN 

00  057026  JRST 

00  075556  LDB 

00  000006  CAIN 

11  000140  AOS 

00  000007  CAIN 

11  000137  AOS 
0  00  004002    REQ6A:  CONO 

00  000000  RFN 


RETFLG 

CCMDA2 

DSBTBL(DRIVE) 

(.POSER) 

.SPOS(DSBP) 

(.XFRER) 

REQ6A 

[POINT  3, SNAP, 32] 

6 

.SWRT(DSBP) 

7 

.SRD(DSBP) 

PI,REQSET!PICHN6 


;ALREADY  IN  RETRY?? 

;YES  -  CLEAR  THE  DRIVE  PRIM  AREA 

;6ET  THE  TABLE  STATUS 

.-POSITIONING  ERROR? 

;YES  -  COUNT  THE  ERROR 

;DATA  ERROR?? 

;N0 

;GET  THE  FUNCTION  » 

.-WRITING?? 

-YES 

•READING??  \ 

;N0  -  REQUEST  A  RETRY  INTERRUPT 


L 


r 
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17334 
17335 
17336 
17337 


17343 
17344 
17345 
17346 
17347 
17348 
17349 
17350 
17351 
17352 
17353 
17354 
17355 
17356 
17357 


SEQ  0543 


D 
D 


057032 
057033 
057034 
057035 
057036 

057037 
057040 
057041 
057042 

057043 
057044 
057045 
057046 
057047 


j36  00  0  . .  ^ 
254  00  0  00  05704 
270  01  0  00  100663 
331  00  0  01  000001 
263  17  0  00  000000 

260  17  0  00  064110 
200  01  0  10  000005 
260  17  0  00  064257 
263  17  0  00  000000 

200  00  0  00  077524 
606  00  0  00  100000 
263  17  0  00  000000 
270  01  0  00  100663 
254  00  0  00  057037 


•  /If*  ♦♦»♦*♦♦♦♦**♦♦♦»*♦»♦♦#♦♦♦♦♦*♦♦♦♦♦•*  *♦♦*♦♦♦*♦**♦♦*♦♦*♦♦*♦♦*♦♦♦♦♦*♦♦♦*♦♦♦♦ 

;*CHNTST  —  ROUTINE  TO  TEST  FOR  A  CHANNEL  ERROR  AND  REPORT  IF  ONE 

;*      IS  FOUND 

•  /If*  ♦♦♦♦♦♦♦♦**  •♦♦♦*♦♦♦♦♦♦♦♦*♦♦•*♦*♦*♦♦♦♦♦*♦*♦*♦♦♦♦♦♦***♦♦***♦♦*♦♦♦♦*♦♦♦*♦** 


CHNTST 


CHNTA: 


CHN10: 


GO 

CHNSEL 

LSH 
SKIPN 

AC1-2 
RH26 

JRST 

CHN10 

ADD 

AC1.CBASE 

SKI  PL 

KACD 

RTN 

GO 

LOGPNT 

MOVE 

AC1,.PCLP(CSBP) 

GO 

CCWPNT 

RTN 

MO^E 

CC0NI5 

TRNN 

CHNER 

RTN 

ADD 

AC1,CBASE 

JRST 

CHNTA 

GET  THE  CHANNEL  # 

POSITION  IT  FOR  USE 

MBC  =  RH20?? 

NO  -  MUST  BE  AN  RHIO 

GET  THE  OFFSET  INTO  THE  EPT 

ANY  RH20  LOGOUT  DATA?? 

NO  -  ALL  OK 

PRINT  THE  LOGOUT  DATA 

GET  THE  CHANNEL  LIST  POINTER 

PRINT  THE  CHANNEL  LIST 

EXIT 


GET  THE  MBC  CONI 
DF10  ERROR?? 
NO  -  EXIT  NOW 
YES 
.-REPORT  RESULTS 


DATA 


L 


I 


f 
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SEQ  054A 


17358 

17359 

17360 

17361 

17362 

17363 

17364 

17365 

17366 

17367 

17368 

17369 

17370 

17371 

17372 

17373 

17374 

17375 

17376 

17377 

17378 

17379 

17380 

1 7381 

1 7382 
17383 
17384 
17385 
17386 
17387 
17388 
17389 
17390 
17391 
17T92 
1 7393 
17394 
17395 
17396 
17397 
17398 
17399 
17400 
17401 
17402 
17403 
17404 
17405 
17406 
17407 
17408 
17409 
17410 
17411 
17412 


057050 
057051 
057052 
057053 
057054 
057055 
057056 
057057 

057060 
057061 
057062 
057063 
057064 
057065 
057066 
057067 
05707C 
057071 
057072 
057073 
057074 
057075 
057076 
057077 

057100 
057101 
057102 
057103 
057104 
057105 
057106 
05710^ 
057.10 


261  17  0  00  000015 
261  17  0  00  000001 
261  17  0  00  000002 
261  17  0  00  000003 
201  15  0  00  000020 
403  02  0  00  077761 
332  00  0  00  030037 
254  00  0  00  057111 

0  00  077761 
0  00  057135 
0  00  057073 
0  00  057060 
0  02  100636 
0  00  072042 
0  00  066257 
0  00  000002 
0  00  077761 
0  00  057060 

0  17  invk 

0  00  000003 

0  00  000002 

0  00  000001 

0  00  000015 

0  00  000000 

201  01  0  00  000044 
332  00  0  00  077721 
254  00  0  00  057105 
435  01  0  00  001400 
334  00  0  00  000000 
435  01  0  00  200000 
260  17  0  00  063522 
260  17  0  00  056652 
254  00  0  00  056707 


200  01 
260  17 
254  00 
254  00 
202  01 
270  01 
404  01 
350  00 
202  01 
367  15 
350  00 
262  17 
26?  17 
2oi  17 

262  17 

263  17 


057111 
057112 
057113 
057114 
057115 
057116 
057117 

057120 


200 
047 
254 
621 

270 
254 

201 


01 
01 
00 
01 
01 
01 
00 
01 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 

11 

00 
00 


075557 
00004 1 
05/120 
777777 
000QQ4 
000353 
057124 
000065 


[•♦SNAPS  —  ROUTINE  TO  RETRIEVE  THE  17  DRIVE  REGISTERS*  DATA  INTO 
;*      A  COMMON  AREA  CALLED  "SNAP"  BUFFER       .^^,  ^..  _,  ^^ 
*     MBCN  POINTS  TO  THE  CORRECT  CONTROLLER  AND  "DRIVE"  POINTS 
;♦      TO  THE  CORRECT  DRIVE  WITHIN  THE  CONTROLLER. 
•^* ♦♦*♦*»*»*****♦♦*♦» ♦♦♦t** *♦**♦♦♦**♦**♦♦*♦♦*♦♦♦♦♦*♦***♦• *♦*♦*♦***♦♦♦♦♦♦*♦ 


SNAPS :   PUT 
PUT 
PUT 
PUT 
MOVEI 
SETZB 
SKIPE 
JRST 

SNAPRD:  MOVE 
GO 

JRST 
JRST 
MOVEM 
ADD 
AND 
AOS 
MOVEM 
REPTLP 
AOS 

SNAPEX:  GET 
GET 
GET 
GET 
RTN 


OPREX: 


MOVEI 

SKIPE 

JRST 

lORI 

SKI  PA 

lORI 

GO 

GO 

JRST 


REPT 

AC1 

AC2 

AC3 

REPT, 20 

AC2,SNAPRG# 

USER 

USNAP 

AC1,SNAPRG 

DRREG 

SNAPEX 

.-3 

AC1,SNAP(AC2) 

AC1,C1B5] 

AC1,[77B5] 

AC2 

ACKSNAPRG 

SNAPRD 

-4(P) 

AC3 

AC2 

AC1 

REPT 


ACKATTNENI4 
RH10 

AC1,XECLR1MBE 

ACKEXCLR 
.CONO 
STCMD 
CCMDA1 


;HERE  FOR  USER  MODE  REGISTER  READS 
USNAP: 


USNAPA 


MOVE 

GET  TAB 

JRST 

TLZ 

ADD  I 

ADD 

JRST 

MOVEI 


AChr61,J6] 

AC1, 

USNAPA 

1,-1 

AC1,4 

AC1,.DSBEND(DS8P) 

USNAP 1 

AC1,65 


;SAVE   SOME  AC'S 


SET  UP  THE  LOOP  COUNTER 
CLEAR  THE  POINTERS 
IN  USER  MODE?? 
YES 

GET  THE  POINTER  TO  REGISTER 

READ  THE  SELECTED  DRIVE  REGISTER 

FATAL  -  EXIT  THE  ROUTINE 

TRY  AGAIN 

SAVE  THE  RESULTS 

UPDATE  FOR  NEXT  REGISTER  READ 

STRIP  OUT  JUNK 

SAVE  THE  REGISTEf^ 

LOOP  TO  READ  NEXT  REGISTER 

RTN  ^2 


RESET  THE  MBC  TO  CLEAR  EXCEPTION 

MBC  =  RHIO?? 

YES 

NO  -  SETUP  FOR  RH20 

SETUP  FOR  RHIO 
CLEAR  THE  MBC  SELECTED 
RE-START  PENDING  DRIVE  COMMANDS 
AND  CLEAR  THIS  COMMAND 


;6.02  OR  LATER 


DC  GET  TAB 


FAILED  NOT  6.02  OR  HIGHER 
SAVE  OFFSET  ADDR 
POINT  TO  THE  CORRECT  PLACE 
GET  ^Hi   UDB  ADDRESS 


;VM  OFFSET 


ODRPl   - 
DDRPI3 

17A13 
174H 
17415 
17416 
17417 
17418 
17419 
17420 
17421 
17422 
17423 
17424 
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SEQ  0545 


057121 
057122 
057123 
057124 
057125 
057126 
057127 
057130 
057131 
057132 
057133 
057134 


336  00 

201  01 
270  01 
254  00 
137  02 
671  00 
621  00 

202  00 
350  00 
350  00 
365  15 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
11 
00 
00 
00 
00 
02 
00 
00 
00 
00 


100017 

SKIPN 

000063 

MOVE  I 

000353 

ADD 

075560 

USNAPI:   GETMWD 

072532 

DPS 

00001 3 

TSO 

000010 

TLZ 

100636 

MOVEM 

000001 

AOS 

000002 

AOS 

057124 

S0J6E 

057072 

JRST 

VMFL6 

AC1,63 

AC1,.DSBEND(DSBP) 

<HRRZ   (AC1)> 

AC2, [POINT  6,AC0,5] 

DRIVE 

(1B14) 

SNAP(AC2) 

AC1 

AC2 

REPT, USNAPI 

SNAPEX-1 


;G0T  VIRTUAL  MEM 

;N0  CORRECT  OFFSET 

;GOT  UDB  ADDR  FOR  REG  DATA 

;GET   THE  REGISTER  DATA 

.•INSERT  THE  REGISTER  NUMBER 

;AND  THE  DRIVE  NUMBER 

;3  DIGIT  M  ONLY 

;THEN  SAVE    IT 

.-UPDATE   THE  POINTERS 

.•LOOP   TILL   DONE 
;RTN  ^2 


H»t«Hi<i!i'M^llM«<Hi 


I 


r 
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SEQ  0546 


17425 

17426 

17427 

17428 

17429 

17430 

17431 

17432 

17433 

17434 

17435 

1 7436 

17437 

17438 

17439 

17440 

17441 

17442 

17443 

17444 

174^5 

17446 

17447 

17448 

17449 

17450 

17451 

17452 

17453 

17454 

17455 

17456 

17457 


057rS5 

O'jr  5t 

057137 
057140 
057141 
057142 
057143 
057144 
057145 
057146 
057147 
057150 
057151 
057152 
057153 

057154 
057155 
057156 
057157 

057160 
057161 
057162 
057163 
057164 


261  17 
261  17 
202  01 
402  00 
200  01 
260  17 
254  00 
254  00 
350  00 
350  00 
254  00 
332  00 
254  00 
037  00 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


037  02  0  00  075564 
350  02  0  00  100000 
307  02  0  00  000003 
254  00  0  00  057141 

037  02  0  00  075567 
260  17  0  00  064523 
2ci  17  0  00  000002 

262  17  0  00  000000 

263  17  0  00  000000 


•4f* **»**» ^♦♦♦»*»*»********tt* *********♦**»«***♦***♦*♦♦♦ **♦♦*♦*♦***♦*♦*♦**♦ 
i*DRRE6  —  ROUTINE  TO  READ  THE  DRIVE  REGISTER  SELECTED  BY  CALLING 
♦      "RDREG"  ROUTINE.  UILL  TAKE  THE  "FATAL"  ERROR  RETURN  IF 
;*      IT  GETS  STUCK  IN  AN  RAE  ERROR  LOOP. 
•/y*********»**»****»****************************** ************************ 


00  000000 

DRREG:  PUT 

00  000002 

PUT 

00  077737 

MOVEM 

00  100000 

SETZM 

00  077737 

DRREGA:  MOVE 

00  063270 

GO 

00  057162 

JRST 

00  057150 

JRST 

17  777776 

AOS 

17  777776 

AOS 

00  057162 

JRST 

00  100000 

SKIPE 

00  057155 

JRST 

00  030242 

PCRL 

00  054607 

GO 

DRREG i 


PMSG 

PSIXM 

AOS 

CAIG 

JRST 

PMSG 

PSIXM 

GO 

GET 

GET 

RTN 


ACO 

AC2 

AC1,SAVREG# 

SVRDCT# 

ACnSAVREG 

RDREG 

DRREG1 

.♦4 

-2(P) 

'2(P) 

DRREG1 

SVRDCT 


;SAVE  ACO 

'AND  AC2 

iSAVE  THE  REGISTER  SELECTED 

; CLEAR  THE  LOOP  COUNT 

;GET  THE  REG  AGAIN 

;READ  THE  REGISTER 

;RTN  ♦I 

;RAE  ERROR  DETECTED  -  TRY  AGAIN 

;0K  -  RETURN  ^3 


.-FIRST 
;N0 


TIME  HERE?? 


;YUP  -  PRINT  THE  DRV  M 


PNTDRV 

<  REG  READ  ERROR*>* 

CSIXBITX  REG  READ  ERROR'^  W 

AC2, SVRDCT  .-COUNT  THE  RAE  FAILURE 

AC2.3  .-OVER  THE  LOOP  LIMIT? 

DRREGA  ;N0  -  TRY  AGAIN 

<*STUCK  IN  A  REG  READ  ERROR  LOOP!!''>* 

CSIXBIT\*STUCK  IN  A  REG  READ  ERROR  LOOP"* 

REGPNT  .-PRINT  THE 

AC2  .-RESET  THE 

ACO 


\]* 
DRV  REG"#  & 
SAVED  A'^'S 


DATA 


<i|i).i.l^WiHfiy).>li1M>i.W 
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17458 

17459 

17460 

17461 

17462 

1 7463 

17464 

1 746*^ 

17^  .o 

17^67 

17468 

17469 

1 7470 

17471 

17472 

17473 

17474 

17475 

17476 

17477 

17478 

17479 

17480 

17481 

1 7482 

17483 

1748^ 

17485 

17486 

17487 

17488 

17489 

17490 

17491 

17492 

17493 

17494 

17495 

1 7496 

17497 

17498 

17499 

17500 

17501 

17502 

17503 
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SUBTTL     POSITIONING  AND  DATA  ERROR  RECOVERY  -  RETRY    (CHANNEL  6  INTERRUPTS) 
XLIST 

LIST 

•  /(f*  **********************************************************  ********** 
;*  RETRY  —  ERROR  RECOVERY 

;/(f*****  •••*••*•♦•*•*♦♦*•••***♦*•***•••••*••*••*••**•**♦**********  ****** 


SEQ   0547 


COMMENT  $ 


XLIST 


ALL  NON-FATAL  DRIVE  ERRORS  DETECTED  DURING  THE  NORMAL  PROCESSING 

OF  DRIVE  INTERRUPTS  ON  CHANNEL  5  WILL  REQUEST  AN  ERROR 

RECOVERY  PROCEDURE  CALLED  "RETRY".  ONCE  A  DRIVE  IS  PROCESSING  A 

RECOVERY  REQUEST,  ALL  OTHER  SYSTEM  DATA  TRANSFERS  AND  POSITIONING  COMMANDS 

ARE  INHIBITED.  UPON  EITHER  A  SuClESSFUL  OR  UN-SUCCESSFUL  ERROR  RECOVERY, 

NORMAL  PROGRAM  COMMAND  EXECUTION  IS  AUTOMATICALLY  ENABLED  AND  NORMAL 

PROGRAM  OPERATION  CONTINUES  UNTIL  ANOTHER  RECOVERABLE  ERROR  IS  DETECTED 

BY  INTERRUPT  SERVICE.  ALL  ERROR  RECOVERY  IS  INITIATED  AT  INTERRUPT  LEVEL 

AND  IS  AUTOMATIC. 

$ 

XLIST 


LIST 


•^♦♦•* ♦•*♦♦*•♦*♦******♦•♦♦♦♦**♦♦♦*****♦*♦♦♦*♦** ************************ 
;*  RECOVERY  ALGORITHM 

;#*•♦•*•*****************♦♦******************************************** 

COMMENT  $ 

ERROR  RECOVERY  FOR  POSITIONING,  READ  HEADERS/DATA,  AND  WRITING: 


POSITIONING 


READ  HEADERS/DATA 
AND  WRITE 


$ 

XLIST 


ISSUE  A  RECALIBRATE  COMMAND  TO  THE  DRIVE  THEN 
TRY  TO  POSITION  AGAIN.  RETRY  LIMIT  IS  SET  TO  3. 
THIS  RECOVERY  IS  USED  FOR:      RECAL,SEEK,  &  SEARCH 

RE-ISSUE  THE  READ  COMMAND  AND  CHECK  FOR  ERRORS. 
RETRY  LIMIT  IS  SET  TO  3. 


L 
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SEQ  0548 


DDF 

C0^ 


1750A 
17505 
17506 
17507 
17508 
17509 
17510 
17511 
17512 
17513 
175U 
17515 
17516 
17517 
17518 
17519 
17520 
17521 
17522 
17523 
17524 
17525 
17526 
17527 
17528 
17529 
17530 
17531 
17532 
17533 
17534 
17535 
17536 
17537 
17538 
17539 
17540 
17541 
7542 
17543 
17544 
17545 
17546 
17547 
17548 
17549 
17550 
17551 
17552 
17553 
17554 
17555 
17556 
17557 
17558 


COMMENT  $ 

ERROR  RECOVERY  FOR  READ  DATA  COMMAND: 


057i65 
057166 
057167 
057170 
057171 
057172 
057173 
057174 
057175 
057176 
057177 
057200 
057201 


260 
26. 
261 
261 
261 
261 
261 
261 
261 
261 
261 
261 
261 


17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


TRY  TO  RECOVER  THE  WHOLE  DATA  TRANSFER  BY  SPLITTING  IT  INTO 
INDIVIDUAL  SECTOR  READ/RECOVER  TRANSFERS.  APPLY  THE  FOLLOWING 
ALGORITHIM  TO  EACH  SECTOR  OF  THE  TRANSFER  TO  BE  RECOVERED: 


1) 

2) 

3) 

4) 

5) 

6) 
7) 


ISSUE  UP  TO  16  RE-READS  OF  THE  SECTOR  AT  TRACK  CENTERLINE 
(NO  OFFSET)  AND  APPLY  ECC  CORRECTION  FOR  DATA  RECOVERY  If 
NEEDED. 

IF  RECOVERY  IS  UN-SUCCE^^SFUL  AT  THIS  TIME,  ISSUE  UP  TO  ,^^  _^ 
2  RE-READS  AT  +400  MICRO-INCHES  OFFSET  FOR  RP04/05'S  OR  +200  FOR 
RP06'S  AND  APPLY  ECC  CORRECTION  IF  NECESSARY. 

ISSUE  UP  TO  2  RE-READS  AT  -400  MICRO-INCHES  OFFSET  FOR  RP04/05*S  OR 

-200  FOR  RP06'S  AND  APPLY  ECC  CORRECTION  IF  NECESSARY. 

ISSUE  UP  TO  2  RE-READS  AT  +800  MICRO-INCHES  OFFSET  FOR  RP04/05'S  OR 

+  400  FOR  RP06'S  AND  APPLY  ECC  CORRECTION. 

ISSUE  UP  TO  2  RE-READS  AT  -800  MICRO-INCHES  OFFSET  FOR  RP04/05*S  OR 

-400  FOR  RP06'S  AND  APPLY  ECC  CORRECTION. 

ISSUE  UP  TO  2  RE-READS  AT  +1200  MICRO-INCHES  OFFSET  FOR  RP04/05'S 
OR  +600  FOR  RP06*S  AND  APPLY  ECC  CORRECTION. 

ISSUE  UP  TO  2  RE-READS  AT  -1200  MICRO-INCHES  OFFSET  FOR  RP04/05'S 
OR  -600  FOR  RP06*S  AND  APPLY  ECC  CORRECTION. 


IF  THE 

-'     \i'  ■ 

ERROR 

$ 

THE  DR 

00  053015 

.RETRY:  60 

lOTERM 

00  000013 

PUT 

DRIVE 

00  000012 

PUT 

MQCN 

CO  030113 

PUT 

$SVUUO 

00  030114 

PUT 

JSVUPC 

00  000040 

PUT 

40 

00  000000 

PUT 

ACO 

00  000001 

PUT 

AC1 

00  000006 

PUT 

AC 

00  000015 

PUT 

REPT 

00  077576 

PUT 

DSKAD 

00  100733 

PUT 

.SIZE 

00  100730 

PUT 

.CYLIN 

FAILURE  TO  RECOVER  ANY  SECTOR  OF  DATA  WITHIN  THE  COMPLETE 
TRANSFER  AFTER  ALL  7  STEPS  OF  RECOVERY  HAVE  BEEN  APPLIED,  WILL 
RESULT  IN  THE  PROGRAM  ELIMINATING  THAT  PACK  AREA  FROM  FURTHER 
USE  AND  WILL  PRINT  'IJN-SUCCESSFUL  RECOVERY..."  MESSAGE. 

IF  THE  "SOFT"  OR  "HARD"  ERROR  LIMIT  FOR  A  DRIVE  IS  EXCEEDED  DURING 
ERROR  RECOVERY,  AN  APPROPRIATE  ERROR  MESSAGE  WILL  BE  ISSUED  AND 
THE  DRIVE  WILL  BE  ELIMINATED  FROM  THE  TESTING  SEQUENCE. 

;WAIT  TILL  SYSTEM  IS  QUIET 
;SAVE  SOME  AC'S 


.-SAVE  TH"  DSK  PARAMETERS 

;AND  CURRENT  SELECTED  XFR  SIZE 
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r 


SEQ  0549 


DDI 
ODI 


17559 

17560 

17561 

17562 

17563 

17564 

17565 

17566 

17567 

17568 

17569 

17570 

17571 

17572 

175/3 

17574 

17575 

17576 

17577 

17578 

17579 

17580 

17581 

17582 

17583 

17584 

17585 

17586 

17587 

17588 

17589 

17590 

17591 

17592 

17593 

17594 

17595 

17596 

17597 

17598 

17599 

17600 

17601 

17602 

17603 

17604 

17605 

17606 

17607 

17608 

17609 

17610 

17611 

17612 

17613 


057202 
057203 
057204 
057205 
057206 
057207 
057210 
057211 
057212 
057213 


057214 
057215 
057216 
057217 
^57220 


057221 
057222 
057223 


057224 
057225 
05^226 
057227 
057230 
057231 
057232 


057233 
057234 
057235 
057236 
05723^ 
057240 
057241 
057242 


057243 
057244 
057245 
057246 
057247 
057250 


261 
261 
261 
261 
261 
261 
261 
261 
260 
202 


17 
17 
17 
17 
17 
17 
17 
17 
17 
01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


100731 
100732 
077547 
000002 
00001 1 
000010 
077544 
077712 
063421 
077571 


200  15  0  00  100670 
550  10  0  15  101047 
326  10  0  00  057221 
365  15  0  00  057215 
254  00  0  00  057224 


332  00  0  10  000015 
254  00  0  00  057527 
365  15  0  00  057215 


402  00 
200  00 
603  00 
CO  00 
350  00 
315  13 
254  00 


0  00  000013 
0  13  100747 
0  00  000060 
0  00  05730^ 
0  00  000013 
0  00  100671 
0  00  057225 


332  00 
254  00 

037  o-: 

200  fl 
404  '/I 
200  wO 
434  00 
256  00 


550  01 
306  01 
254  00 
200  00 
370  00 
202  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


077720 
057277 
075575 
077571 
074255 
074256 
000012 
000000 


0  00  100131 
0  00  777777 
0  00  057251 
0  01  000001 
0  00  000000 
0  01  000001 


PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

PUT 

GO 

MOVEM 


.SURF 

.SECT 

CMDXPT 

AC2 

DS8P 

CS8P 

CWODAT 

RDTIME 

RDDIB 

AC1,DICH6# 


;SAVE  THE  CURRENT  0  XCT  POINTER 


;D0  A  BLIND  DATAI 
;SAVE  IT 


.-SETUP  TO  SCAN  DSBTBL  LOOKING  FOR  MBC  PROCESSING  A  RETRY 
RETA: 


MOVE  REPT.RHMAX 

HRRZ  CSBP,CSBTBL(REPT) 

JUMPN  CSBP,RETA1 

SOJGE  REPT.RETA 

JRST  RETB-1 


; SETUP  THE  LOOP  COUNT 
;LOAD  THE  CSB  POINTER 
;JUMP  IF  CSB  FORUND 
;TRY  NEXT  MBC 
;NONE  FOUND  THIS  WAY 


.•CHECK  FOR  RETRY  IN  PROGRESS  BY  ANY  MBC 

RETA1:  SKIPE   .RETWD(CSBP) 
JRST    RETIP 
SOJGE   REPT.RETA 


•ANYTHING  IN  THE  RETRY  CONTROL  WORD?? 
;YES  -  RHTRY  IS  IN  PROGRESS 


;N0  RECOVERY  IN  PROGRESS  -  LOOK  FOR  DRIVE  FLAGS 
RETB: 


RETC: 


SETZM 

MOVE 

TLNE 

JRST 

AOS 

CAMGE 

JRST 


DRIVE 

DSBTBL (DRIVE) 

(.XFRER!. POSER) 

DORET 

DRIVE 

DRIVE, DRMAX 

RETB 


;GET  DRIVE  TABLE  STATUS  WORD 

.•DRIVE  ERROR? 

;YES  -  RETRY  NEEDED 

;N0  -  UPDATE  DSBTBL  POINTER 

.•DONE  CHECKING  ALL  DRIVES  FOR  ERROR  FLAGS 

;N0  -  TRY  NEXT  UNIT  ON  THIS  MBC 


.-ALL  DRIVE  ERROR  FLAGS  HAVE  BEEN  SCANNED  -  CHECK  FOR  ANY  RECOVERY  F-ROCCjSED 


RETEX: 


SKIPE 

JRST 

PMSG 

MOVE 

AND 

MOVE 

I  OR 

XCT 


RETFLG  ;ANY  RECOVERY  ISSUED? 

RETC1  ;YES  -  EXIT  NORMAL 

<*??ERROR  RECOVERY  REQUESTED  WITH  NO  DRIVE  RESPONDING  TO  REQUEST'^> 


AC1,DICH6 
ACl. [770007..] 
[DATAO  0.1] 
MBCN 
ACO 


DOWN  COUNT  USE  COUNT  FOR  READ  BUFFERS 


HRRZ 

CAIN 

JRST 

MOVE 

SOS 

MOVEr 


ACI.DSBCMD 

1,-1 

.*4 

ACO.KACD 

ACO.KACD 


;GET  THE  BLIND  DATAI  INFO 

"STRIP  IT 

•GET  A  BASIC  DATAO  ARG 

.-ADD  IN  THE  MBC# 

;D0  THE  DATAO  CMD 


;GET  TABLE  ADDR 
.•POSITION  COMMAND 

;GET  SCAN  TABLE  ENTRY 

.•RESTORE  IT 


L 


DDRPl  - 
DDRPI3 

176U 

17615 

17616 

17617 

17618 

17619 

17620 

17621 

17622 

17623 

17624 

17625 

17626 

17627 

17628 

17629 

17630 

17631 

17632 

17633 

1763A 

17635 

17636 

17637 

17638 

17639 

176A0 

17641 

17642 

17643 

17644 

17645 

17646 

17647 

17648 

17649 

17650 

17651 

17652 

17653 

17654 

17655 

17656 

17657 

17658 

17659 

17660 

17661 

17662 

17663 

17664 

17665 

17666 

17667 

17668 
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SEQ  0550 


DO 
DD 


057251 
057252 
057253 
057254 
057255 
057256 
057257 
057260 
057261 
057262 
057263 
057264 
057265 
057266 
057267 
057270 
057271 
057272 
057273 
057274 
057275 
057276 


262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 
262 


17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
7  004  20 
254  12  1 


00  077712 
00  077544 
00  000010 
00  000011 
00  000002 
00  077547 
00  100732 
00  100731 
00  100730 
00  100733 
00  077576 
00  000015 
00  000006 

00  ooooo: 

00  OOGUOO 
00  000040 
00  030114 
00  030113 
00  000012 
00  000013 
0  00  020002 
00  101662 


057277  402  00  0  00  077720 
057300  254  00  0  00  057236 


057301  6u<  00  0  00  100000 

057302  254  00  0  00  057312 


057303 
057304 
057305 
057306 
057307 
057310 
057311 


037  00 
260  17 
037  02 
200  00 
621  00 
202  00 
254  00 


0  00  030242 
0  00  054607 
0  00  075610 
0  13  100747 
0  00  000060 
0  13  100747 
0  00  057230 


057312 
057313 
057314 
057315 
057316 
057317 
057320 
057321 
057322 


GET  RDTIME 

GET  CMDDAT 

GET  CSBP 

GET  DS8P 

GET  AC2 

GET  CMDXPT 

GET  .SECT 

GET  .SURF 

GET  .CYLIN 

GET  .SIZE 

GET  DSKAD 

GET  REPT 

GET  AC 

GET  ACl 

GET  ACO 

GET  40 

GET  SSVUPC 

GET  SSVUUO 

GET  MBCN 

GET  DRIVE 

CONO  PI,LRQCLR!PICHN6 

JEN  aRETRY 

;HERE  FOR  NORMAL  "RETRY"  EXIT 

RETCl:   SETZM  RETFLG 

JRST  RETEX 


;RESET  THE  SAVED  AC'S  AND  LOCATIONS 
;RESET  THE  DSK  PARAMETERS 


;CLEAR  THE  SOFTWARE  REQUEST 
;EXIT  CHANNEL  6  INTERRUPT  SERVICE 


; CLEAR  RETRY  FLAG 
;AND  EXIT 


;DORET  LOOKS  AT  DSBTBL  WORD  AND  DETERMINES  IF  A  RETRY  CAN  BE  PERFORMED 


DORET: 


NORET: 


TLNE 
JRST 

PCRL 

GO 

PMSG 

MOVE 

TLZ 

MOVEM 

JRST 


(.ONLN) 
YESRET 


PNTDRV 


;IS  DRIVE  STILL  ON  LINE? 
;YES  -  RETRY  REQUESTED 


<N0  LONGER  BEING  TESTED'^> 

DSBT8L(DRIVE) 

(.XFRERl. POSER) 

DSBTBL(DRIVE) 

RETC 


;PRINT  DRIVE  # 


GET  TABLE  STATUS  AGAIN 
CLEAR  ERROR  BITS 
SAVE  UPDATED  WORD 


.•HERE  WHEN  A  RETRY  IS  TO  BE  STARTED 

;SAVE  THE  PRIMARY  DRIVE  COMMAND  IN  "DSBCMD' 

;RETRY  AREAS  FOR  THE  COMMAND  GENERATOR  AND 


•  AND  SETUP  POINTERS  INTO 
EXECUTOR  ROUTINES 


476  00  0  00  077720 

YESRET:  SETOM 

542  13  0  00  077720 

HRRM 

550  11  0  13  100747 

HRRZ 

135  12  0  00  075614 

LDB 

553  00  0  12  101047 

HRRZS 

550  10  0  12  101047 

HRRZ 

200  V2  0  10  000020 

MOVE 

037  02  0  00  075615 

PMSG 

200  00  0  11  000045 

MOVE 

RETFLG 

DRIVE, RETFLG 

DS8P,DSBTBL(DRIVE) 

MBCN.CPOINT  3, DRIVE, 32] 

CS8T8L(MBCN) 

CS8P,CSBTBL(MBCN) 

MBCN,.MBCN(CSBP) 

<*COMMAND  ERROR  RECOVERY> 

.PRIM*3(DSBP) 


SET  THE  RETRY  FLAG 
INSERT  THE  DRIVE  # 
SETUP  DRiVE  DSB  '^OINTER 

STOP  THE  CLOCK 

SETUP  THE  MBC  CSB  POINTER 

SETUP  MBC  # 


;GET  COMMAND  POINTER 
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SEQ  0551 


17669 
17670 
17671 
17672 
17673 
17674 
17675 
17676 
17677 
17678 
17679 
17680 
17681 
17682 
17683 
17684 
17685 
17686 
17687 
17688 
17689 
17690 
17691 


057323 
057324 
057325 
057326 
057327 
057330 
057331 
057332 
057333 
057334 
057335 
057336 
057337 
057340 
057341 
057342 
057343 
057344 
057345 
057346 
057347 
057350 
057351 


550 

00 

260 

17 

205 

00 

541 

00 

251 

00 

260 

17 

200 

00 

621 

00 

556  00 
553  00 
246  00 
202  00 
402  00 
246  00 
202  00 
402  00 
260  17 
260  17 
550  00 
202  00 
200  00 
603  00 
254  00 


1 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 

11 

00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
01 
01 
13 
00 
00 


000000 
051760 
000042 
100131 
100135 
056733 
100135 
400000 
100730 
000000 
777770 
100731 
000000 
000010 
100732 
077717 
042657 
063665 
100712 
100672 
100747 
000020 
057712 


HRRZ 

a 

GO 

PNTCMD 

MOVSI 

.PRIM(DSBP) 

HRRI 

DSBCMD 

BLT 

DSBCMD+4 

GO 

CPMBC 

MOVE 

DSBCMD*4 

TLZ 

(1B0) 

HLRZM 

.CYLIN 

HRRZS 

LSHC 

-*D8 

MOVEM 

.SURF 

SETZM 

LSHC 

'^DS 

MOVEM 

.SECT 

SETZM 

RETCNT* 

GO 

MBCCLR 

GO 

CHNSEL 

HRRZ 

CADTBL(ACI) 

MOVEM 

SCLP(ACI) 

MOVE 

DSBTBL (DRIVE) 

TLNE 

(.XFRER) 

JRST 

RETDAT 

; PRINT  THE  COMMAND 
; BUILD  A  BLT  WORD 


IN  ENGLISH 


;SAVE  THE  DRIVE  COMMAND  IN  RETRY 
; CLEAR  THE  CSB  AND  DSB  AREA 
;6ET  THE  DSK  ADDR 
.•CLEAR  THE  INDICATOR 
;SAVE  THE  RETRY  CYL  # 
.•CLEAR  THE  LEFT  SIDE 

;SAVE  THE  RETRY  SURFACE  ft 


.•SAVE  THE  RETRY  SECTOR  M 
.•CLEAR  THE  RETRY  COUNTER 

.•DETERMINE  THE  MBC  ft 

;THEN  RESET  THE  SOFTWARE  CHN 

.•POINTER 

;GET  TABLE   STATUS  AGAIN 

;DATA  RECOVERY  NEEDED? 

;YES 


AREA 
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SEQ  0552 


17692 

17693 

17694 

17695 

17696 

17697 

17698 

17699 

17700 

17701 

17702 

17703 

17704 

17705 

17706 

17707 

17708 

17709 

17710 

17711 

17712 

17713 

17714 

17715 

17716 

17717 

17718 

17719 

17720 

17721 

17722 

17723 

17724 

17725 

17726 

Mill 

17728 

17729 

17730 

17731 

17732 

17733 

17734 

17735 

17736 

17737 

17738 

17739 

17740 

17741 

17742 

17743 

17744 

17745 

17746 


057352 
057353 
057354 
057355 

057356 
057357 
057360 
057361 
057362 
057363 
057364 
057365 


057366 
057367 
057370 
057371 
057372 
057373 
057374 


057375 
057376 
057377 
057400 
057401 
057402 


057403 
05740^. 
057^05 
057406 
057407 
057410 
057411 
057412 

057413 
057414 
057415 
057416 
057417 
057420 


621  00  0  00  000040 
202  00  0  13  100747 
332  00  0  10  000015 
254  00  0  00  057366 


200 
621 
671 
550 
135 
137 
202 
202 


402 
260 
201 
260 
254 
201 
260 


00 
00 
00 
01 
01 
01 
01 
00 


00 
17 
01 
17 
00 
00 
17 


00 
00 
00 
00 
00 
00 
00 
10 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


100076 
400000 
00001 3 
100134 
075621 
075622 
077710 
00001 5 


077713 
042657 
000007 
063147 
057425 
001130 
042726 


260  17  0  00  057050 
254  00  0  00  057425 
200  01  0  00  100637 
606  01  0  00  000200 
254  00  0  00  057511 
350  00  0  11  000150 


606  01 
254  00 
350  01 
307  01 
254  00 
200  00 

607  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


040000 
057431 
077713 
000001 
057413 
030046 
001000 
057423 


037  02  0  00  075623 
200  01  0  00  100640 
260  17  0  ^^  06^521 
200  01  0  00  100652 
260  17  0  00  064523 
200  01  0  00  100653 


;*RETPOS  —  ROUTINE  TO  RECOVER  FROM  A  POSITION  ERROR 


DC 
DC 

1 


RETPOS:    TLZ 

MOVEM 
SKIPE 
JRST 

MOVE 

TLZ 

TSO 

HRRZ 

LDB 

DPB 

MOVEM 

MOVEM 


(.POSER) 
DSBTBL(DRIVE) 
.RETWD(CSBP) 
RECALl 

RETWD 

(IBO) 

DRIVE 

AC1,aDSBCMD+3 

ACl, [POINT  6,aACl.5J 

ACUPOINT  6,AC0,233 

ACURCNUM 

.RETWD(CSBP) 


CLEAR  POSITION  ERROR  FLAG  IN  DRIVE  TABLE 
SAVE  UPDATED  TABLE  STATUS  WORD 
HERE  BEFORE?? 


GET  BASIC  RETRY  WORD 
INDICATE  A  POSITION  RETRY 
ADD  IN  THE  DRIVE  # 
GET  THE  COMMAND  POINTER 
GET  COMMAND  CODE  NUMBER 
SAVE  IT 


;SAVE  THE  MBC  RETRY  CONTROL  WORD 


.-RECALIBRATE  THE  DRIVE 


RECALl 


SETZM 

GO 

MOVE  I 

GO 

JRST 

MOVE  I 

GO 


RECNT# 

MBCCLR 

AC1,7 

LDREG 

RETFTL 

^D600 

WAITIT 


;INIT  RECAL  CNT 


GET  RECAL  OPCODE 

DO  RECAL 

CBTO  ERROR  FATAL 

RECAL  WAIT  TIME 

WAIT  FOR  RECAL  TO  FINISH 


CHECK  THAT  RECAL  COMMAND  COMPLETED 


GO  SNAPS 

JRST  RETFTL 

MOVE  ACl.SNAP+1 

TRNN  AC1,DRY 

JRST  RTIMO 

AOS  .RECAL(DSBP) 


;TEST  FOR  ANY  ERRORS 


TRNN  ACl. 40000 

JRST  RECAL3 

AOS  AC1,RECNT 

CAIG  ACIJ 

JRST  .+4 

MOVE  CONSW 

TLNN  PALERS 

JRST  RECAL2 

PMS6  <*RECAL  FAILURE 

MOVE  ACl.SNAP+2 

GO  REGPNT 

MOVE  AC1,SNAP+14 

GO  REGPNT 

MOVE  AC1,SNAP+15 


SNAPSHOT  REGS 

CBTO  ERROR  ^^TAL 

GET  STATUS  .ttG  DATA 

DRIVE  READY  ? 

NO  REPORT  TIMEDOUT  COMMAND 

COUNT  RECAL 


COMPOSITE  ERROR  ? 

NO  EXIT  RECAL  OK 

COUNT  THE  RECAL  RETRY 

FIRST  RECAL  ERROR 

YES 

NO  GET  CONSOLE  SWITCHES 


DURING  RERTY  ! !!^*> 


'1 


DDRPI  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15     MACRO  !i;53B(12A2)   15:51   28-Aug-85  Page  224-1 
DDRP13     MAC  28-Aug-85  15149  POSITIONING  AND  DATA  ERROR  RECOVERY  -  RETRY  (CHANNEL  6  INTERRUPTS) 


17747 

17748 

17749 

17750 

17751 

17752 

17753 

17754 

17755 

17756 

17757 

17758 

17759 

17760 

17761 

17762 

17763 

17764 

17765 

17766 

17767 

17768 

17769 

17770 

17771 

Mill 

Mill 

Mm 

Mll'i 

Milt 

Mill 

Mils 

17779 

17780 

17781 

17782 

17783 

17784 

17785 

17786 

17787 

17788 

17789 

17790 

17791 

17792 

17793 

17794 

17795 

17796 

17797 

17798 

17799 

17800 

17801 


057421 
057422 
057423 
057424 
057425 
057426 
057427 
057430 
057431 

057432 
057433 
057434 


057435 
057436 
057437 
057440 
057441 
057442 


057443 
057444 
057445 
057446 
057447 
057450 
057451 
057452 
057453 
057454 
057455 
057456 
057457 
057460 
057461 
057462 
051h61 
057464 
057465 
057466 
057467 

057470 
057471 
057472 
057473 
057474 
057475 
057476 


•Aug 

260  17 

200  01 
305  01 
254  00 
037  02 

201  01 
272  01 
254  00 
260  17 


SEQ  0553 


DI 

C( 


0  00 
0  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 

11 

00 
00 


064523 
077713 
000006 
057367 
075631 
000005 
000141 
060504 
042657 


135  00  0  00  075642 
312  00  0  00  077717 
254  00  0  00  057443 


350  01 
370  00 
317  01 
254  00 
037  04 
254  00 


0  11  000141 
0  11  000142 
0  00  100102 
0  00  060031 
0  00  075643 
0  00  060504 


201  00 
671  00 

202  00 
260  17 
33  J  00 
350  00 
550  00 
202  00 
200  00 
202  00 

200  00 
202  00 

201  00 

202  00 

200  00 
202  00 

201  00 
500  00 
200  01 
137  01 

202  00 

200  00 

621  00 

260  17 

554  01 

242  01 

506  01 

202  00 


00 
00 
00 
00 
10 
00 
0  00 
0  11 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 

11 

00 

11 

00 

11 

00 

11 

00 
00 
00 
00 


0  00 
0  00 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


100124 
000013 
100117 
056733 
00001 5 
077717 
100131 
000042 
100132 
000043 
100133 
000044 
100117 
000045 
100135 
000046 
057443 
100133 
077710 
072532 
100124 

100135 
400000 
045573 
100132 
000003 
000000 
100125 


60 
MOVE 

RECAL2:  CAI6E 
JRST 

RETFTL:  PMSG 
MOVEI 
ADDM 
JRST 

RECAL3:  GO 

LDB 

CAME 

JRST 


REGPNT 
AC1,RECNT 
AC1,6 
RECALU1 


GET  RETRY  COUNT 
ATTEMPTED  5  RECALS 

<'^REC6VERY  WAS  UNSUCCESSFUL  -  CAN'T  RECAL   THE  DRIVE  **> 

AC1,5 

ACU.HPOSCDSBP) 

RETFAL 

MBCCLR 

[POINT  3,.RETWD(CSBP),5J       ;GET  RETRY  LIMIT  FOR  POSITIONING 
ACO,RETCNT  .'EXCEEDED  RETRY  LIMIT  FOR  POS 

RETCX  ;N0  -  TRY  POSITION  COMMAND  AGAIN 


;SOFT  POSITIONING  ERROR  LIMIT  EXCEEDED 


;RETCX 
RETCX: 


AOS 

SOS 

CAMG 

JRST 

PMSGF 

JRST 


AC1,.HP0S(DSBP) 
.SPOS(DSBP) 
AC1.PHLIM 
RETBAD 


BUMP  HARD  POSITION  ERROR  COUNT 

DECR  SOFT  POS  ERROR  CNT 

OVER  HARD  ERROR  LIMIT  FOR  POSITIONING? 

NO 


<'^POSITIONING  RETRY  HARD  ERROR  LIMIT  EXCEEDED*> 
RETFAL 


—  ROUTINE  TO  RE-ISSUE  A  COMMAND  STORED  IN  RETRY  AREA 


MOVEI  COMRET 

TSO  DRIVE 

MOVEM  RETQ 

GO  CPMBC 

AOS  .RETWD(CSBP) 

AOS  RETCNT 

HRRZ  DSBCMD 

MOVEM  .PRIM(DSBP) 

MOVE  DSBCMD^I 

MOVEM  .PRIM+KDSBP) 

MOVE  DSBCMD+2 

MOVEM  .PRIM+2(DSBP) 

MOVEI  RETQ 

MOVEM  .PRIM+3(DSBP) 

MOVE  DSBCMD+4 

MOVEM  .PRIM+4(DSBP) 

MOVEI  RETCX 

HLL  DSBCMD^-2 

MOVE  ACURCNUM 

DPB  AC1,CP0INT  6,AC0.5] 

MOVEM  COMRET 

MOVE  DSBCMD*4 

TLZ  (1B0) 

GO  LOGBLK 

HLRZ  AC1,DSBCMD+1 

LSH  AC1,3 

HRLM  AC1.AC0 

MOVEM  AC0,COMRET+1 


POINT  TO  THE  RETRY  AREA 

GET  THE  DRIVE  M 

SETUP  FOR  A  RETRY  OPERATION 

CLEAR  THE  CSB  &  DSB  AREA 

COUNT  THE  RETRY  ISSUED 

COUNT  THE  RETRY 

GET  THE  1ST  CMD  WORD 

SAVE  IT  IN  DRIVE  DSB  AREA 

GET  THE  2ND  CMD  WORD 

SAVE  IT 

GET  THE  NEXT  WORD 

SAVE  IT 

GET  THE  "Q"  POINTER 

SAVE  IT 

GET  THE  NEXT  CMD  WORD 

SAVE  IT 

FAKE  PC  OF  CALL 

GET  PATN  ff 

GET  CMD  M 

SAVE  IT 

SAVE  1ST  CMD  WRD 

GET  PHYSICAL  DISK  ADDR 

CLEAR  DISK  ADDR  IND 

CONVRT  TO  LOG  3LK 

GET  THE  SIZE 

POS  IT 

SAVE  SIZE 

SAVE  2ND  CMD  WORD 


i 
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17802 
17803 
17804 
17805 
17806 


•Aug 

057A77  201  01  0  00  7342AA 

057500  332  00  0  00  077722 

057501  201  01  0  00  001444 

057502  260  17  0  00  063522 


SEQ  0554 


r 

ID 
C 


MOVEI  ACK734244 

SKIPE  RH20 

MOVEI  AC1,XECLR!MBE!ATTNENI 

GO  .CONO 


;6ET  THE  RHIO  CLEAR  WORD 

;MBC=RH20?? 

YES  -  GET  THE  CLEAR  WORD 

.-CLEAR  THE  MBC 


L_ 


■1 


DDRPl  SUBROUTINES  (RPOA/05/06  RELIABILITY) 
COMMAND  RECOVERY  SERVICE  -  RETRY 

POSITION  RECOVERY 
*********** 

♦♦RETPOS  ♦* 

tlfklfkltltltifkit 

I 
***************** 

♦  0->. POSER       * 

I 
*********************** 

*GET  RETWD  AND  CLR  BIT* 

♦  0  FOR  POS  PUT  DRV  #  * 
»  IN  12-17  * 

I 

♦  CMD  FUNCTION  IN       * 

♦  18-20  THEN  SAVE   IN     * 

♦  .RETWD   (CSBP)  * 
*********************** 

I 

♦  ISSUE  RECAL     ♦ 

♦  * 
***************** 
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SEQ  0555 


r 

D 
D 


*********** 

♦*RETCX     *♦ 
*********** 

I 

*********************** 

♦GET  "COMQ"  ENTRY  ADDR* 
*FRM  DSBCMD  AREA&SAVE  * 

*  IN  RETQ(+1->. RETWD)   * 
*********************** 

I 

*********************** 

*  BLT  DSBCOM  TO   .PRIM  ♦ 
♦(DSBP)   AND  CLEAR  BIT  * 

*  0  OF    .PRIM  * 
*********************** 

RETXCT     I 

***************** 

»  * 

»         EXECUTE         * 
#  * 

***************** 


HERE  FOR  RETRY  CMD  ON 
POSITION,  WRITE,  OR 
READ  HEADERS/DATA 


I 
I 


•>I 


NO         / 
/ 


DRV 
.PRIM 
=0 


I   YES 


I 
I 

NO 

— — — ^1 

/ 
— / 

/ 

DRV 
.PRIM 
=0 

\ 
\ 
\ 

I   YES 

*********** 

**RETIP     ** 

*********** 

COMMAND  HAS 
BEEN  PROCESSED 

A 

I 

DRV 
ERRORS 

9 


\YES 


BITS  3-5 
IN  .PETWD 


I   NO 


EXCEED 
POSITION 
LIMIT 


\YES 
\— 
\ 


I   NO 
*********** 

♦♦PETCX     *♦ 
*****#***** 

FRY  AGAIN 


RETRER     I 

***************** 

*  ^1    TO  HRD  ERR  ♦ 
♦OUT  PRI  POS  ERR* 

*  CANT  RECAL       ♦ 
•>]   ♦♦**********♦***♦ 

I 
*********** 

♦♦RETFAL  *• 
*********** 


*********************** 

*  +1   TO  HARD  ERR  CNT     * 

*  PRI   EXCED  POS  LIMIT  * 

*  TO  RETRY  RECOVERY     * 
*********************** 

I 


/ 


HARD  \YES 

ERROR  LIMIT         \— 
EXCEEDED  \ 


I  NO 

**♦*****♦♦* 

**RETBAD  *♦ 
*********** 


*********************** 

*  PRI:   EXCEEDED  DRV     * 
•>♦     HARD  ERROR  LIMIT       * 

♦  FOR  POSITIONING       ♦ 
*********************** 

I 
*********** 

♦♦RETFAL   ♦♦ 
*********** 


i.nMiiij-niiiiwMi  itfinpiifimimititm 


itmmiimmM^imt'immMimiitiimmm 


DDRPl  - 
DDRPI3 

17808 

17809 

17810 

17811 

17812 

17813 

178U 

17815 

17816 

17817 

17818 

17819 

17820 

17821 

17822 

17823 

1782A 

17825 

17826 

17827 

17828 
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SEO  0556 


057503  260  17 

057504  201  00 

057505  260  17 

057506  260  17 

057507  336  00 
057510  254  00 


0  00  060755 
0  00  001130 
0  00  042726 
0  00  053015 
0  11  000042 
0  00  057527 


057511 
057512 
057513 
057514 
057515 
057516 
057517 
057520 
057521 
057522 
057523 
057524 
057525 
057526 


037  02 
260  17 
037  00 
200  01 
606  01 
254  00 
260  17 
200  01 
260  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 


200  01  0 
260  17  0 
200  01  0 
260  17  0 
254  00  0 


00  075653 
00  044454 
00  030242 
00  100637 
00  040000 
00  060031 
00  064523 
00  100640 
00  064523 
00  100652 
00  064523 
00  100653 
00  064523 
00  060031 


RETXCT: 


RTIMO: 


GO 

XCTRET 

MOVE  I 

*D600 

GO 

WAITIT 

60 

lOTERM 

SKIPN 

.PRIM(DSBP) 

JRST 

RETIP 

PMSG 

<'^RETRY  COM 

GO 

RUNT I M 

PCRL 

MOVE 

AC1,SNAP+1 

TRNN 

AC1,CERR 

JRST 

RET8AD 

GO 

REGPNT 

MOVE 

ACUSNAP*2 

GO 

REGPNT 

MOVE 

AC1,SNAP^14 

GO 

REGPNT 

MOVE 

AC1,SNAP+15 

GO 

REGPNT 

JRST 

RET8AD 

.•EXECUTE  THE  COMMAND  AGAIN 

.•SHOULD  FINISH  UITHIN  600  MSEC  I 

.•WAIT  FOR  IT 

.•CLEAR  PI  CHAN 

;DID  IT? 

;YES 


GET  THE  DRIVE  STATUS  REG  DATA 

DRIVE  ERROR?? 

NO  -  EXIT  NOW 

YUP  -  PRINT  SOME  THINGS 

GET  THE  DRIVE  ERROR  DATA 

PRINT  IT 

GET  ERR  REG  #2 

AND  PRINT  IT 

THEN  ERR  REG  #3 

ALSO  PRINT  IT 

TAKE  THE  ERROR  EXIT  FROM  RETRY 


DDRPI  SUBROUTINES  (RP04/05/06  RELIABILITY) 
COMMAND  RECOVERY  SERVICE  -  RETRY 
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SEQ  0557 


I 
I 
1 
I 
I 
I 
I 


*********** 

♦*. RETRY  •♦ 
*********** 

lOUAIT     I 
************************* 

•♦    yAIT  TILL  ALL    ♦* 

•*      I/O  UNDER      *♦ 

♦•     yAY  IS  DONE     ♦* 
************************* 

I 
***************** 


♦  SETU«»  TO  CHK 

♦  DRV  DSBTBL 

♦  STATUS 


* 
* 
* 


***************** 


'>l     RETA 


\N0 
\ — 
\ 


/       .RETWD(CSBY) 
/        =0 

I  YES 
>I  RETB 

***************** 

•  GET  DSBTBL   • 

•  (DRIVE)    ♦ 

•  * 

***************** 

I 


/      DRIVE      \YES 
/      ERROR      \— 
/  \ 

I  NO 

I< 

I  RtTC(38) 
***************** 

♦  * 

♦  ♦1->C0UNTER   ♦ 

♦  * 
***************** 

I 


RETRY  IN 

PROGRESS 
*********** 

>**RETIP  *♦ 

*********** 


I  DORET 


RETRY 

NEEDED 
>I 


/ 


DRV 
ONLINE 


/ 


\YES 

\— 
\ 


^ 


NO 


NORET 


*********************** 

*  PRI.-DRV  XX  NO  LNGER  • 

*  UNDER  TST  0->XER  i     • 

*  PER  IN  DRV  DSBTBL  * 
*********************** 


I     YESRET 

*********************** 

»PRI  CMD  TO  BE  RETRYED* 

•FRM  "COMBUr"  STORAGE  ♦ 

•  SAVE  DRV  #->RETFLG  * 
*********************** 

I 


I 
t 

I 


I 
I 

V 


DRIVE      \N0 
.POSER=i      \- 
IN  DSBTBL      \ 


/ 


*********** 

'->**RETDAT  ♦* 
*********** 


I  YES 
*********** 

**RETPOS  ♦* 
*********** 


NO    /      DONE       \ 
/   yl TH  CURRENT    \ 

/        MBC        \ 

I  YES 


NO    /      DONE       \YES 

/     yiTH  ALL      \  — 

/      DSBTBL       \ 


*********** 

>*»RETC2  •* 


DDRPI   SUBROUTINES    (RPOA/05/06  RELIABILITY) 
COMMAND  RECOVERY   SERVICE   -  RETRY 

RETC2 

/  RETFLG  \N0 

/  '^  \  I     RETC1 

I    YES  ♦  • 

***********************  t       0">RETFLG       * 

•PRI   A  RECOVRY  PROCED   ♦  ♦  ♦ 

•WAS  CALL  y/NO  DRV  REQ*  »♦»••♦»»♦•*♦♦♦*♦» 

♦AVAIL   FOR  PROCESSING   ♦  I 

***********************  I 

I< 

I 

♦♦JEN         ♦♦ 
**********  » 
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SEQ  0558 


I  n wM' 


r 


DDRPl  - 
DDRPI3 

17831 

17832 

17833 

1783A 

17835 

17836 

17837 

17838 

1 7839 

178A0 

17841 

17842 

17843 

17844 

17845 

17846 

17847 

17848 

17849 

17850 

17851 

17852 

17853 

17854 

17855 

17856 

17857 

17858 

17859 

17860 

17861 

17862 

17863 

17864 

17865 

17866 

17867 

17868 

17869 

17870 

17871 

17872 

17873 

17874 

17875 

17876 

17877 

17878 

17879 

17880 

17881 

17882 

17883 

17884 

17885 
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057527 
057530 
057531 
057532 
057533 
057534 
057535 
057536 
057537 
057540 

057541 
057542 
057543 

057544 
057545 
057546 
057547 


135  13 
200  00 
603  OC 
254  00 
037  02 
254  00 
603  00 
254  00 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 


00 
13 
00 
00 
00 
00 
00 


0  00 


0 
0 


00 
00 


075660 
100747 
400000 
057535 
075661 
060S04 
00006^ 
057541 
057561 
057652 
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.R5TIP  —  ROUTINE  TO  DETERMINE  THE  RESULTS  OF  THE  RE-ISSUED  COMMAND 

RETIP: 


SEQ  0559 


200  01  0  10  000015 
335  00  0  00  000001 
254  00  0  00  057555 

603  00  0  00  000040 
254  00  0  00  057352 
200  01  0  11  000142 
313  01  0  00  100103 


057550  254  00  0  00  057553 


05755' 
057552 

057553 
057554 

057555 
057556 
057557 
0575'>0 


037  02  0  00  075671 
254  00  0  00  060031 

037  04  0  00  075703 
254  00  0  00  060504 

6ui  00  0  00  000020 
254  00  0  00  057712 
037  02  0  00  075713 
254  00  0  00  060031 


057561 
057562 
057563 
05756^. 
057)65 
057566 
057567 
057570 
057571 
057572 
057573 
057574 
057575 

057576 
057577 

057600 
057601 


037 
260 
037 
260 
037 
135 
260 
037 
135 
037 
037 
135 
037 
037 
135 
260 
260 


00 
17 
00 
17 
02 
00 
17 
02 
00 
02 
02 
00 
02 
02 
00 
]7 
M 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0  00 


030242 
044454 
030242 
054607 
075724 
073457 
066174 
075726 
073460 
000000 
075730 
073463 
000000 
075732 
073456 
045573 
066163 


PRLTIP 


LD6 

MOVE 

TLNE 

JRS: 

PMS6 

JRST 

TLNE 

JRST 

GO 

JRST 

MOVE 

SKIPGE 

JRST 

TLNE 
JRST 
MOVE 
CAMLE 


DRIVE, [POINT  6,.RETUD(CSBP)  J7J  ;GET  DRIVE  » 

DSBTBL(DRIVE) 

(.OPR)  ;DRIVE  STILL  SELECTED 

.♦3  ;YES  CONT 

<*ABORTING  RETRY  OF  COMMAND  -  DRIVE  NOT  AVAIL 

RETFAL 


(.XFRERl. POSER) 

.♦3 

RRECOV 

RRECCT 

AC1,.RETWD(CSBP) 

ACl 

DRETIP 

(.POSER) 
RETPOS 

AC1..SP0S(DSBP) 
AC1,PSLIM 


JRST    PRIPSE 


ANY  DRIVE  ERROR? 

NO  -  COMMAND  RECOVERED! 
EXIT  RETRY  SERVICE 

GET  THE  RECOVERY  CONTROL  WORD 

POSITION  RECOVERY? 

NO  -  DATA  RECOVERY  IN  PROGRESS 

POSITION  ERROR  DETECTED? 

YES  -  TRY  AGAIN 

NO 

OVER  THE  SOFT  ERROR  LIMIT 

YES 


PMSG 
JRST 

PRIPSE:  PMSGF 
JRST 

DRETIP:  TLNE 
JRST 
PMSG 
JRST 


<*??POSITION  RECOVERY  ABORTED. .  .DATA  ERRORS  DETECTED??'^> 
RETBAD 

<*POSITIONING  RETRY  SOFT  ERROR  LIMIT  EXCEEDED*> 
RETFAL 

.XFRER)  ;DATA  ERROR  DETECTED?? 

RETDAT  ;YES  -  TRY  AGAIN 

<*??DATA  RETRY  ABORTED. . .POSITIONING  ERROR  DETECTED??^> 
RETBAD 


;HERE  IF  NO  ERROR  DETECTED  AFTER  RE-ISSUED  COMMAND  COMPLETE 

RUNTIM 


F-.r^ECOV:  PCRL 
GO 
PCRL 
GO 

PMSG 
LDB 
GO 

PMSG 
LDB 
PNT2 
PMSG 
LDB 
PNT2 
PMSG 
LDB 
GO 
GO 


PNTDRV 

<  CYL4f  > 

[POINT  10,DSBCMD^4J7] 
POCT 

<  SURF#  > 

[POINT  5, DSBCMD>4, 27] 

<  SECT#  > 

[POINT  5,DSBCMD>4,35] 

<  LOG  BLK#  > 
[POINT  28,DSBCMD^^,35] 
L0G8LK 

PSDN 


;PRINT  TIME  OF  RECOVERY  EXIT 

;PRINT  DHIVE  # 

;PRINT  CYL  ADDR 

;PRINT  SURF  ADDR 

;PR1NT  SECT  ADDl 

;PfiINT  LOGICAL  BLOCK  # 


DDRPl  - 
DDRPI3 

17886 

17887 

17888 

17889 

17890 

17891 

17892 

17893 

1789A 

17895 

17896 

17897 

17898 

17899 

17900 

17901 

17902 

17903 

17904 

17905 

17906 

17907 

17908 

17909 

17910 

17911 

17912 

17913 

1791 A 

17915 

17916 

17917 

17918 

17919 

17920 

17921 

17922 

17923 

1792A 

17925 

17926 


RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  Z53B(12A2)  15:51  28-Aug-85  Page  226-1 
MAC     28-Aug-85  15:A9        POSITIONING  AND  DATA  ERROR  RECOVERY  -  RETRY  (CHANNEL  6  INTERRUPTS) 


SEQ  0560 


DD 
DO 


057602 

057603 

057604 

057605 

057606 

057607 

057610 

057611 

057612 

057613 

057614 

057615 

057616 

057617 

057620 

057621 

057622 

057623 

057624 

057625 

057626 

057627 

057630 

057631 

057632 

057633 

057634 

057635 

057636 

057637 

057640 

057641 

057642 

057643 

057644 

057645 

057646 

057647 

057650 
057651 


336  00 
254  00 
476  00 
260  17 
037  02 
135  01 
037  02 
037  02 
200  00 
350  00 
200  06 
260  17 
602  06 
037  02 
602  06 
037  00 
602  06 
037  02 
606  06 
254  00 
602  06 
037  02 
037  02 
602  06 
037  00 
402  00 
602  06 
201 


0  00 
0  00 
0  00 
0  00 
0  00 


0 
1 


00 
01 


0  00 
0  00 
0  00 
0  10 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  CO 
0  00 
0  00 
0  00 
0  00 
0  00 
00  0  00 
602  06  0  00 


271 
261 


00 
01 
17 


0 
0 


00 
00 


200  06 
603  06 
242  00 

262  17 
260  17 
037  02 
037  02 

263  17 


0  00 
0  01 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 
0  00 


077635 

057606 

077512 

036711 

075735 

075741 

060305 

075742 

077717 

GOOOOO 

000015 

066163 

000100 

075744 

006000 

030242 

004000 

075752 

002000 

057650 

004000 

075757 

075761 

001000 

000055 

000000 

000400 

001440 

000200 

000620 

075764 

000006 

100747 

000100 

777777 

000006 

066163 

075765 

075770 

000000 


RRECEX 


SKIPN 

JRST 

SETOW 

GO 

PMSG 

LDB 

PSIXM 

PMSG 

MOVE 

AOS 

MOVE 

GO 

TRNE 

PMSG 

TRNE 

PCRL 

TRNE 

PMSG 

TRNN 

JRST 

TRNE 

PMSG 

PMSG 

TRNE 

PNTCI 

SETZM 

TRNE 

MOVE  I 

TRNE 

ADDI 

LDB 

PUT 

MOVE 

TLNE 

LSH 

GET 

GO 

PMSG 

PMSG 

RTN 


MAPPING  OUT  SOFT  SPOTS 

NO 

YES  SET  AUTO  BAT  PROCESS  FLAG 

MAKE  BAT  BLOCK  ENTRY 


MAPSOF 
.*3 

AUTBAT 
BATENT 

<  ^RECOVERED  FROM  A  > 

AC1, [POINT  6,.RETWD(CSBP),23]   ;GET  THE  COMMAND  CODE  if 
aOPCMD(ACI) 

<  ON  RETRY  n> 

RETCNT  ;6ET  THE  RETRY  COUNT 

; CORRECT  THE  COUNT 
AC,.RETWD(CSBP) 

PSDN  ;AND  PRINT  IT 

ACJB29  ;HCI  USED?? 

<  (USED  HEADER  COMPARE  INHIBIT)> 
AC,1B24!1B25  ;USED  ECC  OR  OFFSET 

;YES  CR  MORE  TEXT  COMING 
ACJB24  ;ECC  FLAG  SET? 

<ECC  CORRECTION  WAS  USED...> 


ACJB25 

RRECEX 

AC, 1824 

<ALONG  WITH  > 

<OFF-SETTING  AT  > 

AC, 1826 

ACO 

AC. 1827 

ACO,^D800 

AC. 1828 

AC0,^D400 

AC1, [POINT  6,AC,17J 

AC 

AC,DSBTBL(AC1) 

AC.(.RP06) 

AC0,-1 

AC 

PSDN 

<  MICRO  -  INCHES> 

<* 


OFFSET  FLAG  SET? 
;N0  -  JUST  COUNT  THE  RECOVERY 
;PRINTED  ECC  MESSAGE? 


.•POSITIVE  OFFSET? 


;MOST  SIG  BIT  SET  IN  RETRY  WD 
;YES  800  U"  OFFSET 
;LEAST  SIG  BIT  SET 
;YES  +  400  U"  OFFSET 
;GET  DRIVE  n 

;GET  TABLE  DATA 

;RP06  ? 

;YES  DIVIDE  OFFSET  BY  2 

;PRINT  OFFSET  VALUE 


A  A< 


DDRPI   SUBROUTINES   (RP04/05/06  RELIABILITY) 
COMMAND  RECOVERY  SERVICE  -  RETRY 
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SEQ  0561 


XFRER 

OR 
POSER 


♦*RETIP     ** 
I 

♦  GET  DRV  #  FRM  * 
»     .RETWD  BITS     * 

♦  12-17  * 


PROCESS  FOR  AN  IN  PROGRESS  RECOVERY 


/ 


I 

DRIVE 

ERROR 

DETECTED 


\N0 
\- 
\ 


•♦FATAL   ♦♦ 

♦♦♦♦♦•♦•»♦♦ 


/ 


I   YES 

DOING 
POSITION 
RECOVERY 


I   YES 


\N0 

\   I 
. I 

I 
I 
I 
I 
I 
I 


/ 


DRV 
.POSER 
=1 


\N0 
\- 
\ 


I   YES 

Itt-ktltltltifkitir 

♦♦RETPOS   ♦♦ 


I 


.XFERER 
=1 


I   YES 

♦♦♦♦♦♦tv ♦♦♦♦♦♦♦•♦♦♦♦♦♦♦ 

♦PRI  ??  QUITTING XFR* 

•ERRORS  WHILE  DOING  A  ♦ 
•  POSITION  RECOVERY   ♦ 

I 
*********** 

♦♦RETC   ♦♦ 
*********** 


♦♦»*»**•♦•♦ 

♦♦RETC       *♦ 
*♦♦»*•»**♦* 

I 


I  RRECOV 

*•**••♦♦♦*♦*♦*♦****♦*** 

♦  PRI  DRV  XX  RECOVRED  ♦ 
♦FRM  A  XXXX  CMD  ON  TRY^ 
♦/»  XX  THEN  =1    TO  CNTR  ♦ 


I 


/ 


OVER 

RECOVERY 

LIMIT? 


\YES 
\— 
\ 


♦  PRI   SOFT  ERR     ♦ 
•>♦  LIMIT  ♦• 

♦  EXCEEDED         ♦ 

»♦*♦♦♦*•♦♦••♦•*** 


♦♦♦♦♦♦•♦*♦♦ 
•♦♦RETFAL  ♦♦ 


I     DRETIP 


NO 


/ 


♦***♦»♦»** ♦♦♦♦•♦* 

♦  ♦ 

♦  ♦1->C0UNT       ♦ 

»♦♦*«.♦♦♦♦*♦*»♦♦♦♦ 
I 

/         OVER  SOFT         \YES 
LIMIT  \— 

?  \ 


DRV 
XFRER 
=1 


\YES     ♦♦•*♦♦♦♦♦♦♦ 
\ ♦♦RETDAT  ♦♦ 


I  NO 


/ 


DRV 
.POSER 
=1 


\YES 
\ 


PRIFSE 


♦  ♦♦♦♦♦♦•♦♦♦♦♦♦♦•♦♦♦♦I  ♦♦ 

♦  P?I   OVER  SOFT  ♦ 

♦  LIMIT  FOR  POSH  ION     ♦ 

♦  ERRORS  ♦ 

I 
*********** 

♦♦RETFAL   ♦♦ 
*********** 


I  NO 

♦♦FATAL  ♦♦ 
»**♦*♦♦♦*♦* 


\ 


♦  PRI   ??  QUITTING       ♦ 

♦  GOT  F-OS  ERR  WHILE     ♦ 

♦  DOING  DATA  RECOVERY  ♦ 
♦♦*♦♦»*♦♦♦♦*♦♦♦♦♦**♦♦♦♦ 

I 
♦♦RETFAL  ♦♦ 


DDRPl  - 
0DRP13 

17928 

17929 

17930 

17931 

17932 

17933 

1793A 

17935 

17936 

17937 

17938 

17959 

179A0 

179A1 

179A2 

179A3 

1794A 

179A5 

17946 

179A7 

179A8 

179A9 

17950 

17951 

17952 

17953 

1795A 

17955 

17956 

17957 

17958 

17959 

17960 

17961 

17962 

17963 
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SEO  0562 


r 

DC 
CC 


057652 
057653 
05765A 
057655 
057656 
057657 
057660 
057661 
057662 
057663 
05766A 
057665 
057666 
057667 
057670 
057671 


037 
260 
261 
262 
261 
262 
402 
402 
260 
553 
260 
135 
305 
254 
305 
254 


02 
(7 
17 
17 
17 
17 
00 
00 
17 
00 
17 
00 
00 
00 
00 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
10 
00 
01 
00 
00 
00 
00 

n 

00 


070263 
056652 
077707 
077546 
077711 
077552 
077707 
00001 5 
063665 
101047 
0o0567 
075774 
000002 
057677 
000004 
057710 


057672  200  01  C  11  000142 

057673  317  01  0  00  100103 

057674  254  00  0  00  057230 

057675  037  02  0  00  075775 

057676  254  00  0  00  060504 


057677 
05770C 
057701 
057702 
057703 
057704 
057705 
057706 
057707 

057710 
057711 


200  01  0 
261  17  0 
200  00  0 
607  00  0 
200  01  0 
26?  17  0 
5i?  01  0 
254  00  0 
254  00  0 


00  100101 
00  000000 
13  100747 
00  000100 
00  100100 
00  000000 
11  000137 
00  057675 
00  057230 


RRECCT: 


RRECP: 


RRECER: 


RRECR: 


200  01  0  11  000140 
254  00  0  00  057700 


RRECW 


PMSG 

<*============= 

GO 

STCMD 

PUT 

RCMfQP 

GET 

CMDUPT 

PUT 

RCOMBP 

GET 

COMBPT 

SET2M 

RCMDQP 

SETZM 

.RETWD(CSBP) 

GO 

CHNSEL 

HRR2S 

CSBTBL(ACI) 

GO 

RFIX 

LDB 

[POINT  6, AC, 23] 

CAIGE 

2 

JRST 

RRECR 

CAIGE 

4 

JRST 

RRECU 

MOVE 

AC1,.SP0S(DSBP) 

CAMG 

AC1,PSLIM 

JRST 

RETC 

PMSG 

<*RECOVERY  SUCC 

JRST 

RETFAL 

MOVE 

AC1,XSLIM6 

PUT 

0 

MOVE 

0,DS8TBL(DRIVE) 

TLNN 

0,(.RP06) 

MOVE 

AC1,XSLIM4 

GET 

0 

CAMGE 

AC1,.SRD(DSBP) 

JRST 

RRECER 

JRST 

RETC 

MOVE 

ACl,.SyRT(DSBP) 

JRST 

RRECR^I 

;RESET  THE  0  LIST 
;AND  THE  0  POINTERS 


CLEAR  THE 
RESET  THE 


CSB  RETRY  CONTROL 
CLOCK 


WORD 


RESET  THE  CSB  AREA 

GET  COMMAND  CODE  M   AGAIN 

READ 

YES 

WRITE 

YES 

GET  THE  POSITION  COUNT 

OVER  LIMIT? 

NO 

SOFT  ERROR  RECOVERY  LIMIT  WAS  EXCEEDED*> 


GET  RP06  SOFT  ERROR  LIMIT 

SAVE  ACO 

GET  DRIVE  STATUS  WORD 

SEE  WHICH  TYPE  DRIVE  4  OR  6 

NOT  RP06,  MUST  BE  RP04 

RESTORE  ACO 

CHECK  AGAINST  #SOFT  ERRORS 

SOFT  ERROR  LIMIT  WAS  EXCEEDED 

OK.  HAVE  NOT  EXCEEDED  LIMIT 

GET  THE  SOFT  WRITE  ERROR  COUNT 


r- 


ODRPl  - 
DDRP13 

1796A 

17965 

17966 

17967 

17968 

17969 

17970 

17971 

M972 

17973 

1797A 

17975 

17976 

17977 

17978 

17979 

17980 

17981 

17982 

17983 

17984 

17985 

17986 

17987 

17988 

17989 

17990 

17991 

17992 

17993 

17994 

17995 

17996 

17997 

17998 

17999 

18OO0 

18001 
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•  jlf*  »♦»*»**♦♦♦*♦**♦**»♦♦♦♦♦♦♦***♦♦*♦*♦*♦♦♦♦♦*♦*♦♦♦♦•  ♦*♦*♦*♦«•♦*♦♦**♦•♦♦♦♦♦♦ 

;*RETDAT  —  ROUTINE  TO  RECOVER  FROM  A  DATA  TRANSFER  ERROR 

•  /If. *♦****♦♦♦*♦♦♦*****♦♦*♦*♦♦♦***♦*♦*♦*♦♦*♦*♦*♦*♦**♦♦♦*♦  ♦♦♦♦*♦♦*♦***'♦***♦** 


F 


SEQ  0563 


Dl 

Dl 


057712  621  00  0  00  000020 

057713  202  00  0  13  100747 

057714  332  00  0  10  000015 

057715  254  00  0  00  060001 


057716 
057717 
057720 
057721 
057722 
057723 
057724 
057725 
057726 
057727 
057730 
057731 
057732 
057733 
057734 
057735 
057736 


057737 
057740 
057741 
057742 
057743 
057744 


200  00 
405  00 
202  00 
200  00 
405  00 
606  00 
254  00 
370  00 
254  00 
606  00 
254  00 
274  00 
660  00 
200  01 
603  01 
271  00 
254  00 


370  00 
200  00 
200  01 
603  01 
271  00 
202  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


11 
00 
00 

11 

00 
00 
00 
00 
00 
00 
00 
00 
00 
13 
00 
00 
00 


000012 
1 77777 
077776 
000005 
^77777 
000037 
057727 
000000 
057744 
017400 
057737 
076010 
000023 
100747 
020000 
000002 
057744 


0  00  077776 
0  00  076011 
0  13  100747 
0  00  020000 
0  00  000002 
0  00  100001 


REIDAT:  TLZ  (.XFRER) 

MOVEM  DSBTBL(DRIVE) 

SKIPE  .RETWD(CSBP) 

JRST  RDATl 


CLEAR  XFR  ERROR  FLAG 
SAVE  UPDATED  STATUS 
HERE  BEFORE? 
YES 


;SAVE  THE  INITIAL  FAILING  DSK  ADDR  FROM  CHAN  5  SERVICE 


ADRSV:  MOVE  .DDCA(DSBP) 

ANDI  ^77777 

MOVEM  SVCYLA* 

MOVE  .DDTS(DSBP) 

ANDI  ^77777 

TRNN  37 

JRST  .+3 
SOS 

JRST  ADRSV2 

TRNN  37B27 

JRST  ADRSV1 

SU8  C1B27] 

TRO  23 

MOVE  AC1,DSBTBL(DRIVE) 

TLNE  AC1,(.F11) 

ADDI  2 

JRST  ADRSV2 

; TRACK  ♦  SECT  ADDR  HAVE  OVERFLOWED 

ADRSVl:  SOS  SVCYLA 

MOVE  AC0,C22B27:23B353 

MOVE  AC1,DSBTBL(DRIVE) 

TLNE  ACT, (.FID 

ADDI  AC0,2 

ADRSV2:   MOVEM  AC0,SVTICSA# 


ADDR 


GET  THE  CYL  ADDR 

SAVE  REG  DATA  ONLY 

SAVE  IT 

GET  TRACK  ♦  SECTOR 

SAVE  REG  DATA  ONLY 

SECT  ADDR  =  0 

SECT  ADDR  OVERFLOWED 

NO  POINT  TO  FAILING  SECT 

EXIT 

SURF  ADDR  =0 

SURF  ♦  SECT  OVERFLOWED 

DECR  SURF  POINT  TO  FAILING 

SET  MAX  10  SECT  ADDR 

GET  TABLE  STATUS 

11  FORMAT 

YES  MAKE  MAX  11  SECT  ADDR 

EXIT 


DECR  CYL  ADDR 

GET  MAX  SURF  ♦  SECT  ADDR 

GET  TABLE  STATUS 

11  FORMAT  ? 

YES 

SAVE  TRACK  ♦  SECT  ADDR 


ONE 
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IN  RETRY  "RETHLD"  AREA  SO  IT  CAN  BE 

;MBC  =  RH20? 

;N0  RETRY  MBC  HOLD  CMD 

;YES  -  BUILD  BLT  WORD  TO  SAVE  2ND 

;MBC  COMMAND 

•SAVE  IT 

!•  CLEAR  ALL  BUSY  COUNTS  IN  CSB  AREA 

;AND  POSITION  COUNTS  ALSO 

;ANY  HOLD  CMD? 

;HAVE   IT  ALREADY   (STRANGE) 
;N0  -  SAVE   THINGS 

.•POINT   TO  RETRY  AREA 


SEQ  0564 


D 
D 


18002 

18003 

;SAVE  THE  MBC 

2ND  COMMAND  (IF  RH20) 

18004 
18005 
18006 

.•ISSUED  LATER 

057745 

336  00  0  00  077722 

SKIPN 

RH20 

18007 

057746 

254  00  0  00  057755 

JRS7 

NORHLD 

18008 

057747 

205  00  0  11  000035 

MOVSI 

.SCNAD(DSBP) 

18009 

057750 

541  00  0  00  100144 

HRRI 

RETHLD 

18010 

057751 

251  00  0  00  100150 

BLT 

RETHLD*4 

18011 

057752 

402  00  0  10  000016 

SETZM 

.BSYCT(CSBP) 

18012 

057753 

402  00  0  10  000017 

SET2M 

.PIPCT(CSBP) 

18013 

057754 

334  00  0  00  OOOOOO 

SKIPA 

18014 

057755 

402  00  0  00  100144 

NORHLD:  SETZM 

RETHLD 

18015 

057756 

332  00  0  00  077707 

SKIPE 

RCMDQP* 

18016 

057757 

254  00  0  00  057764 

JRST 

.+5 

18017 

057760 

261  17  0  00  077546 

PUT 

CMDQPT 

18018 

057761 

262  17  0  00  077707 

GET 

RCMDOP 

18019 

057762 

261  17  0  00  077552 

PUT 

COMBPT 

18020 

057763 

262  17  0  00  077711 

GET 

RCOMBP# 

18021 

057764 

201  00  0  00  100117 

MOVE  I 

RETQ 

18022 

057765 

202  00  0  00  077546 

MOVEM 

CMDQPT 

18023 

057766 

201  00  0  00  100124 

MOVEI 

COMRET 

18024 
18025 
18026 

057767 

202  00  0  00  077552 

MOVEM 

COMBPT 

057770 

200  00  0  00  100076 

RDATA:  MOVE 

RET  WD 

18027 

057771 

661  00  0  00  400000 

TLO 

(IBO) 

18028 

057772 

671  00  0  00  000013 

TSO 

DRIVE 

18029 

057773 

550  01  1  00  100134 

HRRZ 

ACl,aDSBCMD^3 

18030 

057774 

135  01  0  00  075621 

LDB 

ACl, [POINT  6,aAC1-5] 
AC1, [POINT  6,AC0.23] 

18031 

057775 

137  01  0  00  075622 

DPS 

18032 

057776 

2u^   01  0  00  077710 

MOVEM 

ACKRCNUM# 

18033 

057777 

202  00  0  10  000015 

MOVEM 

.RETWD(CSBP) 

18034 

060000 

254  00  0  00  060001 

JRST 

RDATl 

;GET  BASIC  RETRY  CONTROL  WORD 

.•INIDCATE   A  DATA  r^ECOVERY 

;GET  DRIVE  # 

;GET  THE  CMD  POINTER 

;GET  COMMAND  CODE  # 

;SAVE  IT 

:AND  AGAIN 

;SAVE  THE  RETRY  CONTROL  WORD 


i 
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SEQ  0565 


C 

C 


18035 

18036 

18037 

18038 

18039 

180AO 

180A1 

180A2 

180A3 

180AA 

18045 

180A6 

180A7 

180A8 

180A9 

18050 

18051 

18052 

18053 

18054 

18055 

18056 

18057 

18058 

18059 

18060 

18061 

18062 

18063 

18064 

18065 

18066 

18067 

18068 

18069 

18070 

18071 

18072 

18073 

18074 


060001 
060002 
060003 
060004 
060005 
060006 

060007 
060010 

06001 1 

06001 2 

06001 3 
060014 
06001 5 
060016 
060017 

060020 
060021 
060022 
060023 
060024 

060025 
060026 
060027 
060030 


060031 
060032 
060033 
060034 
060035 
060036 


200  00 
602  00 
260  17 
332  01 
306  01 
254  00 

306  01 
254  00 
200  01 
606  01 
254  00 
602  01 
254  00 
260  17 
254  00 


0  11  000002 
0  00  000620 
0  00  060625 
0  00  077710 
0  00  000002 
0  00  060037 


0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 


000003 
060020 
100640 
100000 
060020 
000100 
060020 
057561 
057652 


135  00  0  00  076012 
135  01  0  00  076013 
317  00  0  00  000001 
254  00  0  00  057443 
350  01  0  11  000135 

317  01  0  00  100077 
254  00  0  00  060031 
037  04  0  00  076014 
254  00  0  00  060504 


037  02  0  00  076030 

260  17  0  00  054607 

200  00  0  13  100747 

621  00  0  00  000060 

202  00  0  13  100747 

254  00  0  00  057652 


.•DETERMINE  THE  TYPE  OF  DATA  TRANSFER  RECOVERY  NEEDED 


RDAT1 :  MOVE 
TRNE 
60 

SKIPE 
CAIN 
JRST 

RDATH:  CAIN 
JRST 
MOVE 
TRNN 
JRST 
TRNE 
JRST 
GO 
JRST 

RDATHN:  LDB 
LDB 
CAMG 
JRST 
AOS 


AC0,.DER1(DSBP) 

ACO,HCEIHCRCER!FMTER 

RETHED 

AC1,RCNUM 

AC1,2 

.DISECT 

AC1,3 

RDATHN 

ACUSNAP+2 

AC1JB20 

RDATHN 

ACUECHARD 

RRECOV 
RRECCT 


GET  THE  DRIVE  ERROR  M'\ 
ANY  HEADER  ^YPE  ERROR? 
YES  -  REPORT 
SIMPLE  READ  COMMAND  OR 
A  SIMPLE  WRITE  COMMAND? 
YES  -  TRY  TO  RECOVER 


REG 


09 


WRITE  HEADERS  (FORMATTING) 

YES  -  NORMAL  HEADERS  RECOVERY 

NO  -  MUST  BE  READ  HEADERS 

DRIVE  "DCK"  SET?? 

NO  -  ISSUE  CMD  AGAIN 

YES  -  BUT  IS  ECHARD  SET?? 

HARD  ECC  ERROR 

NO  -  FAKE  A  RECOVERY  (IT  COULD  RECOVER) 

EXIT  RETRY  SERVICE 


RDAT2: 


CAMG 
JRST 
PMSGF 
JRST 


[POINT  6,.RETWD(CSBP),35]  ;GET  THE  RETRY  COUNT 
ACUCPOINT  6,.RETWD(CSBP),1i:  ;GET  THE  RETRY  LIMIT 
ACl  .-EXCEEDED  HEADER  RETRY  LIMIT 

RETCX  ;N0  -  RETRY  HEADER  COMMAND 

AC1,.HRD(DSBP)         ;YES  -  -H  TO  HARD  READ  ERROR  COUNTER 

ACKXHLIM  .-EXCEEDED  HARD  DATA  ERROR  LIMIT?? 

RET8AD  ;N0  -  REPORT  UNSUCCCESSFUL  RETRY 

<'^DATA  RETRY  ERROR  LIMIT  EXCEEDED. . .UN-SUCESSFUL  TRANSFER  RECOVERY^> 

RETFAL  ;TAKE  FATAL  ERROR  EXIT 


.-HERE  TO  REPORT  UN-SUCCESSFUL  RECOVERY 


RETBAD:  PMSG  <^RECOVERY 

GO  PNTDRV 

MOVE  DSBTBL (DRIVE) 

TLZ  (.XFRER!. POSER) 

MOVEM  DSBTBL(DRIVE) 

JRST  RRECCT 


WAS  UN-SUCCESSFUL  FOR  THIS  OPERATION  ON  > 

PRINT  DRIVE  * 
GET  THE  DRIVE  STATUS 
CLEAR  THE  ERROR  INDICATORS 
SAVE  THE  UPDATED  STATUS 
EXIT  RETRY  AS  A  BAD  RECOVERY 


1 


DDRPl  SUBROUTINES  (RP04/05/06  RELIABILITY) 
COMMAND  RECOVERY  SERVICE  -  RETRY 


DECFLO  VER  00.12  12-APR-78  08:44  PAGE  40 


r 


SEQ  0566 


•••**••*•*•  DATA 

**RETDAT  **  RECOVERY 

I 

*  * 

*  0->.XFRER  * 

*  * 

I 


<• 

I 
I 
I 


NO    / 
I 


.RETWD 
s0 


\ 


\ 


I  YES 

*  SAVE  MBC  2ND  CMD  ♦ 

*  IN  "RETHLD"  FOR  * 

*  LATER  USE  * 

I 

•GET  RETUD  %   SET  BIT  0* 

*  FOR  DATA  RETRY  THEN  * 

*  GET  DRV  n   IN  12-17  * 

I 

*  CMD  FUNCTION  IN  * 

*  18-20  SAVE  IN  ♦ 

*  .RETWD  (CSBP)  * 


■>I 


I  RDAT1 


/ 


READ 
RECOVERY 

7 


\YES 
\— 
\ 


I  NO  MUST  BE  A 

I     WRITE  RECOVERY 

I  RDATW 


I  RDATH 


/     READ 

DATA  ONLY 


\YES 
\— 
\ 


RECOVERY  BY 
INDIVIDUAL  SECTORS 


I  NO 


{ 


READ  HEADERS 
AND  DATA 


/     OVER 
RDHD  RETRY 
LIMIT 


\N0   ****♦••***• 
\ >**RETCX  *♦ 


I  DISECT(41) 
•*♦••♦•**♦•♦*•••• 

*  ISSUE  A    * 

*  "CENTER"  CMD  * 

*  TO  DRIVE    * 

I 


I  YES 
*  +1->HARD  CNT  * 


NO  / 
/ 
/ 


DRV 
.PRIM 
=0 


\ 


\ 


I  YES 
♦♦DISECT  ** 


•>I  RDAT2 


HARD 
ERROR  LIMIT 
EXCEEDED 


\N0   •*******♦*♦ 
\ >**RETBAD  ** 


OVER      \YES 
WRT  RETRY     \— 
LIMIT       \ 

I  NO 

♦♦♦♦♦••*♦»• 

♦♦RETCX  ♦* 

♦♦♦♦♦♦♦♦♦♦♦ 

TRY  AGAIN 


I 
I 
I 
I 

I 


I  YES 

*  PRI  OVER  RECOVRY   ♦ 

*  LIMIT  UNSUCCESSFUL  * 

*  RECOVRY  FOR  DATA   * 

*********************** 

I 
♦♦RETFAL  ** 


♦♦RETBAD  ** 

I 

»  PRI  RECOVRY  ♦ 
»  UNSUCCESSFUL  ON  DRV  * 
♦  XX  FOR  A  DATA  XFR  ♦ 

I 
♦♦RETC   ** 
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SEQ  0567 


18076 

18077 

18078 

18079 

18080 

18081 

18082 

18083 

18084 

18085 

18086 

18087 

18088 

18089 

18090 

18091 

18092 

18093 

18094 

18095 

18096 

18097 

18098 

18099 

18100 

18101 

18102 

18103 

18104 

18105 

18106 

18107 

18108 

18109 

18110 

18111 

18112 

18113 

18114 

18115 

18116 

18117 

18118 

18119 

18120 

18121 

18122 

18123 

18124 

18125 

18126 

18127 

18128 

18129 

18130 


060037 
060040 
060041 
060042 
060043 
060044 
060045 
060046 
060047 
060050 
060051 
060052 
060053 
060054 
060055 
060056 
060057 

060060 
060061 
060062 
060063 
060064 
060065 
060066 
060067 
060070 

060071 
060072 
060073 
060074 
060075 

060076 
060077 
060100 
060101 
060102 
060103 
060 1 04 
060105 
060106 
060107 
060110 
0601 1 1 
060112 
060113 
060114 
060115 


201  01 
260  17 
254 
201 


00 
00 


260  17 
205  01 
435  01 
260  17 
310  00 
205  01 
260  17 
254  00 
310  00 
602  01 
254  00 
037  02 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000017 
063147 
060037 
000036 
042726 
040000 
000377 
063147 
000000 
010000 
057135 
060540 
000000 
000200 
060060 
076041 
057512 


037  02  0 
554  00  0 


202  00 
231  00 
332  00 
350  00 
202  00 
260  17 
037  02 


0 
0 
0 
0 
0 
0 
0 


00  076047 
00  100132 
00  077732 
00  000200 
00  000001 
00  000000 
00  077731 
00  066163 
00  073425 


4ui  00  0  00  077506 
402  00  0  00  077717 
200  01  0  10  000015 
620  01  0  00  007777 
202  01  0  10  000015 


200  01  0 
200  00  0 
336  00  0 


254  00 
554  06 
550  01 
602  01 
254  00 
606  01  0 
254  00  0 
200  01  0 
660  01  0 
202  01  0 
200  01  0 
260  17  0 
254  00  0 


00  077506 

01  100104 
00  000000 
00  060233 
00  000000 
00  000000 
00  000177 
00  060317 
00  002000 
00  060116 
10  000015 
00  000100 
10  000015 
00  076054 
00  063147 
00  060113 


;HERE  TO  RECOVER  A  "SIMPLE"  DATA  READ  OR  WRITE  TRANSFER 


DISECT:  MOVEI 
GO 
JRST 
MOVEI 
GO 

MOVSI 
lORI 
GO 
CAM 
MOVSI 
GO 
JRST 
CAM 
TRNE 
JRST 
PMSG 
JRST 


DISECT: 


DISA 


DISS 


PMSG 

HLRZ 

MOVEM 

IDIVI 

SKIPE 

AOS 

MOVEM 

60 

PMSG 

SETZM 

SETZM 

MOVE 

TR2 

MOVEM 

MOVE 

MOVE 

SKIPN 

JRST 

HLRZ 

HRRZ 

TRNE 

JRST 

TRNN 

JRST 

MOVE 

TRO 

MOVEM 

MOVE 

GO 

JRST 


ACI.RTNCTR 

LDREG 

.-2 

*D30 

WAITIT 

AC1,(DRAS) 

AC1,377 

LDREG 


GET  A  DRIVE  "RTC"  CMD 

AND  ISSUE  IT  TO  THE  DRIVE  SELECTED 

LOAD  ERROR  DETECTED  -  TRY  AGAIN 

UAIT  FOR  MAX  OF  30  MSEC 

FOR  CMD  TO  FINISH 

.•CLEAR  ATTN  BITS 


ACU(DRSR) 

DRREG 

RETFL1 


ACUDRY 
DISECT 
<*RETRY 
RTIMO+1 


READ  THE  DRIVE  STATUS  REGISTER 
TO  SEE  IF  ITS  READY  TO  PROCEED 
FATAL  ...  DRIVE  GONEl 
NEVER  GET  HERE 
DRIVE  READY  YET? 
YUP  -  GO  ON 
"CENTER"  COMMAND  TIMED  OUTI> 

;EXIT 


<MTTEMPTING  RECOVERY  OF  A  > 


GET  THE   XFR  SIZE 

SAVE   IT 

CALC  M   SECTORS  TO  RECOVER 

ODD  VALUE  OF  WORDS 

YES  -  •••I  TO  COUNT 

SAVE  THE  COUNT 


DS8CMD^•1 
RS1ZE# 
BLKSIZ 
AC1 

RSCNT# 

PSDN 

<  SECTOR  TRANSFER  BY  INDIVIDUAL  SECTORS*> 

ALGNUM#  .-CLEAR  THE  RETRY  ALGORITHIM  INDEX  COUNTER 

RETCNT  :CLEAR  RETRY  COUNT 

AC1,.RETWD(CSBP);GET  RETRY  WORD 
AC1, 7777  .-CLEAR  RETRY  STATUS  BITS 

AC1,.RETWD(CSBP)       ;SAVE  IT 


ACKALGNUM 
RETALG(ACI) 

DISBX 
AC-ACO 

acKaco 

AC1J77 

DISB2 

AC1,2000 

DISC 

AC1,.RETWD(CSBP) 

ACUOO 

AC1,.RETWD(CSBP) 

ACUCDROFFiHCI] 

LDREG 

.-2 


GET  THE  INDEX  POINTER 

GET  THE  ALGORITHIM  CONTROL  WORD 

COMPLETED  THE  RETRY  ALGORITHIM?? 

YES  -  FAILED  TO  RECOVER  DATAI 

GET  RETRY  CONTROL  COUNT 

GET  THE  OFFSET  VALUE  TO  BE  USED 

ANY  OFFSET  VALUE 

YES  -  DO  TT 

HCI  ? 

NO  CONTINUE 

GET  RETRY  WORD 

SET  HCI  USED  BIT 

SAVE  IT 

YES  GET  REG  DATA 

.OAD  OFFSET  REG 

FAILED  TRY  AGAIN 


.-BUILD  A  COMMAND  IN  THE  DRIVE  PRIM  AREA  FOR  THE  RETRY 
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18131 

18132 

18133 

181 34 

18135 

18136 

18137 

18138 

18139 

18140 

18141 

18142 

18143 

18144 

18145 

18146 

18147 

18148 

18149 

18150 

18151 

18152 

18153 

18154 

18155 

18156 

18157 

18158 

18159 

18160 

18161 

18162 

18163 

18164 

18165 

18166 


060116  201  00  0  00  100124 

060117  671  00  0  00  000013 

060120  202  00  0  00  100117 

060121  260  17  0  00  056733 

060122  550  00  0  00  100131 

060123  202  00  0  11  000042 

060124  550  00  0  00  100132 
0601 Z 5  505  00  0  00  000200 

060126  202  00  0  11  000043 

060127  200  00  0  00  100133 

060130  202  00  0  11  000044 

060131  201  00  0  00  100117 

060132  202  00  0  11  000045 

060133  200  00  0  00  100135 

060134  202  00  0  11  000046 

060135  201  00  0  00  060060 

060136  500  00  0  00  100133 

060137  200  01  0  00  077710 

060140  137  01  0  00  072532 

060141  202  00  0  00  100124 

060142  200  00  0  00  100135 

060143  621  00  0  00  400000 

060144  260  17  0  00  045573 

060145  551  01  0  00  000200 

060146  242  01  0  00  000003 

060147  506  01  0  00  000000 

060150  202  00  0  00  100125 

060151  40?  00  0  10  000016 

060152  2u'  01  0  00  734244 

060153  332  00  0  00  077722 

060154  201  01  0  00  001444 

060155  260  17  0  00  063522 

060156  260  17  0  00  060755 


SEQ  0568 


DISC: 


MOVE  I 

TSO 

MOVEM 

GO 

HRRZ 

MOVEM 

HRRZ 

HRLI 

MOVEM 

MOVE 

MOVEM 

MOVE  I 

MOVEM 

MOVE 

MOVEM 

MOVE  I 

HLL 

MOVE 

DPB 

MOVEM 

MOVE 

TLZ 

GO 

HRRZI 

LSH 

HRLM 

MOVEM 

SETZM 

MOVE  I 

SKIPE 

MOVE  I 

GO 

iO 


COMRET 

DRIVE 

RETQ 

CPMBC 

DS6CMD 

.PRIM(DSBP) 

DSBCMD+1 

BLKSIZ 

.PRIM+KDSBP) 

DSBCMD+2 

.PRIM+2(DSBP) 

RETQ 

.PRIM+3(DSBP) 

DS8CMD+4 

.PRIMH(DSBP) 

DISECT 

DSBCMD+2 

ACURCNUM 

AC1, [POINT  6,AC0,5J 

COMRET 


DSBCMD+4 

(180) 

LOGBLK 

AC1, BLKSIZ 

AC1,3 

ACUACO 

COMRET^-1 

.BSYCT(CSBP) 

AC1 -734244 

RH20 

ACUXECLRIMBE 

.CONO 

XCTRET 


POINT  TO  THE  RETRY  COMMAND  AREA 

GET  THE  DRIVE  ft 

SAVE  THE  RETRY  Q  POINTER 

CLEAR  THE  CMD  FROM  THE  CSB  AREA 

GET  THE  SCNTBL  POINTER 

SAVE  IT  IN  THE  DSB 

GET  THE  BUFFER  ADDRESS 

GET  THE  BLOCK  SIZE 

SAVE  IT  IN  THE  DSB 

GET  THE  2ND  SCNTBL  WORD 

SAVE  IT 

POINT  TO  THE  RETRY  0 

GET  THE  DSK  ADDR  FOR  THE  RETRY 

SAVE  IT  IN  THE  DSB 

FAKE  PC  OF  CALL 

GET  PATN  M 

GET  CMD  # 

SAVE  IT 

SAVE  1ST  CMD  WORD 


GET  PHYSICAL  DISK  ADDR 
CLEAR  DISK  ADDR  IND  BIT 
CONVRT  TO  LOGICAL  BLK 
GET  THE  SIZE 
POS  IT 
SAVE  IT 
SAVE  2ND  WORD 
CLEAR  ANY  BUSY  COUNT 
GET  THE  RH10  CLEAR  WORD 
MBC  =  RH20'''''' 
IATTNEN14  ;YES  -~GET  THE'pROPER  BITS 
; CLEAR  THE  CONTROLLER 
.•ISSUE  THE  COMMAND 


L- 


r 


DDRPl   SUBROUTINES   (RP04/05/06  RELIABILITY) 
COMMAND  RECOVERY  SERVICE   -  RETRY 


DECFLO  VER     00.12  12-APR-78  08:^^     PAGE  Al 


SEQ   0569 


*********** 

♦♦DISECT  ♦♦ 
*********** 

I     DISA 
*********************** 

♦   PRI  ATTEMPTING    ♦ 

♦RECOVRY  OF  A  XX  SECT  ♦ 

♦XFR  BY  INDIVID  SECTS  ♦ 
*********************** 

I 
***************** 

♦  0->INDEX    ♦ 

♦  FOR  DISECT   ♦ 

♦  ♦ 
***************** 

***************** 

♦  GET  DISECT   ♦ 

♦  ENTRY  FROM   ♦ 

♦  TABLE     ♦ 
***************** 

I 


*********** 

♦♦DISB   ♦♦ 
*********** 

I 


/ 
/ 
/ 

ENTRY 
=0 

\YES 
\— 
A 

>*** 

** 

r*** 

I  NO 

**«****1 

♦♦DISC 
*♦*♦***< 

/ 

/ 
/ 

ANY 
OFFSET 
VALUE 

\YES 
\— 

\ 

I  DISBX 
***************** 

♦  ♦!  TO  DRV  HRD  ♦ 
♦ERR  CNTR  ELIMIN^ 

♦  BAD  TRACK   ♦ 
***************** 

I 


•>I  NO 


*********************** 

♦BULD  READ  CMD  IN  DRV  ♦ 
♦PRIM  DSPB  AREA  BULD  !♦ 
♦  SECT  CMD  IN  COMRET  ♦ 
*********************** 

I 
***************** 

♦  EXECUTE    ♦ 

♦  READ  CMD    ♦ 

♦  ♦ 
***************** 

I 
*********** 

♦♦DISE2  ♦♦ 
*********** 


/     OVER 
/    HARD  ERROR 
/       LIMIT 

\YES 
V 

*********** 

-♦♦RETFAL  ♦♦ 
*********** 

I  NO 

****v****** 

♦♦RETBAD  ♦♦ 

*********** 

I  DISB2 
***************** 

♦READ  DRV  OFSET  ♦ 

♦REG  FRM  ALGTBL  ♦ 

♦     VALUE     ♦ 
***************** 

I 

YES 

/      READ 
-/      ERROR 
/         ? 

\ 
\ 
\ 

I  NO 


***************** 

♦BULD  AN  OFFSET  ♦ 

♦  CMD  AND 

♦  EXECUTE  IT   • 

***************** 


***♦•****•* 

. — >*.DISB3  ♦♦ 


L- 
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SEO  0570 


18168 

18169 

18170 

18171 

18172 

18173 

1817A 

18175 

18176 

18177 

18178 

18179 

18180 

18181 

18182 

18183 

1818A 

18185 

18186 

18187 

18188 

18189 

18190 

18191 

18192 

18193 

18194 

18195 

18196 

18197 

18198 

18199 

18200 

18201 

18202 

18203 

18204 

18205 

18206 

18207 

18208 
18209 
18210 

18211 
18212 
182^3 

18215 


060157 
060160 
060161 
060162 
060163 
060164 
060165 


060166 
060167 
060170 


060171 
060172 


060173 
060174 


201  00 
260  17 
260  17 
336  00 
254  00 
037  02 
254  00 


0  00  000074 
0  00  042726 
0  00  053015 
0  11  000042 
0  00  060166 
0  00  076055 
0  00  057512 


200  00  0  13  100747 
607  00  0  00  100000 
254  00  0  00  060442 


603  00  0  00  000040 
254  00  0  00  060442 


603  00  0  00  000020 
254  00  0  00  060444 


060175 
060176 
060177 
060200 
060201 
060202 
060203 


060204 
0602C5 
060^06 
060207 
060210 
060211 
06O212 
06021? 


5:5.^  00 
254  00 
200  00 
602  00 
254  00 
602  00 
254  00 


554  00 
620  00 
312  00 
254  00 
550  00 
312  00 
254  00 
260  17 


0  00  077506 
0  00  060213 
0  10  000015 
0  00  000077 
0  00  060213 
0  00  004000 
0  00  060213 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


0  00 


100135 
400000 
077776 
060214 
100135 
100001 
0602U 

057561 


DISC2:  NOVEI  *D60 

60  yAITIT 

60  lOTERM 

SKIPN  .PRI«(DSBP) 

JRS:  .^3 


;WAIT  MAX  OF  60  MSEC 


RESET  PI  CHAN  'S 

FINISH? 

YES 


PMS6    <^RETRY  OF  A  1  SECTOR  XFA  TIMED  OUT!^> 
JRST    RTIMO^l  ;N0 


;NOy  CHECK  DSBTBL  STATUS  FOR  DRIVE  ON  LINE 


MOVE    DS8TBL(DRIVE) 
TLNN    (.ONLN) 
JRST    DISB4 

;SEE  If   A  POSITION  ERROR  yHlLE  READING 


TLNE 
JRST 


(.POSER) 
DIS84 


;LOOK  FOR  A  TRANSFER  ERROR 


TLNE 
JRST 


(.XFRER) 
DXFRl 


6ET  THE  TABLE  STATUS 
DRIVE  STILL  ON  LINE? 
NO  -  •'?  FATAL 


.•POSITION  ERROR 
;YES  -  FATAL 


;ANY  ERROR  ON  THE  READ? 
;YES  -  TRY  TO  RECOVER  AGAIN 


;HERE  IF  THE  SECTOR  WAS  RECOVERED  BY  A  RE-READ 
;SEE  IF  IT  FAILED  AT  LEAST  ONCE  ON  THE  REREAD 


DISD: 


DISD1 


SKIPE 

ALGNUM 

JRST 

DISDl 

MOVE 

ACO,.RETyD(CSBP) 

TRNE 

ACO. 77 

JRST 

0ISD1 

TRNE 

AC0,1B24 

JRST 

DISDl 

F  THIS 

IS  THE  INITIAL  FA 

HLRZ 

AC0.DSBCMD^4 

TRZ 

AC0,1B18 

CAME 

ACO,SVCYLA 

JRST 

DISD2 

HRRZ 

AC0,DSBCMD*4 

CAME 

ACO,SVTKSA 

JRST 

DISD2 

GO 

RRECOV 

FIRST  RETRY  AL60RITHM 

NO  REPORT  RECOVERY 

6ET  RETRY  WORD 

REREAD  THIS  MORE  THAN  ONCE 

YES  REPORT  RECOVERY 

USE  ECC  CORRECTION 

YES  RPORT  RECOVERY 


5ET  CYL  ADDR 

KILL  DSK  ADDR  INDICATOR 

SAME  CYL  ADDR 

NO  NOT  A  RECOVERY 

YE  GET  TRACK  ♦  SECT  ADDR 

FAILURE  ONES  ? 

NO  NOT  A  RECOVERY 

REPORT  RECOVERY 


L 
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SEQ  0571 


18216 
18217 

18218 

18219 

18220 

18221 

18222 

18223 

1822A 

18225 

18226 

18227 

18228 

18229 

18230 

18231 

18232 

18233 

18234 

18235 

18236 

18237 

18238 

18239 

18240 

18241 

18242 

18243 

18244 

18245 

18246 

18247 

16248 

18249 

18250 

18251 

18252 

18253 

18254 

18255 

18256 

18257 

18258 

18259 

18260 

18261 

18262 


060214 
060215 
060216 


200  00  0  00  077731 
307  00  0  00  000001 
254  00  0  00  057652 


060217 
060220 
060221 
060222 
060223 
060224 
060225 
060226 
060227 
060230 
060231 
060232 


200  00 
271  00 
202  00 
200  00 
621  00 
260  17 
350  00 
260  17 
661  00 
202  00 
370  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


100132 
000200 
100132 
100135 
400000 
045573 
000000 
045627 
400000 
100135 
077731 
060071 


060233 
060234 
060235 
060236 
060237 
060240 
060241 
060242 
060243 
060P44 
060245 
060246 
060247 
060250 
060251 
060252 

060253 
060254 
060255 


200  00 
621  00 
260  17 
476  00 
2cJ  17 
260  17 
200  01 


0 
0 
0 
0 
0 
0 
0 


00  100135 
00  400000 


307  01  0 
254  00  0 
370  00 
350  01 
254  00 
370  00 
350  01 
317  01 
254  00 


00  045573 

00  077512 

00  036711 

00  047116 

00  077710 

00  000001 

00  060247 

0  11  000140 

0  11  000136 

0  00  060251 

0  11  000137 

0  11  000135 

0  00  100077 

0  00  060256 


037  02  0  00  076064 
260  17  0  00  054607 
254  00  0  00  060504 


;SEE  IF  ANY  MORE  DATA  TO  RECOVER 


DISD2:  MOVE 
CAI6 
JRST 


ACO,RSCNT 

ACOJ 

RRECCT 


GET  RETRY  SECTOR  COUNT 

MORE  THAN  ONE  SECTOR  TO  RETRY 

NO  -  ALL  DONE,  CLEAN  UP  &  EXIT 


.•UPDATE  THE  RETRY  COMMAND  TO  POINT  TO  THE  NEXT  SECTOR  IN  THE  TRANSFER 
;T0  BE  RECOVERED 


MOVE 

ADD  I 

MOVEM 

MOVE 

TLZ 

GO 

AOS 

GO 

TLO 

MOVEM 

SOS 

JRST 


DSBCMD^I 

BLKSIZ 

DSBCMD^I 

DS8CMD*4 

(180) 

L0G6LK 

BLKADR 

(IBO) 

DSBCMD*4 

RSCNT 

DISA 


;GET  THE  SI2E/ADDR  WORD 
.-UPDATE  BUFFER  ADDRESS 

;GET  THE  DISK  ADDRESS 


GENERATE  A  LOGICAL  BLOCK  NUMBER 

POINT  TO  THE  NEXT  BLOCK 

CONVERT  BACK  TO  CYL,. TRACK-SECTOR 

SAVE  UPDATED  DISK  ADDRESS 
DOyNCOUNT  THE  SECTOR  COU^.•T 
TRY  TO  RECOVER  NEXT  SECTOR 


.•HERE  IF  ALL  RETRY  ALGORITHIM  COMMANDS  FAIL  TO  RESULT  IN  A  RECOVERY  OF  THE  SECTOR 


DISBX: 


MOVE 

TLZ 

GO 

SETOM 

GO 

GO 

MOVE 

CAIG 

JRST 

SOS 

AOS 

JRST 

SOS 

AOS 

CAMG 

JRST 

PMSG 

GO 

JRST 


AC0.DSBCMD*4 

(1B6) 

L0G8LK 

AUTBAT 

BATENT 

TRKDEL 

AC1,RCNU« 

ACIJ 

.♦4 

.SyRT(DSBP) 

ACL.HyRTCDSBP) 

;srd(dsbp) 

ac1,.hrd(dsbp) 

aci.xhlih 

RRFAIL 


GET  THE  "COMBUF"  POINTER 

KILL  THE  DSK  ADDR  INDICATOR 

CALC  THE  LOGICAL  BLK  # 

SET  THE  AUTO  BAT  BLK  PROCESS  FLAG 

MAKE  A  BAT  BLK  ENTRY 

AND  DELETE  THE  SPOT  FROM  TESTING 

GET  COMMAND  # 

IS  IT  A  READ 

YES 

NO  DECR  SOFT  yRT  CNT 

UPDATE  HARD  ERROR  CNT 

DECR  SOFT  READ  CNT 
UPDATE  HARD  ERROR  CNT 
OVER  HARD  ERROR  LIMIT? 
NO 


<*RECOVERY 

PNTDRV 

RETFAL 


WAS  UNSUCCESSFUL  EXCEEDED  HARD  ERROR  LIMIT  0N> 

;YES  -  FATAL 
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SEQ  0572 


18263 

1826A 

18265 

18266 

18267 

18268 

18269 

18270 

18271 

18272 

18273 

18274 

18275 

18276 

18277 

18278 

18279 

18280 

18281 

1828^ 

18283 

1828A 

18285 

18286 

18287 

18288 

18289 

18290 

18291 

18292 

18293 

1829A 

18295 

18296 

18297 

18298 

18299 

18300 

18301 

18302 

18303 


060256 
060257 
060260 
060261 
060262 
060263 
060264 
060265 
060266 
060267 
060270 
060271 
060272 
060273 
060274 
060275 
060276 
060277 
060300 


060301 
060302 
060303 
060304 


060305 
060306 
060307 
060310 
060311 
060312 
060313 
060314 
060315 
060316 


037 
260 
037 
135 
260 
037 
135 
037 
037 
135 
037 
037 
135 
260 
260 
037 
135 
037 
037 


00 
17 
02 
00 
17 
02 
00 
02 
02 
00 
02 
02 
00 
17 
17 
02 
01 
02 
02 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
01 
00 


030242 
054607 
075724 
073457 
066174 
075726 
073460 
000000 
075730 
073463 
000000 
076076 
073456 
045573 
066163 
076100 
075741 
060305 
07610** 


200  00  0  13  100747 
621  00  0  00  000060 
202  00  0  13  100747 
254  00  0  00  060214 


000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 


076114 
076115 
076121 
076122 
076126 
076127 
076130 
076132 
076136 
076141 


.•REPORT  THE  SECTOR  THAT  FAILED  TO  RECOVER 


RRFAIL:  PCRL 
60 

PMS6 
LDB 
GO 

PMSG 
LDB 
PNT2 
PMSG 
LDB 
PNT2 
PMSG 
LDB 
GO 
GO 

PMSG 
LDB 
PSIXM 
PMSG 


PNTDRV 

<  CYL*  > 

[POINT  10,DSBCMD+4J7] 
POCT 

<  SmfM  > 

[POINT  5, DSBCMDM, 27] 

<  SECT*  > 

[POINT  5,DSBCMD+4,35] 


;PRINT  CYL  ADDR 
.•PRINT  SURF  ADDR 
.•PRINT  SECT  ADDR 


<  LOG  BLK*  > 
[POINT  28.DSBCMDM.35] 
L0G6LK 
PSDN 

<*RETRY  RECOVERY  FOR  A  > 
ACUPOINT  6,.RETWD(CSBP),23J 
aOPCMD(ACl) 

<  OPERATION  UAS  UNSUCCESSFUL  FOR  THIS  SECTOR^*> 


.•PRINT  LOGICAL  BLOCK  M 


.•UPDATE  TABLE  STATUS 


MOVE  DSBTBL (DRIVE) 

TLZ  (.XFRER!. POSER) 

MOVEM  DSBTBL (DRIVE) 

JRST  DISD2 


OPCMD:   [SIXBITNREAD  \] 

[SIXBIT\READ"HEADERS  &  DATA  \2 
[SIXBITXWRITE  \] 
[SIXBITVWRITE  HEADERS  i  DATA.\] 
[SIXBIT\SEEK  \] 
CSIXBITVRECAC  \] 
[SIXBIT\SEARCR  \] 
[SIXBIT\RETURN=TO-CENTERLINE  \] 
[SIXBIT\DUAL  PORT  RELEASE  " 
[SIXBITNPACK  UNLOAD  \] 


;GET  TABLE  STATUS 
; CLEAR  ERROR  BITS 
;SAVE  IT 
.•CONTINUE  RETRY 


\J 


r 


DDRPl  - 
DDRP13 

18304 

18305 

18306 

18307 

18308 

18309 

18310 

18311 

18312 

18313 

18314 

18315 

18316 

18317 

18318 

18319 

18320 

18321 

18322 

18323 

18324 

18325 

18326 

18327 

18328 

18329 

18330 

18331 

18332 

18333 

18334 

18335 

18336 

18337 

18338 

18339 

18340 

18341 

18342 

18343 

18344 

18345 

18346 

18347 

18348 

18349 

18350 

18351 

18352 

18353 

18354 

18355 

18356 

18357 

18358 
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SEQ   0573 


DD 
DD 


060317 

060320 

060321 

060322 

060323 

060324 

060325 

060326 

060327 

060330 

060331 

060332 

060333 

060334 

060335 

060336 

060337 

060340 

060341 

C603/^2 

060343 

060344 

060345 

060346 

060347 

060350 

060351 

060352 

060353 

060354 

060355 

060356 

060357 

060360 

060361 

060362 

060363 

060364 

060365 

060366 

060367 

060370 

060371 

060372 

060373 

060374 

060375 

060376 

060377 

060400 

060401 

060402 


200  00  0 
607  00  0 
254  00  0 
200  00  0 
405  00  0 
620  01  0 
242  01  0 
434  01  0 
202  01  0 
200  01  0 
200  00  0 
620  00  0 
200  01  0 
602  01  0 
660  00  0 
200  01  0 
135  01  0 
137  01  0 
660  00  0 

200  01  0 
301  01  0 
660  00  0 
202  00  0 
205  01  0 
260  17  0 
254  00  0 
254  00  0 
4u?  01  0 
554  00  0 
405  00  0 
316  00  0 
254  00  0 
260  17  0 
205  01  0 
434  01  0 
260  17  0 
254  00  0 

201  01  0 
260  17  0 
254  00  0 

201  00  0 
260  17  0 
205  01  0 
260  17  0 
254  00  0 
310  00  0 
606  01  0 
254  00  0 
260  17  0 
260  17  0 
550  00  0 

202  00  0 


13  100747 
00  000100 
00  060327 
00  000001 
00  002200 
00  002200 
00  777777 
00  000000 
00  077727 
00  077506 
10  000015 

00  001000 

01  100104 
00  000200 
00  001000 
00  077506 
00  076143 
00  076144 
00  000100 
00  077506 
00  000002 
00  002000 
10  000015 
00  130000 
00  057135 
00  060540 
00  060346 
00  001777 
00  100135 
00  001777 
00  000001 
00  060403 
00  042657 
00  120000 
00  000000 
00  063147 
00  060360 
00  000005 
00  063147 
00  060364 
00  000036 
00  042726 
00  010000 
00  057135 
00  060540 
00  000000 
00  000200 
00  057511 
00  042657 

00  063665 

01  100712 
01  100672 


;HERE  TO  ISSUE  THE  DRIVE  OFFSET  COMMAND 

DISB2:  MOVE  ACO,DSBTBL(DRIVE) 

TLNN  AC0,(.RP06) 

JRST  DISB2C 

MOVE  AC0,AC1 

ANDI  AC0,2200 

TRZ  AC1,2200 

LSH  AC1,-1 

lOR  AC1,AC0 

DISB2C:  MOVEM  AC1,R0FSET* 

MOVE  AC1,AL6NUM 

MOVE  .RETWD(CSBP) 

TRZ  AC0JB26 

MOVE  AC1,RETAL6(AC1) 

TRNE  AC1JB28 

TRO  AC0JB26 

MOVE  ACI.ALGNUM 

LDB  AC1, [POINT  2,RETAL6(AC1 

DPB  AC1, [POINT  2,AC0,283 

TRO  1B29 

MOVE  AC1,AL6NUM 

CAIL  AC1-2 

TRO  1B25 

MOVEM  .RETWD(CSBP) 

MOVSI  AC1,(DRCCA) 

GO  DRREG 

JRST  RETFL1 

JRST  .-3 

ANDI  AC1J777 

\R2  DS8CMD^-4 

ANDI  1777 

CAMN  AC0.AC1 

JRST  DISB2A 

GO  MBCCLR 

MOVSI  AC1,(DRDCA) 

lOR  AC1,AC0 

GO  LDREG 

JRST  .-3 

MOVEI  AC1,5 

GO  LDREG 

JRST    .-2 

MOVEI  '^D30 

GO  WAITh 

MOVSI  AC1,(DRSR) 

GO  DRREG 

JRST  RETFL1 

CAM 

TRNN  AC1,DRY 

JRST  RTIMO 

GO  MBCCLR 

GO  CHNSEL 

HRRZ  CADTBL(ACI) 

MOVEM   SCLP(ACI) 


;GET  TABLE  DATA 
;RP06  ? 


DATA 
SIGN 


BIT 


GET  OFFSET 

SAVE  HCI  + 

CLEAR  BITS 

DIV  VALUE  BY  2  FOR  RP06 

RESTORE  HCI  ^  SIGN  BIT 

SAVE  THE  OFFSET  VALUE  TO  BE  USED 

GET  THE  RECOVERY  TABLE  NUMBER 

AND  THE  RECOVERY  WORD 

CLEAR  SIGN  BIT 

GET  RETRY  WORD  FROM  TABLE 

NEG  OFFSET 

YES  SET  SIGN  BIT 

RESTORE  INDEX  TO  TABLE 

31]    ;GET  THE  OFFSET  # 

SAVE  IN  THE  RETRY  CONTROL  WORD 

INDICATE  HCI  WAS  USED 

GET  THE  TABLE  M 

NEED  TO  OFFSET?? 

YES  -  INDICATE  OFFSET  USED 

SAVE  UPDATED  WORD 

READ  SETUP  FOR  DRIVE  CURh  NT  CYL  REG 

READ  CURRENT  CYLINDER  REGISTER  IN  DRIVE 

DRIVE  DOES  NOT  ANSWER  I  FATAL 

REG  READ  ERROR  -  TRY  AGAIN 

STRIP  JUNK 

GET  THE  DESIRED  CYLINDER  # 

ON  CYLINDER  NOW? 

YES 

CLEAR  THE  MBC 

GET  RE3  M 

OR  IN  DESIRED 

LOAD  REG 

FAILED  TRY  AGAIN 

GET  A  SEEK  CMD  # 

ISSUE  THE  SEEK 

ERROR  DETECTED  -  TRY  AGAIN 

WAIT  FOR  THE  SEEK 

TO  FINISH 

PREPARE  TO  READ  DRV  STATUS 

READ  IT  NOW 

DRIVE  "CBTO" 

DRIVE  READY?? 
NO  -  TIMED  OUT! 
YES  -  CLEAR  THE  ATTN 
AND  RESET  THE  CHANNEL 


CYL 


REG 


L 


DDRPl  - 
DDRPI3 

18359 

18360 

18361 

18362 

18363 

18364 

18365 

18366 

18367 

18368 

18369 

18370 

18371 

1^372 

18373 

1837A 

18375 

18376 

18377 

18378 

18379 

18380 

18381 

18382 

18383 

18384 

18385 

18386 

18387 

18388 

18389 

18390 

18391 

18392 

18393 
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SEQ   0574 


060403 

060404 

060405 

060406 

060407 

060410 

060411 

060412 

060413 

060414 

060415 

060416 

060417 

060420 

060421 

060422 

060423 

060424 

060425 

060426 

060427 

060430 

060431 

060432 

060433 

060434 

060435 
060436 
060437 

060440 
060441 


205  01  0 
260  17  0 
254  00  0 


254  00 
405  01 
434  01 
202  01 

201  01 

202  01 
402  00 


0 
0 
0 
0 
0 
0 
0 


200  00  0 
202  00  0 

201  00  0 
671  00  0 

202  00  0 
200  00  0 


00 
00 


621 
661 
202  00 
260  17 
201  00 
260  17 
336  00 
254  00 
037  02 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  110000 
00  057135 
00  060540 
00  060403 
00  010000 
00  077727 
11  000043 
00  777777 
11  000042 
11  000044 
00  100135 
11  000046 
00  100124 
00  000013 
00  100117 
00  100124 
00  770000 
00  040000 
00  100124 
00  060755 
00  000024 
00  042726 
11  000042 
00  060435 
00  076145 
00  057512 


2uJ  00  0  13  100747 
607  00  0  00  100000 
25'.  00  0  00  060442 
607  00  0  00  000040 
254  00  0  00  060116 


.-DRIVE  IS  ON  CYLINDER... READ  DRIVE  OFFSET  REGISTER  +  LOAD  IT  WITH  THE  DESIRED 
•OFFSET  VALUE  TO  BE  USED  AND  EXECUTE  THE  OFFSET  COMMAND. 


DISB2A:  MOVSI 
GO 
'  JRST 
JRST 
AND  I 
I  OR 
MOVEM 
MOVE  I 
MOVEM 
SET2M 
MOVE 
MOVEM 
MOVE  I 
TSO 
MOVEM 
MOVE 
TLZ 
TLO 
MOVEM 
GO 

MOVE  I 
GO 

DISB3:   SKIPN 
JRST 
PMSG 
JRST 

MOVE 
TLNN 
JRST 
TLNN 
JRST 


ACI.(DROFF) 

DRREG 

RETFL1 

DISB2A 

AC1.FMT22 

AC1.R0FSET 

ACl,.PRIMt1(DSBP) 

ACl.-l 

AC1,.PRIM(DSBP) 

.PRIM^2(DSBP) 

DSBCMD+4 

.PRIM^4(DSBP) 

COMRET 

DRIVE 

RETQ 

COMRET 

(7785) 

(485) 

COMRET 

XCTRET 

*D20 

WAITIT 

.PRIM(DSBP) 

<*RETRY  "OFFSET" 
RTIMO+1 

DS8T8L (DRIVE) 

(.ONLN) 

DISB4 

(.POSER) 

DISC 


PREPARE  TO  READ  THE  REGISTER 

READ  IT  NOU 

FATAL  ERROR 

REG  READ  ERROR  -  TRY  AGAIN 

CLEAR  JUNK 

ADD  IN  THE  OFFSET  VALUE 

LOAD  THE  OFFSET  INDICATOR 

INDICATE  A  POSITIONING  COMMAND 
CLEAR  THE  2ND  CMD  WORD 
GET  THE  DSK  ADDRESS 
SAVE  IT  FOR  THE  EXECUTION 
POINT  TO  THE  RETRY  AREA 
;INSERT  THE  DRIVE  M 


; CLEAR  THE  COMMAND  NUMBER  FIELD 
;FAKE  OUT  A  SEEK  CMD  TO  THE  DRIVE 
;WHEN  ITS  REALLY  AN  OFFSET 
; ISSUE  THE  OFFSET  COMMAND 

;AND  WAIT  TILL  FINISHED 
.•COMMAND  DONE? 
;YES  -  PROCEED 
COMMAND  TIMED  OUTI*> 


;GET  DRIVE  TABLE  STATUS 

.•OFFSET  ERROR  -  DRIVE  STILL  AVAIL.?? 

;N0  -  FATAL  ERROR 

.•ANY  DRIVE  ERROR?? 

;N0  -  PROCEED 


DI 
D( 


J 


r 


1 


DDRPl   SUBROUTINES   (RP04/05/06  RELIABILITY) 
COMMAND  RECOVERY  SERVICE  -  RETRY 


DECFLO  VER     00.12  12-APR-78  08:4A     PAGE  42 


SEQ  0575 


r 

iDl 
Dl 


I 

I 


NO 


•>I     DISC2 


/ 

„  / 

DRV 
•  PRIM 
=0 

\ 

/ 

I   YES 

/ 
/ 

/ 

DRV 
STILL  ONLINE 
(DSBTBL) 

\N0 
\ 

I   YES 

I 


•>I     DISB3 


NO 


/ 


DRV 
.PuSER 
=1 

I  NO 

DRV 
.XFRER 
=1 


\YES 
\ 


\N0 
\- 
\ 


/ 

DRV 
.PRIM 
=0 

\ 
\ 
\ 

I   YES 

/ 
/ 

/ 

DRV  OFFLINE 

OR  POS  ERR 
•> 

• 

\YES 
\ 

•>**DIS8A     ♦♦ 

tltlflfktittick'k 


I  NO 
*********** 

♦*DISC       ♦♦ 

*********** 


(RECOVERED) 


I   YES 
*********** 

♦♦DXFR1      ** 

*********** 


DISD 


/       ALL  SECTORS       \N0 
RECOVERED  \- 

?  \ 


I   YES 
*********** 

♦•DXFR2     ♦♦ 
*********** 


DISBA 
***************** 

♦PRI   ABORT  DATA  ♦ 

•>*  RECVRY  GOT  A     * 

♦       POS  ERROR       ♦ 
***************** 

I 
*********** 

**RETFAL  ♦♦ 
*********** 

FATAL 


***************** 

♦  UPDATE   CNT       • 
■>♦  FOR  NXT   SECT.    ♦ 

*  * 

***************** 

I 
*********** 

♦♦DISA       ** 

*********** 


DDRPI  - 
DDRP13 

18395 

18396 

18397 

18398 

18399 

18A00 

18A01 

18A02 

18A03 

18A0A 

18A05 

18A06 

18A07 

18A08 

18A09 

18A10 

18A11 

18A12 

18A13 

18A1A 

18A15 

18A16 

18A17 

18A18 

18A19 

18A20 

18A21 

18A22 

18A23 

18A2A 

18A25 

18A26 

18A27 

18A28 

18A29 

18A30 

18A31 

18A32 

18A33 

18A3A 

18A35 

18A36 

18A37 

18A38 

18A39 
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SEQ  0576 


r 

;  D 
D 


060A42  037  OA  0  00  076153 
060AA3  25A  00  0  00  06050A 


060AAA 
060AA5 
060AA6 
060AA7 
060A50 
060A51 
060A52 

060A53 
060A5A 
060A55 
060A56 
060A57 
060A60 
060A61 
060A62 
060A63 
060A6A 
060A65 
060A66 
060A67 
060A70 
060A71 
060A72 
060A73 

060A7A 
060A75 
060A76 
060A 77 
060500 
06050^ 
060d02 
060503 


200  01 
55A  00 
200  01 
606  01 
25A  00 
606  01 
25A  00 


0 
0 
0 
0 
0 
0 
0 


00 
01 
00 
00 
00 
00 
00 


077506 
10010A 
1006A0 
100000 
060A53 
000100 
060A7A 


350  01  0 
350  00  0 
A05  01  0 
313  00  0 
25A  00  0 
200  00  0 
620  00  0 
202  00  0 
332  00  0 


25A  00 
332  00 
25A  00 
2uJ  00 
602  00 
254 


0 
0 
0 
0 
0 
00  0 
350  00  0 
25A  00  0 

200  00  0 
660  00  0 
202  00  0 
260  17  0 
200  00  0 
621  00  0 
202  00  0 
25A  00  0 


10  000015 
00  077717 
00  000077 
00  000001 
00  060076 
10  000015 
00  000077 

10  000015 
00  077710 
00  060233 
00  077506 
00  060A72 

11  000002 
00  000600 
00  060233 
00  077506 
00  060076 

10  000015 
00  OOAOOO 
10  000015 
00  060757 
13  1007A7 
00  000020 
13  1007A7 
00  060175 


;HERE  IF  DRIVE  GOES  OFF-LINE,  POWERS  DOWN,  OR  HAS  A  "FATAL"  TYPE  ERROR  DURING 
.•RECOVERY  PROCESS 

DISBA:  PMSGF   <ABORTING  DATA  RECOVERY. . .POSITIONING  ERROR  OR  DRIVE  NO  LONGER  AVAIL'^> 
JRST    RETFAL  ;TAKE  THE  FATAL  EXIT 

;HERE  WHEN  A  SECTOR  RE-READ  FAILS  DURING  RECOVERY.  TRY  TO  RECOVER  BY  USING 
;ECC  LOGIC 


DXFR1: 


DXFR1A: 


MOVE 
HLRZ 
MOVE 
TRNN 
JRST 
TRNN 
JRST 

AOS 

AOS 

AND  I 

CAMLE 

JRST 

MOVE 

TRZ 

MOVEM 

SKIPE 

JRST 

SKIPE 

JRST 

MOVE 

TRNE 

JRST 

AOS 

JRST 


DXFR1B:  MOVE 
TRO 
MOVEM 
GO 

MOVE 
TLZ 
MOVEM 
JRST 


AC1,ALGNUM 

RETALG(ACI) 

ACl,SNAP+2 

AC1,1B20 

DXFR1A 

AC1,ECHARD 

DXFR1B 

AC1,.RETWD(CSBP) 

RETCNT 

AC1, 77 

AC0,AC1 

DISB 

.RETWD(CSBP) 

11 

.RETWD(CSBP) 

RCNUM 

DISBX 

ALGNUM 

M 

AC0,.DER1(DSBP) 

AC0,HCEIHCRCER 

DISBX 

ALGNUM 

DISB 

.RETWD(CSBP) 

1B24 

.RETWD(CSBP) 

ECCCOR 

DSBTBL(DRIVE) 

(.XFRER) 

DSBTBL(DRIVE) 

DISD 


GET  THE  POINTER  INTO  THE  ALGORITHIM  TABLE 

GET  THE  DRIVE  ERROR  REG  #1  DATA 
IS  "DCK"  SET'' 

NO  -  CAN'T  CORRECT  USING  ECC 
IS  IT  A  "HARD"  ECC  FAILURE? 
NO  -  USE  ECC  CORRECTION 


.•COUNT  THE 
:AND  AGAIN 


RETRY  RECOVERY 


LIMIT  OK  YET? 

YES  -  KEEP  TRYING  THIS  ALG  WORD 

NO 

CLEAR  THE  RETRY  COUNT 

AND  SAVE  IT  AGAIN 

PLAIN  READ  COMMAND? 

NOPE  -  HARD  ERROR  I 

FIRST  RETRY  STEP 

NO  CONTINUE 

GET  ERROR  REG  DATA 


HARD  ERROR 

NO  -  POINT  TO  NEXT  ENTRY 

TRY  THE  NEW  ALG  WORD  FOR 


IN  TABLE 
CORRECTION 


GET  THE  RETRV  CONTROL  WORD 
SET  "ECC  USED"  BIT 
SAVE  THE  UPDATED  WORD 
CORRECT  THE  DATA 
GET  THE  DRIVE  TABLE  STATUS 
CLEAR  THE  XFR  ERROR  BIT 
SAVE  UPDATED  WORD 
CONTINUE  RECOVERY 
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SEO  0577 


r 

c 
c 


ISAAC 

18AA1 

18AA2 

18AA3 

18AAA 

18AA5 

18AA6 

18AA7 

18AA8 

18AA9 

18A50 

18A51 

18A52 

18A53 

18A5A 

18A55 

18A56 

18A57 

18A58 

18A59 

18A60 

18A61 

18A62 

18A63 

18A6A 

18A65 

18A66 

18A67 

18A68 

18A69 

18A70 

18A71 

18A72 

18A73 

18A7A 

18A75 

18A76 

';3A^^ 

ISA/ 3 

18A7^ 

18A80 

18A81 

18A82 

18A83 

18A8A 

18A85 

18A86 

18A87 

18A88 

18A89 

18A90 

18A9T 

18A92 

18A93 

18A9A 


06050A 
060505 
060506 
060507 
060510 
060511 
060512 
060513 
06051 A 
060515 
060516 
060517 
060520 
060521 
060522 
060523 
06052A 


060525 
060526 
060527 
060530 
060531 
060532 
060533 
06053^ 
060535 
060j36 
J<^0537 


0605AO 
0605A1 
06C5A2 
0605 A 3 
0605AA 
0605 A 5 
0605A6 
0605A7 
060550 
060551 
060552 
060553 
06055A 
O60:'^5 
0^0556 


260  17  0 
200  00  0 
621  00  0 
202  00  0 
200  01  0 
602  01  0 
25A  00  0 
037  OA  0 
260  17  0 


260  17 
550  00 
202  00 
201  01 
260  17 
310  00 
201  00 
260  17 


00  056733 
13  1007A7 
00  000060 
13  1007A7 
00  0300A6 
00  020000 
00  060553 
00  076167 
00  0A2657 

00  063665 

01  100712 
01  100672 
00  000003 
00  0631A7 
00  000000 
00  000012 
00  0A2726 


336  00 
25A  00 

260  17 
2c'  17 
262  17 

261  17 

262  17 
A02  00 
A02  00 
260  17 
553  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


200  00 
621  00 
202  00 
260  17 
260  17 
037  00  :^ 
260  17  u 
037  02  0 
037  02  0 
260  17  0 


0 
0 
0 
0 
0 


25A  00 
037  02 
260  " 
261 
262 


17 
17 
17 


0 
0 
0 
0 
0 


00  077707 
00  0605A0 
00  056733 
00  077707 
00  0775A6 
00  077711 
00  077552 
00  077707 
10  000015 

00  063665 

01  1010A7 


13  1007A7 
00  500060 
13  1007A7 
00  056652 
00  056577 
00  0302A2 
00  05A607 
00  0761 74 
00  070263 
00  060567 
00  057230 
00  076201 
00  056652 
00  077707 
00  0775A6 


;-*RETFAL  -  HERE  WHEN  THE  DATA  OR  POSITION  RECOVERY  PROCEDURE  EITHER  FAILED  OR 

LIMITS  WERE  EXCEEDED 
•4f» »♦***♦♦♦**«*♦**♦♦**♦♦♦♦*♦♦♦*♦**♦*♦******♦♦***♦***♦♦**♦ ***************** 


RETFAL:  GO  CPMBC 

HOVE  ACO,DSBTBL (DRIVE) 

TLZ  AC0,60 

NOVEM  ACO,DSBTBL (DRIVE) 

HOVE  AC1,C0NSW 

TRNE  ACIJNHULD 

JRST  RETFL2 

PHSGF  <*UNLOADING  THIS  DRIVE 

GO  HBCCLR 

GO  CHNSEL 

HRRZ  CADTBL(ACI) 

HOVEM  SCLP(ACI) 

HOVEI  ACl, UNLOAD 

GO  LDREG 

CAH 

HOVEI  *D10 

GO  WAITIT 


CLEAR  THE  CSB  i   DSB  AREAS 

GET  TABLE  DATA 

CLEAR  ANY  ERROR  BITS 

RESTORE  TABLE 

GET  CONTENTS  OF  OPR  SWITCHES 

INHIBIT  HARD  ERROR  SHUTDOWN  -  UNLOAD' 

YES  -  UNSUCCESSFUL  RECOVERY 

CLEAR  THE  CONTROLLER 

THEN  RESET  THE 

CHANNEL  POINTER 

FOR  SOFTWARE  TRACKING 

ISSUE  AN  UNLOAD  COMMAND  TO 

THE  SELECTED  DRIVE 


;WAIT  UP  TO 
:T0  FINISH 


10  MSEC  FOR  UNLOAD 


;N0T  EXPECTING  AN  INTERRUPT  FROM  THIS  DRIVE.. .CLEAN  UP  MBC 
;AND  DRIVE  BEFORE  EXIT 


RETFL1 


RETFL2: 


SKIPN 

JRST 

GO 

PUT 

GET 

PUT 

GET 

SETZM 

SETZM 

GO 

HRRZS 


MOVE 

TLZ 

HOVEM 

GO 

GO 

PCRL 

GO 

PMSG 

PHSG 

GO 

JRST 

PMSG 

GO 

PUT 

GET 


RCMDQP 

RETFLl 

CPMBC 

RCMDQP 

CMDQPT 

RCOMBP 

COMBPT 

RCMDQP 

.RETWD(CSBP) 

CHNSEL 

CSBTBL(ACI) 


RESET  POINTERS  ALREADY? 

YES 

CLEAR  THE  MBC  &  DRV  AREAS 

RESET  Q  POINTERS 


; CLEAR  RETRY  CONTROL  WORD 
;STOP  THE  CLOCK 


DSBTBL(DRIVE)  ;GET 

(. OPR!. ONLNl.XFRER!. POSER) 


DSBTBL (DRIVE) 

STCMD 

CLRALL 

PNTDRV 


THE  DRIVE  TABLE  STATUS 

CLEAR  SOME  DRIVE  STATUS 


AND  SAvf  UPDATED  STATUS 

RESET  THE  CMD  Q 

CLEAR  ANY  COMMANDS  FOR  THIS  DRIVE 


PRINT  DRIVE  » 


<   NO  LONGER  BEING  TFSTED'^> 


.  A  A^ 


RFIX 
RETC 

STCMD 

RCMDQP 

CMDQPT 


;RESET  THE  MBC 


;RESET  Q  LIST 
;AND  POINTERS 


r 


DDRPl  - 
DDRP13 

18495 

18A96 

18497 

18498 

18499 

18500 

18501 

18502 

18503 

18504 

18505 

18506 

18507 

18508 

18509 

18510 

18511 

18512 

18513 

18514 

18515 

18516 

18517 

18518 

18519 

18520 

18521 

18522 

18523 

18524 

18525 

18526 

18527 

18528 

18529 

18530 

18531 

18532 

18533 

18534 

18535 

18536 

18537 

18538 

18539 

18540 

18541 

18542 

18543 

18544 

18545 

18546 

18547 

18548 

18549 
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SBQ  0578 


060557 

060560 

060561 

060562 

060563 

060564 

060565 

060566 

060567 

060570 

060571 

060572 

060573 

060574 

060575 

060576 

060577 

060600 

060601 

060602 

060603 

060604 

060605 

060606 

060607 

06061 0 

06061 1 

06061 2 
060613 
060614 

06061 5 
060616 
06061 7 
060620 
060621 
060622 
060623 
060624 


17 
17 


261 
262 
402  00 
402  00 
260  17 
553  00 
260  17 
254  00 
402  00 
205  00 
541 
251 


00 
00 


402  00 
205  00 
541 
251 


00 
00 


260  17 
260  17 
550  00  0 
202  00  0 
553  00  0 
402  00  0 
205  01  0 
200  00  0 
603  00  0 
435  01 
260  17 
254  00 
336  00 
263  17 

553  00  0 
200  00  1 
621  00  0 
202  00  1 
205  00  0 


541 
251 


00 
00 


263  17 


0  00  077711 
0  00  077552 
0  00  077707 
0  10  000015 
0  00  063665 
0  01  101047 
0  00  060567 
0  00  057230 
0  10  000003 
0  10  000003 
0  10  000004 
0  10  000017 
0  11  000035 
0  11  000035 
0  11  000036 
0  11  000046 
0  00  042657 
0  00  063665 
01  100712 
01  100672 
01  101047 
00  100005 
00  110000 
13  100747 
00  020000 
0  00  010000 
0  00  063147 
0  00  060605 
0  00  100144 
0  00  000000 

00  100144 
00  100147 
00  400000 
00  100147 
00  100144 
0  11  000035 
0  11  000041 
0  00  000000 


060625 
060626 
060627 
060630 
060631 
060632 
060633 
060634 
060635 
060636 
060637 


261  17 
037  02 
037  02 
135  00 
260  17 
037  02 
135  00 
037  02 
037  02 
135  00 
332  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


w 


PUT  RCOMBP 

GET  COMBPT 

SETZM  RtWDQP 

SET2W  .RETWD(CSBP) 

60  CHNSEL 

HRRZS  CSBTBL(ACI) 

60  RFIX 

JRST  RETC 

RFIX:   SETZM  .P8AR(CSBP) 

MOVSI  .PBAR(CSBP) 

HRRI  .PTCR(CSBP) 

BLT  .PIPCT(CSBP) 

SETZM  .SCNAD(DSBP) 

MOVSI  .SCNAD(DSBP) 

HRRI  .SCNAD^KDSBP) 

BLT  .PRIM^4(DSBP) 

MBCCLR 

CHNSEL 

HRRZ  CADTBL(ACI) 

MOVEM  SCLP(ACI) 

HRRZS  CSBTBL(ACI) 

SETZM  TIMOUT 

MOVSI  AC1,(DR0FF) 

MOVE  DSBT6L (DRIVE) 

TLNE  (.FID 

lORI  AC1,FMT22 

60  LDRE6 

JRST  .-5 

SKIPN  RETHLD 
RTN 

RFIX1:  HRRZS  RETHLD 

MOVE  aRETHLD+3 

TLZ  (1B0) 

MOVEM  aRETHLD^-3 

MOVSI  RETHLD 

HRRI  .SCNAD(DSBP) 

BLT  .DSKAD(DSBP) 
RTN 


RESET  THE  CLOCK 

RESET  THE  MBC  CMD  (IF  ANY) 

RESET  THE  CSB  AREA  WITH  THE  SAVED  CMD 
BUILD  A  BLT  WORD 

ZAP... THE  CSB  AREA  NOW  CLEAR 
NOW  CLEAR  THE  DRIVE  DSB  CMD  AREA 

BUILD  A  BLT  WORD 

ZAP... ITS  CLEAR  NOW 

CLEAR  THE  MBC  IN  USE 

DETERMINE  MBC  # 

6ET  THE  CHN  STUFF 

SET  THE  CHN  CCW  POINTER 

STOP  THE  CLOCK  IF  RUNNIN6 

KILL  TIMED  OUT  STATE 

TIME  TO  FIX  UP  THE  DRIVE 

OFFSET  RE6ISTER 

PACK  IN  11  FORMAT?? 

YES  -  SET  THE  PROPER  BIT 

RESET  THE  RE6ISTER  NOW 

LOAD  ERROR  DETECTED  -  TRY  A6AIN 

ANY  COMMAND  IN  2ND  AREA? 

NO  EXIT  NOW 

STRIP  THE  LEFT  SIDE 

6ET  THE  COMQ  ENTRY  WORD 

RESET  THE  EXECUTED  BIT 

SAVE  IT  A6AIN 

BUILD  A  BLT  WORD  TO 

RESET  THE  SAVED  COMMAND 

ZAP... ITS  RESET  IN  THE  DSB  A6AIN 

EXIT 


;HERE  TO  REPORT  HEADER  FAILURE  AND  TO  GET  THE  HEADER  DATA 
;ALONG  WITH  2  WORDS  OF  THE  DATA  FIELD  THEN  PRINT  IT  FOR  THE  OPR 

AC2 

<^HEADER  ERROR  DETECTED> 

<*DRIVE  IS  POINTING  TO:^CYLINDER  #> 

[POINT  10,.DDCA(DSBP),35:      ;GET  THE  CYLINDER  tt 

POCT  ;AND  PRINT  IT 

<  SURFACE  #> 
[POINT  8,. DDTS(DSBP), 27]       ;GET  TH:  SURFACE  # 

.-PRINT  IT 

<  SECTOR  #> 
[POINT  8,.DDT5(DSBP),35]  :6ET  THE  SECTOR  ft 

.•SECTOR  iERO  ? 


000002 

RETHED:  PUT 

076211 

PMS6 

076215 

PMSG 

076223 

LDB 

066174 

GO 

076224 

PMSG 

076226 

LDB 

000000 

PNT2 

076227 

PMSG 

076231 

LDB 

000000 

SKIPE 

J 


DDRPl  - 
DDRP13 

18550 

18551 

18552 

18553 

1855A 

18555 

18556 

18557 

18558 

18559 

18560 

18561 

18562 

18563 

18564 

18565 

18566 

18567 

18568 

18569 

18570 

18571 

18572 

18573 

18574 

18575 

18576 

18577 

18578 

18579 

18580 

18581 

18582 

18583 

18584 

18585 

18586 

18587 

18588 

18589 

18590 

18591 

18592 

18593 

18594 

18595 

18596 

18597 

18598 

18599 

18600 

18601 

18602 

18603 

18604 
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r 


060640 
060641 
060642 
060643 
060644 
060645 
060646 
060647 
060650 
060651 

060652 

060653 

060654 

060655 

060656 

060657 

060660 

060661 

060662 

060663 

060664 

060665 

060666 

060667 

060670 

060671 

060672 

060673 

060674 

060675 

060676 

060677 

060700 

060701 

06070.? 

060703 

060704 

060705 

060706 


060707 
060710 
0607' 1 
060712 
06071 3 
060714 
060715 


060716 
060717 


•Aug 

370  00  0 
037  02  0 
037  00  0 
200  00  0 


SEQ  0579 


405  00 
602  00 
370  00 
202  00 
135  00 


506  00  0 


260  17 
260  17 
550  00 
202  00 


201 
201 
201 


01 
02 
03 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


260  17 
260  17 

201  00 
260  17 
260  17 
260  17 
550  00 

202  00 
037  02  0 
200  00  0 
037  13  0 
037  00  0 
2u:  00  0 
037  13  0 
037  00  0 
200  00  0 
037  13  0 
037  00  0 
200  00  0 
037  13  0 
037  00  0 
262  17  0 


00  000000 
00  000000 
00  030242 
11  000005 
00  017437 
00  000037 
00  000000 
11  000024 
00  076223 
11  000024 

00  042657 

00  063665 

01  100712 
01  100672 
00  100154 
00  000004 
00  000202 
00  063674 
00  042503 
00  000144 
00  042705 
00  042657 

00  063665 

01  100712 
01  100672 
00  076232 
00  100154 
00  000000 
00  000040 
00  100155 
00  000000 
00  000040 
00  100156 
00  000000 
00  000040 
00  100157 
00  000000 
00  030243 
00  000002 


402  00  0  00  077713 
260  17  0  00  042657 
201  01  0  00  000007 
260  17  0  00  063147 
254  00  0  00  060746 
201  00  0  00  001130 
260  17  0  00  042726 


260  17  0  00  057050 
254  00  0  00  060746 


SOS 

PNT2 

PCRL 

MOVE 

AND  I 

TRNE 

SOS 

MOVEM 

LDB 

HRLM 


60 
HRR2 
MOVEM 
MOVE  I 
MOVE  I 
MOVE  I 

60 
§§ 

MOVE  I 


HRR2 

MOVEM 

PMS6 

MOVE 

PNTHW 

PSP 

MOVE 

PNTHW 

PSP 

MOVE 

PNTHW 

PSP 

MOVE 

PNTHW 

PCRL2 

6ET 


;N0  DECR  BY  ONE 


GET  TRACK  SECTOR  ADDR 

SAVE  IT 

SECTOR  0  ? 
J  NO  DECR  SEC  VALUE 
ACO,.SELAD(DSBP)       ;SAVE  UPDATED  ADDR 
[POINT  10,.DDCA(DSBP),353      :6ET  CYL  ADDR 
.SELAD(DSBP)  ;SAVE  THE  CYL  ADDRESS  ALSO 


ACO,.DDTS(DSBP) 
ACO, 17437 
AC0,37 


MBCCLR 

CHNSEL 

CADTBL(ACI) 

SCLP(ACI) 

ACURHEDBF 

AC2,4 

AC3,202 

6ENCCW 

PKREAD 

'^DIOO 

WAI TMS 

MBCCLR 

CHNSEL 

CADTBL(ACI) 

SCLP(ACI) 

<*HEADER  WORD, 

RHEDBF 


RHEDBF+1 
RHEDBF +2 


; CLEAR  THE  MBC 

;6ET  THE  MBC  M 

.-RESET  THE  SOFTWARE  PONTER  FOR  CHANNEL 

;SAVE  THE  UPDATED  WORD 

;POINT  TO  THE  RETRY  HEADER  BUFFER 

;READ  4  WORDS 

;IN  HEADERS  AND  DATA 

;6ENERATE  THE  CHANNEL  WORDS 

;READ  THE  HEADER  DATA 

;WAIT  FOR  THE  READ 

;T0  FINISH 

; CLEAR  THE  MBC 

;6ET  THE  MBC  M   AGAIN 

;AND  RESET  THE  PGM  POINTER  AGAIN 

KEY  WORD,  AND  2  DATA  WORDS  ARE:*> 

;PRINT  THE  HEADER  IN  OCTAL 

;GET  THE  KEY  WORDS 
;PRINT  THEM 

;GET  THE  DATA 


RHEDBF +3 


AC2 


.•RECALIBRATE  THE  DRIVE 


RETHD1 


SETZM 

GO 

MOVE  I 

GO 

JRST 

MOVE  I 

GO 


REQHIM 

MBCCLR 

AC1.7 

LDREG 

RHDFTL 

^D600 

WAI TIT 


;iNIT  RECAL  CNT 

;6ET  RECAL  OPCODE 

.•DO  RECAL 

;CBTO  ERROR  FATAL 

;RECAL  WAIT  TIME 

.•WAIT  FOR  RECAL  TO  FINISH 


CHECK  THAT  RECAL  COMMAND  COMPLETED 


GO 
JRST 


SNAPS 
RHDFTL 


.•SNAPSHOT  REGS 
.•CBTO  ERROR  FATAL 


r 


DDRPl  - 
DDRPI3 

18605 

18606 

18607 

18608 

13609 

18610 

18611 

18612 

18613 

18614 

18615 

18616 

18617 

18618 

18619 

18620 

18621 

18622 

18623 

18624 

18625 

18626 

18627 

18628 

18629 

18630 

18631 

18632 

18633 

18634 

18635 

18636 

18637 
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SEQ  0580 


060720  200  01  0  00  100637 

060721  606  01  0  00  000200 

060722  254  00  0  00  057511 

060723  350  00  0  11  000150 


060724 
060725 
060726 
060727 
060730 
060731 
060732 
060733 

060734 
060735 
060736 
060737 
060740 
060741 
060742 
060743 
060744 
06074 S 
060746 
060747 
060750 
060751 
060752 
060753 
060754 


606  01  0 
254  00  0 
350  01  0 
307  01  0 
254  00  0 
200  00  0 

607  00  0 
254  00  0 

037  02  0 
200  01  0 
260  17  0 
200  01  0 
260  17  0 
200  01  0 
260  17  0 
200  01  0 
305  01  0 


254  00 
037  02 
201  01 
272  01 
26?  17 
Ir-  00 
260  17 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 


00  040000 
00  060753 
00  077713 
00  000001 
00  060734 
0.^  030046 
00  001000 
00  060744 

00  075623 
00  100640 
00  064:^3 
00  100652 
00  064523 
00  100653 
00  064523 
00  077713 
00  000006 
00  060710 
00  075631 
00  000005 
11  000141 
00  077620 
00  060504 
00  042657 
00  000000 


MOVE    AC1,SNAP+1 
TRNN    AC1,DRY 
JRST    RTIMO 
AOS     .RECAL(DSBP) 

;TEST  FOR  ANY  ERRORS 


TRNN 

JRST 

AOS 

CAIG 

JRST 

MOVE 

TLNN 

JRST 

PMSG 

MOVE 

GO 

MOVE 

GO 

MOVE 

GO 

MOVE 

RETHD2:  CAIGE 
JRST 

RHDFTL:  PMSG 
MOVE  I 
ADDM 
GET 
JRST 

RETHD3:  GO 
RTN 


AC1, 40000 
RETHD3 
AC1.RECNT 
AC1J 

CONSU 

PALERS 

RETHD2 


;GET  STATUS  REG  DATA 
.-DRIVE  READY  ? 
;N0  REPORT  TIMEDOUT  COMMAND 
; COUNT  RECAL 


.•COMPOSITE  ERROR  ? 

;N0  EXIT  RECAL  OK 

.•COUNT  THE  RECAL  RETRY 

;FIRST  RECAL  ERROR 

•YES 

•NO  GET  CONSOLE  SWITCHES 


M  I  A- 


<''RECAL  FAILURE  DURING  RERTY 

AC1.SNAP+2 

REGPNT 

ACl.SNAP^-14 

REGPNT 

AC1.SNAP^15 

REGPNT 

AC1.RECNT  ;GET  RETRY  COUNT 

AC1.6  ;ATTEMPTED  5  RECALS 

RETHDU1  ;N0 

<*RECOVERY  WAS  UNSUCCESSFUL  -  CAN'T  RECAL   THE   DRIVE 

AC1.5 

AC1..HP0S(DSBP) 

GARBAG  .-ADJUST  THE  STACK 

RETFAL 

MBCCLR 


A  A< 


ODRPl  - 
DDRP13 

18638 
18639 
186A0 
186A1 
186A2 
18643 
186AA 
186A5 
18646 
18647 
18648 
18649 
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!-*XCTRET  —  ROUTINE  TO  CONVERT  A  STORED  DRIVE  COMMAND  FROM 
♦      A  DRIVES  PRIMARY  DSB  AREA  INTO  AN  ACTUAL  DRIVE 
»      COMMAND  FOR  ERROR  RECOVERY  OF  THAT  COMMAND 


SEQ  0581 


060755  260  17  0  00  047234 


060756  263  17  0  00  000000 


XCTRET:  GO     CMDXCT  ; SAME  AS  ALWAYS  FOR  NOW! I 

S 

RTN 
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5EQ  0582 


18650 
18651 
18652 
18653 
18654 
18655 
18656 
18657 

18658 

18659 

18660 

18661 

18662 

18663 

18664 

18665 

18666 

18667 

18668 

18669 

18670 

18671 

18672 

18673 

18674 

18675 

18676 

18677 

18678 
18679 
18680 
18681 
18682 
18683 
18684 
18685 
18686 
18687 
18688 
18689 
18690 
18691 
18692 


060757  261  17  0  00  000000 

060760  261  17  0  00  000001 

060761  261  ^7  0  00  000002 

060762  261  17  0  00  000003 

060763  261  17  0  00  000006 


060764 
06076S 
060766 
060767 

060770 
060771 
060772 
060773 
060774 
060775 
060776 
060777 
061000 
061001 
061002 
061003 
061004 
0610C5 

061 jOe 


550  00 
200  01 
306  01 
271  00 
202  00 
200  00 
4ui  00 
135  01 
322  01 
370  00 
607  00 
231  01 
603  00 
231  01 
273  01 
202  01 
202  02 
603  00 
476  00 


00 
00 
00 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C  00 


13 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


100132 
077710 
000001 
000002 
077602 
100747 

077640 
076242 
061104 
000001 
020000 
000044 
020000 
000040 
077602 
000006 
077603 
020000 
0:^7640 


$■ 

ECCCOR  —  ROUTINE  TO  PERFORM  ACTUAL  ECC  CORRECTION  OF  DATA  FOR  EITHER  16  BIT 

OR  18  BIT  FORMAT  OF  DATA  READ  FROM  "DISECT"  ROUTINE.  THIS  ROUTINE  WILL__^^ 
REPORT  THE  CORRECTION  MADE  TO  THE  DATA  IN  THE  BUFFER  IN  THE  FOLLOWING  FORMAT; 


MM   ECC  CORRECTION  RECOVERY  MM 
ECC  POSITION  =  XXXX     ECC  PATTERN 
Bl'FFER  ADDR     XXXXXXXX 
DATA  BEFORE  ECC  XXXXXX  XXXXXX 
DATA  AFTER  ECC  XXXXXX  XXXXXX 


XXXX 

XXXXXXXX 
XXXXXX  XXXXXX 
XXXXXX  XXXXXX 


•#♦*•*•♦*•»♦•♦*•♦***♦♦♦♦♦♦♦*♦♦*♦♦♦**♦*♦♦*♦♦♦♦♦♦♦♦*♦♦*♦♦♦♦***♦•♦♦♦♦**♦***♦* 


ECCCOR: 


PUT 
PUT 
PUT 
PUT 
PUT 


ACO 
AC1 
AC2 
AC3 
AC 


;SAVE  SOME  AC'S 


.-DETERMINE  PACK  FORMAT  FOR  APPROPRIATE  DATA  CORRECTION  AND  BUFFER  ADDRESS 


HRRZ  DSBCMDH 

MOVE  AC1,RCNUM 

CAIN  ACU 

ADDI  2 

MOVEM  ECCADR# 

MOVE  DSBT8L( DRIVE) 

SETZM  M0DE1U 

LDB  AC1. [POINT  16, 

JUMPE  AC1,C0RERR 

SOS  AC1 

TLNN  (.FID 

IDIVI  AC1,*D36 

TLNE  (.FID 

IDJVI  AC1,'*D32 

ADDS  AC1.ECCADR 

MOVEM  AC  I.AC 

MOVEM  AC2-ECP# 

TLNE  (.FID 

SETOM  MODE  11 


;GET  BUFFER  ADDRESS 

'HEADERS  &  DATA'' 

•YES  -  CORRECT  FOR  HEADER  INFORMATION 

;SAVE  THE  BUFFER  ADDRESS 

;GET  DRIVE  TABLE  STATUS 

DEC1(DSBP).35]   ;6ET  THE  POSITION  REGISTER  DATA 

;N0  CORRECTION  POSSIBLE  IF  NO  POSITION  AVAIL 

.•CORRECT  THE  COUNT 

;11  FORMAT  PACK? 

;NOPE  -  ITS  A  10  FORMAT  PACK 

'ASK  AGAIN 

;AC1  yiLL  POINT  TO  WORD  IN  TRANSFER 

;ADD  IN  THE  BUFFER  ADDRESS 

;SAVF  THE  REMAINDER 
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SEQ  0583 


18693 
1869A 
18695 
18696 
18697 

18698 

18699 

18700 

18701 

18702 

18703 

18704 

18705 

18706 

18707 

18708 

18709 

18710 

18711 

18712 

18713 

18714 

18715 

18716 

18717 

18718 

18719 

18720 

18721 

18722 

18723 

18724 

18725 

18726 

18727 

18728 

18729 

18730 

18731 

18732 

18733 

18734 

18735 

18736 

18737 

18738 
18739 
18740 
18741 
18742 
18743 
18744 
18745 

18746 
18747 


061007  204  02  0  06  000000 
061 01 C  135  00  0  00  076243 


061011 

135  01 

061012 

332  00 

061013 

254  00 

061014 

303  01 

061015 

303  01 

061016 

254  00 

061017 

275  01 

061020 

260  17 

061021 

135  01 

061022 

303  01 

061023 

254  00 

061024 

402  00 

061025 

200  03 

061026 

245  00 

06102^ 

204  03 

061030 

4!;0  02 

061031 

430  03 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
03 
06 
00 
00 


076242 
077640 
061053 
010766 
011000 
061022 
010766 
061045 
076242 
011000 
061032 
000001 
077603 
000000 
000001 
000000 
000001 


061032 
061033 
061034 
061035 

06^036 
061037 
061040 
061041 
061042 
061043 
061044 

061 j45 
061046 
061047 

061050 
061051 
061052 


20^  00  0  00  000002 
2u''  00  0  00  000003 
250  02  0  06  000000 
250  03  0  06  000001 


260 
262 
262 
262 
262 
262 
263 


17 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


061106 
000006 
000003 
000002 
000001 
000000 
000000 


242  00  0  00  000031 
242  00  0  01  000000 
213  00  0  00  000001 
242  00  0  01  000000 
242  00  C  00  lllli^l 
263  17  0  00  000000 


061053 
061054 
061055 


303  ^y  0  00  007766 
303  01  0  00  010000 
254  \)^   0  %   061061 


;AC1  NOy  POINTS  TO  THE  AREA  yiTHiN  THE  SECTOR  FOR  CORRECTION  .. 
GET  THE  DATA  FROM  THE  BUFFER  SO  CORRECTION  CAN  BE  PERFORMED         ^  ^ 
•NOTE:  DATA  EXTRACTION  IS  DONE  IN  A  FUNNY  MANNER  TO  COMPENSATE  FOR  THE  WAY 
THE  DATA  yAS  WRITTEN  ON  THE  SURFACE! 


MOVS    AC2.(AC)  ;GET  THE  1ST 

LDB     [POINT  11,.DEC2(DSBP),353      ;GET 


yORD  -  SWAPPED  BYTES 

THE  11  BIT  CORRECTION  TO  BE  USED 


:NOy  USE  THE  lC:  CORRECTION  SUPPLIED  BY  THE  DRIVE  TO  CORRECT  THE  MEMORY 
;DATA  -  CORRECTION  IS  DIFFERENT  FOR  10  I   11  MODE! 


LDB 

ACl. [POINT 

SKI  PE 

MODE 11 

JRST 

C0R11 

CAILE 

AC1,*D4608 

CAILE 

AC1.*D4608 

JRST 

ECOMIO 

SU6I 

AC1.*D4608 

GO 

ADJ 

LDB 

AC1. [POINT 

ECOMIO:   CAILE 

AC1.'^D4608 

JRST 

CORCOM 

SETZM 

Ad 

MOVE 

AC3.ECP 

ROTC 

(ACS) 

MOVS 

AC3J(AC) 

CORIO:      XOR 

AC2,AC0 

XOR 

AC3,AC1 

16,.DEC1(DSBP),35]   ;6ET  'Wl   BIT  COUNT 

PACK  IN  11  FORMAT? 
YES  -  CORECT  11  STYLE 
;MUST  BE  <  THIS  TO  COR  ALL  IN  DATA 
FIELD  yiTH  NO  OVERLAP 
PROCEED  -  NO  OVERLAP  DETECTED 
CALC  BIT  OVERLAP 
ADJUST  PATTERN 
,35]   ;GET  THE  COUNT  AGAIN 
CORRECTION  ALL  IN  DATA  FIRLD?? 
NO  -  DON'T  FIX  MEMORY  DATA 


-•DlUl 


-•D11*1 


16,.DEC1(DSBP5 


CORCOM: 


COREXT: 


ADJ 


MOVSS 
MOVSS 
EJvCH 
EXCH 

60 

GET 

GET 

GET 

GET 

GET 

RTN 

LSH 

LSH 

MOVNS 

LSH 

LSH 

RTN 


AC2 
AC3 

AC2,(AC) 
AC3.1(AC) 

CCaPNT 

AC 

AC3 

AC2 

ACl 

ACO 


0,*D25 

0,(1) 

1 

0,(1) 

0,-^D25 


GET  THE  REMAINDER 
SHIFT  THE  PATTERN  TO  THE 
NOy  GET  THE2ND  DATA  yORD 
CORRECT  yORD  #1 
CORRECT  yORD  #2 


CORRECT  PLACE 
FOR  CORRECTION 


SyAP  BYTES  TO  NORMAL 

FOR  BUFFER  UPDATING 

SAVE  THE  UPDATED  (CORRECTED)  MEMORY  DATA 

THAT  yAS  CORRECTED  BY  ECC 

PRINT  THE  RESULTS 
;RESTORE  AC'S 


;AND  EXIT 

;LFFT  JUSTIFY  PATTERN 
;THROW  AyAY  EXCESS  BITS 


.-RIGHT  JUSTIFY 
.-EXIT 


;HERE  TO  CORRECT  MEMORY  BUFFER  FOR  11  FORMAT  PACK 

.•CORRECTION  ALL  IN  THE  DATA  FIELD? 
;NC  CORRECTION  OVERLAP  DETECTED 


C0R11:   CAILE   ACl  ,'*D4096-*D1 1  ♦! 
CAILE   AC1,'^D4096 
JRST    ECOMll 


DDRPl  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  :53B(1242)  15:51  ?8-Aug-85  Page  2A1-1 
DDRPI3  MAC     28-Aug-85  15:49        POSITIONING  AND  DATA  ERROR  RECOVERY  -  RETRY  (CHANNEL  6  INTERRUPTS) 


SEQ  058A 


18748 

18749 

18750 

1875 

18752 

18753 

18754 

18755 

18756 

18757 

18758 

18759 

18760 

18761 

18762 

18763 

18764 

18765 

18766 

18767 

18768 

18769 

18770 

18771 

18772 

18773 

18774 

18775 

18776 

18777 

18778 

18779 

18780 

18781 

18782 

18783 

18784 

18785 

18786 

18787 

18788 

18789 

18790 

18791 

18792 

18797 

18794 

18795 

18796 

18797 

18798 

18799 

18800 

18801 

18802 


061056 
061057 
061060 
1061 
Oo  062 
061063 
061064 
061065 
061066 
061067 
061070 
061071 
061072 
061073 
061074 
061075 
061076 
061077 


061100 
061101 
061102 
061103 


275  01 

260  17 
135  01 
303  01 
254  00 

261  17 
550  00 
620  02 
242  02 
137  00 

262  17 
402  00 
200  03 
242  00 
245  00 
204  03 
430  02 
430  03 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
DO 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
03 
06 
00 
00 


007766 
061045 
076242 
010000 
061032 
000000 
000002 
777777 
000002 
076244 
000000 
000001 
077603 
000004 
000000 
000001 
000000 
000001 


135  00  0  00  076244 
^42  02  0  00  77777t 
540  02  0  00  000000 
254  00  0  00  061032 


061104 
061105 


OV   02  0  00  076245 
2:>  00  0  00  061037 


061106 
061107 
061110 
061111 
061112 
061113 
061 1 14 
061115 
061116 
061117 
061120 
061121 
061122 
061123 
061124 
061125 
061126 
061127 
061130 


037  02 
037  02 
550  00 
405  00 
260  17 
037  02 
550  00 
405  00 
260  17 
037  02 
200  00 
037  13 
037  1 
260 
336 

254  00 
037  02 
200  00 
350  00 


17 
00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 

11 

00 
00 
00 

11 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


076257 
076264 
000016 
}77777 
066163 
076267 
00001 7 
}77777 
066174 
076272 
077602 
000002 
000004 
066174 
000001 
061134 
076275 
077602 
000000 


SUBI  AC1,'*D4096-'*D1U1 

GO  ADJ 

LDB  ACUPOINT  16..DEC1 

EC0M11:  CAILE  AC1,'*D4096 

JRST  CORCOM 

PUT  ACO 

HRRZ  AC0,AC2 

TR2  AC2,-1 

LSH  AC2,2 

DPB  [POINT  16,AC2,31] 

GET  ACO 

SETZM  ACl 

MOVE  AC3,ECP 

LSH  0,4, 

ROTC  (AC3) 

MOVS  AC3J(AC) 

XOR  AC2,AC0 

XOR  AC3,AC1 


;CALC  THE  BIT  OVERLAP 
.-ADJUST  PATTERN 
(DSBp5,353   ;6ET  THE  COUNT  AGAIN 

ALL  IN  DATA  FIELD? 

NO  -  DON'T  CHANGE  MEMORY  DATA 

YES  -  SAVE  ACO 

SAVE  RIGHT  SIDE  BYTE  OF  1ST  WORD 

CLEAR  RIGHT  SIDE  BYTE  OF  1ST  WORD 

LEFT  JUSTIFY  ^ST  WORD 

GET  RIGHT  S'.DE  BYTE  AGAIN 

RESTORE  AC. 

GET  THE  REMAINDER 

PATTERN  AND  DATA  NOW  ALIGNED 

SHIFT  PATTERN  TO  PROPER  PLACE 

NOW  GET  THE  DATA  TO  CORRECT 

CJRRECT  1ST  WORD  WITH  ECC 

AND  THEN  THE  2ND  WORD  WITH  ECC 


.•UNPACK  THE  CORRECTED  DATA  AND  SAVE  IT  IN  MEMORY  BUFFER 


LDB  [POINT  16,AC2,31] 

LSH  AC2,-2 

HRR  AC2,AC0 

JRST  CORCOM 


GET  THE  RIGHT  SIDE  BYTE  OF  1ST  WORD 

CORRECT  THE  POSITION 

GET  RIGHT  SIDE  BYTE  AGAIN 


;HERE  TO  TELL  OPR  NO  CORRECTION  WAS  POSSIBLE 


COREP.";:  PMSG 
JRST 


<'^CAN'T  CORRECT  DATA  WITH  ECC  WHEN  POSITION  REGISTER  =  0??^> 
COREXT^I 


;*CORPNT  —  ROUTINE  TO  REPORT  RESULTS  OF  THE  ECC  CORRECTION  USED 

;^» ♦»*♦♦♦»»*»»*♦♦♦»*♦»♦*♦♦♦♦*****♦******************************* ********* 


CORPNT:  PMSG 
PMSG 
HRRZ 
AND  I 
''lO 

r-MSG 
HRRZ 
AND  I 
GO 

PMSG 
MOVE 
MAPADR 
ERRHLT 
GO 

SKIPN 
JRST 
PMSG 
MOVE 
AOS 


<"»»   ECC  CORRECTION  RECOVERY  > 

<##*  ECC  POSITION=> 

.DECKDSBP) 

RDAT 

PSDN 

OECC  PATTERN=> 

.DEC2(DSBP) 

RDAT 

POCT 

<*BUFFER  ADDRESSJ> 

ECCADR 


POCT 

ACl 

.♦7 

<]]> 

ECCADR 


GET  THE  DRIVE  POSITION  DATA  FOR  ECC 
STRIP  JUNK  BITS 
PRINT  IT  IN  DECIMAL 

GET  THE  ECC  PATTERN  USED  TO  CORRECT 
SAVE  16  BITS 
PRINT  IN  OCTAL 


PRINT  THE  MEMORY  ADDRESS  OF  CORRECTION 

SHOULDN'T  GET  HERE  1 ! I 

PRINT  THE  ADDRESS 

TWO  WORDS  OF  CORRECTION? 

NO 

YES  -  GET  THE  2ND  ADDRESS 


r" 


DDRPl  - 
DDRPI3 

18803 

1880A 

18805 

18806 

18807 

18808 

18809 

18810 

18811 

18812 

18813 

188U 

18815 

18816 

18817 

18818 

18819 

18820 

18821 

18822 

18823 

1882A 

18825 

18826 

18827 

18828 

18829 

18830 

18831 

18832 

18833 

1883A 

18835 

18836 

18837 

18838 

18839 

188A0 

18841 

18842 

18843 
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SEQ  0585 


061131 
061132 

061 1 33 

061 1 34 
061135 
061136 
061137 
061140 
061141 
061142 
061143 
061144 
061145 
061146 
061147 
061 1 50 
061151 
061152 
061153 
061 1 54 
061155 
061 1 56 
061157 

061160 
061161 
061162 
061163 
061164 
061165 
061166 

061167 
061170 
061171 
061172 
061173 
061174 


037  13 
037  14 
260  17 
037  02 
200  00 
037  13 
336  00 
254  00 
037  00 
200  00 
037  13 
037  02 
200  00 
037  13 
336  00 
254  00 
037  00 
200  00 
037  13 
037  00 
135  01 
332  00 
254  00 


201  00 
307  01 
254  00 
201  00 
307  01 
201  00 
ly   00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
06 
00 
00 
00 
00 
06 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 


000002 
000004 
066174 
076276 
000002 
000000 
000001 
061144 
00001 1 
000003 
000000 
076301 
000000 
000000 
000001 
061154 
00001 1 
000001 
000000 
030242 
076242 
077640 
061167 

076304 
010765 
061166 
076313 
011000 
076322 
061175 


201  00  0  00  0/0304 

307  01  0  00  007765 

254  00  0  00  061175 

201  00  0  00  076313 

307  01  0  00  010000 

L'01  00  0  00  076322 


NAPADR 

ERRHLT 

GO 

P«S6 

MOVE 

PNTHU 

SKIPN 

JRST 

PNTCI 

MOVE 

PNTHW 

PMSG 

MOVE 

PNTHU 

SKIPN 

JRST 

PNTCI 

MOVE 

PNTHU 

PCRL 

LDB 

SKIPE 

JRST 

CORP10:  MOVE! 
CAIG 
JRST 
MOVE  I 
CAIG 
MOVE  I 
JRST 


C0RP11: 


061175  037  17  0 

061176  263  17  0 


00  000000 
GO  000000 


CORPX: 


MOVE  I 
CAIG 
JRST 
MOVE  I 
CAIG 
MOVE  I 

PNTAL 
RTN 


POCT 

<*DATA  BEFORE  ECCJ> 

AC2 

AC1 

M 

II      11 

AC3 

<'^DATA  AFTER  ECCJ> 
(AC) 

AC1 

.*4 

II      II 

KAC) 


.•PRINT  THE  ADDRESS 

.•PRINT  DATm  before  CORRECTION 

;ANY  2ND  UORD? 
;N0 

.•PRINT  2ND  UORD  BEFORE  CORRECTION 

.•PRINT  CORRECTED  1ST  UORD  IN  DATA 

.-ANY  2ND  UORD  CORRECTION? 
;N0 

;PRINT  2ND  CORRECTION  MADE 


ACUCPOINT  16,.DEC1(DSBP),35]   ;GET  THE  COUNT 

MODE 11 

C0RP11  ;PRINT  11  MODE  THING 

CASCIZ/CORRECTION  ENTIRELY  IN  DATA  FIELD/D 

AC1,'^D4608-*D11        ;ALL  IN  DATA? 

.♦4  ;YES  -  SKIP  OTHER  CHECKS 

CASCIZ/ORRECTION  ENTIRELY  IN  ECC  FIELD/] 

ACU*D4608  ;ALL  IN  ECC? 

CASCIZ/CORRECTION  OVERLAPS  DATA  AND  ECC  FIELD/3 

CORPX 

CASCIZ/CORRECTION  ENTIRELY  IN  DATA  FIELD/] 
AC1,*D4096-*D11        ;ALL  IN  DATA? 
.♦4  ;YES  -  SKIP  OTHER  CHECKS 

CASCIZ/CORRECTION  ENTIRELY  IN  ECC  FIELD/] 
AC1,'"D4096  ;ALL  IN  ECC? 

[ASCIZ/CORRECTION  OVERLAPS  DATA  AND  ECC  FIELD/ j 


DDRPl  - 
DDRPI3 

1884A 
18845 
18846 
18847 
18848 
18849 
18850 
18851 
18852 
188:3 
18854 
18855 
18856 
18857 
18858 
18859 
18860 
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SUBTTL  ADDITIONAL  UNIDENTIFIED  UUO  ERROR  HANDLER 

)*UUOtRR  —  "SUBRTN"  DETECTED  UUO  ERRORS  WILL  REPORT  TO  THE  USER 
;♦      A  LIMITED  AMOUNT  IF  INFORMATION.   THIS  ROUTINE  WILL  UP- 
*     DATE  THE  PROGRAM  'FATAL"  ERROR  COUNT,  CHECKSUM  THE  PROGRAM 
AREA  FOR  ILLEGAL  PROGRAM  MODIFICATION,  REPORT  THE  RUN 
TIME  OF  THE  UUO  ERROR,  AND  REPORT  THE  TEST  SELECTED  WHEN 
THE  UUO  ERROR  WAS  DETECTED. 


SEQ  0586 


;* 


DC 
DC 

1 
1 
1 
1 
1 
1 
1 


061177  350  00  0  00  077610 

061200  260  1?  0  00  061320 

061201  25^  00  0  00  061331 

061202  260  17  0  00  044454 

061203  260  17  0  00  053151 

061204  254  00  0  00  030765 


UUOERR: 


AOS 

CHKSUM 

JRST 

GO 

GO 

JRST 


FECNT# 

CKSMER 
RUNTIM 
TELTST* 
STARTA 


COUNT  THE  FATAL  ERROR 
CHECKSUM  THE  PROGRAM  AREA 
CHECKSUM  ERROR  DETECTED  -  R'^PORT 
REPORT  THE  PROGRAM  RUN  TIME 
AND  WHERE  THE  ERROR  OCCURED 
AND  RESTART  THE  PROGRAM 


.__-,l 


l_ 
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SEQ  0587 


18861 

18862 

18863 

1886A 

18865 

18866 

18867 

18868 

18869 

18870 

18871 

18872 

18873 

1887A 

18875 

18876 

18877 

18878 

18879 

18880 

18881 

18882 

18883 

1888A 

18385 

18886 

18887 

18888 

18889 

18890 

18891 

18892 

18893 

1889A 

18895 

18896 

18897 

18898 

18899 

18900 

18901 


061205 
061 206 
061207 
061210 
061211 
061212 
061213 
061 2U 
061215 
061216 
061217 
061220 
061221 

061222 
061223 

061224 

061225 

061226 

061227 

061230 

061231 

061232 

061233 

061234 

061235 

061236 

061237 

061240 

061241 

061242 

061243 

061244 

061245 

061246 

061247 

061250 

061251 


261 
554 

302 
254 
262 
261 
262 
402 
402 
070 
070 
047 
254 


17 
00 
00 
00 
17 
17 
17 
00 
00 
16 
17 
01 
00 


00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 

1 


00 
00 
00 
00 
00 


000000 
100743 
000002 
061224 
000000 
100742 
100737 
100742 
100743 
000000 
000000 
000012 
100737 


262  17  0  00  000000 
254  00  0  00  030600 


306  00 
254  00 
306  00 
254  00 
306  00 
254  00 
306  00 
254  00 
306  00 
254  00 
306  00 
23  •  00 
037  04 
037  04 
037  04 
550  00 
037  10 
037  04 
554  00 
037  06 
037  04 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000100 
061252 
000040 
061256 
000020 
061272 
000010 
061272 
000004 
061302 
000001 
061314 
076332 
076335 
076343 
100742 
000000 
076346 
100743 
000001 
076332 
061222 


SUBTTL 
INTCP1: 


USER  INTERCEPT  ERROR  HANDLING 


PUT 

HLRZ 

CAIE 

JRST 

GET 

PUT 

GET 

SETZM 

SETZM 

CLOSE 

CLOSE 

EXIT 

JRST 


INTDDT:  GET 
JRST 


INTERR 


NOINT: 


CAIN 

JRST 

CAIN 

JRST 

CAIN 

JRST 

CAIN 

JRST 

CAIN 

JRST 

CAIN 

JRST 

PMSGF 

PMS6F 

PMSGF 

HRRZ 

PNTADR 

PMSGF 

HLRZ 

PNT6F 

PMSGF 

JRST 


ACO 

INTCPT*3 

ER.ICC 

INTERR 

ACO 

INTCPT-2 

CONT 

INTCPT+2 

INTCPT^3 

16, 

17, 

1, 
aCONT 


ENTDDT 

ER.EIJ 

EREIJ 

ER.TLX 

ERTLX 

ER.QEX 

ERQEX 

ER.FUL 

ERQEX 

ER.OFL 

EROFL 

ER.IDV 

ERIDV 
<***—*♦ — ♦*'^> 

<ERROR  INTERCEPT 
<*INTERCEPT  PC  = 
INTCPT+2 

<*INTERCEPT  CODE 
INTCPT+3 

INTDDT 


SAVE  ACO 

GET  THE  ERROR  CODE* 

TYPED  "*C"  ''' 

NOPE  -  OTHER  ERROR  DETECTED 

YES  -  SAVE  THE  PC 
FOR  REE  FROM  MONITOR 
CLEAR 

CLEAN  UP  SOME  JUNK  FROM  SUBRTN 
PACKAGE  FOR  USER  PRINT  FILE 
CLEAN  EXIT 


;RESET  ACO 
.•ENTER  DDT 


ERR  IN  JOB? 

YES 

TIME  EXPIRED? 

YES 

QUOTA  EXCEEDED? 

YES 

STR  FULL? 

YES 

OFF  LINE? 

YES 

OPR  ACTION?? 

YES 


01 
Dl 


WITHOUT  KNOWN  CAUSE> 
> 


=  > 


;PRINT  THE  ADDRESS 

;GET  THE  ERROR  CODE 
.•PRINT  IT 

.•ENTER  DDT 


r 

OORPl  - 
DDRPI3 


18902 

18903 

1890A 

18905 

18906 

18907 

18908 

18909 

18910 

18911 

18912 

18913 

1891A 

18915 

18916 

18917 

18918 

18919 

18920 

18921 

18922 

18923 

18924 

18925 

18926 

18927 

18928 

18929 

18930 

18931 

18932 

18933 

18934 

18935 

18936 

18937 

18938 

13939 

18940 

18941 

18942 

18943 

18944 

18945 

18946 

18947 
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; ERROR  HANDLING  FOR  THE  INTERCEPT 


F 


SEQ  0588 


D 
D 


061252 
061253 
061254 
061255 

061256 
061257 
061260 
061 261 
061262 
061 263 
061264 
061 265 
061266 
061267 
061270 
061271 


061272 
061273 
061274 
061 2> 5 
061276 
061277 
061300 
061301 

061302 
061303 
061304 

061305 
061306 
061307 
061310 
061311 
061312 
061313 

061il4 
061315 
061316 
061317 


037  04  0  00  076332 
037  04  0  00  076352 
037  04  0  00  076332 
254  00  0  00  061222 


037  04 
037  04 
037  04 
205  00 
047  00 
254  CO 
405  00 
302  00 
254  00 
070  01 
262  17 
047  00 


037  04 
037  04 
037  04 

262  17 
261  17 
402  00 
402  00 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 


076332 
076360 
076332 
646471 
000053 
061267 
000077 
000012 
061222 
000000 
000000 
000012 


076332 
076365 
076332 
000000 
100742 
100742 
100743 
000000 


0:>^  04  0  00  076332 
037  04  0  00  076372 
037  04  0  00  076332 


201 
047 
262 
261 
402 
402 
263 


00 
00 
17 
17 
00 
00 
17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


000036 
000031 
000000 
100742 
100742 
100743 
000000 


037  04  0  00  076332 
037  04  0  00  076404 
037  04  0  00  076332 
254  00  0  00  061305 


EREIJ 


ERTLX 


ERQEX: 


EROFL: 


ERCOM: 


ERIDV: 


PMS6F 
PMS6F 
PMSGF 
JRS: 

F.ISGF 

PMSGF 

PMSGF 

MOVSI 

DEVTYP 

JRST 

AND  I 

CAIE 

JRST 

CLOSE 

GET 

EXIT 


PMSGF 

PMSGF 

PMSGF 

GET 

PUT 

SET2M 

SETZM 

RTN 

PMSGF 
PMSGF 
PMSGF 

MOVE  I 

SLEEP 

GET 

PUT 

SETZM 

SETZM 

RTN 

PMSGF 
PMSGF 
PMSGF 
JRST 


<ERROR  IN  JOB  - 
INTDDT 


ENTERING  DDT...> 


<TIME  LIMIT  EXCEEDED  FOR  JOB> 

(SIXBIT/TTY/)  :SEE  IF  JOB  CONTROLLED  BY  PTY 

.GET  THE  DEVICE  TYPE 
.-►4  ; ERROR  RETURN 

77  .-STRIP  TO  2  NUMBERS 

12  ;IS  IT  A  "PTY"?? 

INTDDT  ;N0  -  ENTER  DDT 


;YES  -  CLOSE  THE  DEVICE 
;AND  GET  OUT  NOW 


<DEVICE  FULL  OR  QUOTA  EXCEEDED> 


INTCPTf2 
INTCPT+2 
INTCPT+3 


<***..**..*t*> 


;SAVE  THE  PC 


;EXIT 


<DISK  OFF  LINE  -  OPR  ACTION  REQUESTED  -  WAITING  30  SECONDS> 
*D30 


INTCPT+2 
INTCPT*2 
INTCPT+3 


<OPR  ACTION  REQUESTED 
ERCOM 


;WAIT  FOR  30  SECONDS 
.-SLEEP  A  WHILE 
.-RESET  ACO 
.-SAVE  THE  RTN  ADDR 


FOR  DEVICE  -  WAITING  30  SECONDS> 


r 


DDRPl  - 
DDRPI3 

189A8 

189A9 

18950 

18951 

18952 

18955 

1895A 

18955 

18956 

18957 

18958 

18959 

18960 

18961 

18962 

18963 

1896A 

18965 

18966 

18967 

18968 

18969 

18970 

18971 

18972 

18973 

18974 

18975 

18976 

18977 

18978 

18979 

18980 
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SUBTTL  PROGRAM  CHECKSUMMING  SUBROUTINE 
XLIST 

LIST 

./If***********  ************  t  *•**»•*♦*****  ♦****♦♦****»*************♦♦**♦*♦ 

;*  .CKSUM  —  CHECKSUM  CALCULATOR  AND  CHECKER 

'/If  ***********  ♦*♦*****♦**♦♦*♦****♦*********♦*♦***♦**♦♦♦**♦*********♦♦*** 


SEQ  0589 


r 

D 


COMMENT  $ 


061320 

06132- 

061322 

061323 

061324 

061325 

061326 

061327 

061330 


261  17 
201  01 
400  00 
430  00 
365  01 
26?  17 
3ir  00 
350  00 
263  17 


0 
0 
0 
0 


00 
00 
00 
01 


0  00 


0 
0 
0 
0 


00 
00 
17 
00 


000001 
046503 
000000 
030600 
061323 
000001 
077540 
000000 
000000 


.CKSUM: 


THE  PROGRAM  CHECKSUMMING  ROUTINE  EXCLUSIVE  OR'S  THE  ENTIRE  PURE 

AREA  OF  THE  PROGRAM  FROM  ADDRESS  "ENTDDT"  TO  ADDRESS  "ENDSLD". 

THE  COMPUTED  CHECKSUM  IS  RETURNED  IN  ACO  AND  IS  COMPARED  TO  THE  VALUE  STORED 

IN  lOCATION  "CKSUM".  IF  THEY  ARE  UNEQUAL,  AN  ERROR  RETURN  IS  TAKEN  - 

EQUALITY  CAUSES  A  SKIP  RETURN. 

THE  FORMAT  OF  THE  CALL  IS  : 

SUBROUTINE  CALL  (PUSHJ) 
COMPUTED  CHECKSUM  DIFFERS  FROM  (CKSUM) 

IS  SAME  AS  (CKSUM) 


CHKSUM 

ERROR  ( 

RETURN 

NORMAL 

RETURN 

$ 

XLIST 

PUT 

1 

MOVE  I 

1,ENDSLD- 

SETZ 

XOR 

ENTDDT(I) 

SOJGE 

1,.-1 

GET 

1 

CAMN 

CKSmM 

ACS 

(P) 

RTN 

•  I 


I  • 


SAVE  AC1 

GET  NUMBER  OF  WORDS  OF  SOLID  CODE 

START  WITH  ALL  ZEROES 

XOR  A  WORD  INTO  ACO 

DECREMENT  THROUGH  MEMORY 

RESTORE  AC1 

CALCULATED  =  PREVIOUS? 

YES-SKIP  RETURN 

RETURN  WITH  CHECKSUM  IN  ACO 


r 


1 


DDRPl  - 
DDRP13 

18981 

18982 

18983 

1898A 

18985 

18986 

18987 

18988 

18989 

18990 

18991 

18992 

18993 

18994 

18995 

18996 

1 8997 

18998 

18999 

19000 

19001 

19002 

19003 

19004 

19005 

19006 

19007 

19008 

19009 

19010 

19011 

19012 

19013 

190U 

19015 

19016 

19017 

19018 

19019 

19020 

19021 

19022 

19023 

19024 
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i*CHSMER  -  CHECKSUM  ERROR  REPORTER 


r 


SEQ  0590 


061331  202  00  0  00  077540 

061332  037  04  0  00  076415 

061333  037  04  0  00  076427 

061334  350  00  0  00  077610 

061335  037  10  0  00  000002 

061336  607  00  0  00  002000 

061337  254  00  0  00  061341 


061340  037  15  0  00  000004 


061341  200  00  0  00  077610 

061342  305  00  0  00  000005 

061343  263  17  0  00  000000 

061344  G:)^  04  0  00  076444 


061 i45  037  15  0  00  000004 


CKSMER:  MOVEM 
PMSGF 
PMSGF 


CKSUM  ;SAVE  THE  CHECKSUM  (NEW  ONE) 

<*PROGRAM  CHECKSUM  DETECTS  ILLEGAL  PROGRAM  WODIFICATION. . .>       „^.  ^,^,^^ 

<*OPERATION  WILL  BE  UNRELIABLE  FROM  THIS  POINT.  SUGGEST  A  PROGRAM  RELOAD! ^> 


FECNT 


ERSTOP 
CKSFE 


; COUNT  THE  ERROR 

;GET  THE  PROGRAM  "SWITCHES" 

;HALT  ON  ERROR  SET? 

;N0  -  CHECK  FOR  FORCED  FATAL 


AOS 

SWITCH 

TLNN 

JRST 

FATL 

I      FFFFF     A  TTTTT     A  L 

f       A  A  T      A  A  L 

r  AA  AA  T  AA  AA  L 

fff  AAAAA  T  AAAAA  L 

f  A   A  T  k       A  I 

f  A   A  A   A  L 

f  A   A  T  A   A  LLLLL   1 


SALL 
CKSFE 


;**** 


;/lf*** 


SALL 


FATAL 

:  MOVE  FECNT  ;GET  THE  POGRAM  FATAL  ERROR  COUNT 

CAIGE  FELIM  .-EXCEEDED  THE  LIMIT? 

RTN  ;NOT  YET!  -  PROCEED 

PMSGF  <*EXCEEDED  THE  PROGRAM  FATAL  ERROR  LIMIT. . .SUGGEST  A  PROGRAM  RELOAD!^> 

FATL 

♦♦«*♦♦♦•• t ♦♦ t ♦•****♦ t ************************************ ******** 

fFFff            A  TTTTT  A  L       ' 

F  A  A  T  A  A    L 

F  AA  AA  T  AA  AA   L 

FFF  AAAAA  T  AAAAA   L 

F  A   A  T  A   A   L 

f  A   A  r  A   A   L 

f  A   A  T  A   A   LLLLL   ! 

FATAL 


r 


DDRPI  - 
DDRPI3 

19025 
19026 
19027 
19028 
19029 
19030 
19031 
19032 
19033 
19034 
19035 
19036 
19037 
19038 
19039 
190A0 
19041 
19042 
19043 
19044 
19045 
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SUBTTL     UTILITY  SUBROUTINES  FOR  RELIABILITY  TESTING 


SEQ  0591 


;-*STFATL  —  ROUTINE  TO  CHECK  FOR  PGM  PARI 
!•♦     THEN  RESTART  THE  PGM  IF  POSSIBLE. 


061346 
061347 
061350 
061351 
061352 
061353 
061354 
061355 
061356 
061357 
061360 

061361 
061362 


336  00  0 
254  00  0 
336  00  0 
254  00  0 
200  00  0 
135  00  0 


302  00 
254  00 
260  17 
260  17 
254  00 


0 
0 
0 
0 
0 


00  030041 
00  061356 
00  000500 
00  061356 
00  000500 
00  072532 
00  000036 
00  061361 
00  061320 
00  061331 
00  030651 


STFATL 


STFATl 


SKIPN 

JRST 

SKIPN 

JRST 

MOVE 

LDB 

CAIE 

JRST 

CHKSUM 

GO 

JRST 


KLFLG 

STFATl 

500 

STFATl 

500 

[POINT  6,AC0,5] 

36 

STFATH 

CKSMER 
START 


TY  ERROR  CHECKSUM  ERRORS 

•<^**********  ••**•••*******  **•*•♦♦ 

CPU  =  KLIO  ?? 

NO  DO  CHECKSUM 

ANY  ERRORS 

NO  DO  CHECKSUM 

GET  THE  PAGE  FAIL  WORD 

GET  THE  ERROR  CODE  tt 

ERROR  CODE  *36  ?? 

NOPE  -  HALT 

ANY  CHECSUM  ERRORS  ? 

YES  -  REPORT  THEM 

RESTART  THE  PGM 


037  04  0  00  076460 
037  14  0  00  000004 


STFATH:  PMSGF 
ERRHLT 


<''PAGE  FAIL  WORD  ERROR  NUMBER  FORCED  HALT*> 
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\ 


SEQ  0592 


19046 

19047 

19048 

19049 

19050 

19051 

19052 

19053 

19054 

19055 

19056 

19057 

19058 

19059 

19060 

19061 

19062 

19063 

19064 

19065 

19066 

19067 

19068 

19069 

19070 

19071 

19072 

19073 

19074 

19075 

19076 

19077 

19078 

19079 

19080 

19081 

19082 

19083 

19084 

19085 

19086 

19087 

19088 

19089 

19090 

19091 

19092 

19093 

19094 

19095 

19096 

19097 

19098 

19099 

19100 


061363 
061364 
061365 
061366 
061367 
061370 
061371 
061372 
061373 
061374 
061375 


061376 
061377 
061400 

061401 
061402 
061403 
061404 
061405 
061406 
061407 
061410 


261  17  0  00  000000 
261  17  0  00  000001 
2o'  17  0  00  000002 
261  17  0  00  030113 
261  17  0  00  030114 
261  17  0  00  000040 
332  00  0  00  030037 
254  00  0  00  061441 
402  00  0  00  077666 
336  00  0  00  030041 
254  00  0  00  061454 


200  00  0  00  030110 
606  00  0  00  000400 
254  00  0  00  061441 


7  004  00 
7  000  20 
200  00  0 
404  00  0 
303  00  0 
254  00  0 
305  00  0 
254  00  0 


0  00  000001 
0  00  020401 
00  000001 
00  076467 
00  101156 
00  061425 
00  000040 
00  061417 


SUBTTL  CPU  PARITY  ERROR  SERVICE 
XLIST 

LIST 

•/^••••••••••♦•••••••••••••••******************************************* 
)*  PARITY  —  ROTUINE  TO  HANDLE  CPU  PARITY  DETECTED  ERRORS 


COMMENT  $ 


PARITY: 


THIS  ROUTINE  WILL  ATTEMPT  TO  REPORT  WHERE  THE  PARITY 

OCCURRED  AND  ATTEMPT  TO  CONTINUE  IF  POSSIBLE. 

KL10  TYPE  CPU'S: 

THE  MBOX  ERROR  ADDRESS  REG  WILL  BE  READ  AND  DETERMINED 

WHETHER  THE  ADDRESS  IS  IN  THE  PROGRAM  AREA  OR  NOT. 

KA/KI *S* 

THE  PROGRAM  AREA  AND  DATA  BUFFER  AREA  WILL  BE  SCANNED 

IN  AN  ATTEMPT  TO  IDENTIFY  THE  FAILING  ADDRESS  OR 

ADDRESSES. 

FOR  ALL  TYPES  OF  CPU'S  THE  FOLLOWING  ACTION  WILL  TAKE 

PLACE* 

PARITY  ERROR  IN  PROGRAM  AREA  -  FATAL  ERROR  HALT 

PARITY  ERROR  NOT  IN  PROGRAM  AREA  -ATTEMPT  TO  CONTINUE. 

$ 

XLIST 


;SAVE  SOME  AC'S 


PARKL : 


PUT 

ACO 

PUT 

ACl 

PUT 

AC2 

PUT 

SSVUUO 

PUT 

$SVUPC 

PUT 

40 

SKIPE 

USER 

JRST 

PAR COM 

SET2M 

PECNT* 

SKIPN 

KLFLG 

JRST 

PARKAI 

R  KL10 

PARITY  ERRORS 

MOVE 

SSVAPR 

TRNN 

LPARER 

JRST 

PARCOM 

BLfCl 

4,AC1 

CONO 

APR, 20401 

MOVE 

ACO^ACI 

AND 

ACO, C17,, 777777] 

CAILE 

ACOJRECOR 

JRST 

PARBUF 

CAIGE 

ACO, 40 

JRST 

PARLOG 

; CLEAR  THE  ERROR  COUNTER 

;CPU  =  KL10?? 

;N0 


GET  THE  APR  STATUS 
PARITY  ERROR?? 
NOPE 

GET  ERROR  REG  DATA 
CLEAR  THE  ERROR  +  SET  PI  CHAN 
COPY  TO  ACO 
SAVE  22   BIT  ADDR 
IN  PROGRAM  AREA 
NO 

ABOVE  LOGOUT  DATA 
;N0 


r 


DDRPl  - 
DDRPI3 

19101 

19102 

19103 

19104 

19105 

19106 

19107 

19108 

19109 

19110 

19111 

19112 

19113 

19114 

19115 

19116 

19117 

19118 

19119 

19120 

19121 

19122 

19123 

19124 

19125 

19126 

19127 

19128 

19129 

19130 

19131 

19132 

19133 

19134 

19135 

19136 

19137 

19138 

19139 

19140 

19141 

19142 

19143 

19144 

19145 

19146 

19147 

19148 

19149 

19150 

19151 

19152 

19153 

19154 

19155 
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SEQ  0593 


061411 
061412 
061413 
061414 
061415 
061416 


061417 
061420 
061421 
061422 
061423 
061424 

061425 
061426 
061427 
061430 
061431 


061432 
061433 
061434 
061435 
061436 
061437 
061440 

061441 
061442 
061443 
061444 
061445 
061446 
061447 
061450 
061451 
061452 
061453 


061454 
061455 
061456 
061457 

061460 
061461 
061462 
061463 
061464 


037  04 
037  04 
200  00 
037  14 
037  01 
037  15 


037  04 
037  04 
200  00 
037  14 
037  04 
254  00 


0  00  076470 
0  00  076477 
0  00  000001 
0  00  000001 
0  00  030242 
0  00  000004 


0  00  076504 
0  00  076477 
0  00  000001 
0  00  000001 
0  00  076514 
0  00  061432 


037  04  0  00  076521 
037  04  0  00  076477 
200  00  0  00  000001 
037  14  0  00  000001 
037  02  0  00  076531 


262 
262 
262 
262 
262 
262 
254 

co: 

260 
262 
262 
262 
262 
262 
262 
336 
254 
254 


17 
17 
17 
17 
17 
17 
12 

17 
17 
17 
17 
17 
17 
17 
17 
00 
12 
00 


0 
0 
0 
0 
0 
0 
1 

0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
1 


00 
00 
00 
00 
00 
00 
00 


000040 
030114 
030113 
000002 
000001 
000000 
030104 


00  061320 
00  061331 
00  000040 
00  030114 
00  030113 
00  000002 
00  000001 
00  000000 
00  030037 
00  030104 
00  030104 


200  00  0  00  030107 
606  00  0  00  200000 
254  00  0  00  061441 
7  004  20  0  00  200000 

260  17  0  00  061516 
310  00  0  01  000000 
7  004  30  0  00  200000 
260  17  0  00  061550 
253  01  0  00  061461 


061465  332  00  0  00  077666 


PMS6F 

PMSGF 

MOVE 

PNTOTF 

PCRLF 

FATAL 


PARL06:  PMSGF 
PMSGF 
MOVE 
PNTOTF 
PMSGF 
JRST 


PARBUF : 


KLCOM: 


PAR COM: 


PARKA I : 


PMSGF 
PMSGF 
MOVE 
PNTOTF 

PMS6 


GET 
GET 
GET 
GET 
GET 
GET 
JEN 

CHKSUM 

GO 

GET 

GET 

GET 

GET 

GET 

GET 

SKIPN 

JEN 

JRST 


MOVE 
TRNN 
JRST 
CONO 

GO 

CAM 

CONSZ 

GO 

AO&JN 


<'^PARITY  ERROR  DETECTED  IN  PROGRAM  AREA  ''> 

<MBOX  ERROR  ADDRESS  REG  =  > 

AC0,AC1 


<*PARITY  ERROR  DETECTED  IN  CHAN  LOGOUT  AREA  ^> 

<M80X  ERROR  ADDRESS  REG  =  > 

ACO^ACl 

<MTTEMPTING  TO  CONTINUE  ^> 
KLCOM 

<*PARITY  ERROR  DETECTED  IN  DATA  BUFFER  AREA  *> 

<MBOX  ERROR  ADDRESS  REG  =  > 

ACO^ACl 

<ATTEMPTING  TO  CONTINUE  '^> 


40 

SSVUPC 

SSVUUO 

AC2 

ACl 

ACO 

aiTRCHl 


CKSMER 

40 

SSVUPC 

SSVUUO 

AC2 

AC^ 

ACO 

USER 

aiTRCHl 

aiTRCHi 


SSVPI 
I PARE R 
PARCOM 
PI, 200000 

PARPLP 
(ACl) 

PIJPARER 
PARP6M 
ACl, .-3 


; COMPUTE  CHECKSUM 

.•CHECKSUM  ERROR  FOUND  -  REPORT  IT 


SKIPE   PECNT 


;IN  USER  MODE? 
;N0  -  EXIT 
;YES 


GET  THE  PI  STATUS 

PARITY  ERROR  DETECTED? 

NOPE 

CLEAR  PARITY  ERROR 

SETUP  THE  AOBJN  LOOP  FOR  PGM  AREA 

ACCESS  A  LOiATION 

PARITY  ERROR  HZRE? 

YES  -  REPORT  IT 

LOOP  THRU  THE  PGM  AREA 

;ANY  PARITY  ERRORS  DETECTED 
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SEQ  0594 


19156 

19157 

19158 

19159 

19160 

19161 

19162 

19163 

1916A 

19165 

19166 

19167 

19168 

19169 

19170 

19171 

19172 

19173 

19174 

19175 

19176 

19177 

19178 

19179 

19180 

19181 

1Q1S2 

19183 

19184 

19185 

19186 

19187 

19188 

19189 

19190 

19191 

19192 

19193 

19194 

19195 

19196 

19197 

19198 

19199 

19200 

19201 

19202 

19203 

19204 

19205 

19206 

19207 

19208 

19209 

19210 


061466    037  15  0  00  000004 


061467 
061470 
061471 
061472 
061473 

061474 
061475 
061476 
061477 

061 500 

061 501 

061 502 

061 503 

061 504 

061 505 

061 506 

061 507 
061510 
061511 
061512 
061513 
061514 
061515 

061516 
061517 
061 520 
061521 
061522 
061523 

061 52^ 
06152: 
061 526 
061527 
061 530 
061531 
061532 
061333 
061 534 

061535 
061 536 
061537 
061540 
061541 
061542 

061543 
061544 
061545 


260  17  0  00  061524 
310  00  0  01  000000 
7  004  30  0  00  200000 
260  17  0  00  061572 
253  01  0  00  061470 


260  17 
200  01 
620  01 
660  01 
200  02 
620  02 


0  00  061543 
0  00  030107 
0  00  777400 
0  00  042000 
0  00  030110 
0  00  720700 


552  01  0 
552  02  0 
262  17  0 
262  17  0 
262  17  0 
7  COO  20 
7  000  34 
254  00  0 
7  000  20 
7  000  20 
7  004  20 
254  12  1 


00  030107 
00  030110 
00  000002 
00  000001 
00  000000 
0  00  001000 
0  00  001000 
00  061510 

0  00  001000 

1  00  030110 
1  00  030107 
00  030104 


200  01  0  00  101156 
275  01  0  00  000020 
2 li  00  0  00  000001 
517  00  0  00  000001 
541  01  0  00  000020 
263  17  0  00  000000 


332  00 
254  00 
554  02 
550  01 
274  01 
21?  00 
517  00 
5^0  01 
263  17 


0  00 
n  00 
0  00 


C 
0 
0 
0 


00 
00 
00 
00 


0  00 
0  00 


030143 
061535 
077735 
077735 
000002 
000001 
000001 
000002 
000000 


5L0  01  0  00  077735 
275  01  0  CO  400000 

2rs  00  0  00  000001 

517  00  0  00  000001 
541  01  0  00  400000 
263  17  0  00  000000 

037  02  0  00  076536 
200  00  0  00  077666 
037  15  0  00  000000 


FATAL 

60 

CAM 

CONSZ 

60 

AOBJN 

60 

MOVE 

TR2 

TRO 

MOVE 

TR2 

PKAIX:  HRR2M 
HRRZM 
6ET 
6ET 
6ET 
CONO 
CONSO 
JRST 
CONO 
CONO 
CONO 
JEN 

PARPLP:  MOVE 
SUBI 
MOVNS 
HRLZS 
HRRI 
RTN 

PARDLP:  SKIPE 
JRST 
HLRZ 
HRRZ 
SUB 
MOVNS 
HRLZS 
HRR 
RTN 

VSETUP:  HRRZ 
SUBI 
MOVNS 
HRLZS 
HRRI 
RTN 

PARTOT:  PMS6 
MOVE 
PNTDEC 


PARDLP 
(ACl) 

PIJPARER 
PARDAT 
ACl,. -3 

PARTOT 
AC1,$SVPI 
ACl, 777400 


;YES  IN  PROGRAM 

; SETUP  THE  DATA  LOOP 
.•ACCESS  AN  ADDR 
.•PARITY  ERROR  HERE? 
;YES  -  REPORT  IT 
;LOOP  THRU  THE  DATA  AREA 

.•REPORT  THE  TOTALS 
;6ET  THE  PI  STATUS 
SAVE  SOME  THIN6S 


ACl!CHNON!PARENB  ;AND  SEt  SOME  THIN6S 


AC2,$SVAPR 
AC2, 720700 

ACl.SSVPI 

AC2,$SVAPR 

AC2 

AC1 

ACO 

APR,CLKCLR 

APR.CLK 

APR^CLKCLR 
APR,a$SVAPR 
PI,a$SVPI 
aiTRCHl 

ACl.FRECOR 
ACl. 20 
ACl 
ACl 
ACl. 20 


MAPNEW 

VSETUP 

AC2.SAVMAP 

ACl.SAVMAP 

AC1.AC2 

ACl 

ACl 

AC1.AC2 


ACl.SAVMAP 

ACl. 400000 

ACl 

ACl 

AC1. 400000 


;6ET  THE  APR  STATUS 
.-SAVE  SOME  THIN6S 

SAVE  THE  CORRECTED  PI  STATUS 
SAVE  THE  CORRECTED  APR  STATUS 
RESET  THE  SAVED  AC'S  USED 


.•CLEAR  THE  PWR  CLOCK 
.•WAIT  TILL  TICK 

.•CLEAR  A6AIN 
;SET  SOME  APR  STATUS 
.-AND  PI  STATUS 
;THEN  EXIT 


6ET  THE  LAST  P6M  ADDR 

CORRECT  THE  COUNT 

6EN  AN  AOBJN  POINTER  WORD 


.•VIRTUAL  ADDRESSIN6 

•YES 

;6ET  MAPPED  ADDRESS 

;6ET  END  ADDR 

;CAL  #  OF  WORDS  TO  TEST 

.•SETUP  AOBJN  POINTER 

;6ET  START  ADDR 


6ET  LAST  VIRTUAL  ADDR 
CAL  *  OF  WORDS  TO  TEST 
SETUP  AOBJN  POIINTER 

.•STARTING  ADDR 


<*TOTAL  PARITY  ERRORS  DETECTED  =  > 
PECNT  ;6ET  IT 

;THEN  PRINT  THE  DECIMAL  lOUNT 


r 


DDRPl  - 
DDRPI3 

19211 
19212 
19213 
192U 
19215 
19216 
19217 
19218 
19219 
19220 
19221 
19222 
19223 
19224 
19225 
19226 
19227 
19228 
19229 
19230 
19231 
19232 
19233 
19234 
i  19235 
i  19236 
19237 
1  19238 
I  19239 
19240 
19241 
19242 
19243 
19244 
19245 
19246 
19247 

19248 
19249 
19250 
19251 
19252 
19253 
19254 
19255 
19256 
19257 

19258 
19259 
19260 
19261 
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SEQ  0595 


061546  037  02  0  00  076544 

061547  263  17  0  00  000000 


061550 
061551 
061552 
061553 
061554 
061555 
061556 
061557 
061560 
061561 
061  "^02 
061563 
061 564 
061565 
061566 
061567 
061 570 
061571 


0o1572 
061573 
061574 
061575 
061576 
061577 
061600 
061601 


200  00  0 
202  00  0 
350  00  0 
200  00  0 
303  00  0 
254  00  0 
037  02  p 
550  00  0 
037  10  0 
037  02  0 
200  00  0 
037  13  0 
350  00  0 
336  00  0 
7  004  20 
332  00  0 
7  004  20 
263  17  0 


01  000000 
01  000000 
00  077610 
00  077666 
00  000002 
00  061564 
00  076545 
00  000001 
00  000000 

00  076551 

01  000000 
00  000000 
00  077666 
00  030041 

0  00  200000 
00  030041 
0  00  020400 
00  000000 


200  00 
20?  00 
2uJ  00 
303  00 
25'.  00 
037  02 

200  00 

037  13 


0 
0 
0 
0 
0 
0 
0 
0 


01 
01 
00 
00 
00 
00 
00 
00 


000000 
000000 
077666 
000002 
061564 
076554 
000001 
000002 


061602  037  ^5  0  00  000004 

061603  037  10  0  00  000000 
06^604  254  O:  0  00  06^561 


PMS6 
RTN 


<.**> 


;HERE  TO  REPORT  ERROR  IN  PGM  AREA 


PARP6M:  MOVE 
MOVEM 
AOS 
MOVE 
CAILE 
JRST 
PMS6 
HRRZ 
PNTADR 

PARCPT:  PMSG 
MOVE 


PAR  CI 


PNTHW 

AOS 

SKIPN 

CONO 

SK I PE 

CONO 

RTN 


(AC1) 

(AC1) 

FECNT 

ACO.PECNT 

AC0,2 

PARC1 

<*PARITY  ERR 

AC1 

<  CONTENTS  = 
(ACl) 

PECNT 

KLFLG 

PI^PARCLR 

KLFLG 

PI,LCPAER 


a  PGM  ADDR 


ACCESS  ADDR  AGAIN 

TRY  TO  FIX  IT 

UPDATE   FATAL  ERROR  CNT 


.•PRINTED  3  ERRORS 

> 

;GET  THE  ADDR 
;PRINT  IT 


GET  THE  DATA  IN  ADDR 
PRINT  THE  CONTENTS 


COUNT  THE 
KLIO?? 
NO  -  KI10 
KI/KA  ?? 
NO  -  KLIO 


ERROR 


;HERE  TO  REPORT  ERROR  IN  DATA  AREA 


(ACl) 
(ACl) 
ACO, PECNT 

AC0,2 

PARC1 

<*PARITY  ERR  8  DATA  ADDR 

ACl 


ACCESS  AGAIN 
TRY  TO  nx    IT 
GET  PARITY  CNT 


;GET  THE  ADDR 


PARDAT:  MOVE 

MOVEM 

MOVE 

CAILE 

JRST 

PMSG 

MOVE 

MAPADR 

FATL 
•^» »•♦♦♦♦»♦»♦♦♦♦♦♦*♦♦♦♦•♦*♦♦♦♦♦♦♦»♦*♦*♦♦♦♦*♦♦**♦♦♦♦*♦♦♦♦♦*♦♦♦**♦♦♦♦•♦♦ 

ffff            A     TTTTT  A  L 

A  A      T  A  A  L 

AA  AA     T  AA  AA  L 

ff            AAAAA     T  AAAAA  L 

k       k            T  A   A  L 

I   A     T  A   A  L 

A   At  A   A  LLLLL   I 
.#»♦♦♦»♦♦•♦♦•*•♦♦»♦♦♦♦♦*♦♦♦♦♦♦♦♦♦*»♦♦♦♦**♦♦♦♦♦♦*♦♦•♦♦♦*♦*♦♦♦♦♦♦♦♦♦••♦* 


SALL 


FATAL 

PNTADR 
JRST 


PARCPT 


;PRINT  THE  ADDR 
.•COMMON  EXIT 


:'C4iM. 
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SEQ  0596 


19262 

19263 

19264 

19265 

19266 

19267 

19268 

19269 

19270 

19271 

19272 

19273 

19274 

19275 

19276 

19277 

19278 

19279 

19280 

19281 

19282 

19283 

19284 

19285 

19286 

19287 

19288 

19289 


061605 
061605 


015  012  122  .5  163 


SUBTTL  Help  Texts 

HLPOPR:  ASCIZ/ 

Responses  to  "what  drive": 


ALL 

Axx     = 

xA 

Dxx     = 

xD 

Pxx     = 

xP 

PALL 

yEALL   = 

Exx     = 

xE 

XX        = 

xx,yy,zz= 

SELECT  = 
LOCKED  = 
PACKID  = 

SAME    = 

DDT  m 
H  « 
/ 


All  RP04-05-06  drives  found  to  be  online 

Add  drive  xx  to  test  list 

Add  all  drives  on  HBC  x  to  test  list 

Drop  drive  xx  from  test  list 

Drop  all  drives  on  MBC  x  from  test  list 

Program  write- lock  drive  xx 

Program  write-lock  all  drives  on  MBC  x 

Program  write-lock  all  drives 

Program  write-enable  all  drives 

Program  write-enable  drive  xx 

Program  write-enable  all  drives  on  MBC  x 

Test  only  drive  xx 

Test  drives  xx,  yy,  and  zz 

Print  summary  of  operator  selected  dri^/es 
Print  summary  of  write-locked  drives 
Report  any  known  pack  identi feat  ion 

Select  same  drives  as  reported  by  "SELECT' 

Enter  DDT 
This  blurb 
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SEQ  0597 


19290 

19291 

19292 

19293 

1929A 

19295 

19296 

19297 

19298 

19299 

19300 

19301 

19302 

19303 

1930A 

19305 

19306 

19307 

19308 

19309 

19310 

19511 

19312 

19313 

193U 

19315 

19316 

19317 

19318 


062041 
062041 


015  012  124  145  163 


LSTLST: 

ASCIZ? 

Test  # 

Test  Name 

g 

TOTAL 

1 

RONLY 

2 

yONLY 

3 

OPDTST 

4 

STEST 

5 

SEKTST 

^ 

INTTST 

FRTEST 

10 

FORMAT 

11 

SEQ6EN 

12 

ACCEPT 

13 

NEXTST 

14 

PTIME 

15 

RCTEST 

«B 

RUNLST 

• 

MAPOUT 

•• 

CONFIG 

- 

DELETE 

«• 

PAKINT 

• 

DDT 

• 

TOTPNT 

- 

H 

Test  Function 

Run  thru  all  tests  without  operator  intervention 

Read  only  data  test 

Urite  only  data  test 

Selectable  write/read  data  test 

Surface  test  using  various  data  patterns 

Mechanical  motion  and  positioning  (seek/recal) 

Track  interaction  test 

Fast  random  parameter  data  reliability 

Pack  formatter  and  verifier  (PA<INT  is  normally  used) 

Test  script  generator 

Drive  acceptance  script 

RH20/RP04/D5/06  write/read  using  RH20  backup  register 

Mechanical  timing  test 

Random  command  test 

Execute  the  operator  generated  test  script 

BAT  block  processor 

Allows  reconfiguruation  of  MASSBUS  selected  drives 

Allows  to  write  protection  of  pack  areas  or 

"delete"  them  from  program  use 

Pack  format  -  map  -  bat  block  creation  script 

Enter  DDT 

Print  summary  of  run  information 

Help  message  -  this  list 


DDRPl  - 
DDRPI3 

19319 

19320 

19321 

19322 

19323 

19324 

19325 

19326 

19327 

19328 

19329 

19330 

19331 

19332 

19333 

1933A 

19335 

19336 

19337 

19338 

19339 

193A0 

193A1 

193A2 

193A3 

193AA 

193A5 

193A6 
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SEQ  0598 


062363 

062363  015  012  116  157  164 


062413 

062413  015  012  116  157  164 


062437 

062437  015  012  111  156  163 


LSTT10:  ASCIZ   \  .   _^^  ,^ 

Note:   The  following  tests  do  not  run  in  TOPS-10  user  mode: 

NEXTST,  PTIMe,  and  in  7.02  and  later  monitors  SEKTST. 
\ 

LSTT20:  ASCIZ   \ 

Note:   The  following  tests  do  not  run  in  TOPS-20  user  mode: 
SEKTST,  NEXTST,  PTIME,  and  FORMAT. 

\  '    ■ 

DELMSG:  ASCIZ? 

Instructions  for  deleting/protecting  disk  pack  areas... 

Deletinq/protecting  individual  pack  track  areas  will  inhibit  the  program 
from  making  any  access  to  that  protected  area. 

Using  only  a  selected  pack  area  implies  all  other  pack  areas  will  be 
"access"  protected  and  that  testing  will  be  limited  to  just  the  selected 
area. 

Setting  up  to  use  a  previously  deleted/protected  pack  area  will  remove 
the  software  access  prot'^  M'on  an  area  previously  had. 

The  disk  unit  number  must  be  a  2  digit  octal  -lumber  of  a  selected  online 
drive. 
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SEQ  0599 


DDF 


193A7 

193A8 

193A9 

19350 

19351 

19352 

19353 

1935A 

19355 

19356 

19357 

19358 

19359 

19360 

19361 

19362 

19363 

19364 

19365 

19366 

19367 

19368 

19369 

19370 

19371 

19372 

19373 

1937A 

19375 

19376 

19377 

19378 

19379 

19380 

19381 

19382 


062617 
062617 


015  012  123  127  055 


063137 
0631A0 
0631A1 
063U2 
0631A3 
0631AA 
063U5 
0631A6 


000000 
000000 
000000 
000000 
000000 
OuJOOO 
000000 
000000 


076561 
076566 
076573 
076601 
076607 
076615 
076622 
076630 


PGMOPT:  ASCIZ   ? 

SW-3  (no  print)  will  inhibit  this  text. 

KL  11/AO  switches  are  in  "(XXXXXX)".  Don't 


use  "KL"  switches  if  in  user  mode. 


Left  Switc 

0  AOOUOO 

1  200000 

2  100000 

3  OAOOOO 
A  020000 

5  010000 

6  OOAOOO 

7  002000 

8  001000 

9  OOOAOO 

10  000200 

11  000100 

12  OOOOAO 

13  000020 
1A  000010 


hes 

(100000) 

(OAOOOO) 

(020000) 

(010000) 

(OOAOOO) 

(002000) 

(001000) 

(OOOAOO) 

(000200) 

(000100) 

(OOOOAO) 

(000020) 

(000010) 

(OOOOOA) 

(000002) 


abort 
restart 
totals 
no  print 
LPT  print 
bell  on  er 
loop  on  er 
halt  on  er 
print  all 
run  reliab 
text  inhib 
paging  inh 
mooify  dev 
cache  off 
OPR  select 


ror 
ror 
ror 
error 
ility 
it 

ibit 
code 
(KL10 
ion  0 


Right  Swit 

18  AOOOOO 

19  200000 

20  100000 

21  OAOOOO 

22  020000 

23  010000 
2A  OOAOOO 

25  C02000 

26  001000 


(N/A) 
(N/A) 
only) 

f  tests 


ches 

DELTRK 

VARIAB 

ACTSEK 

FREEZE 

INHULD 

ALLADR 

ALLDRV 

ONESEC 

INHRET 


deletion  inhibited 
variables  enabled 
actual  seeks  enabled 
loop  on  command  list 
inhibit  drive  unloads 
select  drive  adr  first 
select  all  drive  first 
sector  select  enabled 
no  error  recovery 


;LOCK  DUO  error  codes 


LOCKMS: 


SIXBTZ 
SIXBTZ 
SIXBTZ 
SIXBTZ 
SIXBTZ 
SIXBTZ 
SIXBTZ 
SIXBTZ 


;END  OF  FILE 


LOCK  UUO  NOT  IMPLEMENTED 
JOB  NOT  PRIVELEGED  TO  LOCK 
NOT  ENOUGH  CORE  FOR  UNLOCKED  JOB 
CORMAX  WOULD  BE  LESS  THAN  CORMIN 
EXEC  VIRTUAL  MAPPING  IS  EXHAUSTED 
ILLEGAL  LOCK  ARG  SUPPLIED 
SPECIFIED  PAGE  IS  NOT  AVAILABLE 
ILLEGAL  MOVEMENT  SPECIFIED 


_ } 
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19383 

1938A 

19385 

19386 

19387 

19388 

19389 

19390 

19391 

19392 

19393 

1939A 

19395 

19396 

19397 

19398 

19399 

19400 

19401 

19402 

19403 

19404 

19405 

19406 

19407 

19408 

19409 

19410 

19411 

19412 

19413 

19414 

19415 

19416 

19417 

19418 

19419 

19420 

19421 

19422 

19423 

19424 

194^5 

19426 
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SUBTTL  MASSBUS  CONTROLLER  UTILITY  PACKAGE 

•/|f****************'V*<*  •♦*♦•••*»********•*••**•******♦****  ***************** 
;ED  VER  10 

;#•♦•***•♦•*♦♦**•♦*****♦♦************************************************* 

COWIENT  / 

THE  CODE  IN  THIS  FILE  IC   ASSEMBLED  BASED  ON  SEVERAL  SWITCHES  THAT 

APPEAR  IN  THE  PROGRAMS  TITLE  FILE.  THEY  ARE: 


SEQ  0600 


DDI 
DDI 


RS04==1 
RP0X==1 
TU16==1 


ASSEMBLE  CODE  FOR  THE  RS04 
ASSEMBLE  CODE  FOR  THE  RPOX 
ASSEMBLE  CODE  FOR  THE  TU16 


WHEN  SETTING  UP  THE  SWITCHES,  DO  NOT  SELECT  MORE  THAN 
ONE  DRIVE  TYPE  AT  A  TIME. 

TWO  UUO'S  MUST  ALSO  BE  DEFINED  IN  THE  TITLE  FILE  AS  FOLLOWS: 
OPDEF   TEXT    CXXB8]  .-PRINTS  A  LINE  OF  TEXT 

OPDEF   TEXTF   CYYB8J  ;PRINTS  TEXT  IN  FORCED  MODE 

LUUOXX=  TEXT. 
LUUOYYr  TEXTF. 

THE  "BOX"  AND  "S"  MACROS  MUST  BE  DEFINED  BEFORE  USING  THIS  FILE. 
•BOX"  LOOKS  LIKE  THIS: 

DEFINE  BOX  (TEXTA,TEXTB)< 
LALL 

LIST     -  . 

PAGE 
S 

;*  TEXTA 

S 

COMMENT  $ 

TEXTB 
$ 

XLIST 
XALL 

LIST  -  - 

^  > 

/ 

•4f***************** *************************************** **************** 
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19427 

19A28 

19A29 

19A30 

19A31 

19432 

19433 

19434 

19435 

19436 

19437 

19438 

19439 

19440 

19441 

19442 

19443 

19444 

19445 

19446 

19447 

19448 

19449 
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XLIST 
LIST 

•  /If********************************************************************* 
;*  NOTES  ON  I/O  ROUTINE  DESIGN 

;/|f********************************************************************* 

-  * 

COMMENT  $ 

1.  ALL  CODE  IN  THIS  FILE  IS  RE-ENTRANT 

2.  THE  ROUTINES  EXPECT  TO  FIND  THE  DRIVE  NUMBER  IN  AN  AC  LABLED 

"DRIVE"  BITS  33-35  . 

3.  THE  ROUTINES  WILL  EXPECT  TO  FIND  THE  CONTROLLER  DEVICE  CODE 

IN  AN  AC  LABLED  "TIBCN"  (MASSBUSS  CONTROLLER  NUMBER) 
BITS  3-9 

4.  NO  AC'S  ARE  MODIFIED  UNLESS  THEY  RETURN  DATA. 

$ 
XLIST 


SEQ  0601 


DO 
DD 


L 
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19450 

19451 

19452 

19453 

19454 

19455 

19456 

19457 

19458 

19459 

19460 

19461 

19462 

19463 

19464 

19465 

19466 

19467 

19468 

19469 

19470 

19471 

19472 

19473 

19474 

19475 

19476 

19477 

19478 

19479 

19480 

19481 

19482 

19483 

19484 

19485 

19486 

19487 

19488 

19489 

19490 

19491 

19492 
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SUBTTL  REGISTER  LOAD  AND  READ  ROUTINES 

XLIST 
LIST 

•/^•♦•**»*************************************************************** 
;*  MASSBUS  DEVICE  REGISTER  LOAD  ROUTINES 

COMMENT  $ 

SPECIFICATION:  , 

DEVICE  REGISTERS  ARE  LOADED  BY  SETTING  UP  ACl  , 

WITH  SOME  APPROPRIATE  ARGUMENT  AND  THEN  CALLING  THE  CORRECT 

ROUTINE  WITH  A  PUSHJ.  THE  ROUTINES  HAVE  A  NORMAL  RETURN  AND  AN  ERROR 

RETURN.  AC1,F00        ;GET  SOME  ARGUMENT   ^^  ^^   ^ 

60  LDREG         ; (REG  #)  RANGES  FROM  00-37  OCTAL 
RTNl  ;RAE  DETECTED  AFTER  THE  LOAD 

RTN2  ; LOAD  WAS  SUCCESSFUL 

ACl  • 

SPECIFY  REGISTER  NUMBER  IN  BITS  0-5 

SPECIFY  REGISTER  DATA  IN  BITS  20-35 

SPECIFY  PARITY  MODE  BIT  18 

0  MEANS  ODD 

1  MEANS  EVEN 

SPECIFY  SOFTWARE  OPTION  BITS  13-14 
BIT  13=0       CLEAR  RAE'S 
BIT  13=1       DON'T  CLEAR  RAE'S 
BIT  14=0       REPORT  RAE'S 
BIT  14=1       DON'T  REPORT  RAE'S 

STATUS: 

IF  NO  ERRORS  ARE  DETECTED,  ACl  IS  RETURNED  AS  IT  WAS      ,    .  ^ 

SPECIFIED  EXCEPT  FOR  THE  REGISTER  AND  DRIVE  FIELDS  WHICH  WILL  HAVE 

BEEN  SUPPLIED  BY  THE  ROUTINE. 

ACl  ON  RETURN  FROM  AN  RHIO  ERROR  HOLDS  THE  PRESENT  VALUE      ^  _  ^ 

OF  THE  DIB.  ACl  ON  RETURN  FROM  AN  RH20  ERROR  HOLDS  THE  DATAG  ARGUMENT 

THAT  CAUSED  THE  RAE. 

$ 

XLIST 


SEQ  0602 


DD 
DC 

1 
1 


'1 
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SEQ  0603 


19493 

19494 

19495 

19496 

19497 

19498 

19499 

19500 

19501 

19502 

19503 

19504 

19505 

19506 

19507 

19508 

19509 

19510 

19511 

19512 

19513 

19514 

19515 

19516 

19517 

19518 

19519 

19520 

19521 

19522 

19523 

19524 

19525 

19526 

19527 

19528 

19529 

19530 

19531 

19532 

19533 

19534 

19535 

19536 

19537 

19538 

19539 

19540 

19541 

19542 

19543 

19544 

19545 

19546 

19547 


063147 

063150 

063151 

063152 

063153 

0631 54 

063155 

063156 

063157 

063160 

063161 

063162 

063163 

063164 

063165 

063166 

063167 

063170 

063171 


063172 
063173 
063174 
063175 
063176 
063177 
063200 

063201 

063202 

063203 

063204 

063205 

063206 

063207 

063210 

063211 

063212 

063213 

0632  V« 

063215 

063216 

063217 

063220 

063221 

063222 

063223 
063224 
063225 
063226 
063227 
063230 


261 

17  0 

261 

17  0 

261 

17  0 

261 

17  0 

261 

17  0 

261 

17  0 

332  00  0 

661 

01  0 

661 

01  0 

405 

13  0 

671 

01  0 

621 

01  0 

200  03  0 

200  02  0 

434 

02  0 

332 

00  0 

7  020  04 

402 

00  0 

256  00  0 

00  000013 
00  000012 
00  000001 
00  000000 
00  000002 
00  000003 
00  077722 
00  000400 
00  004000 
00  000077 
00  000013 
00  600070 
00  000001 
00  074256 
00  000012 
00  077712 
0  00  101237 
00  077712 
00  000002 


336  00 
254  00 
641  02 
256  CO 
602  01 
254  00 
254  00 

6ti'  02 
271  02 
256  00 
205  00 

200  01 
434  01 
256  00 
621  01 
424  00 
424  00 
256  00 

201  01 

261  17 
405  13 
242  01 

262  17 
612  00 
254  00 


0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
13 
00 
00 
00 


063201 
000300 
000002 
004000 
063233 
063223 

000100 
000002 
000002 
540000 
076635 
000012 
000001 
000100 
000000 
000000 
000001 
000001 
000013 
000007 
000000 
C00013 
000001 
063233 


350  00  0  17  mill 

2t2   17  0  00  000003 

262  17  0  00  000002 

262  17  0  00  000000 

262  17  0  00  000001 

262  17  0  00  000012 


LDRE6:  PUT  DRIVE 

PUT  MBCN 

PUT  1 

LDRGCC:  PUT  0 

PUT  2 

PUT  3 

SKIPE  RH20 

TLO  AC1,(1B9) 

TLO  1,(1B6) 

ANDI  DRIVE, 77 

TSO  1, DRIVE 

TL2  1,(3B1!7B14) 

MOVE  3 J 

MOVE  2,CDATA0  OJ] 

I OR  2, MBCN 

SKIPE  RDTIME 

DATAI  20,RDTIMC 

SETZM  RDTIME 

XCT  2 


SAVE  ACl 

SAVE  ACO 

SAVE  AC2 

SAVE  THE  AC 

MBC  =  RH20?? 

YES  -  NEED  DISSABLE  RAE  ERROR  STOP 

SET  THE  LOAD  REGISTER  BIT 

INCLUDE  THE  DRIVE  * 
CLEAR  SOFTWARE  FLAGS 
SAVE  THE  DATAO  ARGUMENT 
BUILD  A  DATAO  FROM  ACl 
INCLUDE  THE  DEVICE  CODE 
READ  THE  TIMEBASE  METER  ? 
YES 

CLEAR  THE  FLAG 
DOES  A  DATAO  RHJ 


; CONDITIONAL  CODE  TO  TEST  FOR  AN  RH10/RH20  RAE 


SKIPN  RH20 

JRST  LDRGl 

TLC  2,(1B10!1B11) 

XCT  2 

TRNE  1JB24 

JRST  LDRGB 

JRST  LDRGC-1 

LDRGl:  TLZ  2,  (IBID 

ADDI  2,2 

XCT  2 

MOVSI  (54B5) 

MOVE  UCDATAO] 

lOR  1,MBCN 

XCT  1 

TLZ  1,(1B11) 
SETA 
SETA 

XCT  1 

MOVEI  1,1 

PUT  DRIVE 

ANDI  DRIVE, 7 

LSH  1, (DRIVE) 

GET  DRIVE 

TDNE  0,1 

JRST  LDRGB 

AOS  -6(P) 

LDRGC:  GET  3 

GET  2 

GET  0 

GET  1 

GET  MBCN 


AM  I  AN  RH20?? 

NOPE ! 

YUP  -  CHANGES  DATAO  TO  A  CONI 

DOES  A  CONI  RH,1 

WAS  THERE  AN  RAE  ?? 

YES. 


CHANGES  DATAO  RH,1  TO  DATAI  RH,1 

NOW  WE  HAVE  DATAI  RH,3 

DO  A  BLIND  DATAI 

RAE  REGISTER  NUMBER 

GET  A  BASIC  DATAO  INSTRUCTION 

INCLUDE  THE  DEVICE  CODE 

DO  A  DATAO  RH,0 

CHANGE  DATAO  TO  DATAI 

RH10  I/O  STALL  IS  NECESSARY 

DOES  A  DATAI  INTO  ACO 
GET  A  SINGLE  BIT  MASK 
SAVE  DRIVE  FOR  A  WHILE 
STRIP  TO  A  SINGLE  NUMBER 
POSITION  TO  CORRECT  RAE  BIT 
RESTORE  DRIVE  # 
IS  THERE  AN  RAE  ?? 
YES. 

NO  RAE.  BUMP  THE  RETURN 

CLEAN  UP 

RESTORE  A  COUPLE  OF  AC'S 


D[ 
DI 


r 

195A8  063231  262  17  0  00  000013  GET    DRIVE  . 

195A9  063232  263  17  0  00  OCOOOO  RTN  ;AND  EXIT 


U- 


DDRPI  - 
DDRPI4 

19550 

19551 

19552 

19553 

1955A 

19555 

19556 

19557 

19558 

19559 

19560 

19561 

19562 

19563 

19564 

19565 

19566 

19567 

19568 

19569 

19570 

19571 

19572 

19573 

19574 

19575 

19576 

19577 

19578 

19579 

19580 

19581 

19582 

19583 

19584 

19585 

19586 

19587 

19588 
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063233  200  01  0  17  lllll'i 

063234  603  01  0  00  000020 

063235  254  00  0  00  063250 


063236 
063237 
063240 
063241 
06:242 
063^43 
063J44 
063245 
063246 
063247 


336  00  0 
254  00  0 
260  17  0 
405  01  0 
260  17  0 
254  00  0 
200  00  0 
200  01  0 
434  01  0 
256  00  0 


00  077722 
00  063244 
00  063540 
00  004447 
00  063522 
00  063250 
00  076636 
00  076635 
00  000012 
00  000001 


063250  250  03  0  17  11111'^ 

063251  603  03  0  00  000010 

063252  254  00  0  00  063224 


063253 
063254 
063255 
063256 
063257 
063260 
063261 
063262 
063263 
063264 
063265 
063266 
063267 


030  00  0 
135  00  0 
242  00  0 
260  17  0 
33i  00  0 
030  00  0 
336  00  0 
030  00  0 
200  00  0 
037  13  0 
260  17  0 
350  00  0 
254  00  0 


REGISTER  LOAD  AND  READ  ROUTINES 

;HERE  BECAUSE  WE  HAD  AN  RAE  DETECTED  AFTER  A  REGISTER  LOAD 


SEQ  0605 


D 
D 


LDRGB :  MOVE 
TLNE 
JRST 


U-3(P) 

1,(1B13) 

LDRGB1 


;FETCH  ORIGINAL  ACl 
;WANT  TO  CLEAR  THE  RAE  ?? 
;N0. 


;RH20/RH10  CONDITIONAL  CODE  TO  CLEAR  RAE'S 

SKIPN  RH20 

JRST  LDRG2 

GO  .CONI  ;D0  A  CONI 

ANDI  1JB24!1B27!1B30!7B35  ;RAECLRIMBE!ATTNEN!PICHAN 

60  .CONO  ;D0  CORRECT  CLEARING  CONG 

JRST  LDRGB1  ^      ^_,, 

LDRG2:  MOVE  [5485 !1B6! 377]  ;READY  TO  CLEAR  ALL  RAE'S 

MOVE  UCDATAO]  ;A  BASIC  DATAO 

lOR  1.MBCN  .-INCLUDE  THE  DEVICE  CODF 

XCT  1  .-CLEARS  THE  RAE 


;SEE  IF  UE  WANT  TO  REPORT  ERRORS 


;PUT  ERR  ARGUMENT  ON  STACK 

;WANT  TO  REPORT  ?? 

;N0 


00  076637     RH=/3 

00  076650 

LDB 

00  000002 

LSH 

00  066174 

GO 

00  077722 

Ck'TPF 

00  076651 

TEXT 

00  ^11112 

SKIPN 

00  076657 

TEXT 

1 7  UlV'i^ 

MOVE 

00  000000 

PNTHW 

00  066156 

GO 

10  000025 

AOS 

00  063224 

JRST 

LDRGB1:  EXCH    3.-3(P) 

TLNE    3.(1B14) 

JRST    LDRGC 

TEXT    CASCIZ/ 
RAE  WHILE  WRITING  A  DEVICE  REGISTER 

[POINT  7.MBCN.9] 

2 

POCT 

RH20 

CASCIZ/  THE  DATAO  ARGUMENT  WAS:  /] 

RH20 

CASCIZ/  READING  THE  DIB  GIVES:  /] 

-3(P)  ;GET  IT  FROM  THE  STACK 

.-PRINT  IT 
.CRLF  .-PRINT  A  CRLF 

.RAE(CSBP)  .-COUNT  THE  RAE  REPORTED 

LDRGC  ;AND  GO  EXIT 


.-GET  DEVICE  CODE 
.-JUSTIFY  FOR  PRINTING 
.-PRINT  IT 
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SEQ  0606 


19589 

19590 

19591 

19592 

19593 

1959A 

19595 

19596 

19597 

19598 

19599 

19600 

19601 

19602 

19603 

1960A 

19605 

19606 

19607 

19608 

19609 

19610 

19611 

19612 

19613 

1961 A 

19615 

19616 

19617 

19618 

19619 

19620 

19621 

19622 

19623 

19624 

19625 

19626 

19627 

19628 

19629 

19630 

19631 


XLIST 
LIST 

•/^•••••••••♦•♦••••••♦••••********************************************** 
;*  MASSBUS  DEVICE  REGISTER  READ  ROUTINES 

COMMENT  $ 

SPECIFICATION: 

DEVICE  REGISTERS  ARE  READ  INTO  AC1  BY  SETTING  UP  SOME  ARGUMENT 

IN  AC1  AND  THEN  CALLING  THE  CORRECT  ROUTINE  WITH  A  PUSHJ  . 

THE  ROUTINES  HAVE  A  NORMAL  RETURN  AND  2  ERROR  RETURNS. 
EG.     MOVE    ACI.FOO        ;SOME  ARGUMENT 

60     RDREG         ;(REG  M)   RANGES  FROM  00-37  OCTAL 
RTNl  ;RAE  DUE  TO  CTRL  BUSS  TIMEOUT 

RTN2  ;RAE  OTHER  THAN  CTRL  BUSS  TIMEOUT 

RTN3  ;READ  WAS  SUCCESSFUL 

AC1  • 

SPECIFY  REGISTER  NUMBER  IN  BITS  0-5 

SPECIFY  PARITY  MODE  BIT  18 

0  MEANS  ODD  PARITY 

1  MEANS  EVEN  PARITY 
SPECIFY  SOFTWARE  OPTION  BITS  13-U 

BIT  13=0  CLEAR  RAE'S 

BIT  13=1  DON'T  CLEAR  RAE'S 

BIT  14=0  REPORT  RAE'S 

BIT  14=1  DON'T  REPORT  RAE'S 

STATUS* 

UPON  COMPLETING  A  REGISTER  READ,  ALL  36  BITS  OF  THE  DIB  REG  (RHIO)  OR 

PREP  REG  (RH20)  ARE  RETURNED  IN  AC1.  THE  ERROR  RETURNS  ARE  TAKEN  IF  AN  RAE  IS 

DETECTED  HY  THE  CONTROLLER  DURING  THE  READ  OPERATION.  THE  CONDITIONS 

THAT  CAUSE  THE  RAE  ARE  DIFFERENT  FOR  THE  RHIO  THAN  RH20  AND  MAY  BE 

ANALYZED  BASED  ON  THE  STATUS  FROM  AC1. 

$ 

XLIST 


063270  261  17  0  00  000013 
06327^  261  17  0  00  000012 
063^72  261  17  0  00  000001 


RDREG:  PUT     DRIVE 
PUT     MBCN 
PUT     1 


;SAVE  ACl 


DDRPl  - 
DDRPIA 

19632 
19633 
1963A 
19635 
19636 
19637 
19638 
19639 
I96A0 
196A1 
196A2 
196A3 
1964A 
196A5 
19646 
196A7 
19648 
19649 
19650 
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r 


SEQ  0607 


063273 
063274 
063275 


8f' 


063302 
063303 
063304 
063305 
063306 
063307 
063310 

06331 1 

06331 2 
063313 
063314 
063315 


261 

pi  8]  8 

200  02  0 
434  02  0 
7  004  24 
405  00  0 
202  00  0 
7  004  20 
256  00  0 
200  00  0 
621  02  0 
256  00  0 
261  17  0 
7  004  20 


00  000000 


o; 

600070 
„  074256 
00  000012 
0  00  000000 
00  000200 
00  077736 
0  00  000400 
00  000002 
00  000001 
00  000100 
00  000002 

00  000001 

1  00  077736 


RDRGCC:  PUT  Q 

PUT  2  ^^ 

SKIPE  RH20 

TLO  AC1,(1B9) 

ANDI  DRIVE, 77 

TSO  KDRIVE 

TLZ  U(3B1!7B14) 

MOVE  2,CDATA0  0,13 

lOR  2,MBCN 

CONI  PI.ACO 

ANDI  AC0,200 

MOVEM  ACO,SAVPI# 

CONO  PKPIOFF 

XCT  2 

MOVE  1 

TLZ  2, (IBID 

XCT  2 

PUT  1 

CONO  PI.aSAVPI 


;SAVE  THE  AC 

;SAVE  THE  AC 

;MBC  =  RH20?? 

;YES  -  SET  DISABLE  RAE  ERROR 


INCLUDE  THE  DRIVE  NUMBER 

CLEAR  THE  SOFTWARE  FLAG  BITS 

GET  A  BASIC  DATAO 

INCLUDE  THE  DEVICE  CODE 

GET  PI  STATUS 

SAVE  PION  BIT  ONLY 

SAVE  IT 

INH  INTR'S  TO  AVOID  LOOSEING  STATUS 

DOES  A  DATAO  RHJ 

SAVE  REG  #  &  DRIVE  IN  ACO 

CHANGE  TO  DATAI  RHj 

DO  A  DATAI  RHJ 

SAVE  RESULTS  ON  THE  STACK 

RESTORE  PION  BIT 


r- 


DDRPl  - 
DDRPIA 

19651 

19652 

19653 

19654 

19655 

19656 

19657 

19658 

19659 

19660 

19661 

19662 

19663 

1966A 

19665 

19666 

19667 

19668 

19669 

19670 

19671 

19672 

19673 

19674 

19675 

19676 

19677 

19678 

19679 

19680 

19681 

19682 

19683 

19684 

19685 

19686 

19687 

19688 

19689 

19690 

19691 

19692 

19693 
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;CONDITIONAL  RH10/RH20  CODE  TO  TEST  FOR  AN  RAE 


SEO  0608 


063316 
063317 
063320 
063321 
063322 
063323 
063324 

063325 
063326 
063327 
063330 
063331 
063332 
063333 
063334 
063335 
063336 
063337 
063340 
063341 


336  00 
254  00 
643  01 
350  00 
603  01 
254  00 
254  00 


607 
350 
603 
254 
350 
262 
250 
262 
262 
262 
262 
262 
263 


01 
00 
01 
00 
00 
17 
01 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  077722 
00  06^^325 
00  000200 
17  777772 

00  001200 
00  063342 
00  063331 


00 
17 
00 
00 
17 
00 
17 
00 
00 
00 
00 
00 
00 


002000 
777772 
003600 
063342 
777772 
000001 
77777t 
000002 
000000 
000001 
00001 2 
000013 
000000 


063342  200  01  0  17  777775 

063343  603  01  0  00  000020 

063344  254  00  0  00  0633S7 


063345  336  00  0  00  077722 

063346  254  00  0  00  063^53 

063347  260  17  0  00  063540 

063350  405  01  0  00  004447 

063351  260  17  0  00  063522 

063352  254  00  0  00  063357 

063353  200  00  0  00  076636 

063354  200  01  0  00  076635 

063355  434  01  0  00  000012 
063556  256  00  0  00  000001 


RDRGON:  SKIPN 
JRST 
TLCE 
AOS 
TLNE 
JRST 
JRST 


RDRG1 : 


RDRGC: 


TLNN 

AOS 

TLNE 

JRST 

AOS 

GET 

EXCH 

GET 

GET 

GET 

GET 

GET 

RTN 


RH20 

RDRG1 

1,(1810) 

-6(P) 

1,(18811810) 

RDRGB 

RDRGC-1 

1,(187) 

-6(P) 

1,(1B7!1B8I1B911B10) 

RDRGB 

-6(P) 

1 

1,-2'P) 


MBCN 
DRIVE 


COMPLEMENT  AND  TEST  THE  TRA  BIT 
BUMP  RTN  IF  TRA  DID  NOT  FAIL 
RAE=PE*(TRA  FAILURE) 
GOT  AN  RAE 


CBTO  ? 

NO.  BUMP  THE  RETURN 

RAE=*C8PE♦DLT'^ILC 

NO  RAE.  BUMP  THE  RETURN 

RESTORE  THE  AC 

SOME  STACK  ADJUSTMENT 


;AND  TAKE  THE  PROPER  RETURN 
;HERE  BECAUSE  WE  HAD  AN  RAE  DURING  A  REGISTER  READ  OPERATION 
RDRGB: 


MOVE 
TLNE 
JRST 


1,-3(P) 

1,(1B13) 

RDRGB1 


FETCH  ORIGINAL  AC1 

WANT  TO  CLEAR  THE  RAE  ?? 

NO.  GO  REPORT 


;RH20/RH10  CONDITIONAL  CODE  FOR  CLEARING  RAE'S 


RDR62: 


SKIPN 

JRST 

GO 

AND  I 

GO 

JRST 

MOVE 
MOVE 
I  OR 
XCT 


RH20 

RDRG2 

.CONI  ;GET  CURRENT  CONTROLLER  STATUS 

1,182411627 1 1B30!7B35  ;RAECLRIMBE1ATTNENIPICHAN 

.CONO  .-CLEAR  AND  RESTORE 

RDRG61 


C54B511B61377] 
1,CDATA0  0,0] 
1,MBCN 
I 


READY  TO  CLEAR  ALL  RAE'S 
GET  A  BASIC  DATAO 
INCLUDE  THE  DEVICE  CODE 
WHICH  CLEARS  THE  RAE  REGISTER 


DDRPI  - 
DDRPIA 

1969A 
19695 
19696 
19697 
19698 
19699 
19700 
19701 
19702 
19703 
1970A 
19705 
19706 
19707 
19708 
19709 
19710 
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SEQ  0609 


;SEE  IF  UE  WANT  TO  REPORT  RAE  ERRORS 


063357 
063360 
063361 
063362 

063363 
06336A 
063365 
063366 
063367 
063370 
063371 
063372 
063373 
06337A 


200  01  0  17  77177'^ 
603  01  0  00  000010 
254  00  0  00  063332 
350  00  0  10  000025 


030 
200 
037 
260 
030 
135 
2t*2 
260 
260 
25A 


00 
00 
13 
17 
00 
00 
00 
17 
17 
00 


00 
17 
00 
00 
00 
00 
00 
00 
00 
00 


076665 
000000 
000000 
066156 
076677 
076650 
000002 
066174 
066156 
063332 


RDRGB1:  MOVE 
TLNE 
JRST 
AOS 
TEXT 


U-3(P) 

1,(1814) 

RDRGC 

.RAE(CSBP) 

CASCIZ/ 


RAE  yniLE  READING  A  DEVICE  REGISTER  - 


NOVE 

PNTHU 

GO 

TEXT 

LDB 

LSH 

GO 

GO 

JRST 


(P) 

.CRLF 

CASCIZ/RH  DEVICE  CODE 


[POIN^ 

2 

POCT 

.CRLF 

RDRGC 


7,HBCN.9] 


;FETCH  ORIGINAL  ACI 

;WANT  TO  REPORT  ?? 

*N0 

•COUNT  THE  RAE  DETECTED 

-  DATAI:  /3 

;GET  THE  DATAI  WORD 


WAS  /] 

;GET  THE  DEVICE  CODE 
.•JUSTIFY  FOR  PRINTING 
; PRINT  IT 
;A  CRLF 
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SEQ  0610 


19711 
19712 
19713 
19714 
19715 
19716 
19717 

19718 

19719 

19720 

19721 

19722 

19723 

19724 

19725 

19726 

19727 

19728 

19729 

19730 

19731 

19732 

19733 

19734 

19735 

19736 

19737 

19738 

19739 

19740 

19741 

197A2 

19743 

19744 

19745 

197A6 

19747 

19748 

19749 

19750 

19751 

19752 

19753 

19754 

19755 

19756 

19757 

19758 

19759 

19760 


063375 
06337o 
063377 
063400 
063401 
063402 
063403 
063404 
063405 
063406 
063407 
063410 
0634  r 

063412 
063413 
063414 
063415 
063416 
063417 
063420 


261  17 
4i-  01 
671  01 
621  01 
254  00 
261  17 
434  01 
254  00 
261  17 
434  01 
254  00 
261  17 
434  01 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


261 
200 
434 
256 
262 
262 
263 


17 
00 
00 
00 
17 
17 
17 


00 
00 
00 
0  00 
0  00 
00 
00 


000001 
076703 
000013 
000070 
063412 
000001 
076704 
063412 
00000 1 
076705 
063412 
000001 
076706 

000000 
074256 
000012 
000000 
000000 
000001 
000000 


XLIST 
LIST 

•4f* *♦♦*»»♦♦*•♦♦♦»•«»»•♦♦♦♦♦♦*•♦»♦»♦**♦• *♦♦♦♦♦*•♦♦♦♦**♦**♦*♦♦*♦♦*♦♦♦•*** 

!•♦  ROUTINES  FOR  yRITING  RHIO  INTERNAL  REGISTERS 
•#♦♦»♦♦♦*♦•»♦♦♦♦♦»*»»♦♦♦♦♦♦♦♦•♦♦♦•♦♦♦*♦♦•♦*♦*♦♦*♦*♦*♦*♦**♦***♦**♦♦♦♦♦♦♦ 


COMMENT  $ 


THERE  ARE  4  INTERNAL  REGS  THAT  CAN  BE  URITTEN  INTO  WITH  A 
CALL  TO  THE  PROPER  SUBROUTINE. 


ENTRY  POINTS  ARE: 

LDCR 

LDIAR 

LDDBUF 

LDRAE 


LDCR: 


LDIAR: 
LDDBUF 
LDRAE : 
LDIRC: 


;LOAD  THR  CONTROL  REG 

;LOAD  THE  INTERRUPT  ADDRESS  REG 

;LOAD  THE  DATA  BUFFER  REGISTER 

;LOAD  THE  RAE  REG 


ARGUMENTS  ARE  PASSED  IN  AC1.  BITS  ARE  DEFINED  EXACTLY 

AS  IN  THE  RHIO  SPEC.  THE  ROUTINES  RETURN  TO  CALL^I  ALWAYS. 


EG. 


I 

XLIST 


PUT 

I  OR 

TSO 

TLZ 

JRST 

PUT 

I  OR 

JRST 

PUT 

I  OR 

JRST 

PUT 

I  OR 

PUT 

MOVE 

I  OR 

XCT 

GET 

GET 

RTN 


MOVE 

GO 

RETURN 


AC1,ARG 
LDRAE 


;GET  THE  DATA 

;UANT  TO  LOAD  THE  RAE  REG 

.•RETURNS  HERE 


1 

1.C40B5I1B6] 

1, DRIVE 

1.(7B14) 

LDIRC 

1 

1.C44B5I1B6] 

LDIRC 

1 

1.C50B5I1B6] 

LDIRC 

1 

1,C54B5!1B6] 


0,CDATAC  0,13 

0,MBCN 

0 

0 

1 


;SAVE  THE  AC 

.•INCLUDE  REG#  AND  LOAD  REG  BIT 

.•INCLUDE  THE  DRIVE  NUMBER 

; CLEAR  THE  JUNK  BITS 

;T0  COMMON  CODE 


;SAVE  THE  AC 
;BUILD  THE  DATAO 
.•INCLUDE  THE  DEVICE  CODE 
.-DOES  A  DATAO  RH,1 


.-AND  EXIT 


--'? 


I 


.J 
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SEQ  0611 


19761 

19762 

19763 

1976A 

19765 

19766 

19767 

19768 

19769 

19770 

19771 

19772 

19773 

1977A 

19775 

19776 

19777 

19778 

19779 

19780 

19781 

19782 

19783 

1978A 

19785 

19786 

19787 

19788 

19789 

19790 

19791 

19792 

19793 

19794 

19795 

19796 

19797 

19798 

19799 

19800 

19801 

19802 

19803 

19804 

19805 

19806 

19807 

19808 

19809 

19810 

19811 

19812 

1. 


063421 
063422 
063423 
063424 
063425 
063426 
063427 
063430 
063431 
063432 
06343? 
063h34 
063435 

063436 
063437 
063440 
063441 
063442 
063443 
063444 
065445 
063446 


261  17 
200  00 
434  00 
254  00 
205  01 
254  00 
205  01 
254  00 
205  01 
254  00 
205  01 
254  00 
205  01 


261 
200 
434 
256 
621 
424 

256 
262 
263 


17 

00 
CO 
00 
00 
00 
00 

]7 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 

0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
076707 
000012 
063444 
540000 
063436 
440000 
063436 
500000 
063436 
400000 
063436 
740000 

000000 
074256 
00001 ? 
000000 
000(00 
000000 
000000 
000000 
000000 


XLIST 
LIST 

;•*  ROUTINES  FOR  READING  RHIO  INTERNAL  REGISTERS 


COMMENT  $ 


THERE  ARE  6  INTERNAL  RHIO  REGISTERS  THAT  CAN  BE  READ 

INTO  AC1  WITH  A  CALL  TH  THE  PROPER  SUBROUTINE.  THE  ROUHNES 

RETURN  TO  CALL^I  ALWAYS. 

THE  ENTRY  POINTS  ARE: 
RDDIB 


RDRAE 

RDIAR 

RDDBUF 

RDCR 

RDCBUF 

NOTE:  - 


RDDIB: 

RDRAE : 
RDIAR: 
RDDBUF : 
RDCR: 
RDCBUF : 


EG. 

$ 

XLIST 


PUT 

MOVE 

I  OR 

JRST 

MOVSI 

JRST 

MOVSI 

JRST 

M0V5  T 

JRST 

MOVSI 

JRST 

MOVSI 


RDIRC1:  PUT 
MOVE 
lOR 
XCT 
TLZ 
SETA 

RDIRC2:  XCT 
GET 
RTN 


;READ  THE  DIB  REGISTER 
;READ  THE  RAE  REGISTER 
;READ  THE  INTERRUPT  REGISTER 
.-READ  THE  DATA  BUFFER  REGISTER 
;READ  THE  TRANSFER  REGISTER 
;READ  THE  CHANNEL  BUFFER  REGISTER 
-  THE  CHANNEL  BUFFER  REG  IS  36  DATA  BITS  WIDE 
UNLIKE  THE  OTHER  REGISTERS  IN  THE  RHIO.  BECAUSE 
OF  THIS  PROPERTY,  THE  REGISTER  NUMBER  IS  NOT 
RETURNED  AS  PART  OF  THE  DATA. 


GO 
RETURN 


RDIAR 


.•READ  THE  CURRENT  INTERRUPT  ADR 
;RETURN  HERE 


0,CDATAI   OJ] 

0,MBCN 

RDIRC2 

1.(54B5) 

RDIRC1 

1,(44B5) 

RDIRC1 

1,(50B5) 

RDIRC1 

1.(40B5) 

RDIRil 

1,(74B5) 


O.CDATAO  0,1] 

0,M6CN 

0 

0,(1811) 


.-SAVE  0 
;A  BASIC  DATAI 
.•INCLUDE  DEVICE  CODE 
;T0  COMMON  CODE 


0 
0 


.•SAVE  0 

.-BUILD  THE  DATAO 

.•INCLUDE  THE  DEVICE  CODE 

;nO  A  DATAO  RH,1 

; CHANGE  DATAO  TO  DATAI 

;l/0  BUSS  DELAY 

;DOES  A  DATM  RH,1 

;AND  RETURN 


DDRPI  - 
DDRPIA 

19815 

19816 

19817 

19818 

19819 

19820 

19821 

19822 

19823 

19824 

19825 

19826 

19827 

19828 

19829 

19830 

19831 

19832 

19833 

19834 

19835 

19836 

19837 

19858 

19839 

19840 

19841 

19842 

19843 

19844 

19845 

19846 

19847 

19848 

19849 

19850 

19851 

19852 

19853 

19854 

19855 

19856 

19857 

19858 

19859 

19860 

19861 

19862 

19863 

19864 

19865 

19866 

19867 
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063447 
063450 
063451 
063452 
063453 
063454 
063455 
063456 
063457 
063460 
063461 
063462 
063463 
06346^. 

063465 
063466 
063467 
063470 
063471 
063472 
063473 
063474 
063475 
063476 
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XLIST 
LIST 

•/^♦•* ••**•*♦*•••••**•••*••*••***•******••♦***•*•***************** ****** 
;*  ROUTINES  FOR  WRITING  RH20  INTERNAL  REGISTERS 

;/^*** ••♦••*•••*•***••*•********************************** ************** 


SEQ  0612 


261  17 
434  01 
23"  00 
261  17 
43'^  01 
254  00 
261  17 
434  01 
254  00 
261  17 
434  01 
254  00 
261  17 
434  01 


0  00 
0  00 
0  00 
0  00 
0  00 


0 
0 


00 
00 


0  00 


0 
0 
0 


00 
00 
00 


0  00 


261 
607 
671 
621 
200 
270 
256 
262 
262 
263 


17 
01 
01 
01 
00 
00 
00 
17 
17 
17 


0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 


000001 
076710 
063465 
000001 
076711 
063465 
000001 
076712 
063465 
000001 
076713 
063465 
000001 
076714 


00  000000 
00  060000 
00  000013 
00  000070 
00  0?4256 
00  000012 
00  000000 
00  000000 
00  000001 
00  000000 


COMMENT  $ 


LDSBAR: 

LDSTCR: 

LDIVRG: 

LDDCR: 

LDWTRG: 

LIRC: 


THERE  ARE  5  INTERNAL  REGISTERS  IN  THE  RH20  THAT  ARE 
WRITEABLE  WITH  A  CALL  TO  THE  PROPER  SUBROUTINE. 


THE  ENTRY  POINTS 

LDSBAR 

LDSTCR 

LDIVRG 

LDDCR 

LDWTRG 


ARE: 


;LOAD  THE  SECONDARY  BLOCK  ADDR  REGISTER 

;LOAD  THE  SECONDARY  TRANSFER  CONTROL  REGISTER 

;LOAD  THE  INTERRUPT  VECTOR  REGISTER 

;LOAD  THE  DIAGNOSTIC  CONTROL  REGISTER 

;LOAD  THE  WRITE  REGISTER 


ARGUMENTS  ARE  PASSED  IN  ACl  AND  THE  BITS  ARE  DEFINED  EXACTLY 
AS  SEEN  IN  THE  RH20  SPEC. THE  ROUTINES  RETURN  TO  CALL+1  ALWAYS. 


EG. 


$ 

XLIST 

PUT 

I  OR 

JRST 

PUT 

I  OR 

JRST 

PUT 

I  OR 

JRST 

PUT 

I  OR 

JRST 

PUT 

I  OR 

PUT 

TLNN 

TSO 

TLZ 

MOVE 

ADD 

XCT 

GET 

GET 

RTN 


MOVE 

GO 

RETURN 


1 

1,C70B5 

LIRC 

1 

1,L71B5 

LIRC 

1 

1,C74B5 

LIRC 

l,r^'^B5 
LIRi. 
1 
UC76B5 


AC1,ARG 
LDIVRG 


;SOME  ARGUMENT 
;LOAD  THE  INTERRUPT 
.-RETURN  HERE 


VECTOR  REG 


1B6] 
186] 
1B63 
186] 
1B6] 


•SAVE  ACl 

; INCLUDE  REG#  AND  LOAD  REG  BIT 

;T0  COMMON  CODE 


1.(1B3!1B4) 

1, DRIVE 

l.(7B14) 

0,CDATAO  OJ] 

O.MBCN 

0 

0 

1 


•SAVE  AC 

•SEE  IF  SBAR  OR  STCR 

;YES.  INCLUDE  THE  DRIVE  NUMBER 

.•CLEAR  SOME  JUNK  BITS 

;N0.  BUILD  APPROPRIATE  DATAQ 

.•INCLUDE  THE  DEVICE  CODE 

;DOES  A  DATAO  RH.1 


.•RETURN 
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SEQ  0613 


19868 

19869 

19870 

19871 

19872 

19873 

19874 

19875 

19876 

19877 

19878 

19879 

19880 

19881 

19882 

19883 

1988A 

19885 

19886 

19887 

19883 

19889 

19890 

19891 

19892 

19893 

1989A 

19895 

19896 

19897 

19898 

19899 

19900 

19901 

19902 

19903 

1990A 

19905 

19906 

19907 

19908 

19909 

19910 

19911 

19912 

19913 

19914 

19915 

19916 

19917 

19918 


063477 
063500 
063501 
063502 
063503 
063504 
063505 
063506 
063507 
063510 
063511 

063512 
063513 
063514 
063515 
063516 
063517 
063520 
063521 


205  01 
254  00 
205  01 
254  00 
205  01 
254  00 
205  01 
254  00 
205  01 
254  00 
205  01 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


700000 
063512 
710000 
063512 
720000 
063512 
730000 
063512 
740000 
063512 
750000 


261  17  0 
200  00  0 


434  00 
256  00 
621  00 
256  00 

262  17 

263  17 


0 
0 
0 
0 
0 
0 


00  000000 
00  074256 
00  00(012 
00  OOf'OCO 
00  00J100 
00  000000 
00  000000 
00  000000 


XLIST 
LIST 

!•*  ROUTINES  FOR  READING  THE  RH20  INTERNAL  REGISTERS 


COMMENT  $ 


THERE  ARE  6  INTERNAL  REGISTERS  WITHIN  THE  RH20  THAT  CAN  BE 
READ  BY  MEANS  OF  A  CALL  TO  THE  PROPER  SUBROUTINE. 
THE  REGISTERS  ARE  READ  INTO  AC1  ANDTHE  ROUTINES  RETURN  TO 
CALL^-1  ALWAYS. 


THE  ENTRY  POINTS  ARE: 

RDSBAR 

RDSTCR 

RDPBAR 

RDPTCR 

RDIVR6 

RDRDRG 


;READ  THE  SECONDARY  BLOCK  ADDR  REG 

;READ  THE  SECONDARY  XFER  CTRL  REG 

;READ  THE  PRIMARY  BLOCK  ADDR  REG 

;READ  THE  PRIMARY  XFER  CTRL  REG 

;READ  THE  INTERRUPT  VECTOR  REG 

;READ  THE  READ  REGISTER 


THE  BITS  ARE  DEFINED  EXACTLY  AS  IN  THE  RH20  SPEC 
EG. 


RDSBAR: 
RDSTCR: 
RDPBAR: 
RDPTCR: 
RDIVRG: 
RDRDRG: 
RIRC: 


XLIST 


MOVSI 

JRST 

MOVSI 

JRST 

MOVSI 

JRST 

MOVSI 

JRST 

MOVSI 

JRST 

MOVSI 

PUT 

MOVE 

I  OR 

XCT 

TLZ 

XCT 

GET 

RTN 


GO     RDIVRG 
RETURN 


;READ  CURRENT  INTERRUPT  ADDRESS 
.•ADDRESS  IS  IN  ACI 


1,(70B5) 

RIRC 

1,(71B5) 

RIRC 

U(72B5) 

RIRC 

1,(73B5) 

RIRC 

1.(74B5) 

RIRC 

1,(75B5) 


CCDATAO  OJ] 
0,MBCN 

0,(1811) 

0 

0 


.•FETCH  THE  REGISTER  NUMBER 


;SAVE  ACO 

;GET  A  BASIC  DATAO 
.•INCLUDE  THE  DEVICE 
.•DOES  A  DATAO  RHJ 
.•CHANGE  TO  A  DATAI 
;DOES  A  DATAI  RH.1 
.•RESTORE  THE  AC 
;AND  cXIT  , 


CODE 


lHMi.llllW»»i  ■% 
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SEQ  0614 


19919 

19920 

19921 

19922 

19923 

1992A 

19925 

19926 

19927 

19928 

19929 

19930 

19931 

19932 

19933 

19934 

19935 

19936 

19937 

19938 

19939 

19940 

19941 

19942 

19943 

19944 

19945 

19946 

19947 

19948 

19949 

19950 

19951 

19952 

19953 

19954 

19955 

19956 

19957 

19958 

19959 

19960 

19961 

19962 

19963 

19964 

19965 

19966 

19967 

19968 

19969 

19970 

19971 

19972 

19973 


063522 
063523 
063524 
063525 
063526 
063527 
063530 
063531 
063532 
063533 
063534 
063535 
063536 
063537 

06.^540 
063541 


XLIST 
LIST 

)*  CONTROLLER  CONO,CONI,CONSO,CONSZ  (I/O)  ROUTINES 

•/^******************************************** ************************* 

COMMENT  $ 

SPECIFICATIONS* 

THESE  ROUTINES'aRE  USED  TO  PERFORM  THE  VARIOUS  CONDITIONS  OPERATIONS 

TO  MASSBUS  CONTROLLERS.  AC1  IS  USED  FOR  ARGUMENT  PASSING. 

.CONI   IS  THE  ONLY  ROUTINE  OF  THE  4  THAT  WILL  ALTER  ACl. 

THE  CONO  ROUTINE  IS  DESIGNED  TO  ALLOW  THE  USER  TO  ATTEMPT  TO 

SET  BITS  IN  THE  SAME  CALL  AS  DOING  AN  RHCLR.  THIS  ROUTINE  WILL 

EXECUTE  THAT  TYPE  OF  OPERATION  CORRECTLY. 


EG. 


0 
0 
0 
0 
0 
0 


261  17 
434  01 

'4  01 

J6  01 
^54  00 

261  17 
510  01  0 
660  01  0 
256  00  0 

262  17  0 
620  01  0 
256  00  0 

262  17  0 

263  17  0 


00  000001 
00  076715 
00  000012 
00  002000 
00  063535 
00  000001 
00  000001 
00  002000 
00  000001 
00  000001 
00  002000 
00  000001 
00  000001 
00  000000 


200  01  0  00  076716 
434  01  0  00  000012 


$ 
XLIST 


.CONO:  PUT 
lOR 
I  OR 
TRNN 
JRST 
PUT 
HLLZ 
TRO 
XCT 
GET 
TRZ 

CNOCMN:  XCT 
GET 
RTN 

.CONI:  MOVE 
I  OR 


MOVE 

GO 

RETURN 

GO 
RETURN 


AC1,F00 
.CONO 


:ni 


MOVE    ACIJOO 
GO      .CONSZ 
RETURN-1 
RETURN-2 

MOVE         AC1,F00 
GO  .CONSO 

RETURN-1 
RETURN-2 


t 

UCCONO] 

l.MBCN 

1JB25 

CNOCMN 


,1825 


,1825 


1,[C0NI  OJ] 
1 ,M8CN 


;SOME  CONTRITIONS  FOR  A  CONO 

'THE  CALL 

•CONO  HAS  BEEN  COMPLETED 

;WANT  TO  DO  A  CONI 
;CONI  DATA  IS  IN  ACl 

;A  MASK  FOR  A  CONSZ 

;THE  CALL  (NO  STAFUS  IS  RETURNED) 

;NOT  ALL  BITS  ZERO 

;ALL  BITS  ARE  ZERO 

;A  MASK  FOR  A  CONSO 

;TKE  CALL  (NO  CONDITIONS  ARE  RETURNED) 

;N0  BITS  ARE  ONE 

;AT  LEAST  ONE  BIT  IS  A  ONE 


•SAVE  ACl 

•INCLUDE  THE  OPCODE 

.•INCLUDE  THE  DEVICE  CODE 

;IS  RHCLR  DESIRED  ? 

;N0 

;YES.  SAVE  THE  INSTRUCTION 

;CLEAR  ALL  RIGHT  SIDE  BITS 

;S£T  THE  RHCLR  BIT 

.•EXECUTE  THE  CONO 

;NOW  RESET  THE  RHCLR  BIT 
;D0  THE  CONO 
.•RESTORE  THE  AC 
.-AND  RETURN 

.-GET  THE  OPCODE 
.•INCLUDE  THE  DEVICE  CODE 
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1997A  0635A2  256  00  0  00  000001           XCT    1  '52JSctmd2 

19975  0635A3  263  17  0  00  000000           RTN  ;AND  RETURN 


DDRPl  - 
DDRPIA 

19976 
19977 
19978 
19979 
19980 
19981 
19982 
19983 
19984 
19985 
19986 
19987 
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SEQ  0616 


06354A  261  17  0  00  000001 
0635A5  43A  01  0  00  076717 
0635A6  254  00  0  00  063551 


063547 
063550 
063551 
063552 
063553 
063554 
063555 
063556 


261  17 
434  01 
434  01 
256  00 
334  00 
350  00 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
17 
00 


0  00 


000001 
067656 
000012 
000001 
000000 

mill 

000001 
000000 


CONSZ:  PUT 
lOR 
JRST 

CONSO:  PUT 
I  OR 
I  OR 
XCT 
SKI  PA 
AOS 
GET 
RTN 


1 

1, [CONSZ] 

.C0NS0i2 

1 

1, [CONSO] 

UMBCN 

-1  (P) 
1 


SAVE  THE  AC 
INCLUDE  THE  OPCODE 
TO  SOME  COMMON  CODE 

SAVE  THE  AC 

INCLUDE  THE  OPCODE 

INCLUDE  DEVICE  CODE 

DO  THE  i/0 

RTN-1.  CONDITIONS  NOT  SATISFIED 

RTN-2.  CONDITIONS  SATISFIED 

RESTORE  THE  AC 

TAKE  THE  PROPPER  RETURN 
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19988 

19989 

19990 

19991 

19992 

19993 

19994 

19995 

19996 

19997 

19998 

19999 

20000 

20001 

20002 

20003 

20004 

20005 

20006 

20007 

20008 

20009 

20010 

20011 

20012 

20013 

20014 

2001 5 

20016 

20017 

20018 

20019 

20020 

20021 

20022 

20023 

20024 

20025 

20026 

20027 

20028 

20029 

20030 

20031 

20032 

20033 

20034 

20035 

20036 

20037 

20038 

20039 

20040 

20041 

20042 
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SUBTTL  DATA  CHANNEL  SUBROUTINES 

XLIST 
LIST 

/If********************************************************************* 

♦  ROUTINES  TO  INTERFACE  WITH  A  CHANNEL 
/If********************************************************************* 


SEQ  0617 


COMMENT  $ 


THERE  ARE  4  ROUTINES  AVAILABLE  FOR  INTERFACING  WITH 
A  DATA  CHANNEL  WHOSE  CHARACTERISTIC  DIFFERENCES 
BECOME  TRANSPARENT  TO  THE  USER. 


NAME 

CHINIT 

GENCCW 

LOGPNT 

CCWPNT 

$ 

XLIST 


FUNCTION 

INITIALIZE.  RE-SYNC  HARDWARE  AND  SOFTWARE 
GENERATE  A  LIST  OF  CCWS  IN  CORE 
PRINT  CHA.NNEL  LOGOUT  DATA 
PRINT  A  CCW  LIST  FROM  MEMORY 


XLIST 
LIST 

/If********************************************************************* 

*  NOTES  ON  INITIAL  CONTROL  WORD  ADDR. 
/If********************************************************************* 


COMMENT  $ 


WITH  EACH  CONTROLLf: 
THE  CHANNEL  ROUTINE 
INITIAL  COr'^OL  ••r. 


IS  AN  ASSOCIATED  CHANNEL  ft. 

DEFAULT  TO  THE  FOLLOWING 

ADDRESSES  FOR  EACH  OF  THE  CHANNELS. 


TYPE 

rhTo 

RHIO 
RHIO 
RH10 
RHIO 
RHIO 

RH20 
RH20 
RH20 
RH20 
RH20 
RH20 
RH20 
RH20 


DEV.  tOi;E 

270  RMO 
274  RMl 
360  RM2 
364  RM3 
370  RM4 
374  RM5 

540  RHO 
544  RH1 
550  R;i2 
554  RH3 
560  RH4 
564  RH5 
570  RH6 
574  RH7 


CHAN  # 


ICW-ADR 

700"""" 

704 

710 

714 

720 

724 

EPT+00 
EPT+04 
EPT-^10 
EPT+14 
EPT+20 
EPT^24 
EPT+30 
EPT^-34 


'1 
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200^^  J.  ,cT 

20044  XLiST 

20045 


— ^ 
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200A6 

200A7 

200A8 

20049 

20050 

20051 

20052 

20053 

2005A 

20055 

20056 

20057 

20058 

20059 

20060 

20061 

20062 

20063 

20064 

20065 

20066 

20067 

20068 

20069 

20070 

20071 

20072 
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XLIST 
LIST 

♦  CHANNEL  INITIALIZATION  ROUTINE 


SEQ  0619 


COMMENT  $ 


THIS  ROUTINE 'synchronizes  THE  SOFTWARE  AND  HARDWARE  CHAN  LOGIC 


EG. 


MOVE 

GO 

RETURN 


1,ARG1 
CHINIT 


;SETUP  AC1 

;CALL  THE  ROUTINE 


AC1  • 

SPECIFY  (ACDR  START  ADDR  OF  CHANNEL  COMMAND  BUFFER 
SPECIFY  (ACDL  SIZE  OF  THE  CHANNEL  COMMAND  BUFFER 
NOTE  -  -  FOR  FIGURING  OUT  THE  SIZE  OF  THE  COMMAND  WORD 

BUFFER  IT  SHOULD  BE  NOTED  THAT  THE  GENCCW  ROUTINE 
WILL  TRANSFER  A  MAXIMUM  OF  8192.  WORDS  PER  CCW 
USING  AN  RH10  WHILE  WE  CAN  TRANSFER  ONLY  1920 
WORDS  PER  CCW  USING  AN  RH20. 
$ 
XLIST 


DDRPl  - 
DDRPIA 

20073 

2007A 

20075 

20076 

20077 

20078 

20079 

20080 

20081 

20082 

20083 

2008A 

20085 

20086 

20087 

20088 

20089 

20090 

20091 

20092 

20093 

2009A 

20095 

20096 

20097 

20098 

20099 

20100 

20101 

20102 

20103 

20104 

20105 

20106 

20107 

20108 

20109 

20110 

20111 

20112 

20113 
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SEQ  0620 


1.  SETS  UP  THE  INTIIAL  CONTROL  WORD  WITH  THE  PROPER  JUMP 

2.  SETS  UP  VARIOUS  Si^FTWARE  PARAMS  FOR  CHANNEL  ROUTINES 


063557 
063560 
063561 
063562 
063563 
063564 
063565 
063566 
063567 
063570 
063571 
063572 
063573 
063574 
063575 
063576 

063577 
063600 
063601 
063602 
063603 
063604 
063605 
063606 
063607 
063610 
06361 1 
063612 
063613 
063614 
06361 5 
063616 
063617 


261  17 
261  17 
554  02 
275  02 
270  02 
504  01 

261  17 
260  17 
200  02 
476  00 
332  00 
402  00 
260  17 
603  01 
476  00 

262  17 

202  01 
552  01 
221  02 
270  02 
550  01 
434  01 
202  01 
402  00 
402  00 
336  00 
ly  00 
200  01 
270  01 
402  00 
402  00 
402  00 
402  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
02 
00 
00 
02 
00 

02 
02 
00 
00 
00 
00 
02 
02 
02 
00 
00 
00 
00 
01 
01 
01 
01 


000001 
000002 
000001 
000001 
000001 
000002 
000001 
063665 
000001 
100702 
077721 
100722 
063540 
004000 
100722 
000001 

100712 
100672 
000004 
100663 
000001 
100665 
000000 
000001 
000002 
^11122 
^tlh2^ 
100663 
100664 
000000 
000001 
000002 
000003 


CHINIT 


CHNIT1 


063620  262  17  0  00  000002 

063621  262  17  0  00  000001 

063622  263  17  0  00  000000 


PUT 

PUT 

HLRZ 

SU6I 

ADD 

HRL 

PUT 

60 

MOVE 

SETOM 

SKIPE 

SETZM 

GO 

TLNE 

SETOM 

GET 

MOVEM 

HRRZM 

IMULI 

ADD 

HRRZ 

I  OR 

MOVEM 

SETZM 

SETZM 

SKIPN 

JRST 

MOVE 

ADD 

SETZM 

SETZM 

SETZM 

SETZM 


CHNIT2:  GET 
GET 
RTN 


1 

2 

2J 

2,1 

2J 

AC1 

CHNSEL 

AC2,AC1 

CINIT(AC2) 

RH10 

DF22FG(2) 

.CONI 

1,(1B6) 

Dr22FG(2) 

1 

1,CADTBL(2) 
1,SCLP(2) 

2,CBASE 

UMPWD 

1,(2) 

1(2) 

2^2) 

RH20 

CHNIT2 

AC1,CBASE 

AC1.ZFILL 

(AC1) 

KACD 

2(AC1) 

3(AC1) 

2 

1 


;SAVE  AC1 
;SAVE  AC2 
;MAKE  AC2/ 


FINAL  ADR,, START  ADR 


ASSUME  18  BIT  DFIO 

DO  A  CONI  TO  SEE  IF  22   BIT  DFIO 

IS  IT  A  22   BIT  DFIO  ?? 

YES.  SET  THE  FLAG 

RESTORE  THE  AC 

SAVE  CHARACTERISTICS  OF  CCW  BUFFER 

SET  UP  SOFTWARE  CMD  LIST  POINTER 

CALCULATE  ICWA 

SOME  BASE  ADDR.  NOW  AC2=ICWA 

AC1=0,, BUFFER  ADDR 

MAKES  A  JUKP  CCW 
.MAKES  ICW  A  JUMP  TO  CCW  BUFFER 
; CLEAR  THE  LOGOUT  AREA 


;GET  THE  CHN  BASE  ADDR 

;6ET  THE  FILL  OFFSET  ADDRESS 

; CLEAR  THE  ZERO  FILL  AREA 


;AND  EXIT 


L_ 
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SEQ  0621 


201U 

20115 

20116 

20117 

20118 

20119 

20120 

20121 

20122 

20123 

201 2A 

20125 

20126 

20127 

20128 

20129 

20130 

20131 

20132 

20133 

201 3A 

20135 

20136 

20137 

20138 

20139 

20140 

20141 

20142 

20143 

20144 

20145 

20146 

20147 

20148 

20149 

20150 

20151 

20152 

20153 

20154 

20155 

20156 

20157 

20158 

20159 

20160 

20161 

20162 


063623 

06io24 

063625 

063626 

063627 

063630 

063631 

063632 

063633 

063634 

063635 

063636 

063637 

063640 

063641 

063642 

063643 

063644 

063645 

063646 

063647 

063650 

063651 

063652 

063653 

063654 

063655 

063656 

063657 

063660 

063661 

063662 

063663 

063664 


063o65 
063666 
063667 
063670 
063671 
063672 
063673 


261 

261 

261 

261 

261 

403 

201 

200 

336 

365 

336 

254 

200 

552 

221 

270 

553 

434 

202 

402 

402 

336 

254 

550 

200 

2u' 

260 

365 

262 

262 

262 

262 

262 

263 


17 

17 

17 

17 

17 

01 

03 

01 

00 

03 

00 

00 

02 

01 

02 

02 

00 

01 

01 

00 

00 

00 

00 

10 

12 

01 

17 

03 

17 

17 

17 

17 

17 

17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
03 
00 
00 
00 
00 
00 
02 
00 
00 
00 
00 
02 
02 
02 
00 
00 
03 
10 
00 
00 
00 
00 
00 


0  00 


135 
336 
263 
607 
275 
275 
263 


01 
00 
17 
12 
01 
01 
17 


0 
0 
0 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 


00 
00 
00 
00 
00 
00 
00 


076720 
077721 
000000 
010000 
000004 
000002 
000000 


./(f***«******t***********************  ************************************** 
i*SETCHN  —  ROUTINE  TO  RESET  THE  DATA  CHANNELS  TO  INITAL  CONDITIONS 

;#♦♦********************************************************************** 

;SAVE  SOME  AC'S 


SAVE  THE  CURRENT  MBC  # 

AND  ITS  POINTER 

CLEAR  SOME  POINTERS 

SET  COUNT  TO  MAX  /If  OF  MBC S 

GET  THE  CHANNEL  PARAMS 

IF  NO  PARAMS  THEN  CH  ISN'T  THERE 

SUBTRACT  1  AND  TRY  NEXT  LOWER  MBC  U 

CHECK  FOR  NO  CHANNEL  0 

NO  CHANNEL  0  SO  DON'T  RESET  IT 

COPY  THE  POINTER 

SAVE  THE  SOFTWARE  POINTER 

DETERMINE  THE  MBC  » 

GET  THE  MBC  BASE  ADDR 

SAVE  ONLY  THE  START  ADDR  FOR  CHANNEL 

GET  THE  JUMP  WORD  CHANNEL  CMD 

SAVE  THE  CMD  FOR  CHANNEL 

CLEAR  THE  LOGOUT  AREA 

MBC  =  RH20? 
NO 

LOAD  THE  MBC  NUMBER 

RESET  THE  COMMAND  LIST  POINTER 
LOOP  BACK  TO  NEXT  MBC 


000001 

SETCHN:  PUT 

ACl 

000002 

PUT 

AC2 

000003 

PUT 

AC3 

00001 2 

PUT 

M6CN 

000010 

PUT 

CSBP 

000002 

SETZB 

AC1,AC2 

000007 

MOVE  I 

AC3,7 

100712 

STCHN1:  MOVE 

AC1,CADTBL(AC3) 

000001 

SKIPN 

ACl 

063632 

SOJGE 

AC3,STCHN1 

000001 

SKIPN 

ACl 

063656 

JRST 

STCHN2 

000003 

MOVE 

AC2,AC3 

100672 

HRRZM 

AC1,SCLP(AC2) 

000004 

IMULI 

AC2.4 

100663 

ADD 

AC2,CBASE 

000001 

HRRZS 

ACl 

100665 

I  OR 

ACIJMPWD 

000000 

MOVEM 

AC1,(AC2) 

000001 

SET2M 

1(AC2) 

000002 

SETZM 

2(AC2) 

077722 

SKIPN 

RH20 

063656 

JRST 

STCHN2 

101047 

HRRZ 

CS8P,CSBTBL(AC3) 

000020 

MOVE 

MBCN,.MBCN(CSBP) 

000600 

MOVE  I 

AC1,RCLPA!MBE 

063522 

GO 

.CONO 

0631632 

STCHN2:  SOJGE 

AC3,STCHN1 

000010 

GET 

CSBP 

000012 

GET 

MBCN 

000003 

GET 

AC3 

000002 

GET 

AC2 

00000 1 

GET 

ACl 

000000 

RTN 

;HERE  TO  DETERMINE  THE  CHANNEL  »   (0  TO  7)  TO  BE  USED 


CHNSEL:  LDB  AC1-CP0INT  3, MBCN, 9] 

SKIPN  RH16  ;RH10  TYPE?? 

RTN 

TLNN  MBCN,(1B5) 

SUBI  ACl, 4 

SUBI  ACl, 2 

RTN 


NO  -  EXIT  NOW 

YES  -   'AT  GROUP?? 

LOWER 

UPPER 
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20163 

201 64 

20165 

20166 

20167 

20168 

20169 

20170 

20171 

20172 

20173 

201 74 

20175 

20176 

20177 

20178 

20179 

20180 

20181 

20182 

20183 

20184 

20185 

20186 

20187 

20188 

20189 

20190 

20191 

20192 

20193 

20194 

20195 

20196 

20197 

20198 

20199 

20200 

20201 

20202 

20203 

20204 

20205 

20206 

20207 
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DATA  CHANNEL  SUBROUTINES 

XLIST 
LIST 

./If******************************  **********************  ***************** 

)*  CHANNEL  COMMAND  WORD  GENERATOR 

./If********************************************************************* 


SEQ  0622 


COMMENT  $ 


SPECIFICATION: 

THIS  ROUTINE  TAKES  A  PDP-10  WORD  COUNT  AND  A  CORE 
ADDRESS  AND  TRANSLATES  IT  TO  A  LIST  OF  CCW'S  IN  A 
COMMAND  RING  BUFFER  DEFINED  AT  INIT  TIME.  IT  RETURNS 
THE  STARTING  ADDRESS  OF  THE  LIST  WITHIN  THE  RING, AND 
THE  #  OF  CCWS  FOR  THIS  TRANSFER. 


EG. 


MOVE 

MOVE 

MOVE 

GO 

RETURN 


AC3,ARG3 
AC2,ARG2 
ACl^ARGI 
GENCCW 


;A  ZERO  FILL  SPECIFIER 
;POS  OR  NEG  WORD  COUNT 
;AN  ADDR  UP  TO  22   BITS 
;BUILD  THE  COMMAND  LIST 
.•RETURNS  HERE 


AC1  • 

tCNTAINS  A  22   BIT  ADDRESS  SPECIFYING  WHERE  TRANSFER  IS  TO  START. 

AC2* 

POS'OR  NEG  WORD  COUNT  FOR  #  OF  WORDS  TO  GO  TO  OR  FROM  THE  DEVICE.  A  NEG  WORD 
COUNT  ON  THE  RH20  WILL  CAUSE  THE  ROUTINE  TO  ASSUME  THAT  READ  REVERSE  IS  DESIRED 
AND  THE  APPROPRIATE  COMMAND  LIST  WILL  BE  GENERATED.  FOR  RHIO'S  A  NEGATIVE  WORD 
COUNT  OR  POSITIVE  WORD  COUNT  ARE  HANDLED  THE  SAME. 

AC3' 

THIS  AC  IS  IGNORED  IF  AN  RHIO  IS  USED.   IF  RUNNING  AN  RH20.  A  POSITIVE, 
NON-ZERO,  WORD  COUNT  WILL  CAUSE  THE  ROUTINE  TO  ASSUME  THAT  ZERO  FILL  COMMAND 
WORDS  ARE  DEjIRED  IN  THE  LIST  AND  THE  APPROPRIATE  ZERO  FILL  WORD  WILL  BE 
GENERATED.  IT  FURTHERMORE  REQUIRES  THAT  THE  VALUE  IN  AC3  IS  EQUAL  TO  THE  NUMBQR 
OF  WORDS  IN  ONE  SECTOR  OF  THE  DISK. 

RETURN: 

ON  RETURN  ACI  WILL  CONTAIN  THE  FOLLOWING:- 

(ACDL  =  /If  OF  COMMAND  WORDS  GENERATED  BY  THE  ROUTINE 

(ACDR  =  POINTS  TO  THE  FIRST  WORD  IN  THE  LIST. 

$ 

XLIST 


DDRPl  - 
DDRPIA 

20208 

20209 

20210 

20211 

20212 

20213 

202  U 

20215 

20216 

20217 

20218 

20219 

20220 

20221 

20222 

20223 

2022A 

20225 

20226 

20227 

20228 

20229 


RH10/RH20  -  RPOA/05/06  • 
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DATA  CHANNEL  SUBROUTINES 

.-FUNCTIONS  OF  THE  AC'S  USED  IN  RH20  6ENCCW  ROUTINE 
;AC     FUNCTION 


SEQ   0623 


i? 


HOLDS  REMAINING  SIZE  IN  WORDS 

CCWS  ARE  MANUFACTURED  IN  THIS  AC 

HOLDS  THE  CURRENT  CORE  ADR  AT  ANY  TIME 

HOLDS  THE  LOGICAL  CHANNEL  NUMBER  (0-7) 

HOLDS  CURRENT  SOFTWARE  CLP 

HOLDS  LAST  AVAIL  BUFFER  ADDR 

HOLDS  START  ADR  OF  CCW  LlST,,/«f  OF  WDS  IN  LIST 

HOLDS  THE  READ  REVERSE  FLAG 


063674 

261  17  0  00 

063675 

261  17  0  00 

063676 

261  17  0  CO 

063677 

261  17  0  00 

063700 

261  17  0  00 

063701 

261  17  0  00 

063702 

261  17  0  00 

063703 

261  17  0  00 
336  00  0  00 

063704 

063705 

254  00  0  00 

000000 
000001 
000002 
000003 
000004 
000005 
000006 

m% 

064017 


GENCCU:  PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
PUT 
SKIPN 
JRST 


? 


;SAVE  AC'S 


i 

RH20 
GNCU1 


;60  TO  THE  RH10  ROUTINE 
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SEQ  0624 


20230 

20231 

20232 

20233 

2023A 

20235 

20236 

20237 

20238 

20239 

202A0 

202A1 

202A2 

202A3 

202AA 

202A5 

202A6 

202A7 

202A8 

202A9 

20250 

20251 

20252 

20253 

2025A 

20255 

20256 

20257 

20258 

20259 

20260 

20261 

20262 

20263 

2026A 


063706 
063707 
063710 
06371 1 
063712 
063713 
06371 A 
06371 5 
063716 
06371 7 


063720 
063721 
063722 
063723 


06372A 
063725 
063726 
063727 
063730 
06373-1 
063732 
063733 
06373A 
063735 
063736 
063737 
0637A0 


200  00  0 
200  02  0 

261  17  0 
260  17  0 
200  03  0 

262  17  0 
200  OA  0 
55A  05  0 
51A  06  0 
AOO  07  0 


17  mill 
17  111112 
00  000001 
00  063665 
00  000001 
00  000001 
03  100672 
03  100712 
00  OOOOOA 
00  000000 


325  00  0  00  06372A 
A76  00  0  00  000007 
213  00  0  00  000000 
25A  00  0  00  06372A 


317  00  0 
25A  00  0 
51A  01  0 
2A2  01  0 
270  01  0 
27A  00  0 
326  07  0 
270  02  0 


cy  00 
27A  02 
661  01 
260  17 
25A  00  0 


00  100666 
00  0637A1 
00  100666 
00  OOOOOA 
00  000002 
00  100666 
00  063735 
00  100666 
00  063737 
00  100666 
00  100000 
00  06A001 
00  06372A 


PRE-LOAD  AC'S  TO  PROPER  VALUES 

MOVE  0,-5(P) 

MOVE  2,-6(P) 

PUT  AC1 

60  CHNSEL 

MOVE  AC3,AC1 

GET  AC1 

MOVE  A,SCLP(AC3) 

HLR2  5,CADTBL(AC3) 

HRLZ  6, A 

SETZ  1. 


;6ETS  THE  SIZE 

;6ETS  THE  CORE  ADDRESS 

.•DETERMINE  WHAT  m^H 


GETS  SOFTWARE  CLP 
GETS  FINAL  BUFFER  ADDR 
START  OF  CCW  LIST,,*  OF  WORDS 
ASSUME  READ  FORWARD 


CHECK  SIGN  OF  SIZE  TO  SEE  IF  WE  WANT  READ  REVERSE 


JUMPGE 
SETOM 
MOVNS 
JRST 


0,GENL1 

0,0 
GENL1 


.-START  BUILDING  A  CHANNEL  COMMAND  LIST 


6ENL1 : 


CAMG 

JRST 

HRLZ 

LSH 

ADD 

SUB 

JUMPN 

ADD 

JRST 

SUB 

TLO 

GO 

JRST 


0,MAXWD 
GEN2 
1 ,MAXWD 
1,4 

O.MAXWD 
7,. +3 
2,MAXWD 

2,MAXWD 
1,(1B2) 
CCWST 
GENL1 


SIZE  IS  POSITIVE.  JUMP. 
SIZE  NE6.  SET  REVERSE  FLAG 
NOW  MAKE  SIZE  A  POSITIVE  VALUE 
AND  CONTINUE 


SIZE  .GT.  MAXWD 
NO 

YES.  GET  WORD  COUNT 
JUSTIFY  TO  BIT-li 
INCLUDE  THE  CORE  ADDRESS 
DECREASE  SIZE  BY  MAXWD 
JUMP  IF  REVERSE  FLAG  IS  SET 
ADJUST  THE  ADDRESS 

ADJUST  ADDR  FOR  REVERSE 
SET  REVERSE  BIT  IN  THE  CCW 
STORE  IN  THE  LIST 
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SEQ  0625 


20265 

20266 

20267 

20268 

20269 

20270 

20271 

20272 

20273 

2027A 

20275 

20276 

20277 

20278 

20279 

20280 

20281 

20282 

20283 

20284 

20285 

20286 

20287 

20288 

20289 

20290 

20291 

20292 

20293 

20294 

20295 

20296 

20297 

20298 

20299 

20300 

20301 

20302 

20303 

20304 

20305 


063741 
063742 
063743 
063744 
063745 
063746 
063747 
063750 
063751 
063752 
063753 
063754 


063755 
063756 
063757 
063760 
063761 
063762 

0637o3 
063764 
063765 


063766 
0637<S7 

0637  ) 
0637/ 1 
063772 
063773 
063774 
063775 
063776 
063777 
064000 


514  01 
242  01 
270  01 
332  00 
661 
261 


01 
17 


230  00  0 
336  00  0 
254  00  0 
250  01  0 
260  17 
262  17 


0  00  000000 
0  00  000004 
0  00  000002 
0  00  000007 
0  00  100000 
0  00  000001 
17  77777Z 
00  000001 
00  063763 
17  000000 
0  00  064001 
0  00  000001 


213  00  0  00  000001 
270  01  0  17  77777^ 
242  01  0  00  000026 
332  00  0  00  000007 
661  01  0  00  100000 
334  00  0  00  000000 

262  17  0  00  UOOOOI 
661  01  0  00  200000 
260  17  0  00  064001 


2u^  04  0  03  100672 
206  06  0  17  777772 
262  U  0  00  000007 
262  17  0  00  000006 
262  17  0  00  000005 
262  17  0  00  000004 
262  17  0  00  000003 
262  17  0  00  000002 
262  17  0  00  000001 

262  17  0  00  C^OOOO 

263  17  0  00  000000 


;HERb  BECAUSE  SIZE  IS  .LE.  MAXWD 


GEN2: 


HRLZ 

LSH 

ADD 

SKIPE 

TLO 

PUT 

IDIV 

SKIPN 

JRST 

EXCH 

GO 

GET 


y 

1,(1B2) 

AC1 

-5(P) 

AC1 

GbN3 

AC1,(P) 

CCWST 

AC1 


HERE  TO  BUILD  A  ZERO  FILL  WORD 


6EN3: 


MOVNS 

ADD 

LSH 

SKIPE 

TLO 

SKI  PA 

GET 
TLO 
GO 


AC1 

AC1,-4(P) 

AC1,*D22 

AC1,(1B2) 


ACI 

AC1,(1B1) 

CCWST 


TIME  TO  CLEAN  U^  AND  EXIT 


MOVEM 

MOVSM 

GET 

GET 

GET 

GET 

GET 

GET 

GET 

GET 

RTN 


4,SCLP(3) 
6,*6(P) 

6 
5 
4 
3 
2 
1 
0 


GET  REMAINING  SIZE 
POSITION  TO  BIT-13 
INCLUDE  THE  ADDRESS 
REVERSE  ?? 
YES.  SET  REVERSE  BIT 

DIVIDE  REMAINDER  SIZE  BY  BLOCK  SIZE 

NEED  A  ZERO-FILL  ?? 

NO 

YES  -  GET  THE  ORRIG  COUN^  REMAINING 

MAKE  A  CHN  WORD 

GET  THE  »   OF  WORDS  TO  ZERO-FILL 


.•ADJUST  SIZE 


REMAINDER  POSITIONED  TO  BIT-13 

REVERSE  ?? 

YES.  SET  THE  REVERSE  BIT 


;SET  THE  "LAST  WORD"  BIT 
;STORE  IN  THE  CCW  LIST 


SAVE  UPDATED  SOFTWARE  CLP. 
SO  WE  CAN  PASS  BACK  TO  USER 
RESTORE  AC'S 


;AND  EXIT 


;DRP1  -  RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  24 
0DRPI4  MAC     28-Aug-85  12:02        DATA  CHANNEL  SUBROUTINES 


SEQ  0626 


20306 

20307 

20308 

^0309 

^0310 

20311 

20312 

20313 

20314 

20315 

20316 

20317 

20318 

20319 

20320 

20321 

20322 

20323 

20324 

20325 

20326 

20327 

20328 

20329 

20331 

20331 

20332 

20333 

20334 

20335 

2033( 

20337 


064001 
064002 
064003 
064004 
064005 
0o4006 
064007 
06401 C 
064011 
064012 
064013 
064014 
064015 
064016 


261  17 
312  04 
254  00 
200  01 
540  01 
202  01 
350  00 
550  04 

262  17 
661  01 
202  01 
27"^  0^ 
2^'  06 

263  17 


0  00  000001 
0  00  000005 
0  00  064011 
0  00  100665 
0  03  100712 
0  04  000000 
0  00  000006 
0  00  000001 
0  00  000001 
0  00  400000 
0  04  OOCOOO 
0  00  000001 
0  00  000001 
0  00  000000 


XLIST 
LIST 

)♦  RH20  ecu  STORE  ROUTINE 


COMMENT  $ 


CCUST: 


CCWST1 


1.  PUTS  C(ACI)  IN  CCW  BUFFER 
'.  DOES  BUFFER  MA,\*GEMENT 
i.  COUNTS  EACH  CCW  ENTERED 

THE  CCW  IS  RETURNED  AN  AC1  AS  RECEIVED  EXCEPT  FOR 

THE  "OP-DATA"  BIT  (BIT-0)  WHICH  IS  SET 

$ 

XLIST 


PUT 

1 

CAME 

4,5 

JRST 

CCWST1 

HOVE 

1,JMPWD 

HRR 

1,CADTBL(3) 

MOVEM 

1,(4) 

AOS 

6 

HRRZ 

4,1 

GET 

1 

TLO 

1,(1B0) 

MOVEM 

1,(4) 

ADD! 

4,1 

ADD  I 

6,1 

RTfM 

•SAVE  ACI 

•ARE  WE  AT  LAST  BUFFER  LOCATION  ? 

;N0.  GO  STORE  THE  WORD 

;YES.  BUILD  A  JUMP  CCW 

.•INCLUDE  START  '«DR  OF  BUFFER 

;PUT  IN  THE  LAST  BUFFER  LOC 

.•COUNT  THE  ENTRY 

.•RESET  THE  CLP  TO  START  OF  BUFFER 

.•RECOVER  ORIGINAL  CCW 

;SET  OP-DATA  BIT 

;PUT  IN  THE  BUFFER 

.•UPDATE  COUNTER/POINTER 

;AND  EXIT 
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20338 . 

20339 

203A0 

203A1 

203A2 

203A3 

203A4 

203A5 

203A6 

203A7 

203A8 

203A9 

20350 

20351 

20352 

20353 

2035A 

20355 

20356 

20357 

20358 

20359 

20360 

20361 

20362 

20363 

20364 

20365  064033  221  06  0 

20366  064034  270  06  0 

20367  064035  514  06  0 

20368  064036  l(  *   06  0 

20369  064037  200  07  0 


SEQ  0627 


064017 
064020 
064021 
064022 
064023 
064024 
064025 
064026 
064027 
064030 
064031 
064032 
064033 
064034 
064035 
064036 
064037 


214  00  0 
200  02  0 

261  17  0 
260  17  0 
200  03  0 

262  17  0 


550  04 
554  05 
261  17 


0 
0 
0 
26C  17  0 
200  06  0 
262  17  0 
221  06 
270  06 
514  06 


;AC 

FUNCTION 

IN  KMIU  ULINI 

.tW  KUUIIWC 

•o" 

HOLDS 

REMAININ6  SIZE 

IN  WORDS 

;1 

CCWS 

ARE  MANUFACTURED  IN  THIS  ^ 

\z   ■;.:'.^  .-r 

;2 

HOLDS 

CURRENT  ADDRESS  AT  ANY  TIME 

;3 

HOLDS 

THE  L06ICAL  CHANNEL  NUMBER  (0-2) 

;4 

HOLDS 

UPDATED  CLP  AT 

ANY  TIME 

;5 

HOLDS 

LAST  AVAILABLE 

CCW  BUFFER 

ADDRESS 

i^ 

HOLDS 

START  ADDR  OF 

ecu  LIST,,# 

OF  WDS  IN  LIST 

HOLDS 

THE  22 -BIT  DF10  FLA6 

;  PRESET  THE  / 

\C  'S  TO  THEIR 

(APPROPRIATE 

VALUE 

17  777771 

GNCU1 : 

MOVM 

0,-5(P) 

.-GETS  THE  ABSOLUTE  SIZE 

17  777772 

HOVE 

2,-6(P) 

;6ETS  THE  CORE  ADDRESS 

00  000001 

PUT 

AC1 

00  063665 

60 

CHNSEL 

;GET  MBC#  • 

00  000001 

MOVE 

AC3,AC1 

00  000001 

GET 

ACl 

03  100712 

HRRZ 

4,CADTBL(3) 

;GET  THE  BUFFER  POINTER 

03  100712 

HLRZ 

5,CADTBL(3) 

;GET  CCW  BUFF  FINAL  ADDR 

00  000001 

PUT 

ACl 

00  063665 

60 

CHNSEL 

;GET  MBC  #  AGAIN 

00  000001 

MOVE 

AC6,AC1 

00  000001 

6ET 

ACl 

00  000004 

IMULI 

6,4 

;X4 

00  100663 

ADD 

6,C8aSE 

;GET  THE  BASE  ADDRESS 

00  000006 

HRLZ 

6,6 

;6/  CCW  START  ADDR,,0 

00  000001 

ADD  I 

6J 

;6/  CCW  START  ADDR, J 
.•GETS  THE  22-BIT  DFlO  FLAG 

03  100722 

MOVE 

7,DF22FG(3) 
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r 


SEQ  0628 


20370 

20371 

20372 

20373 

20374 

20375 

20376 

20377 

20378 

20379 

20380 

20381 

20382 

20383 

20384 

20385 

20386 

20387 

20388 

20389 

20390 

20391 

20392 

20393 

2039A 

20395 

20396 

20397 

20398 

20399 

20400 

20401 

20402 

20403 

20404 

20405 

20406 


064040 
064041 
064042 
064043 
064044 
064045 
064046 
064047 
064050 
064051 
064052 
064053 


064054 
064055 
064056 
064057 
064060 
064061 
064062 
064063 
064064 
064065 
064066 
064067 
064070 
064071 
064072 
064073 
064074 
064075 
064076 
064077 


317  00 
254  00 
210  01 
514  01 
332  00 
242  01 
270  01 
275  01 
270  02 
274  00 
260  17 
254  00 


210 
514 
332 
242 
270 
275 
260 
400 
260 
206 
202 
262 
26? 
2oi 
262 
262 
262 
262 
262 
263 


01 
01 
00 
01 
01 
01 
17 
01 
17 
06 
04 
17 
17 
17 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
GO 
00 
00 
00 
17 
03 
00 
00 
00 
00 
00 
00 
00 
00 
00 


100666 
064054 
100666 
000001 
000007 
000004 
000002 
000001 
100666 
100666 
064100 
064040 


000000 
000001 
000007 
000004 
000002 
000001 
064100 
000000 
064100 
111112 
100672 
000007 
000006 
000005 
000004 
000003 
000002 
000001 
000000 
000000 


;  START  BUILDING  THE  COMMAND  LIST 


GNL1: 


CGEN2: 


CAMG 

O.MAXWD 

JRST 

CGEN2 

MOVN 

1 ^MAXUD 

HRLZ 

IJ 

SKIPE 

7 

LSH 

1,4 

ADD 

1,2 

SUBI 

1J 

ADD 

2,MAXUD 

SUB 

O.MAXUD 

60 

CWST 

JRST 

6NL1 

IE  CAUSE 

SIZE  LESS 

MOVN 

1,0 

HRLZ 

U 

SKIPE 

7 

LSH 

1,4 

ADD 

1,2 

SUBI 

1,1 

60 

CWST 

SETZ 

1, 

60 

CWST 

MOVSM 

6,-6(P) 

MOVEM 

4,SCLP(3) 

6ET 

7 

6ET 

6 

6ET 

5 

6ET 

4 

6ET 

3 

6ET 

2 

6ET 

1 

GET 

0 

RTN 

SIZE  .GT.  MAXWD 

NO. 

YES.  GET  NEG  WORD  COUNT 

POS  -WC  TO  BIT  17 

II   BIT  DFIO  ?? 

YES.  POS  -WC  TO  BIT  13 

NO.  INCLUDE  CORE  ADDR 

ADR=ADR-1  FOR  DFIO 

ADJUST  THE  ADDRESS 

ADJUST  THE  SIZE 

STORE  IN  THE  CCW  LIST 

AND  LOOP 


GET  THE  NEGATIVE  SIZE 

POS  TO  BIT  17 

22-BIT  DFIO  ?? 

YES  POSITION  TO  GIT  13 

NO.  THEN  INCLUDE  THE  ADDRESS 

ADR=ADR-1  FOR  A  DFIO 

STORE  IT  IN  THE  CCW  LIST 

A  DFIO  HALT  WORD 

PUT  IT  IN  THE  LIST 

FIX  STACK  FOR  RETURN 

SAVE  THE  UPDATED  CLP 


DDRPl  - 
DDRPI4 

20A07 
20A08 
20409 
20A10 
20A11 
20412 
20413 
20414 
20415 
20416 
20417 
20418 
20419 
20420 
20421 
20422 
20423 
20424 
20425 
20426 
20427 
20428 
20429 
20430 
20431 
20432 
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XLIST 
LIST 

•  /If********************************************************************* 
!•♦  RH10/DF10  CWST  ROUTINE 


SEQ  0629 


064100  313  04  0  00  000005 

064101  254  00  0  00  064106 

064102  202  01  0  04  000000 

064103  271  04  0  00  000001 

064104  271  06  0  00  000001 

064105  263  17  0  00  000000 

064106 

064106  030  00  0  00  076721 

064107  037  15  0  00  000004 


COMMENT  $ 


PUTS  THE  C(AC1)  IN  THE  CCU  LIST  AND  UPDATES  THE 
BUFFER  POINTER  ALONG  WITH  COUNTING  THE  ENTRY. 
$ 
XLIST 


CWST: 


CAMLE 

4,5 

JRST 

CCWSTF 

MOVEM 

1.(4) 

ADD  I 

4J 

ADD  I 

6J 

RTN 

;HAVE  WE  RUN  OUT  OF  SPACE 
;YES.  SOFTWARE  BUG 
;N0.  PUT  THE  WORD  IN  THE  BUFFER 
;UPDATE  POINTER/COUNTER 


CCWSTF:  TEXT    CASCIZ/ 

PGM  BUG:  -  CCW  BUFFER  TO  SMALL 

/J 

FATAL 


-  RAN  OUT  OF  SPACE 


■"I 
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SEQ  0630 


20433 

20A34 

20435 

20436 

20437 

20438 

20439 

20440 

20441 

20442 

20443 

20444 

20445 

20446 

20447 

20448 

20449 

20450 

20451 

20452 

20453 

20454 

20455 

20456 

20457 

20458 

20459 

20460 

20461 

20462 

20463 

20464 

20465 

20466 

20467 

20468 

20469 

20470 

20471 

20472 

20473 

20474 

20475 

20476 

20^7S 
20479 
20480 
20481 
20482 
20483 
20484 
20485 
20486 
20487 


064110 
064111 
064112 
064113 
064114 
064115 
064116 
064117 
064120 
064121 
064122 

064123 
064124 
064125 
064126 
064127 
064130 
064131 
064132 
064133 
064134 
064135 
064136 
064137 
064140 
064141 
064142 
064143 


261 
261 
261 
261 
03  J 
261 
260 
200 
262 
200 
037 


17 
17 
17 
17 
00 
17 
17 
03 
17 
00 
01 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000001 
000002 
000003 
076734 
000001 
063665 
000001 
000001 
000003 
000000 


030  00  0 
200  00  0 
603  00  0 
030  00  0 
260  17  0 


260  17 
332  00 
260  " 
260 


17 
17 


0 
0 
0 
0 
260  17  0 
200  00  0 
607  00  0 
260  17 
262  17 

262 
262 


17 
17 
17 


0 
0 

8 


00  076736 
00  030046 
00  000200 
00  076742 
00  066156 
00  064145 
00  077722 
00  064165 
00  064212 
00  066156 
00  030046 
00  000200 
00  066156 
00  000003 
00  000002 
00  QOOOOl 
00  000000 


XLIST 
LIST 

;*  CHANNEL  LOGOUT  PRINTER 

COMMENT  $ 

ROUTINE  PRINTS  THE  STATUS  OF  THE  CHANNEL  AT  LOGOUT  TIME. 
EG. 


$ 

XLIST 


GO     LOGPNT 
RETURN 


;PRINT 
;AND  RETURN 


LOGPNT:  PUT 
PUT 
PUT 
PUT 
TEXT 
PUT 
GO 

MOVE 
GET 
MOVE 
PNT1 
TEXT 


Loc  n 


MOVE 

TLNE 

TEXT 

GO 

GO 

SKIPE 

GO 

GO 

GO 

MOVE 

TLNN 

GO 

GET 

GET 

GET 

GET 


0 
1 
2 

CASCIZ/CHAN-/3 

ACl 

CHNSEL 

AC3,AC1 

ACl 

C,AC3 

CASCIZ/LOGOUT  DATA 

O.CONSW 

TXTINH 

CASCIZ/CONTENTS/3 

.CRLF 

ICWPT 

RH20 

LOSPT 

TCWPT 

.CRLF 

CONSU 

TXTINH 

.CRLF 


1 
0 


.•FUNCTIONS  OF  AC'S  FOR  LOGPNT 
;AC     FUNCTION 

USED  FOR  PRINTING 

POINTER  TO  CURRENT  LOGOUT  WORD 

A  SCRATCH  AC 

HOLDS  THE  LOGICAL  CHANNEL  NUMBER 


;SAVE  AC'S 


;GET  THE  mZM 


.-READY  TO  PRINT 
.•PRINT  IT 


.-GET  THE  CONSOLE  SWITCHES 

.•NORMAL  OR  SHORT  PRINTOUT? 

.•SHORT 

.•NORMAL 

.•PRINT  INITIAL  CW  DATA 

.•PRINT  SW1   DATA  IF  AN  RH20 

.•PRINTS  TERM  CW  STATUS 

•A  CRLF 

•GET  CONSOLE  SWITCHES 

.•NORMAL  OR  SHORT  PRINTOUT   ? 

.•NORMAL 

.•RESTORE   THE  AC'S 


DDRPl  -  RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  28-1 

DDRPIA  MAC     28-Aug-85  12:02        DATA  CHANNEL  SUBROUTINES  SEQ  0631 


20A88  06AHA  263  17  0  00  000000  RTN  ;AND  EXIT 


DDRPI  - 
DDRP14 

20A89 

20A90 

20491 

20A92 

20A93 

20A9A 

20A95 

20A96 

20A97 

2'  <»98 

Lw  99 

20500 

20501 

20502 

20503 

2050A 

20505 

20506 

20507 

20508 

20509 

20510 

20511 

20512 

20513 

2051A 

20515 

20516 

20517 

20518 

20519 
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SEQ  0632 


06A1A5 
06A1A6 
06A147 
0641 50 
064151 
064152 
064153 
064154 
064155 
0641 56 
064157 
064160 
064161 
064162 
064163 
064164 


064165 
064166 
064167 
064170 
064171 
0o4172 
064173 
064174 
064175 
G.i4176 


200  01 
221  01 
270  01 
200  00 
037  03 
030  00 
200  00 
607  00 
332  00 
030  00 
336  00 
030  00 
200  00 
037  13 
260  17 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
00 


000003 
000004 
100663 
000001 
000000 
076744 
030046 
000200 
077722 
076745 
077722 
076747 
000000 
000000 
066156 
000000 


271  01 
200  00 
037  03 
030  00 
200  00 
607  00 
254  00 
200  00 
037  13 

cr-   00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
01 
00 
00 


000001 
000001 
000000 
076744 
030046 
000200 
064177 
000000 
000000 
064210 


.•PRINTER  FOR  INITIAL  CONTROL  WORD  &  POINTER  SETUP  ROUTINE 


ICUPT: 


MOVE 

IMULI 

ADD 

MOVE 

PNT3 

TEXT 

MOVE 

TLNN 

SKIPE 

TEXT 

SKIPN 

TEXT 

MOVE 

PNTHW 

GO 

RTN 


1,3 

1.CBASE 
OJ 

CASCIZ/   /] 
CONSU 
TXTINH 
RH20 

CAsciz/icw:  n 

RH20 

CASCIZ/INITIAL 

(1) 

.CRLF 


:AC1  NOW  HAS  CHAN  U 

*X  4 

;ADD  IN  THE  BASE  ADDR 

;NOW  HAVE  THE  ICW  POINTER 

.•PRINTS  THE  ICW  ADDRESS 

;6ET  THE  SWITCHES 

.•NORMAL  OR  SHORT  PRINTOUT  ? 

;NORMAL 

CONTROL  WORD:   /] 

.•FETCH  THE  INITIAL  CW 
.-AND  PRINT   IT 

.-AND  EXIT 


;THE  RH20  STATUS  WORD-1  PRINTER 


LOSPT: 


ADD  I 

MOVE 

PNT3 

TEXT 

MOVE 

TLNN 

JRST 

MOVE 

PNTHW 

JRST 


1J 
0.1 

CASCIZ/ 

CONSW 

TXTINH 

L0SPT1 

(1) 

L0SPT2 


/] 


.-BUMP  THE  POINTER  CORRECTLY 
;T0  0  FOR  PRINTING 
.•PRINT  SW1  ADDRESS 

;GET  ^ONSOLE  SWITCHES 
;NOR    OR  SHORT  PRINTOUT 
;  NORMAL. 
;FETCH  SWI 
;PRINT  SWI 
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SEQ  0633 


20520 

20521 

20522 

20523 

2052A 

20525 

20526 

20527 

20528 

20529 

20530 

20531 

20532 

20533 

2053A 

20535 

20536 

20537 

20538 

20539 

205A0 

20541 

20542 

20543 

20544 

20545 

20546 

20547 

20548 

20549 

20550 

20551 

20552 

20553 

20554 

20555 

20556 

20557 


064177 
064200 
064201 
064202 
064203 
064204 
064205 
064206 
064207 
064210 
06421 1 


064212 
064213 
064214 
06421 5 
064216 
064217 
064220 
064221 
0642^2 
0642c3 
064224 

064225 
064226 
064227 
064230 
064231 
064232 
064233 
064234 
064235 
(^64236 
064237 
064240 


030  00 

261  17 

200  01 

201  02 
260  17 
030  00 
135  00 
260  17 

262  17 
260  17 

263  17 


0  00  076754 
0  00  000001 
0  01  000000 
0  00  065260 
0  00  066037 
0  00  076756 
0  00  076762 
0  00  066174 
0  00  000001 
0  00  066156 
0  00  000000 


271  01 
200  00 
037  03 
030  00 
200  00 
607  00 
254  00 
200  00 
037  13 
260  17 
263  17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
01 
00 
00 
00 


000001 
000001 
000000 
076744 
030046 
000200 
064225 
000000 
000000 
066156 
000000 


336  00  0 
254  00  0 
030  00  0 
200  00  0 
03/  13  0 
030  00  0 
135  00  0 
260  17  0 
030  00  0 
1^5  00  0 
260  17  0 
254  00  0 


00  ^iini 

00  064241 

00  076763 

01  000000 
00  000000 
00  076767 
00  076771 
00  066163 
00  076772 
00  076774 
00  066174 
00  064223 


L0SPT1:  TEXT 
PUT 
MOVE 
MOVE  I 
GO 

TEXT 
LDB 

6r 

GET 
L0SPT2:  GO 
RTN 


CASCI2/SW1:  /] 

1 

1,(1) 

2A0STBL 

TYPBIT 

IASCI2/  CLP  POINTS  TO: 

[POINT  22 J, 35] 

POCT 

1 

.CRLF 


;6ET  SW1  TO  AC1  FOR  TYPBIT 
;GET  THE  BIT  TABLE  ADDRESS 
:PRINT  THE  SIXBIT  DATA  STUFF 
/3 

FETCH  THE  ACTUAL  CLP  ADDRESS 

PRINT  IN  OCTAL 

RECOVER  THE  SAVED  AC 

PRINT  A  C»LF 
:AND  uXiT 


;PRINT  TERMINATION  WORD  FROr  THE  LOGOUT  AREA 


TCWPT:  ADDI 
MOVE 
PNT3 
TEXT 
MOVE 
TLNN 
JRST 
MOVE 
PNTHU 

TCWPT2:  GO 
RTN 


TCWPT1 


SKIPN 

JRST 

TEXT 

MOVE 

PNTHU 

TEXT 

LDB 

GO 

TEXT 

LDB 

GO 

JRST 


OJ 

CASCIZ/   /] 

CONSU 

TXTINH 

TCWPT1 

(1) 

.CRLF 


RH20 

PTTCW1 

CASCIZ/LAST  UPDATED 

(1) 


ADJUST  THE  POINTER 
TO  0  FOR  PRINTING 
PRINT  IT 

GET  THE  CONSOLE  SWITCHES 

NORMAL  OR  SHORT  PRINTOUT 

NORMAL 

SHORT.  GET  THE  WORD 

PRINT  IT 

PRINT  A  CRLF 

AND  EXIT 


CASCIZ/ 

CPOINT 

PSDN 

CASCIZ/ 

CPOINT 

POCT 

TCWPT2 


+WC=/] 
11,(1), 13] 

ADR=/] 
22,(1), 35] 


CCW:  /] 

;FETCH  LAST 
;PRINT  IT 


CCW 


;GETS  WORD  COUNT 
;PRINT  IT  IN  DECIMAL 

;GETS  ADDRESS 
.-PRINT  IT  IN  OCTAL 


DDRPl  - 
DDRPIA 

20558 
20559 
20560 
20561 
20562 
20563 
2056A 
20565 
20566 
20567 
20568 
20569 
20570 
20571 
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SEQ  0634 


06A2A1 
0642A2 
0642A3 
0642A4 
064245 
064246 
064247 
064250 
064251 
064252 
064253 
064254 
064255 
064256 


030  00 
200  00 
037  13 
030  00 
554  00 
332  00 
242  00 
260  17 
030  00 
135  00 
356  00 
550  00 
260  17 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
01 
00 
00 
01 
03 
00 
00 
00 

85 

00 


076775 
000000 
000000 
077002 
000000 
100722 
lllim 
066174 
077004 
076774 
100722 
OOCOOO 
066174 
064223 


PTTCW1 


TEXT 

MOVE 

PNTHU 

TEXT 

HLRZ 

SKIPE 

LSH 

GO 

TEXT 

LD6 

SKIPN 

HRRZ 

GO 

JRST 


CASCIZ/TERM  CONTROL  WORD:  /J 


(1) 

CASCIZ/  CWA=/J 

(1) 

DF22?G(3) 

-4 

POCT 

CASCIZ/    DA=/] 

[POINT  22,(1), 353 

DF22FG(3) 

POcT 
TCWPT2 


;FETCH  IT 
; PRINT  IT 

.•ASSUME  18  BIT  DFIO 
;SEE  IF  18  OR  22   BIT  DFIO 
-.12   BIT  DFIO  POS  CORRECTLY 
;PRINT  IT 

;GET  22   BIT  ADDRESS 

;SEE  IF  18  OR  2?  BIT  DFIO 

;18  BIT  DFIO 

;PRINT  THE  ADDR  IN  OCTAL 
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SEQ  0635 


20572 
20573 
20574 
20575 
20576 
20577 
20578 
20579 
20580 
20581 
20582 
20583 
2058A 
20585 
20586 
20587 

20588 

20589 

20590 

20591 

20592 

20593 

20594 

20595 

20596 

20597 

20598 

20599 

20600 

20601 

20602 

20603 

20604 

20605 

20606 

20607 

20608 

20609 

20610 

20611 

20612 

2061 3 

20614 

20615 

20616 

20617 

20618 

20619 

20620 

20621 

20622 

20623 


064257 
064260 
064261 
064262 
064263 
064264 
064265 
064265 
064267 
064270 
064271 
064272 
064273 
064274 
064275 
064276 
064277 
064300 


261 
26: 
261 
261 
261 
550 
554 
271 
030 
261 
260 
200 
262 
037 
260 
200 
607 
254 


17 
17 
17 
17 
17 
03 
04 
04 
00 
17 
17 

?? 

01 
17 
00 
00 
00 


0 
0 
0 


00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 

00 
00 
00 
00 
00 


000000 
000001 
000002 
000003 
000004 
000001 
000001 
000005 
077006 
000001 
063665 
OOOQOl 
000001 

oooopo 

066156 
030046 
000200 
064303 


XLIST 
LIST 

♦  CHANNEL  COMMAND  LIST  PRINTER 


COMMENT  $ 


RUNS  THROUGH  CORE  PRINTING  THE  COMMAND  LIST  FOR  A  PARTICULAR 
TRANSFER. 


EG. 


AC1: 


MOVE    AC1,ARG 
GO     CCWPNT 
RETURN 


;*COMMAND  WDS,,ADDR  OF  FIRST 

;PRINT 

;AND  RETURN 


SPECIFY  (ACDR  ADDRESS  OF  FIRST  COMMAND  WORD 

SPECIFY  (ACl)L  #  OF  WORDS  IN  THE  LIST 

(THESE  PARAMS  WERE  RETURNED  WHEN  6ENCCW  WAS  CALLED) 

$ 

XLIST 


FUNCTIONS  OF  THE  AC  IN  CCWPT  ROUTINE 
AC     FUNCTION 


0 
1 
2 
3 
4 


USED  FOR  PRINTING 

HOLDS  THE  CURRENT  CCW 

A  SCRATCH  AC 

POINTER  TO  THE  MOST  CURRENT  CCW 

COUNTER.  INITED  TO  EXPECTED  ff   OF  CCWS  +5 

IN  CASE  OF  A  RUNAWAY  CCW  LIST. 


CCWPNT:  PUT 
PUT 
PUT 
PUT 
PUT 
HRRZ 
HLRZ 
ADD  I 
TEXT 
PUT 
GO 
^lOVE 
GET 
PNTl 
GO 

MOVE 
TLNN 
JRiT 


0 

1 


4 

3,1 

4,5 

CASCIZ/CCW'S 

ACl 

CHNSEL 

ACl 

^^^ 

.CRLF 
CONSW 
TXTJNH 
CCWPT1 


;SAVE  THE  AC'S 


CHAN-/] 


;SET  UP  THE  INITIAL  POINTER 
.•FETCH  THE  INITIAL  COUNT 
.•ADJUST  IT  BY  5 


;GET  THE  MBC  # 


.•PRINT  IT 

•PRINT  A  CRLF 

•GET  THE  CONSOLE  SWITCHES 

.•NORMAL  OR  SHORT  PRINTOUT 

.•NORMAL 
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SEQ  0636 


20624 

20625 

20626 

20627 

20628 

20629 

20630 

20631 

20632 

20633 

20634 

20635 

20636 

20637 

20638 

20639 

20640 

20641 

20642 

20643 

20644 

20645 

20646 

20647 

20648 

20649 

20650 

20651 

20652 

20653 

20654 

20655 

20fS6 

206!; 

20658 

20659 

20660 

20661 

20662 

20663 

20664 

20665 

20666 

20667 

20668 

20669 

20670 

20671 

20672 

20673 

20674 

2D675 


TEXT    CASCIZ/  LOC 


064301 
064302 


064303 
064304 

064305 

064306 

064307 

064310 

06431 1 

064312 

064313 

064314 

06431 5 

064316 

064317 

064320 

064321 

064322 

064323 

064324 

064325 

064326 

064327 

064330 

064331 

064332 

064333 

064334 

r^  335 

^„  ;36 

c:.i37 

06434C 

0t>4341 

064342 

064343 
06434^4 
064345 
064346 
064347 
064350 
064351 
064352 
064353 
064354 
064355 
064356 


030  00  0  00  077011 
254  00  0  00  Ot   ^05 


030  00  0  OC  \,r7020 
254  00  0  00  064305 


200  01 

260  17 
336  00 
254  00 
135  00 
302  00 
254  00 
135  03 
254  00 
322  00 
242  00 
306  00 
254  00 
271  03 
254  00 
322  01 

261  17 
260  17 
200  02 

262  17 
554  00 
33i  00 
242  00 
326  00 
135  03 
336  00 
550  03 
254  00 
271  03 
254  00 


367 
030 
260 
200 
607 
260 
262 
262 
262 
262 
262 
263 


04 
00 
17 
00 
00 
17 
17 
17 
17 
17 
17 
17 


1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
02 
00 
00 
00 
02 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000003 
064357 
077722 
064324 
077037 
000002 
064316 
076762 
064343 
064345 
777777 
000003 
064345 
000001 
064343 
064345 
000001 
063665 
000001 
000001 
000001 
100722 
77777^ 
064341 
076762 
100722 
000003 
064343 
000001 
064343 

064305 
077040 
066156 
030046 
000200 
066156 
000004 
000003 
000002 
000001 
000000 
000000 


JRST 
CCWPT1:  TEXT 


/] 


CCWPT2:  MOVE 
GO 

SKIPN 
JRST 
LDB 
CAIE 
JRST 
LDB 
JRST 

TLASTW:  JUMPE 
LSH 
CAIN 
JRST 
ADD  I 
JRST 

TLSTW:  JUMPE 
PUT 
GO 

MOVE 
GET 
HLRZ 
SKIPE 
LSH 
JUMPN 
LDB 
SKIPN 
HRR2 
JRST 

FNDNJ:  ADDI 
JRST 

CCWPT3:  S0J6 
TEXT 

CCWPT4:  GO 
MOVE 
TLNN 
60 
GET 
GET 
GET 
GET 
GET 
RTN 


CCWPT2 
CASCIZ/  LOC 


ecu 


+WC 


JRST    CCWPT2 


1,33 

CCWINT 

RH20 

TLSTW 

[POINT  3,1,2] 

2 

TLASTW 

3, [POINT  22J,35J 

CCWPT3 

CCWPT4 

-1 

3 

CCWPT4 

CCWPT3 

1,CCWPT4 

ACl 

CHNSEL 

AC2,AC1 

ACl 

OJ 

DF22F3(AC2) 

-4 

FNDNJ 

3, [POINT  22J,35D 

DF22FG(2) 

CCWPT3 

3J 

CCWPT3 

4,CCWPT2 

[ASCIZ/CCW  LIST  IS 

.CRLF 

CONSW 

TXTINH 

.CRLF 

4 

3 

2 

1 

0 


'JR 


MISC 


.-FETCH  CURRENT  .tWFROM  LIST 
;G0  INTERPRET  THE  CCW  AN  PRINT 


FETCH  CTRL  PART  OF  THE  CCW 

IS  IT  A  JUMP  CCW  ?? 

NO 

UPDATE  POINTER 

GO  UPDATE  THE  COUNT 

(0-2) =000  MEANS  HALT 

(0-2)  liu  OR  111  MEANS  LST  XKERCCW 

BUMP  THE  POINTER 
GO  UPDATE  THE  COUNT 
IS  IT  A  HALT  CCW  ?? 

GET  THE  MBC  M 


FETCH  THE  WORD  COUNT  FIELD 

18  OR  22   BIT  DFIO  ?? 

22   BIT.  POSITION  THE  COUNT 

TEST  FOR  A  JUMP  CCW 

YES. PICK  UP  THE  ADDRESS 

18  OR  22   BIT  DFIO  ?? 

18  BIT  DFIO 

BUMP  THE  POINTER 
GO  ADJUST  THE  COUNT 

COU/^T  THE  WORD  JUST  PROCESSED 
TOO  L  0   N    G  .  .  ./] 

;GET  IHE  CONSOLE  SWITCHES 
;NORMAL  OR  SHORT  PRINTOUT  ?? 

.-RESTORE  THE  AC'S 


;AND  EXIT 
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SEQ  0637 


20676 

20677 

20678 

20679 

20680 

20681 

20682 

20683 

20684 

20685 

20686 

20687 

20688 

20689 

206'50 

206  * 

2069c^ 

206?!; 

20694 

20695 

20696 

20697 

20698 

20699 

20700 

20701 

20702 

20703 

20704 

20705 

20706 

^-^707 

20708 

20709 

20710 

20711 

20712 

20713 

20714 

20715 

20716 

20717 

20718 

20719 

20720 

20721 

20722 


.-ROUTINE  TO  INTERPRET  THE  CHANNEL  COMMAND  WORD  IN  ACI 


064357 
064360 
064361 
064362 
064363 
064364 
064365 
064366 
064367 
064370 

064371 

064372 

064373 

064374 

064375 

064376 

064377 

06440C 

064401 

064402 

064403 

064404 

06440S 

064406 

064407 

064410 

064411 

064412 

064413 

064414 

064415 

064416 

064417 

064420 

064421 

064422 
064423 
06442'. 
064'f25 
064426 
064427 
064430 
064431 


200  00 
037  06 
030  00 
200  00 
607  00 
254  00 

200  00 
037  13 
,?60  17 
263  17 

336  00 
254  00 
603  01 
254  00 

201  00 
260  17 
260  17 
254  00 
135  00 
037  06 
030  00 
135  00 
037  10 
030 
607 
25^ 
20' 
2oJ 
254  00 
135  00 
322  00 
030  00 
254  00 
030  00 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 

00 
Oc: 
17 


326 
201 
260 
030 
20^ 
260 
030 
254 


01 
00 
17 
00 
00 
17 
00 
00 


00 
00 
00 
00 
00 
00 
00 
00 
CO 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

0  yo 

0  c* 

'-  ( 

J  CO 

0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 


oc 


00 

00 
CO 
00 
00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 


000003 
000000 
077050 
030046 
000200 
064371 
000001 
000000 
066156 
000000 

077722 
064422 
400000 
064401 
000006 
066144 
066117 
064403 
077051 
000000 
076744 
076762 
000000 
077050 
N^'OOOO 
064414 
065253 
066037 
064367 
077037 
064420 
077052 
064367 
077054 
064367 

064432 
000006 
066144 
076744 
000010 
066144 
077056 
064367 


CCUINT:  MOVE 
PNT6 
TEXT 
MOVE 
TLNN 
JRST 
MOVE 
PNTHU 
GO 
RTN 


CCWIX: 
CCWI1: 


SKIPN 

JRST 

TLNE 

JRST 

MOVE  I 

GO 

GO 

JRST 

rcyfIA;  LD8 
PNT6 

CCWI2:  TEXT 
LD6 

PNTADR 
TEXT 
TLNN 
JRST 
MOVE  I 
GO 
JRST 

CCWI2A:  LDB 
JUMPE 
TEXT 
JRST 
TEXT 
JRST 

CCWI1B:  JUMPN 
MOVE  I 
60 
TEXT 
MOVE  I 
GO 
TEXT 
JRST 


0,3 

CASCIZ/  /] 

CONSU 

TXTINH 

CCWI1 

OJ 

.CRLF 


RH20 

CCWI1B 

1,(180) 

CCWI1A 

6 

M2ER0 

.SPACE 

CCWI2 

[POINT  11,1,133 

CASCIZ/   /] 
[POINT  22,1,35] 

L'ASCIZ/  /] 

1,(^"^C) 

CCUi2A 

2,CCWTBL 

TYPBIT 

CCUIX 

[POINT  3,1,23 

[ASCIZ/JUMP-WD/3 
CCWIX 

[ASCIZ/HALT-WORD/3 
CCWIX 

1,CCWI1C 

6 

MZERO 

[ASCIZ/   /] 

*D8 

MZERO 

CASCIZ/   HALT-WORD/] 

CCWIX 


GET  THE  POINTER 
PRINT  IT 

GET  THE  SWITCHES 

MORMAL  OR  SHORT  PRINTOUT  ?? 

NORMAL 

SHORT.  GET  THE  CCW 

PRINT  IT 

PRINT  A  CRLF 

AND  EXIT 


IS  IT  AN  OP-DATA  CCW 

YES 

NO 

PRINT  6  ZEROS 


GET  THE  WORD  COUNT 
PRINT  IT  IN  OCTAL 

GPT  THE  ADDRESS  PORTION 
PRINT  IT 

IS  IT  AN  OP-DATA  CCW 
NO 

yes.  get  tbl  addr 

type  option  bits  in  sixbit 

th:n  exit 

get  ^he  contro!  bits  of  the  ccw 

jump  if  a  halt  word 

E^J' 


;iS  II  A  HALT  WORD 
;YE3.  DO  SOME  FORMATTING 


;T0  U\'   CIDE 


DDRPl  -  RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(12A2)  15:51  28-Aug-85  Page  35 
DDRPIA  MAC     28-Aug-85  12:02        DATA  CHANNEL  SUBROUTINES 


SEQ  0638 


20723 

2072A 

20725 

20726 

20727 

20728 

20729 

20730 

20731 

20732 

20733 

2073A 

20735 

20736 

20737 

20738 

20739 

20740 

20741 

20742 

20743 

20744 

20745 

20746 

20747 

20748 

20749 

20750 

20751 

20752 

20753 


064432 

064433 

064434 

064435 

064436 

064437 

064440 

064441 

064442 

064443 

064444 

064445 

064446 

064447 

064450 

064451 

064452 

064453 

064454 

064455 

064456 

064457 

064460 

064461 

064462 

064463 

064464 

064465 

064466 

064467 

064470 


261  17  0 
260  17  0 

200  02  0 

262  17  0 
554  00  0 
332  00  0 
242  00  0 
326  00  0 

201  00  0 
260  17  0 
030  00  0 
135  00  0 
336  00  0 
550  00  0 
037  10  0 
030  00  0 


254  00 
574  00 


0 
0 


336  00  0 
254  00  0 
242  00  0 
570  00  0 


214  CO 
037  06 


0 
0 


030  00  0 

135  00  0 

336  00  0 

550  00  0 

271  00  0 

037  10  0 

2>-  00  0 


00  000001 
00  063665 
00  000001 
00  000001 
00  000001 
02  100722 
00  llllli^ 
00  064453 
00  000006 
00  066144 
00  076744 
00  076762 
02  100722 
00  000000 
00  000000 
00  077061 
00  064367 
00  000001 
02  100722 
00  064460 
00  llllli^ 
00  000000 
00  000000 
00  000000 
00  077050 
00  076762 
02  100722 
00  000000 
00  000001 
00  000000 
00  064367 


CCWI1C:  PUT 
GO 


CCWI2B: 


CCWI2C 


MOVE 

GET 

HLRZ 

SKIPE 

LSH 

JUMPN 

MOVE  I 

GO 

TEXT 

LDB 

SKIPN 

HRRZ 

PNTADR 

TEXT 

JRST 

HLRE 

SKTPN 

JRST 

LSH 

HRRE 

MOVM 

PNT6 

TEXT 

LDB 

SKIPN 

HRRZ 

ADDI 

PNTADR 

JRST 


AC1 

CHNSEL 

AC2,AC1 

AC1 

OJ 

DF22FG(2) 

-4 

CCWI2B 

6 

MZERO 

CASCIZ/ 


/] 


[POINT  22 J, 35] 

DF22F6(2) 

0,0 

CASCIZ/  JMP-WORD/] 

CCWIX 

OJ 

DF22FG(2) 

CCWI2C 

-4 

0,0 

0,0 

[AScIZ/  /] 

[POINT  22,1,353 

DF22FG(2) 

0,0 

0,1 

CCWIX 


;6ET  THE  MBC  n 


GET  THE  WORD  COUNT 
18  OR  12   BIT  DF10 
II   BIT  DF10 
IS  IT  A  JUMP  WORD  ?? 
YES.  SOME  FORr^ATTING 


GET  THE  22   BIT  ADDRESS 
18  OR  22   BIT  D-10 
18  BIT 
22   BIT.  PRINV  IT. 

TIME  TO  EXIT 

GET  THE  WORD  COUNT 

18  OR  22   BIT  DF10 

18  BIT 

22   BIT  DF 

NOW  HAVE  THE  CORRECT  WORD  COUNT 

TAKES  THE  ABSOLUTE  VALUE 

PRINT  POS  WC  IN  OCTAL 

GET  THE  ADDRESS 

18  OR  22   BIl  DF10 

18  BIT 

REAL  ADDRESS 

PRINT  THE  ADDR  IN  OCTAL 

AND  EXIT 
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SEQ  0639 


20754 
20755 
20756 
20757 
20758 
20759 
20760 
20761 
20762 
20763 
20764 
20765 
20766 
20767 
20768 
20769 
20770 
20771 
20772 
20773 
20774 
20775 
20776 
20777 
20778 
20779 
20780 
20781 
20782 
20783 
20784 
20785 
20786 

207SS 
20789 
2C790 
20791 
20792 
20793 
^0794 
20795 
20796 
20/97 
20798 
20799 
20800 
20fi01 
20802 
20803 
20804 
20805 
20806 


064471 
06447; 
06447i 
0644'/ 
064v.  ": 
064*:  76 
064. 77 

06^  m 

06'o01 
064502 
064503 
064504 
064505 
064506 
064507 


SUBTTL  REGISTER  AND  CONI  PRINT  ROUTINES 
XLIST 
LIST 

)♦  CONI  PRINTER  AND  AGISTER  BIT  PRINT  ROUTINES 

;/jf*  ************************************************************  ******** 


COMMENT  $ 


THERE  ARE  TWO  MODES  OF  PROGRAM  PRINTOUT:  NORMAL  (LONG) 
AND  SHORT  (TEXT  INHIBIT  SWITCH  IS  SET).  THE  NORMAL  MODE 
INTERPRETS  THE  REGISTER  BITS  IN  ENGLISH  (SIXBIT  FORMAT) 
WHILE  THE  SHORT  PRINTOUT  MODE  PRINTS  REGISTER  AND 
CONI  DATA  IN  HALFWORD  OCTAL  MODE. 


TO  USE  THE  CONI  PRINTER: 

MOVE  AC1,ARG 

GO  CONIPT 
RETURN 

TO  USE  THE  REGISTER  PRINTER: 
MOVE    AC1,ARG 
GC     KcGPfMi 
RETURN 


.•FETCH  CONI  DATA 
.•PRINT  IT 


;36  BIT  DATAI  WORD 
.•PRINT  IT 


THE  REGISTER  PRINTER  GETS  THE  REGISTER  NUMBER  AND  DRIVE 
NUMBER  FROM  THE  LEFT  HALF  OF  THE  DATAI  WORD, 

TO  USE  THE  CHANNEL  BUFFER  PRINTER  FOR  THE  RHIO  (REG  74): 
MOVE    AC1.DATA       ;36  BIT  CHAN  BUFF  DATA 
RETURN 
GO      CBUFPT         ;FRIN'  IT. 

$ 

XLIST 


?61  17 
26)  V 
03C  00 
13:  00 
242  00 
260  17 
030  00 
200  00 
332  00 
254  00 
607  00 
254  00 
200  00 
037  13 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
000002 
077064 
076650 
000002 
066174 
076753 
030046 
077755 
064505 
000200 
064510 
000001 
000000 
064517 


CONIPT:  PUT 
PUT 
TEXT 
LDB 
LSH 
GO 
TEXT 
MOVE 
SKIPE 
JRST 
TLNN 
JRST 
MOVE 
PNTHW 
JRST 


0 

2 

CASCIZ/CONI-/] 

0,CPOINT  7,MBCN,9] 

2 

POCT 

[ASCIZ/:  /] 

O.CUNSW 

SHPEG 

TXTINH 

CNIA 

0,1 

CNI8 


;SAVE  AC'S 


GET  THE  DEVICE  CODE 
JUSTIFY  rCR  PRINTING 
PRINT  IN  OCTAL 

GET  THE  CONSOLE  SWITCHES 

SHORT  PRINTOUT? 

YES 

LONG  OR  SHORT  PRINTOUT 

NORMAL 

SHORT   PRINTOUT 

PRINT  IN  HALFWORD  FORMAT 


DDRPl  - 
DDRPK 

20807 
20808 
20809 
20810 
20811 
20812 
20813 
20814 
20815 
20816 
20817 
20818 
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SEQ  0640 


064510 
064511 
064512 
064513 
064514 
064515 
064516 


201  02 
336  00 
201  02 
260  17 
030  00 
200  00 
037  01 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


065072 
077722 
065113 
066037 
077066 
000001 
000000 


CNIA: 


064517  260  17  0  00  066156 

064 520  262  17  0  00  000002 

064521  262  17  0  00  000000 

064522  263  17  0  00  000000 


CNIB: 


MOVE  I 

SKIPN 

MOVE  I 

60 

TEXT 

MOVE 

PNT1 

60 
6ET 
6ET 
RTN 


2,CNITB2 

RH20 

2,CNITB1 

TYPBIT 

[ASCI2/  PIA=/] 

OJ 


.CRLF 

2 

0 


;PRINT  BIT  DATA 


;PRINT  THE  PI   ADDRESS 
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SEQ  0641 


20819 

20820 

20821 

20822 

20823 

20824 

20825 

20826 

20827 

20828 

20829 

20830 

20831 

20832 

20833 

20834 

20835 

20836 

20837 

20838 

20839 

20840 

20841 

20842 

20843 

20844 

20845 

20846 

20847 

20848 

20849 

20850 

20851 

20852 

20853 

20854 

20855 

20856 

20857 

20858 

20859 

20860 

20861 

20862 

20863 


064523 
064524 
064525 
064526 
064527 
064530 
064531 
064532 
064533 
064534 
064535 
064536 
064537 
064540 
064541 
064542 
064543 
064544 
064545 
064546 
064547 
064550 
064551 
064552 
064553 
064554 
064555 


261 

261 

261 

261 

261 

135 

260 

352 

254 

200 

607 

254 

030 

200 

037 

254 

260 

260 

260 

260 

2oJ 

262 

262 

262 

262 

262 

263 


17 
17 
17 
17 
17 
02 
17 
00 
00 
00 
00 
00 
00 
00 
13 
00 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
GO 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 

000001 

000002 

000003 

000004 

073655 

064556 

077755 

064537 

030046 

000200 

064543 

076753 

000001 

000000 

064547 

064602 

06461 1 

064623 

064650 

066156 

000004 

000003 

000002 

000001 

000000 

000000 


064556  303  02  0  00  000037 

06455^  254  00  0  00  064563 

064560  201  03  0  00  064732 

064561  270  03  0  00  000002 

064562  254  00  0  00  064573 


ACCUMULATORS  USED  BY  REGPNT 
AC     FUNCTION 


0 
1 
2 
3 
4 


USED  FOR  PRINTING 
HOLDS  36  BIT  DATAI  WORD 
HOLDS  REGISTER  NUMBER 
HOLDS  VARIOUS  TABLE  POINTERS 
SCRATCH  AC 


REGPNT:  PUT 
PUT 


RPT1 


RPT2: 


PUT 

PUT 

PUT 

LDB 

GO 

SKIPE 

JRST 

MOVE 

TLNN 

JRST 

TEXT 

MOVE 

PNTHW 

JRST 

GO 

GO 

GO 

GO 

GO 

GET 

GET 

GET 

GET 

GET 

RTN 


0 

1 

2 

3 

4 

2, [POINT  6,1,53 

RNAM 

SHREG# 

CONSW 
TXTINH 
RPT1 

CASCIZ/:  /] 
0,1 

RPT2 

DRPNT 

LFTBIT 

RITBIT 

BYTES 

.CRLF 

4 

3 

2 

1 

0 


;SAVE  AC'S 


FETCHES  REGISTER  NUMBER 

PRINT  REG  NAME  AND  DEV  CODE 

FORCED  SHORT  REG  PRINT? 

YES 

GET  SWITCHES 


.•NORMAL  PRINTOUT 

;GET  REGISTER  DATA 
;HALFWORD  FOR  SHORT  PRINTOUT 


PRINT  DRIVE  IF  EXTERNAL  REG 
PRINT  LEFT  SIDE  BITS 
PRINT  RIGHT  SIDE  BITS 
PRINT  BYTE  ORGANIZED  DATA 
A  CRLF 
CLEAN  UP 


.-REGISTER  SIXBIT  NAM:  S  DEVICE  CODE  PRINTER 


RNAM: 


CAILE 
JRST 
MOVE  I 
ADD 
JRST 


2,37 

RNAMI 

3,EXRNAM 

3,2 

RNAMC 


REGISTER  INTERNAL  OR  EXTERNAL 
INTERNAL  TO  THE  RHXX 
EXTERNAL.  GET  TBL  POINTER 
INDEX  INTO  THE  TABLE 


V.  a  JiMi^  Ti 


r 


DDRPl  - 
DDRPK 

2086A 

20865 

20866 

20867 

20868 

20869 

20870 

20871 

20872 

20873 

2087A 

20875 

20876 

20877 

20878 

20879 

20880 

20881 

20882 

20883 

2088A 

20885 

20886 

20887 

20888 

20889 

20890 

20891 

20892 

20893 

2089A 

20895 

20896 

20897 

20898 

20899 

20900 

20901 

20902 

20903 

2090A 

20905 

20906 

20907 

20908 

20909 

20910 

20911 

20912 

20913 

209K 

20915 

20916 
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SEQ  06A2 


06A563 
06A56A 
06A565 
06A566 
06A567 
06A570 
06A571 
06A572 
06A573 
06A57A 
06A575 
06A576 
06A577 
06A600 
06A601 


06A602 
06A603 
06A60A 
06A605 
06A606 
06A607 
06A610 


06A61 1 
06A612 
06A613 
06A61A 
06A61 5 
06A616 
06A617 
06A620 
06A621 
06A622 


332  00  0 
25A  00  0 
135  03  0 
271  03  0 
336  00  0 
25A  00  0 
135  03  0 
271  03  0 
200  00  0 
037  00  0 
260  17  0 


135  00 

2A2  00 

260  17 

263  17 


00  077722 
00  06A567 
00  06A671 
00  06A702 
00  077722 
00  06A573 
00  06A670 
00  06A672 
03  000000 
00  000002 
00  066122 
00  076650 
00  000002 
00  0661 7A 
00  000000 


303 
25A 
260 
135 
260 
030 
263 


303 
263 
2o' 
332 
201 
336 
201 
260 
262 
263 


02 
00 
17 
00 
17 
00 
17 


02 
17 
17 
00 
02 
00 
02 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 


00 
00 
00 
00 


000037 
06A607 
066125 
07A760 
0661 7A 
076753 
000000 


000037 
000000 
000002 
077722 
065233 

QtS2i^2 
066037 
000002 
000000 


06Ao23 
06A62A 
06A625 
06A626 
06A627 
06A630 
06A631 
06A632 
06A633 
06A63A 
06A635 


261  17  0 
307  02  0 
25A  00  0 


332  00 
25A  00 
135  03 
271  03 
336  00 
25A  00 
135  03 
271  03 


0 
0 
0 
0 
0 
0 
0 
0 


00  000002 
00  000037 
00  06A6A2 
00  077722 
00  06A632 
00  06A671 
00  06A 722 
00  077722 
00  06A636 
00  06A670 
00  06A712 


RNAMI 


RNAMC 


SKIPE 

JRST 

LDB 

ADDI 

SKIPN 

JRST 

LDB 

ADDI 

MOVE 

PNTSIX 

GO 

LDB 

LSH 

GO 

RTN 


RH20 

.+3 

3JNRX1 

3JNRNM1 

RH20 

.+3 

3JNRX2 

3,INRNM2 

(5) 

TAB 
[POINT  7,MBCN,9J 
2 
POCT 


.-FETCH  NAME  FROM  THE  TABLE 
.-PRINT  IT 

.-FOLLOWED  BY  A  TAB 
.-GET  DEVICE  CODE 
.-JUSTIFY  FOR  PRINTING 
.-PRINT  IN  OCTAL 
;AND  EXIT 


.•PRINT  DRIVE  NUMBER  IF  EXTERNAL  REGISTER 


DRPNT : 


DRPNT1 


CAILE 

JRST 

GO 

LDB 

GO 

TEXT 

RTN 


2.37  ^ 

DRPNT1 

.DASH 

[POINT  3.1.17J 

POCT 

[ASCIZ/:  /] 


.-INTERNAL  OR  EXTERNAL  REG 

.-PRINT  A  DASH 
.-GET  DRIVE  NUMBER 
.-PRINT  IT  IN  OCTAL 


.-PRINT  LEFT  SIDE  OF  EXTERNAL  REGISTERS 


LFTBIT: 


CAILE 

RTN 

PUT 

SKIPE 

MOVE  I 

SKIPN 

MOVE  I 

GO 

GET 

RTN 


2.37 

2 

RH20 

2.LHTBL2 

RH20 

2.LHTBL1 

TYPBIT 

2 


.-INTERNAL  OR  EXTERNAL 
.-INTERNAL  REGISTER.  EXIT 
.-SAVE   AC2 


.-PRINT  SIXBIT  DATA 
.-RESTORE  THE  AC 
.-AND  EXIT 


.-PRINTS  RIGHT  SIDE  OF  EXTERNAL  REGISTERS 
.-PRINTS  ALL  BIT  DATA  FOR  INTERNAL  REGISTERS 


RITBIT:  PUT 
CAIG 
JRST 
SKIPE 
JRST 
LDB 
ADDI 
SKIPN 
JRST 
LDB 
ADDI 


2 

2,37 

RITA 

RH20 

.*3 

3.INRX1 

3.INRSR1 

RH20 

.^3 

3.INRX2 

3.INRSR2 


•SAVE  AC2 

•INTERNAL  OR  EXTENAL  REG 

.•EXTERNAL 


1   r 


I  DDRPl  - 
'  DDRPIA 

20917 

20918 

20919 

20920 

20921 

20922 

20923 

20924 

20925 

20926 

20927 

20928 

20929 

20930 

20931 

20932 

20933 

20934 

20935 

20936 

20937 

20938 

20939 

20940 

20941 

20942 

20943 

20944 

20945 

20946 

20947 

20948 

20949 

20950 
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SEQ  0643 


064636 
064637 
064640 
064641 
064642 
064643 
064644 
064645 
064646 
064647 


064650 
064651 
064652 
064653 
064654 
064655 
064656 
064657 
064660 
064661 
064662 
064663 
064664 
064665 
064666 
064667 


550  02 
260  17 

262  17 

263  17 

200  00 

201  03 
603  00 
201  03 
270  03 
254  00 


307  02 
254  00 
332  00 
254  00 
135  03 
271  03 
336  00 
254  00 
135  03 
271  03 
554  03 
260  17 
263  17 
201  03 
270  03 
254  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


03 
00 
00 
00 
13 
00 
00 
00 
00 
00 


00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
03 
03 
00 
00 


0  00 
0  00 


000000 
066037 
000002 
000000 
100747 
065032 
000001 
064772 
000002 
064636 


000037 
064665 
077722 
064656 
064671 
064722 

064662 
064670 
064712 
000000 
000000 
000000 
064772 
000002 
064662 


064670  36  03  0  00  000001 

064671  40  03  0  00  000001 


RITC: 


RITA: 


BYTES 


BYTEC: 
BYTEA; 


HRRZ 

2,(3) 

GO 

TYPBIT 

GET 

2 

RTN 

MOVE 

0,DSBTBL(DRIVE) 

MOVE  I 

3,EXRSRA 

TLNE 

0,(.RP04) 

MOVE  I 

3,EXRSER 

ADD 

3,2 

JRST 

RITC 

HES  OFF 

TO  THE  PROPER  B 

CAIG 

2,37 

JRST 

BYTEA 

SKIPE 

RH20 

JRST 

.+3 

LDB 

3,INRX1 

ADD  I 

3,INRSR1 

SKIPN 

RH20 

JRST 

.+3 

LDB 

3,INRX2 

ADD  I 

3,INRSR2 

HLR2 

3,(3) 

GO 

(S) 

RTN 

MOVE  I 

3,EXRSER 

ADD 

3,2 

JRST 

BYTEC 

;GET  BIT  TABLE  ADDRESS 

.•PRINT  TABLE  DATA 

.-RESTORE  THE  AC 

;AND  EXIT 

;GET  TABLE  DATA 

;GET  TABLE  ADDR  FOR  RP05/06 

;IS  IT  AN  RP04 

;YES  GET  RP04  TABLE  ADDR 

; INDEX  BY  REG  NUMBER 


.•INTERNAL  OR  EXTERNAL  REGISTER 
.•EXTERNAL 


;GET  DISPATCH  ADDRESS 
;T0  THE  SERVICE  ROUTINE 
;AND  EXIT 

.-GET  TABLE  BASE  ADDR 
.•INDEX  BY  REG  n 


.•DEFINING  PROPER  INDEX  FOR  SOME  OF  THE  INTERNAL  LOOK  UPS 


INRX2:  POINT   3,1.5 
INRX1:  POINT   3,1,3 


.•POINTER  FOR  RH20 
.•POINTER  FOR  RHIO 


DDRPl  - 
DDRPI4 

20951 

20952 

20953 

2095A 

20955 

20956 

20957 

20958 

20959 

20960 

20961 

20962 

20963 

2096A 

20965 

20966 

20967 

20968 

20969 

20970 

20971 

20972 

20973 

2097A 

20975 

20976 

20977 

20978 

20979 

20980 

20981 

20982 

20983 

2098A 

20985 

20986 

20987 

20988 

20989 

20990 

20991 

20992 

20993 

2099A 

20995 

20996 
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RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  41 
RE6-C0NI  PRINTER  LOOKUP  TABLES 

SUBTTL  REG-CONI  PRINTER  LOOKUP  TABLES 
XLIST 
LIST 

;*  VARIOUS  TABLES  NEEDED  BY  PRINT  ROUTINES 

;/|f************************t**********t*********  •••••••  ***************** 

COMMENT  $ 

THERE  ARE  SEVERAL  TYPE  TABLES  HERE  AND  MOST  ARE  SELF 
EXPLANITORY.  THERE  IS  ONE  TYPE  THAT  NEEDS  CLARIFICATION. 
SOME  OF  THE  SIXBIT  TABLES  HAVE  OCTAL  WORDS  AS  THEIR  FIRST 
TWO  ENTRIES  FOLLOWED  BY  THE  NORMAL  LIST  OF  SIXBIT  NAMES. 
THESE  TABLES  ARE  SET  UP  FOR  USE  WITH  THE  "TYPBir"  SUBROUTINE 
AND  THE  FIRST  TWO  OCTAL  WORDS  ARE  MASKS  FOR  "TYPBIT". 
WORD-1:  HAS  A  ONE  IN  EACH  OF  THE  36  BIT  POSITIONS  FOR  WHICH 

THERE  IS  A  CORRESPONDING  SIXBIT  NAME. 
WORD-2:  HAS  A  ONE  IN  EACH  BIT  POSITION  THAT  SHOULD  NEVER 

BE  NON-ZERO. 
S 
XLIST 

;TABLE  OF  SIXBIT  NAMES  FOR  MASBUS  CONTROLLER  INTERNAL  REGISTERS 
;THIS  TABLE  CAN  BE  INDEXED  INTO  BY  BITS  3-5  OF  THE  DATAI  WORD 


SEQ   0644 


064672 
064673 
064674 
064675 
064676 
064677 
064700 
064701 


064702 
064703 
064704 
064705 
064/06 
064707 
064710 
064711 


62  50 

62  50 

62  50 

6d  50 

62  50 

f"*  50 

t.  50 

62  50 


63  42 
6?  64 
60  42 
60  64 
51  66 
62  44 
67  64 
44  51 


41  62 
43  62 
41  62 
43  62 
62  00 
62  47 
62  47 
41  47 


INRNM2:  SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 


/RHSBAR/ 

/RHSTCR/ 

/RHPBAR/ 

/RHPTCR/ 

/RHIVR/ 

/RHRDRG/ 

/RHWTRG/ 

/RHDIAG/ 


R70 
R71 
R72 
R73 
R74 
R75 
R76 
R77 


;THIS  TABLE  CAN  BE  INDEXED  INTO  BY  BITS  1-3  OF  THE  DATAI  WORD 


62  50  43 
62  50  51 
62  50  44 
62  50  62 
62  50  62 
62  50  62 
62  50  62 
62  50  43 


62  00  00 

41  62  00 

42  65  46 

41  45  00 
47  26  20 
47  26  24 
47  27  20 

42  65  46 


INRNM1 : 


SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 


/RHCR/ 

/RHIAR/ 

/RHDBUF/ 

/RHRAE/ 

/RHR660/ 

/RHRG64/ 

/RHR670/ 

/RHCBUF/ 


R40 
R44 
R50 
R54 
R60 
R64 
R70 
R74 


■~1 
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SEQ  0645 


20997 

20998 

20999 

21000 

21001 

21002 

21003 

21004 

21005 

21006 

21007 

21008 

21009 

21010 

21011 

21012 

21013 

21014 

21015 

21016 

21017 

21018 

21019 

21020 

21021 

21022 

21023 

21024 

21025 

21026 

21027 

21028 

21029 

21030 

21031 

21032 

21033 


06471 2 

06471 3 
064714 
06471 5 
064716 
06471 7 
064720 
064721 


064722 
064723 
064724 
064725 
064726 
064727 
064730 
064731 


065530 
065536 
065530 
065536 
065561 
065567 
077070 
077070 


065575 
065617 
065625 
077070 
077070 
077070 
077070 
077070 


065146 
065150 
065146 
065150 
065155 
065157 
065161 
065163 


065176 
065206 
065212 
065220 
065232 
06.  !32 
065146 
065155 


;TABLE  OF  INTERNAL  REGISTER  POINTERS 

.•POINTER  TO  BYTE  DATA  PRINTER,,  POINTER  TO  START  OF  kEG  BIT  TABLE 

;THIS  TABLE  CAN  BE  INDEXED  INTO  BY  BITS  3-5  OF  THE  DATAI  WORD 

INRSR2:  R70SER,,R70TBL 
R71SER,,R71TBL 
R72SER,,;^72TBL 
R73SER,,R73T8L 
R74SER,,R74TBL 
R75SER,,R75TBL 
CRTN],,R76TBL 
CRTNJ,,R77TBL 

;THIS  TABLE  CAN  BE  INDEXED  INTO  BY  BITS  1-3  OF  THE  DATAI  WORD 


INRSR1 : 


R40SER 
R44SER 
R50SER 
CRTN3. 
CRTN3, 
CRTNJ, 
CRTNL 
CRTN3, 


,.R40TBL 

,,R44TBL 

,,R50TBL 

,R54TBL 

.R60TBL 

,R64TBL 

,R70TBL 

,R74TBL 


;NON-IMPLEMENTED  REGISTER 
; NON-IMPLEMENTED  REGISTER 
; NON-IMPLEMENTED  REGISTER 


;HERE  IS  THE  SIXBIT  NAME  TABLE  FOR  THE  EXTERNAL  (DEVICE)  REGISTERS 
;THIS  TABLE  CAN  BE  INDEXED  INTO  BY  BITS  0-5  OF  THE  DATAI  WORD 


064732 
064733 
064734 
064735 
064736 
064737 
064740 
064741 


44  62 
4h  62 
44  62 
44  62 
44  62 
44  62 
44  62 
44  62 


43  62 
63  62 
45  62 
55  62 
41  64 

44  41 
44  64 
54  41 


00  00 
00  00 
21  00 
00  00 
56  00 
00  00 
00  00 
00  00 


EXRNAM: 


SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 


/DRCR/ 

/DRSR/ 

/DRER1/ 

/DRMR/ 

/DRATN/ 

/DRDA/ 

/DRDT/ 

/DRLA/ 


;R0 
;R1 
;R2 
;R3 
;R4 
;R5 
;R6 
;R7 
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SEQ  0646 


21034 

21035 

21036 

21037 

21038 

21039 

21040 

21041 

21042 

21043 

21044 

21045 

21046 

21047 

21048 

21049 

21050 

21051 

21052 

21053 

21054 

21055 

21056 

21057 

21058 

21059 

21060 

21061 


064742 
064743 
064744 
064745 
064746 
064747 
064750 
064751 


064752 
064753 
064754 
064755 
064756 
064757 
064760 
064^61 
064  -62 
064i?63 
064764 
064765 
064766 
064767 
064770 
064771 


44  62 
44  62 
44  62 
44  62 
44  62 
44  62 
44  62 
44  62 


44  62 
44  62 
44  62 
44  62 
44  62 
44  62 
44  62 
44  62 
44  62 
44  6? 
44  62 
44  62 
44  62 
44  62 
44  62 
44  62 


63  56 
57  46 

44  43 
43  43 

45  62 
45  62 
45  43 
45  43 


62  22 
62  22 
62  22 
62  22 
62  II 
62  22 
62  22 
62  II 
62  23 
62  23 
62  23 
62  23 
62  23 
62  23 
62  23 
62  23 


00  00 
63  64 
71  00 


71 
2i 

2: 


00 
00 
00 


60  63 
60  64 


20  00 

21  00 

22  00 

23  00 

24  00 

25  00 

26  00 

27  00 

20  00 

21  00 
21   00 

23  00 

24  00 

25  00 

26  00 
17   00 


XLIST 

LIST 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

XLIST 

LIST 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


/DRSN/ 

/DROFST/ 

/DRDCY/ 

/DRCCY/ 

/DRER2/ 

/DRER3/ 

/DRECPS/ 

/DRECPT/ 


/DRR20/ 
/DRR21/ 
/DRR22/ 
/DRR23/ 
/DRR24/ 
/DRR25/ 
/DRR26/ 
/DRR27/ 
/DRR30/ 
/DRR31/ 
/DRR32/ 
/DRR33/ 
/DRR34/ 
/DRR35/ 
/DRR36/ 
/DRR37/ 


;R10 
;R11 
;R12 
;R13 
;R14 
;R15 
;R16 
;R17 


1 
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21062 
21063 
2106A 
21065 

21066  064772  065641  065274 

21067  064773  077070  065277 

21068  064774  077070  065335 

21069  064775  077070  065357 

21070  064776  077070  065374 
21071 

21072 

21073  064777  065717  065406 

21074  065000  065730  065410 

21075  065001  065761  065420 

21076  065002  065772  065422 

21077  065003  066001  065424 

21078  065004  066012  065432 

21079  065005  066015  065432 

21080  065006  077070  065455 

21081  065007  077070  065510 

21082  065010  066023  065522 

21083  065011  066031  065524 
21084 
21085 

21086  065012  077070  065526 

21087  065013  077070  065526 

21088  065014  077070  065526 

21089  065015  077070  065526 

21090  065016  077070  065526 

21091  065017  077070  065526 

21092  065020  G?.'070  065526 

21093  065021  077070  065526 

21094  065022  077070  065526 

21095  065023  077070  065526 

21096  065024  077070  065526 

21097  065025  077070  065526 

21098  065026  077070  065526 

21099  065027  077070  065526 

21100  065030  077070  065526 

21101  065031  077070  0655P6 
21102 
21103 
21104 
21105 
21106 

21107  065032  065641  065274 

21108  065033  077070  065321 

21109  065034  077070  065335 

21110  065035  077070  065357 

21111  065036  077Q70  065374 

21112  065037  065717  065406 

21113  065040  065730  065410 

21114  065041  065761  065420 

21115  065042  065772  065422 

21116  065043  066001  065424 
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;HERE  IS  THE  EXTERNAL  REGISTER  POINTER  TABLE 

;THIS  CAN  BE  INDEXED  INTO  BY  BITS  0-5  OF  THE  DATAI  WORD 

;LAYOUT:-  POINTER  TO  BYTE  PRINT  ROUTINE,, POINTER  TO  APPROPRIATE  BIT  TABLE 


SEQ  0647 


EXRSER:  ROOSER 
CRTN], 

:rtn3, 
:rtn], 
:rtn:, 

XLIST 

.1ST 

105SER 

R06SER 

R07SER 

RIOSER 

R11SER 

R12SER 

R13SER 

CRTN], 

CRTN3. 

R16SER 

R17SER 

XLIST 

LIST 

:rtn\ 
:rtnj, 
:rtn], 
:rtnj, 
:rtn], 
:rtn], 
:rtnl 
:rtnj, 
:rtn], 
:rtn], 
:rtn], 
;rtnl 

RTN], 

RTN], 

!RTN], 

:rtn]  - 

XLIST 
LIST 


,,ROOTBL 

,R01TBL 

,R02TBL 

,R03TBL 

,R04TBL 


,,R05TBL 

,,R06TBL 

,,R07TBL 

,,R10TBL 

,,R11TBL 

,.  12TBL 

,,RliTBL 

,R14TBL 

,R15TBL 

,,R16TBL 

,,R17TBL 


,R20TBL 
,R21TBL 
,R22TBL 
,R23TBL 
,R24TBL 
,R25TBL 
,R26TBL 
,R27TBL 
,R30TBL 
,R31TBL 
,R32TBL 
,R33TBL 
,R34TBL 
,R35TBL 
,R36TBL 
,R37TBL 


RO 
Rl 
R2 
R3 
R4 


R5 

R6 

R7 

RIO 

Rll 

R12 

R13 

R14 

R15 

R16 

R17 


R20 
R21 
R22 
R23 
R24 
R25 
R26 
R27 
R30 
R31 
R32 
R33 
R34 
R35 
R36 
R37 


;RP05/06  BIT  TABLE  AND  SERVICE  ADDRESS  TABLE 


EXRSRA:  ROOSER,, ROOTBL 
rRTN],,R01TBA 
;RTN],,R02TBL 
RTN3,,R03TBL 
!RTN],,R04TBL 
i05SER,,R05TBL 
?06SER,,r66TBL 

?07ser,,ro7tbl 

n0SER,,R10TBL 
R11SER,,RirBL 


RO 
Rl 

R3 

R4 

R5 

R6 

R7 

RIO 

R11 


.._.-,  ,_J 


DDRPl  -  RH10/RH20  -  RP04/05/06  • 
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SEQ  0648 


21117 

21118 

21119 

21120 

21121 

21122 

21123 

21124 

21125 

21126 

21127 

21128 

21129 

21130 

21131 

21132 

21133 

21134 

21135 

21136 

21137 

21138 

21139 

21140 


065044 
065045 
065046 
065047 
065050 
065051 
065052 
065053 
065054 
065055 
065056 
065057 
065060 
065061 
065062 
065063 
065064 
065065 
065066 
065067 
065070 
065071 


06601 2 
06601 5 
077070 
077070 
066023 
066031 
077070 
077070 
077070 
077070 
077070 
077070 
077070 
077070 
077070 
077070 
077070 
077070 
077070 
077070 
077070 
077070 


065434 
065434 
065436 
065476 
065522 
065524 
065526 
065526 
065526 
065526 
065526 
065526 
065526 
065526 
065526 
065526 
065526 
065526 
065526 
065526 
065526 
065526 


R12SER 
R13SER 

:rtn], 
:rtnd, 

R16SER 
R17SER 

:rtn], 
:rtnl 
:rtn], 
:rtn], 
:rtn], 
:rtn3, 
:rtn], 
:rtnj, 
:rtn3, 
:rtn], 
:rtn], 
:rtn], 
:rtnt, 
:rtn], 
:rtnj, 
:rtn3, 

XLIST 
LIST 


,,R12TBA 

,,R13TBA 

,R14TBA 

,R15TBA 

,,R16TBL 

,,R17TBL 

,R20TBL 

,R21TBL 

,R22TBL 

,R23TBL 

,R24TBL 

,R25TBL 

,R26TBL 

,R27T8L 

,R30T8L 

,R3irBL 

,R32T6L 

,R33TBL 

,R34TBL 

,R35TBL 

,R36TBL 

,R37TBL 


R12 
R13 
R14 
R15 
R16 
R17 
R20 
R21 
R22 
R23 
R24 
R25 
R26 
R27 
R30 
R31 
R32 
R33 
R34 
R35 
R36 
R37 


.,-  J^ 


DORPl  - 
DDRPIA 

21U1 

21U2 

21K3 

21144 

21145 

21146 

21147 

21148 

21149 

21150 

21151 

21152 

21153 

21154 

21155 

21156 

21157 

21158 

21159 

21160 

21161 

21162 

21163 

21164 

21165 

21166 

21167 

21168 

21169 

21170 

21171 

21172 

21173 

21174 

21175 

21176 

21177 

21178 

21179 

21180 

21181 

21182 

21183 

21184 

21185 

21186 

21187 
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SEQ  0649 


;CONI  -  BIT  TABLE 


065072  000000  777770 

065073  111111    000000 

065074  44  60  45  00  00  00 

065075  45  70  43  45  60  00 

065076  54  56  47  15  67  43 

065077  63  50  64  15  67  43 

065100  43  50  56  15  45  62 

065101  44  62  45  00  00  00 

065102  62  41  45  00  00  00 

065103  43  56  62  00  00  00 

065104  57  66  62  62  65  56 

065105  55  42  43  45  56  42 

065106  41  64  64  56  00  00 

065107  63  43  62  46  65  54 

065110  41  64  56  15  45  56 

065111  60  43  62  46  65  54 

065112  44  57  56  45  00  00 

065113  675607  776370 

065114  102170  001400 

065115  41  62  46  65  54  54 

065116  43  42  46  65  54  54 

065117  43  43  51  56  50  00 

065120  43  50  56  41  43  64 

065121  43  50  56  60  54  63 

065122  h4  46  22  22  00  00 

065123  43  45  70  43  00  00 

065124  51  54  46  43  00  00 

065125  63  44  62  41  45  00 

065126  43  44  60  45  00  00 

065127  43  67  60  45  00  00 
065130  56  70  55  00  CO  00 
0651'^  44  42  60  45  00  00 
065 iV  45  70  43  45  60  00 
0(^  1  :  43  50  41  56  45  62 
06-  ^  43  43  67  62  64  00 

065135  57  66  62  62  65  56 

065136  44  62  45  00  00  00 

065137  51  54  43  00  00  00 
065U0  60  63  46  41  51  54 

065 141  43  42  57  66  00  00 

065142  62  41  45  00  00  00 
065U3  41  64  64  56  00  00 
065144  42  65  63  71  00  00 
0651A5  44  57  56  45  00  00 


CNITB2: 


CNITBl 


111110 

llllllB) 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

675607., 

1B2I1B7! 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


7 

/DPE/ 

/EXCEP/ 

/LN6-WC/ 

/SHT-WC/ 

/CHN-ER/ 

/ORE/ 

/RAE/ 

/CNR/ 

/OVRRUN/ 

/MBCENB/ 

/ATTN/ 

/SCRFUL/ 

/ATN-EN/ 

/PCRFUL/ 

/DONE/ 

776370 

17B14I3B27 

/ARFULL/ 

/C8FULL/ 

/CCINH/ 

/CHNACl/ 

/CHNPLS/ 

/DF22/ 

/CEXC/ 

/ILFC/ 

/SDRAE/ 

/CDPE/ 

/CWPE/ 

/NXM/ 

/DBPE/ 

/EXCEP/ 

/CHAfJER/ 

/CCWRT/ 

/OVRRUN/ 

/ORE/ 

/ILC/ 

/PSFAIL/ 

/CBOV/ 

/RAE/ 

/ATTN/ 

/BUSY/ 

/DONE/ 


;MASK  -  1 
;MASK  -  2 


„„.:j, 
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SEQ  0650 


21188 

21189 

21190 

21191 

21192 

21193 

21194 

21195 

21196 

21197 

21198 

21199 

21200 

21201 

21202 

21203 

21?04 

21205 

21206 

21207 

21208 

21209 

21210 

21^11 

21212 

21213 

21214 

21215 

21216 

21217 

21218 

21219 

21220 

21221 

l\222 

21223 

21224 

21225 

21226 

21227 

2«228 

21229 

21230 

21231 

21232 

21233 

21234 


.•CONTROLLER  INTERNAL  REGISTER  BIT  TABLES 


065146 

065146  000  00  0  00  000000 

065147  007770  600000 

065150 

065150  002200  200000 

065151  005570  400000 

065152  62  43  54  60  00  00 

065153  63  64  57  62  45  00 

065154  44  64  45  63  00  00 

065155  000  00  0  00  000000 

065156  007777  777000 

065157  000  00  0  00  000000 

065160  007777  000000 

065161  000  00  0  00  COOOOO 

065162  007777  777717 

065163  000000  001773 

065164  007777  776004 

065165  44  15  70  46  45  62 

065166  44  15  43  42  64  00 

065167  44  15  42  41  62  64 

065170  44  15  45  60  64  00 

065171  44  15  62  67  41  54 

065172  44  15  45  70  45  60 
06  5173  4h  15  4*^  42  54  00 
063174  44  15  41  64  41  00 

065175  44  1?  43  54  53  00 

065176  003100  600100 

065177  004670  100000 

065200  43  42  64  57  00  00 

065201  44  42  64  57  00  00 

065202  55  15  55  57  44  45 

065203  47  45  56  45  44  60 

065204  44  70  45  63  00  00 

065205  67  64  45  66  55  00 

065206  000003  000  JO 

065207  007774  777000 

065210  53  51  51  56  64  00 

065211  53  41  51  56  64  00 


R70TBL: 
R72TBL: 

777B14!1B18!1B19 

R71TBL: 
R73TBL: 

2200^,200000 
5570,-400000 
SIXBIT  /RCLP/ 
SIXBIT  /STORE/ 
SIXBIT  /DTES/ 

R74TBL: 

7777777B2t 

R75TBL: 

7777&]7 

R76TBL : 

7777By7\777777 

R77TBL : 

^77l 

7777Brr.77600^ 
SiXBIT  /D-XFER/ 
SiXBIT  /D-CBT/ 
SIXBIT  /D-BART/ 
SIXBIT  /D-EPT/ 
SIXBIT  /D-RWAL/ 
SIXBIT  /D-EXEP/ 
SIXBIT  /D-EBL/ 
SIXBIT  /D-ATA/ 
SIXBIT  /D-CLK/ 

R40TBL: 

3B8I1B11!3B19!1B29 
1B613B10!7B1411B20 
SIXBIT  /CBTO/ 
SIXBIT  /DBTO/ 
SIXBIT  /M-MODE/ 
SIXBIT  /6ENEDP/ 
SIXBIT  /DXES/ 
SIXBIT  /WTEVM/ 

R44T8L: 

3b:^ 

77.   Jl  7!  777826 
SIXBIT  /Kim/ 

SIXBIi   /KAJNT/ 

l^ 


DDRPl  - 
DDRPIA 

21235 

21236 

21237 

21238 

21239 

21240 

212A1 

212A2 

21243 

21244 

21245 

21246 

21247 

21?48 

21249 

21250 

21251 

21252 

21253 

21254 

21255 

21256 

21257 

21258 

21259 

21260 

21261 

21262 

21263 

21264 

21265 
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SEQ  0651 


065212 
065213 
065214 
065215 
065216 
06521" 

065220 
065221 
065222 
065223 
065224 
0652^5 
065226 
065227 
065230 
065231 

065232 
065232 
065232 


065233 
065234 
065235 
065236 
065237 
065240 
065241 


000017  000000 
007770  000000 

44  42  15  57  44  44 

45  66  15  42  71  64 
57  44  15  42  71  64 
60  41  62  42  51  64 

000000  000377 
000777  777*00 
62  41  45  15  27  00 
62  41  45  15  26  00 
62  41  /;5  15  25  00 
62  41  h5  15  24  00 
62  41  45  15  23  00 
62  41  45  15  22  00 
62  41  45  15  21  00 
62  41  45  15  20  00 


000777  777777 


001600  600000 
006170  000000 
60  41  62  1!)  45  62 
44  62  41  45  63  00 
64  62  41  00  00  00 
47  45  56  15  45  60 
6u  41  62  42  51  64 


R50TBL: 


17B17 

777B14 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


/DB-ODD/ 
/EV-BYT/ 
/OD-BYT/ 
/PARBIT/ 


R54TBL:  377 

777B17I777400 

SIXBIT  /RAE-7/ 

SIXBIT  /RAE-6/ 

SIXBIT  /RAE-5/ 

SIXBIT  /RAE-4/ 

SIXBIT  /RAE-3/ 

SIXBIT  /RAE-2/ 

SIXBIT  /RAE-1/ 

SIXBIT  /RAE-0/ 


R60TBL: 
R64TBL: 


777,. 777777 


;LEFT  SIDE  BIT  TABLE  FOR  EXTERNAL  (DEVICE)  REGISTERS 

LHTBL2:  1B81 1B9I 1810! 1B18! 1B19 
6B8I17B14 
SIXBIT  /PAR-ER/ 


SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 


/DRAES/ 
/TRA/ 
/6EN-EP/ 
/PARBJT/ 
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SEQ  0652 


21266 

21267 

21268 

21269 

21270 

21271 

21272 

21273 

21274 

21275 

21276 

21277 

21278 

21279 

21280 

21281 

21282 

21283 

21 284 

21285 

21286 

21287 

21288 

21289 

21290 

21291 

21292 

21293 

21?94 

21295 

21296 

?1?97 

21298 

21299 

21300 


065242 
065243 
065244 
065245 
065246 
065247 
065250 
065251 
065252 


065253 
065254 
065255 
065256 
065257 


065260 
065261 
065262 
065263 
065264 
065265 
065266 
065267 
065270 
065271 
065272 
065273 


007600 
000170 
43  64  57 
43  42  64 

43  42  60 

44  64  41 
51  54  43 
47  45  56 
60  41  62 


600000 
000000 

44  00  00 
57  00  00 

45  00  00 
15  54  64 
00  00  00 
45  66  43 
42  51  64 


LHTBL1 


7600,. 6B20 

170, ,6 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


/CTOD/ 

/CBTO/ 

/CBPE/ 

/DTA-LT/ 

/ILC/ 

/6ENEVC/ 

/PARBIT/ 


.•OPTION  BITS  FOR  KLIO  OP-DATA  CCWS 


700000  000000 
000  00  0  00  000000 
57  60  44  41  64  41 
54  63  64  70  46  62 
62  44  15  62  45  66 


760760  000000 
017000  000000 

54  57  47  57  65  64 

55  15  60  41  62  00 
63  42  65  63  45  56 

56  67  43  63  11   00 

56  70  55  00  00  00 
54  63  64  70  45  62 
62  50  15  45  62  62 
54  56  47  15  67  A3 
6^  50  64  15  67  43 

57  66  62  62  65  56 


CCWTBL: 


7B2 

Z 

SIXBIT 

SIXBIT 

SIXBIT 


/OPDATA/ 
/LSTXFR/ 
/RD-REV/ 


;BIT  PRINTER  FOR  CHANNEL  LOGOUT  WORD  -#1 

LOSTBL:  76B5176B14 
17B8 

SIXBIT  /LOGOUT/ 

SIXBIT  /M-PAR/ 

SIXBIT  /SBUSEN/ 

SIXBIT  /NWCSZ/ 

SIXBIT  /NXM/ 

SIXBIT  /LSTXER/ 

SIXBIT  /RH-ERR/ 

SIXBIT  /LNG-WC/ 

SIXBIT  /SHT-WC/ 

SIXBIT  /GVRRUN/ 

X'  1ST 

IFN  RPOX,<LIST 
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SEQ  0653 


21301 

21302 

21303 

2130A 

21305 

21306 

21307 

21308 

21309 

21310 

21311 

2131d 

21313 

21314 

21315 

21316 

21317 

21318 

21319 

21320 

21321 

21322 

21323 

2132A 

21325 

21326 

21327 

21328 

21329 

21330 

21331 

21332 

21333 

2133A 

21335 

21336 

21337 

21338 

21339 


065274 
065275 
065276 

065277 

065300 

065301 

065302 

065303 

065304 

065305 

065306 

065307 

065310 

065311 

065312 

065313 

065314 

06i>315 

065316 

065317 

065320 


065321 
065322 
065323 
065324 
065325 
065326 
065327 
065330 
065^31 
06  32 
06:>333 
065334 


000000  004000 
000000  1 73700 
44  66  41   00  00  00 


;HERE  ARE  THE  BIT  PRINTER  TABLES  FOR  DEVICE  REGISTERS 

ROOTBL:  1B24 

17B23 137829 
SIXBIT  /DVA/ 


000000  1 
000  00  0 
41  64  41 
45  62  62 
60  51  60 
55  57  54 
67  64  15 
54  63  64 
oO  47  55 
44  60  62 
44  62  71 
66  66  00 
44  ;5  21 
44  54  26 
47  62  66 
44  51  47 
44  46  22 
44  46  25 


77777 
00  000000 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
54  57  53 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
24  00  00 
00  00  00 
42  00  00 
20  00  00 
00  00  00 


R01TBL: 


^77777 

I 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 

SIXBIT 


/ATA/ 

/ERR/ 

/PIP/ 

/«0L/ 

/WT-LOK/ 

/LST/ 

/PGM/ 

/DPR/ 

/DRY/ 

/VV/ 

/DEI/ 

/DL64/ 

/GRV/ 

/DI6B/ 

/DF20/ 

/DF5/ 


000000  1 77700 
000000  000077 
41  64  41  00  00  00 
45  62  62  00  00  00 
6u  51  60  00  00  00 
55  57  54  00  00  00 
67  64  15  54  57  53 
54  63  64  00  00  00 
60  47  55  00  00  00 
44  60  62  00  00  00 
44  62  71  00  00  00 
66  66  00  00  00  00 


R01TBA:  177700 
77B35 

SIXBI./ATA/ 
SIXBIT/ERR/ 
SIXBIT/PIP/ 
SIXBIT/MOL/ 
SIXBIT/WT-LOK/ 
SIXBIT/LST/ 
SIXBIT/PGM/ 
SIXBIT/DPR/ 
SIXBIT/DRY/ 
SIXBIT/VV/ 


ODRPl  - 
DDRPIA 

213A0 

213A1 

213A2 

21343 

213AA 

213A5 

213A6 

213A7 

213A8 

213A9 

21350 

21351 

21352 

21353 

2135A 

21355 

21356 

21357 
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SEQ  065A 


065335 

000000  1 

065336 

000  00  0 

065337 

AA  A3  53 

0653A0 

65  56  63 

0653A1 

57  60  51 

0653A2 

AA  6A  A5 

0653A3 

67  5A  A5 

0653AA 

51  A1  A5 

0653A5 

A1  57  A5 

0653A6 

50  A3  62 

0653A7 

50  A3  A5 

065350 

A5  A3  50 

065351 

67  A3  A6 

065352 

A6  A5  62 

065353 

60  A1  62 

06535A 

62  55  62 

065355 

51  5A  62 

065356 

51  5A  A6 

11111 

00  000000 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
A3  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 
00  00  00 


R02TBL: 


Mini 
I 

SIXBIT 

/DCK/ 

SIXBIT 

/UNS/ 

SIXBIT 

/OPI/ 

SIXBIT 

/DTE/ 

SIXBIT 

/WLE/ 

srxBiT 

/lAE/ 

SiXBIT 

/AOE/ 

SIXBIT 

/HCRC/ 

SIXBIT 

/HCE/ 

SIXBIT 

/ECH/ 

SIXBIT 

/WCF/ 

SIXBIT 

/FER/ 

SIXBIT 

/PAR/ 

SIXBIT 

/RMR/ 

SIXBIT 

/ILR/ 

SIXBIT 

/ILF/ 
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SEQ  0655 


21358 

065357 

000000  003777 

R03TBL:  3777 

21359 

065360 

000000  174000 

1 74B26 

21360 

065361 

50  51  15  43  56  64 

SIXBIT 

/HI-CNT/ 

21361 

065362 

63  71  56  42  51  64 

SIXBIT 

/SYNBIT/ 

21362 

065363 

72  62  57  44  45  64 

SIXBIT 

/ZRODET/ 

21363 

065364 

44  41  15  45  56  66 

SIXBIT 

/DA-ENV/ 

2136A 

065365 

45  43  15  45  56  66 

SIXBIT 

/EC-ENV/ 

21365 

065366 

55  15  67  62  64  00 

SIXBIT 

/M-WRT/ 

21366 

065367 

55  15  62  44  00  00 

SIXBIT 

/M-RD/ 

21367 

065370 

55  15  63  43  54  53 

SIXBIT 

/M-SCLK/ 

21368 

065371 

55  15  51  56  44  70 

SIXBIT 

/M-INDX/ 

21369 

065372 

55  15  43  54  53  00 

SIXBIT 

/M-CLK/ 

21370 
21371 
21372 

065373 

55  15  55  57  44  45 

SIXBIT 

/M-MODE/ 

065374 

000000  000377 

R04TBL:  377 

21373 

065375 

000000  177400 

1774B29 

21374 

065376 

41  64  41  15  20  21 

SIXBIT 

/ATA-07/ 

21375 

065377 

41  64  41  15  20  26 

SIXBIT 

/ATA-06/ 

21376 

065400 

41  64  41  15  20  25 

SIXBIT 

/ATA-05/ 

21377 

065401 

41  64  41  15  20  24 

SIXBIT 

/ATA-04/ 

21378 

065402 

41  64  41  15  20  23 

SIXBIT 

/ATA-03/ 

21379 

065403 

41  64  41  15  20  22 

SIXBIT 

/ATA-02/ 

21380 

065404 

41  64  41  15  20  21 

SIXBIT 

/ATA-01/ 

21381 
21382 
21383 

065405 

41  64  41  15  20  20 

SIXBIT 

/ATA-00/ 

065406 

000  00  0  00  000000 

R05TBL:  Z 

21384 

065407 

000000  160340 

16B23I34B32 

21385 

21386 

065410 

000000  164000 

R06TBL:  16B23!4B26 

21387 

065411 

000000  001000 

1B26 

21388 

065412 

5o  42  41  00  00  00 

SIXBIT 

/NBA/ 

21389 

065413 

64  41  60  45  00  00 

SIXBIT 

/TAPE/ 

21390 

065414 

55  57  66  15  50  44 

SIXBIT 

/MOV-HD/ 

21391 

065415 

11   64  62  41  43  53 

SIXBIT 

/7TRACK/ 

21392 

065416 

44  62  61  00  00  00 

SIXBIT 

/DRQ/ 

21393 

065417 

63  54  66  60  62  00 

SIXBIT 

/SLVPR/ 

21394 

DDRPl  - 
DDRPI4 

Z^395 

21?96 

21397 

21398 

21399 

21A00 

21401 

21402 

21403 

21404 

21405 

21406 

21407 

21408 

21409 

21410 

21411 

21412 

21413 

21414 

21415 
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SEQ  0656 


065420  000  00  0  00  000000 

065421  000000  174000 

065422  000  00  0  00  000000 

065423  000  00  0  00  000000 

065^24  000000  116000 

065425  000000  061400 

065426  63  47  56  43  50  47 

065427  46  55  64  22  22  00 

065430  45  43  15  51  56  50 

065431  50  43  15  51  56  50 

065432 

065432  000  00  0  00  000000 

065433  000000  177000 


065434 

065434  000  00  0  00  000000 

065435  000000  176000 


R07TBL: 
R10TBL: 
R11TBL: 


R12TBL: 
R13TBL: 


174B26 

Z 
I 

1B20I1B23I6B26 
6B23!14B29 
SIXBIT  /S6NCH6/ 
SIXBIT  /FMT22/ 
SIXBIT  /EC-INH/ 
SIXBIT  /HC-INH/ 


Z 
177B26 


R12TBA: 
R13TBA:   Z 

176B26 
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SEQ  0657 


2U16 

21417 

21418 

21419 

21420 

21421 

21422 

21423 

2142A 

21425 

21426 

21427 

21428 

21429 

21430 

21431 

21432 

21433 

21434 

21435 

21436 

21437 

21438 

21439 

21440 

21441 

21442 

21443 

21444 

21445 

21446 

21447 

21448 

21449 

21450 

21451 

21452 

21453 

21454 

21455 

21456 

2^457 

21458 

21459 

21460 


065436 

065437 

065440 

065441 

065442 

065443 

065444 

065445 

065446 

065447 

065450 

065451 

065452 

065453 

065454 

065455 

065456 

065457 

065460 

065461 

065462 

065463 

065464 

065465 

065466 

065467 

065470 

065471 

065472 

065473 

065474 

065475 


065476 
065477 
065500 
065501 
065502 
065503 
065 50 A 
065305 
065506 
065507 


000000  027777 
000000  150000 
60  54  65  00  00  00 
51  70  45  00  00  00 
56  50  63  00  00  00 

55  50  63  00  00  00 
67  62  65  00  00  00 
41  42  63  00  00  00 
64  65  46  00  00  00 
64  44  46  00  00  00 
62  41  67  00  00  00 
43  63  65  00  00  00 
67  63  65  00  00  00 
43  63  46  00  00  00 
67  43  65  00  00  00 
000000  137777 
000000  040000 

41  43  65  00  00  00 
60  54  65  00  00  00 
23  20  66  00  00  00 
51  70  45  00  00  00 

56  50  63  00  00  00 
55  50  63  00  00  00 
67  62  65  00  00  00 
46  45  56  00  00  00 
64  65  46  00  00  00 
64  44  46  00  00  00 
55  63  45  00  00  00 
43  63  65  00  00  00 
6?  63  65  00  00  00 
43  63  46  00  00  00 
67  43  65  00  00  00 


000000  160163 
000000  017614 
57  43  71  00  00  00 
63  53  51  00  00  00 
57  60  45  00  00  00 
41  43  54  00  00  00 
44  43  54  00  00  00 
23  25  46  00  00  00 
67  41  57  00  00  00 
44  43  65  00  00  00 


R14TBA:  21111 
15B23 

SIXBIT/PLU/ 
SIXBIT/IXE/ 
SIXBIT/NHS/ 
SIXBIT/MHS/ 
SIXBIT/URU/ 
SIXBIT/ABS/ 
SIXBIT/TUF/ 
SIXBIT/TDF/ 
SIXBIT/RAW/ 
SIXBIT/CSU/ 
SIXBIT/USU/ 
SIXBIT/CSF/ 
SIXBIT/WCU/ 

R14TBL:  137777 
4B23 

SIXBIT/ACU/ 
SIXBIT/PLU/ 
SIXBIT/30V/ 
SIXBIT/IXE/ 
SIXBIT/NHS/ 
SIXBIT/MHS/ 
SIXBIT/WRU/ 
SIXBIT/FEN/ 
SIXBIT/TUF/ 
SIXBIT/TDF/ 
SIXBIT/MSE/ 
SIXBIT/CSU/ 
SIXBIT/WSU/ 
SIXBIT/CSF/ 
SIXBIT/WCU/ 


R15TBA: 


16B23I163B35 

176B29I14B35 

SIXBIT/OCY/ 

SIXBIT/SKI/ 

SIXBIT/OPE/ 

SIXBIT/ACL/ 

SIXBIT/DCL/ 

SIXBIT/35F/ 

SIXBIT/WAO/ 

SIXBIT/DCU/ 


r 


DDRPl  - 
DDRPK 

2H61 
2H62 
21463 
2U6A 
2K65 
2U66 
21A67 
21468 
21469 
21470 
21471 
21472 
21473 
21474 
21475 
21476 


RH10/RH20  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  X53B(1242)  15:51  28-Aug-85  Page  55 

MAC  28-Aug-85  12:02        REG-CONI  PRINTER  LOOKUP  TABLES 

065510  000000  140173 

065511  000000  037604 

065512  57  43  71  00  00  00 

065513  63  53  51  00  00  00 

065514  41  43  54  00  00  00 

065515  44  43  54  00  00  00 

065516  44  51  63  00  00  00 

065517  65  67  62  00  00  00 

065520  66  65  46  00  00  00 

065521  60  63  65  00  00  00 

065522  000  00  0  00  000000 

065523  000000  160000 

065524  000  00  0  00  000000 

065525  000000  174000 


SEQ  0658 


R15TBL: 

14B231173 

37604 

SIXBIT 

/OCY/ 

SIXBIT 

/SKI/ 

SIXBIT 

/ACL/ 

SIXBIT 

/DCL/ 

SIXBIT 

/DIS/ 

SIXBIT 

/UWR/ 

SIXBIT 

/VUF/ 

SIXBIT 

/PSU/ 

R16TBL: 

Z 
16B23 

' 

R17T8L: 

174B26 
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SEQ  0659 


2K77 
21478 
21A79 
2K80 
21A81 
21A82 
21A83 
21  ASA 
21A85 
21A86 
21A87 
21A88 
21A89 
21A90 
21A91 
21A92 
21A93 
21A9A 
21A95 
21A96 
21A97 
21A98 


XLIST 

LIST 

;HERE  ARE  THE  1 

065526 

R20TBL: 

065526 

R21TBL: 

065526 

R22TBL: 

065526 

R23TBL: 

065526 

R2ATBL: 

065526 

R25TBL: 

065526 

R26TBL: 

065526 

R27TBL: 

065526 

R30TBL . 

065526 

R31 TBL . 

065526 

R32TBL 

065526 

R33TBL 

065526 

R3ATBL 

065526 

R35TBL 

065526 

R36TBL 

065526 

000  00  0  00  000000 

R37TBL 

:  Z 

065527 

000000  \niii 

M7777 

;HERE  ARE  THE  NULL  BIT  TABLES  FOR  UNIMPLEMENTED  MASSBUS  REGISTERS 


.„ J 
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SEQ  0660 


2U99 
21500 
21501 
21502 
21503 
21504 
21505 
21506 
21507 
21508 
21509 
21510 
21511 
21512 
21513 
215U 
21515 
21516 
21517 
21518 
21519 
21520 
21521 
21522 
21523 
2152A 
21525 
21526 
21527 
21528 
21520 
2157 
215i'i 
21532 
21533 
2153A 
21535 
21536 
21537 
21538 
21539 
21540 
21541 
21542 
21543 
21544 
21545 
21546 
21547 
1548 
1549 
1550 


065530 
065530 
065531 
065532 
065533 
065534 
065535 

065536 
065536 
U65537 
065540 
065541 
065542 
065543 
065544 
065545 
065546 
065547 
065550 
065551 
065552 
065553 
065554 
065555 
065556 
065557 
065560 

065561 
065562 
065563 
065564 
065565 
065566 


261  17  0  00  000000 
030  00  0  00  077071 
135  00  0  00  077076 
037  06  0  00  000000 

262  17  0  00  000000 

263  17  0  00  000000 


261  17 
030  00 
135  00 
037  01 
03  J  00 
135  00 
434  00 
213  00 
260  17 
030  00 
200  00 
037  02 
602  01 
254  00 
030  00 
334  00 
030  00 

262  17 

263  17 


0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000000 
077077 
074760 
000000 
077101 
C77104 
077105 
OOOOOQ 
066163 
077106 
000001 
000000 
000010 
065556 
077111 
OOOOOQ 
077113 
000000 
000000 


261  17  0  00  000000 
030  00  0  00  077115 
200  00  0  00  000001 
037  03  0  00  000000 

262  17  0  00  000000 

263  17  0  00  000000 


SUBTTL  REGISTER  BYTE  INFORMATION  PRINTERS 
XLIST 
LIST 

;*  REGISTER  BYTE  PRINT  ROUTINES 


COMMENT  $ 


THESE  ARE  THE  ROUTINES  THAT  PRINT  THE  DATA  FROM 
VARIOUS  REGISTERS  WHEN  THE  DATA  IS  ORGANIZED  IN 
BYTES. 

$ 

XLIST 


R70SER: 
R72SER: 


R71SER: 
R73SER: 


PUT 

TEXT 

LDB 

PNT6 

GET 

RTN 


PUT 

TEXT 

LDB 

PNTl 

TEXT 

LDB 

I  OR 

MOVNS 

GO 

TEXT 

MOVE 

PNT2 

TRNE 

JRST 

TEXT 

SKI  PA 

TEXT 

GET 

RTN 


R74SER:  PUT 
TEXT 
MOVE 
PNT3 
GET 
RTN 


CASCIZ/  BLOCK  ADDRESS  FIELD=/3 
[POINT  16,1,353 


CASCIZ/  DRIVE=/] 
[POINT  3,1,17] 

CASCIZ/  +  BLOCK  CNT=/3 

0, [POINT  10,1,29] 

[-1,, 7760005 

0,0 

PSDN 

[ASCIZ/  FNCTN'^GO=/] 

0,1 

1,1832 

[ASCIZ/(WRITE)/] 

[ASCIZ/(READ)/] 
0 


0 

[ASCIZ/INT  VECT  ADDR=/] 

0,1 


;MAKE  POSITIVE 
;PRINT  IN  DECIMAL 


.•PRINT  LOU  ORDER  6  BITS 
;READ  OR  WRITE  ?? 


ODRPl  - 
DDRPK 

21551 

21552 

21553 

21554 

21555 

21556 

21557 

21558 

21559 

21560 

21561 

21562 

21563 

21 564 

21565 

21566 

21567 

21568 

21569 

21570 

21571 

21572 

21573 

2157A 

21575 

21576 

21577 

21578 

21579 

21580 

21581 

21582 

21583 

2158A 

21585 

21586 

21587 

21588 

21589 

21590 

21591 

21592 

21593 

21594 

21595 

21596 
21597 

21598 
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SEQ  0661 


065567 
065570 
065571 
065572 
065573 
065574 

065575 

065576 

065577 

065600 

065601 

065602 

065603 

065604 

065605 

065606 

065607 

065610 

065611 

0656 

0656 

0656K 

06561 5 

065616 

065617 
065620 
065621 
065622 
065623 
065624 

065625 
065626 
065627 
065630 
065631 
065632 


065o33 
065634 
065635 
065636 
065637 
065640 


261  17 
030  00 
200  00 
037  06 

262  17 

263  17 


0  00  000000 
0  00  077120 
0  00  000001 
0  00  000000 
0  00  000000 
0  00  000000 


261  17  0 
030  00  0 
135  00  0 
037  01  0 
030  00  0 
135  00  0 
242  00  0 
260  17  0 
030  00  0 
200  00  0 
037  02  0 
602  01  0 
254  00  0 
030  00  0 
334  00  0 
030  00  0 

262  17  0 

263  17  0 


00  000000 
00  077077 
00  074760 
00  000000 
00  077122 
00  077126 
00  000001 
00  066174 
00  077106 
00  000001 
00  000000 
00  000010 
00  065614 
00  077111 
00  000000 
00  077113 
00  000000 
00  000000 


261  17  0  00  000000 
030  00  0  00  077115 
200  00  0  00  000001 
037  03  0  00  000000 
2oJ  17  0  00  000000 
263  17  0  00  000000 

261  17  0  00  000000 
030  00  0  00  077127 
200  00  0  00  000001 
037  06  0  00  000000 

262  17  0  00  000000 

263  17  0  00  000000 


261  17  0  00  000000 
030  00  0  00  077132 
200  00  0  00  000001 
037  13  0  00  000000 

262  17  0  00  000000 

263  17  0  00  000000 


R75SER:  PUT 
TEXT 
MOVE 
PNT6 
GET 
RTN 

R40SER:  PUT 
TEXT 
LDB 
PNTl 
TEXT 
LDB 
LSH 
GO 
TEXT 
MOVE 
PNT2 
TRNE 
JRST 
TEXT 
SKIPA 
TEXT 
GET 
RTN 

R44SER:  PUT 
TEXT 
MOVE 
PNT3 
GET 
RTN 

R50SER:  PUT 
TEXT 
MOVE 
PNT6 
GET 
RTN 


CASCIZ/READ  REG=/] 
OJ 


CASCI2/  DRIVE=/] 
[POINT  3  J ,17] 

[ASCIZ/INITIAL   CW  ADDR=/: 

0,CPOINT  8,1,28] 

0,1 

POCT 

CASCIZ/  FNCTN^-GO=/] 

0,1 


1,1B32 

[ASCIZ/(WRITE)/] 

CASCIZ/(READ)/] 
0 


[ASCIZ/INT  VECT  ADDR=/] 
0,1 

0 


[ASCIZ/  DATA  BUFFER^/] 
0,1 


.-READ  OR  WRITE 


; ASSUMES  36  BIT  DATA  IN  ACI 


CBUFPT:  PUT 
TEXT 
MOVE 
PNTHW 
GET 
RTN 


[ASCIZ/CHAN  BUFF=/] 
0,1 
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SEQ  0662 


21599 

21600 

21601 

21602 

21603 

2160A 

21605 

21606 

21607 

21608 

21609 

21610 

21611 

21612 

21613 

216U 

21615 

21616 

21617 

21618 

21619 

21620 

21621 

21622 

21623 

21624 

21625 

21626 

21627 

21628 

21629 

21630 

21631 

21632 

21633 

2163A 

21635 

21636 

21637 

21638 

21639 

216A0 

21641 

21642 

21643 

21644 

21645 

21646 

21647 

21648 

21649 

21650 

21651 


065641 
065642 
065643 
065644 
065645 
065646 
065647 
065650 
065651 
065652 
065653 
065654 
065655 
065656 


17 
17 


261 
261 
030  00 
201  02 
135  00 
270  02 
200  00 
037  00 
030  00 
135  00 
037  01 
262  17 
262 
263 


17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
0 

00 
00 
02 
CO 
00 
00 
00 
00 
00 
00 


000000 

.:^ooo2 

C?  135 
^  3o57 
U/7140 
000000 
000000 
000002 
077141 
077143 
000000 
000002 
000000 
000000 


065657 

065660 

065661 

065662 

065663 

065664 

065665 

065666 

065667 

065670 

065671 

065672 

065673 

065674 

065675 

065676 

065677 

065700 

065701 

065702 

065703 

065704 

065705 

065706 

065707 

065710 

065711 

065712 

065713 

065714 

065715 

065716 


56  57 
65  56 
63  45 
62  45 
44  62 
62  45 

57  46 
62  64 

62  45 
6v  41 
51  54 
51  54 

63  45 


51 
51 
51 
51 
51 
51 
51 


54 
54 
54 
54 
54 
54 
54 


67  64 
67  64 
51  54 
51  54 
67  62 
67  62 
51  54 
51  54 
62  45 


51 


44 
54 
54 


15 
54 
45 
43 
66 
54 
46 
56 
41 
53 
46 
46 
41 
46 
46 
46 
46 
46 
46 
46 
43 
43 
46 
46 
64 
64 
46 
46 
41 
50 
4d 
46 


57 

57 

53 

41 

43 

63 

63 

15 

44 

41 

15 

15 

62 

15 

15 

15 

15 

15 

15 

15 

53 

53 

15 

15 

44 

50 

15 

15 

44 

13 

15 

15 


60  00 
41  44 
00  00 
54  00 
54  62 
45  00 
45  64 
43  54 
51  56 
43  53 
21  22 
21  23 

43  50 
21  25 
21  26 

21  27 

22  20 
22  21 
22  22 
22  23 

44  00 
50  44 
22  26 

22  27 
64  41 
13  ^4 

23  ?2 
23  23 
00  00 
44  00 


XLIST 
LIST 

ROOSER:  PUT 
PUT 
TEXT 
MOVE  I 
LDB 
ADD 
MOVE 
PNTSIX 
TEXT 
LD8 
PNTl 
GET 
GET 
RTN 


0 

2 

CASCIZ/  FNCTN(30-34)=/J 

2,RPFNCT 

0, [POINT  5,1,34] 

2,0 

0,(2) 

CASCIZ/  G0-BIT=/J 
[POINT  1,1,35] 


2 
0 


;GET  SIXBIT  TABLE  ADDR 
;6ET  FUNCT  BITS 
;MAKE  AN  INDEX  POINTER 
.•FETCH  SIXBIT  NAME 
.•PRINT  IN  SIXBIT 


.•HERE'S  THE  CONTROL  REG  FUNCTION  TABLE 
.•WITHOUT  THE  GO  BIT 


RPFNCT: 


SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
SIXBIT 
:IXBIT 
SIXBIT 
SIXBIT 


/NO-OP/ 

/UNLOAD/ 

/SEEK/ 

/RECAL/ 

/DRVCLR/ 

/RELSE/ 

/OFFSET/ 

/RTN-CL/ 

/READIN/ 

/PAKACK/ 

/ILF-12/ 

/ILF-13/ 

/SEARCH/ 

/ILF-15/ 

/ILF-16/ 

/ILF-17/ 

/ILF-20/ 

/ILF-2'i/ 

/lLf-22/ 

/ILF-23/ 

/WTCKD/ 

/WTCKHD/ 

/ILF-26/ 

/lif'27/ 

/WRTDTA/ 

/WRTH^D/ 

/ILF-32/ 

/ILF-33/ 

/READ/ 

/RDH*D/ 

/ILF-i6/ 

/ILF-37/ 


..J 
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SEQ  0663 


21652 

21653 

2165A 

21655 

21656 

21657 

21658 

21659 

21660 

21661 

21662 

21663 

2166A 

21665 

21666 

21667 

21668 

21669 

21670 

21671 

21672 

21673 

2167A 

21675 

21676 

21677 

21678 

21679 

21680 

21681 

21682 

21683 

2168A 

21685 

21686 


065717 
065720 
065721 
065722 
065723 
06572A 
065725 
065726 
065727 

0657^0 

065731 

065732 

065733 

065734 

065735 

065736 

065737 

0657A0 

065741 

065742 

065743 

065744 

065745 

065746 

065747 

065750 

065751 

065752 

065753 

065754 

065755 

065756 

065757 

065760 


261 
030 
135 
260 
030 
135 
260 
262 
263 


17 
00 
00 
17 
00 
00 
17 
17 
17 


261  17 
261  17 
402  00 
030  00 
135  02 
306  02 
201  00 
306  02 
201  00 
306  02 
201  00 
306  02 
201  00 
306  02 
201  00 
306  02 
201  00 
332  00 


0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00  000000 
00  0V7144 
00  070114 
00  066174 
00  077146 
00  0675C6 
00  066174 
00  000000 
00  000000 


R05SER: 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
0  00 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


254  00  0  00 


037  05 
2u'  00 
037  17 
262  17 

262  17 

263  17 


0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 


000000 
000002 
000000 
077150 
070124 
020020 
077153 
024020 
077157 
020021 
077163 
024021 
077167 
02002? 
077173 
024022 
077177 
000000 
065755 
000000 
077203 
COOOOO 
000002 
000000 
000000 


PUT 

TEXT 

LD6 

GO 

TEXT 

LDB 

GO 

GET 

RTN 


R06SER:  PUT 
PUT 
SETZM 
TEXT 
LDB 
CAIN 
MOVE  I 
CAIN 
.  MOVE I 
CAIN 
MOVE  I 
CAIN 
MOVE  I 
CAIN 
MOVE  I 
CAIN 
MOVE  I 
SKIPE 
JRST 
PNT5 
MOVE  I 
PNTAl 
GET 
GET 
RTN 


CASCI2/  SURFACE=/] 

[POINT  5 J, 273 

POCT 

CASCIZ/  SECTOR=/] 

[POINT  5,1,35] 

POCT 

0 


0 

2 

0 

[ASCIZ/  DRIVE  TYPE^/: 

2, [POINT  15J,35] 

2,20020 

[ASCIZ/SINGLE  PORTED  Rt-04/] 

2,24020 

[ASCIZ/DUAL  PORTED  RP04/3 

2,20021 

[ASCIZ/SINGLE  PORTED  RP05/3 

2.2*02} 

[ASCIZ/DUAL  PORTED  RP05/: 

2,20022 

[ASCIZ/SINGLE  PORTED  RP06/3 

2,24022 

[ASCIZ/DUAL  PORTED  RP06/3 

0 

.^3 

[ASCIZ/  NON-SUPPORTED  DRIVE/J 


2 
0 
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SEQ  0664 


21687 

065761 

261  17  0  00  000000 

R07SER:  PUT 

0 

21688 

065762 

030  00  0  00  077K6 

TEXT 

[ASCIZ/  SECTOR=/] 

21689 

065763 

135  00  0  00  077210 

LDB 

[POINT  5,1,29] 

21690 

06576A 

260  17  0  00  066174 

GO 

POCT 

21691 

065765 

030  00  0  00  077211 

TEXT 

[ASCIZ/  EXTENTI0N=/3 

21692 

065766 

135  00  0  00  077214 

LDB 

[POINT  6  J, 35] 

21693 

065767 

260  17  0  00  066174 

60 

POCT 

.^169A 

065770 

262  17  0  00  000000 

GET 

0 

21695 

065771 

263  17  0  00  000000 

RTN 

21696 

21697 

065772 

261  17  0  00  000000 

R10SER:  PUT 

0 

21698 

065773 

030  00  0  00  077215 

TEXT 

[ASCIZ/  DRIVE  SER.  NO. 

=/] 

21699 

065774 

200  00  0  00  000001 

MOVE 

AC0,AC1 

;Copy  number 

21700 

065775 

037  15  0  00  000000 

PNTDEC 

;Print  it  in 

21701 

065776 

260  17  0  00  066130 

GO 

.PERIOD 

21702 

065777 

262  17  0  00  000000 

GET 

0 

21703 

066000 

263  17  0  00  000000 

RTN 

to  ACO 
decimal 


DDRPl  - 
DDRPIA 

2170A 

21705 

21706 

21707 

21708 

21709 

21710 

21711 

2171^ 

21713 

2171A 

21715 

21716 

21717 

21718 

21719 

21720 

21721 

21722 

21723 

21 72A 

21725 

21726 

21727 

21728 

21729 

21730 

21731 

21732 

21733 

21 73  A 

21735 

21736 

21737 

21738 

21739 

217A0 


RH10/RH20  -  RPOA/05/06  -  RELIABILITY  TEST  VERSION  0.15    MACRO  X53B(12A2)  15:51  28-Aug-85  Page  63 
MAC  28-Aug-85  12:02  REGISTER  BYTE   INFORMATION  PRINTERS 


SEQ  0665 


066001 
066002 
066003 
06600A 
066005 
066006 
066007 
066010 
06601 1 


06601 5 
066016 
06601 7 
066020 
066021 
066022 

066023 
06602A 
066025 
066026 
066027 
066030 

066031 
066032 
066033 
06603A 
066035 
066036 


261 
030 
135 
221 
602 
213 
260 
262 
263 


17 
00 
00 
00 
01 
00 
17 
17 
17 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


0  00 


0 
0 
0 


00 
00 
00 


000000 
077221 
077223 
000031 
000200 
000000 
066163 
000000 
000000 


R11SER: 


066012  261  17  0  00  000000 

066013  030  00  0  00  07722A 
06601 A  25 A  00  0  00  066017 


PUT 

TEXT 

LDB 

IMULI 

TRNE 

MOVNS 

GO 

GET 

RTN 


R12SER:  PUT 
TEXT 
JRST 


[ASCIZ/  OFFSET=/] 
[POINT  7,1,353 
*D25 
1,1828 

PSDN 
0 


;25  U-IN  PER  CNT 
.•ESTABLISH  DIRECTION 

;PRINT  IN  DECIMAL 


261  17  0  00  000000 
030  00  0  00  077230 
135  00  0  00  07723A 
037  16  0  00  000003 

262  17  0  00  000000 

263  17  0  00  000000 

261  17  0  00  000000 
030  00  0  00  077235 
135  00  0  00  077076 
260  17  0  00  066163 

262  17  0  00  000000 

263  17  0  00  000000 


R13SER: 
R1213C: 


R16SER: 


261 
030 

037 
262 
263 


17  0  00  000000 
00  0  00  0772A0 
00  0  00  0772A3 
OA  0  00  000000 
17  0  00  000000 
17  C  00  000000 


R17SER: 


PUT 

TEXT 

LDB 

PNTOCS 

GET 

RTN 

PUT 

TEXT 

LDB 

GO 

GET 

RTN 

PUT 

TEXT 

LDB 

PNTA 

GET 

RTN 

XL!ST 
LIST 


ff 

CASCIZ/  DESIRED  CYLINDER=/3 
R1213C 


CASCIZ/  CURRENT  CYLINDER=/] 
[POINT  10,1,353 


0 


[ASCIZ/  ECC  P0SITI0N=/3 

[POINT  16,1,353 

PSDN 


0 

[ASCIZ/  ECC  PATTERN'=/j 

[POINT  11,1,353 


;PRINT  IN  DECIMAL 
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SEQ  0666 


21741 

21742 

21743 

21744 

21745 

21746 

21747 

21748 

21749 

21750 

21751 

21752 

21753 

21754 

21755 

21756 

21757 

21758 

21759 

21760 

21761 

21762 

21763 

21764 

21765 

21766 

21767 

21768 

21769 

21770 

21771 

21772 

21773 

21774 

21775 

21776 

2\in 

2M79 
21780 
21781 
21782 
21783 
21784 
21785 
21786 
21787 
21788 
21789 
21790 
21791 


SUBTTL     BIT  PRINTER  ROUTINE     -TYPBIT- 
XLIST 
LIST 

;♦  TYPBIT  -  -  TABLE  BIT  PRINTER 


COMMENT  $ 


THIS  ROUTINE  IS  USED  TO  TRANSLATE  ONES  IN  A  36  BIT 
DATA  WORD  TO  A  SERIES  OF  EQUIV.  SIXBIT  MESSAGES  TAKEN 
FROM  A  TABLE.  THE  DESCRIPTION  OF  THE  TABLE  LAYOUT  IS  FOUND 
AT  THE  START  OF  THE  TABLE  SECTION.  THIS  ROUTINE  MERELY 
TRANSLATES  ONE  TO  SIXBIT  MESSAGES  AND  ALSO  TYPES  ERROR 
MESSAGES  IF  IT  FINDS  ONES  IN  BIT  POSITIONS  WHERE  THEY  ARE 
NOT  EXPECTED. 


EG. 


$ 

XLIST 


066037 
066040 
066041 
066042 
066043 
066044 
066045 
066046 
066047 
066050 
066051 
066052 


261 

17 

332  00 

254  00 

200  00 

603  00 

254  00 

261 

261 

261 

261 

261 

261 

0  00  000000 
0  00  077755 
0  00  066044 
0  00  030046 
0  00  000200 
0  00  066102 
0  00  000001 
0  00  000002 
0  00  000003 
0  00  000004 
0  00  000005 
0  00  000006 


TYPBIT: 


MOVE 
MOVE 
GO 
RETURN 


AC1,AR61 
AC2,ARG2 
TYPBIT 


PUT 

0 

SKIPE 

SHRE6 

JRST 

.*3 

MOVE 

CONSU 

TLNE 

TXTINH 

JRST 

EXGO 

PUT 

1 

PUT 

J 

PUT 

PUT 

4 

PUT 

5 

PUT 

6 

36  BITS  OF  DATA 

POINTER  TO  DESCRIPTOR  TABLE 

CALL  THE  ROUTINE 

RETURNS  ^1  ALWAYS 


FUNCTIONS  OF  AC'S 
AC     FUNCTION 


FOR  THIS  ROUTINE 


0 
1 
2 
3 
4 
5 
6 


USED  FOR  PRINTING 

HOLDS  36  BIT  DATA  WORD 

HOLDS  UPDATED  TABLE  POINTER 

HOLDS  MASK-1  (EXPECTED  VS) 

HOLDS  MASK-  2  (EXPECTED  O'S) 

A  SINGLE  BIT  MASK  (SHIFTS  TO  RIGHT) 

A  SCRATCH  AC  FOR  A  JFFO 


SAVE  ACO 

SHORT  PRINT  FORCED? 

YES 

GET  CONSOLE  SWITCHES 

SHORT  PRINTOUT  ONLY  ?? 

YES.  THEN  EXIT 

NO.  SAVE  SOME  MORE 


"1 
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SEQ  0667 


21792 

21793 

21794 

21795 

21796 

21797 

21798 

21799 

21800 

21801 

21802 

21803 

21804 

21805 

21806 

21807 

21808 

21809 

21810 

21811 

21812 

21813 

21814 

21815 

21816 

21817 

21818 

21819 

21820 

21821 

21822 

21823 

21824 

21825 

21826 

21827 

21828 

21829 

21830 

21831 

21832 

21833 


;GET  THE  AC'S  READY  TO  GO 


066053 
066054 
066055 
066056 
066057 
066060 
066061 
066062 
066063 
066064 
066065 
066066 
066067 
066070 
066071 
066072 
066073 
066074 
066075 
066076 
066077 
066100 
066101 
066102 
066103 


066104 
066105 
066106 
066107 

066110 
0661 1 1 
066112 
066113 
066114 
0661 1 5 
066116 


271 

200 

200 

400 

661 

616 

254 

612 

260 

350 

254 

616 

254 

612 

260 

242 

326 

262 

262 

262 

262 

262 

262 

262 

263 


02 
03 
04 
05 
05 
03 
00 
01 
17 
00 
00 
01 
00 
04 
17 
05 
05 
17 
17 
17 
17 
17 
17 
17 
17 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
02 
02 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


000002 

lllllii 

777777 
000000 
400000 
000005 
066066 
000005 
066104 
000002 
066072 
000005 
066072 
000005 
066110 
777777 
066060 
000006 
000005 
000004 
000003 
000002 
000001 
000000 
000000 


2uJ  00  0  02  000000 
260  17  0  00  066117 
037  00  0  00  000002 
263  17  0  00  000000 


030  00  0 
243  05  0 
200  00  0 
260  17  0 
260  17  0 
260  17  0 
263  17  0 


00  077244 
00  066112 
00  000006 
00  066163 
00  066133 
00  066117 
00  000000 


TSXl : 


TSX2: 


TSX3: 


EXGO: 


TSXM1 : 


TSXM2: 


ADDI 

2-2, 

MOVE 

3.-2(2) 

MOVE 

4.-1(2) 

SETZ 

5. 

TLO 

5.(1B0) 

TDNN 

3.5 

JRST 

TSX2 

TONE 

1,5 

GO 

TSXMl 

AOS 

2 

JRST 

TSX3 

TDNN 

1,5 

JRST 

TSX3 

TDNE 

4.5 

GO 

TSXM2 

LSH 

5.-1 

JUMPN 

5. TSXl 

GET 

r 

GET 

GET 

4 

GET 

3 

GET 

2 

GET 

1 

GET 

i§ 

RTN 

IE  THE  2 

MESSAGE  SUBf 

\0[) 

MOVE 

0.(2) 

GO 

.SPACE 

PNTSIX 

RTN 

TEXT 

CASCIZ/7BIT- 

•/] 

JFFO 

5..t1 

MOVE 

0.6 

GO 

PSDN 

GO 

.QUEST 

60 

.SPACE 

RTN 

GET  POINTER  TO  FIRST  MESSAGE 

GETS  FIRST  MASK  WORD 

GETS  SECOND  MASK  WORD 

CLEAR  THE  MASK 

AND  CREATE  A  SINGLE  BIT  MASK 

MW-1  A  ONE  ?? 

NO 

YES.  IS  DATA  BIT  A  ONE  ?? 

YES.  GO  PRINT  A  MESSAGE 

NO.  BUMP  THE  POINTER 

GO  AND  UPDATE  THE  MASK 

IS  DATA  A  ONE  ?? 

NO. 

YES.  MW-2  A  ONE  ?? 

YES.  GO  PRINT  ERROR  MSG 

SHIFT  MASK  BIT  TO  RIGHT 

JUMP  IF  MASK  IS  NOT  YET  ZERO 

OTHERWISE  RESTORE  AC'S 


;AND  RETURN 


GETS  MESSAGE 
FOLLOWED  BY  A  SPACE 
PRINTS  IT 


GET  REAL  BIT  POSITION 
GET  POSITION  FOR  PRINTING 
PRINT  IT 

THEN  A  QUESTION  MARK 
FOLLOWED  BY  A  SPACE 
AND  EXIT 


DDRPl  - 
DDRPIA 

2183A 

21835 

21836 

21837 

21838 

21839 

21840 

218A1 

21842 

21843 

21844 

21845 

21846 

21847 

21848 

21849 

21850 

21851 

21852 

21853 

21854 

21855 

21856 

21857 

21858 

21859 

21860 

21861 

21862 

21863 

21864 

21865 

21866 

21867 

21868 

21869 

21870 
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SUBTTL  ADDITIONAL  PRINT  UTILITIES 
XLIST 
LIST 

./If**********  «»*♦***♦♦•♦•♦♦♦♦♦*»•*♦*♦»*♦*»♦♦♦***♦♦*♦♦♦♦*♦♦♦*♦♦•*  *♦♦**♦*♦ 
;*  SOME  ADDITIONAL  PRINT  UTILITIES 

;4f********************** ♦*♦♦**♦***♦♦♦♦**♦»♦*♦♦*♦♦♦♦♦*♦*♦♦*♦♦♦♦♦ ♦♦*♦♦♦♦♦ 


SEQ  0668 


COMMENT  S 


ROUTINES  WHOSE  NAMES  ARE  PROCEEDED  WITH  A  PERIOD 
PRINT  ONLY  SINGLE  CHARACTERS.  THOSE  PROCEEDED  WITH  AN 
•T1"  PRINT  MULTIPLE  TIMES.  THE  NUMBER  OF  TIMES  IS 
SPECIFIED  BY  ACO  IN  THE  SUBROUTINE  CALL. 

THE  FOLLOWING  ARE  AVAIL: 


GO 

GO 

GO 

GO 

GO 

GO 

GO 

GO 

GO 

$ 

XLIST 


.CRLF   PRINTS  A  CRLF  (TYPICAL  CALL) 

.SPACE 

.TAB 

.DASH 

.PERIOD 

.QUEST 

MZERO 

.EQUAL 

.MINUS 


;HERE  ARE  THE  SINGLE  CHARACTER  PRINTERS 


066117  261 

066120  201 

066121  254 

066122  261 

066123  201 

066124  254 


17  0  00  000000 
00  0  00  000040 
00  0  00  066141 
17  0  00  000000 
00  0  00  000011 
00  0  00  066141 


.SPACE:  PUT 
MOVE  I 
JRST 

.TAB:   PUT 
MOVEI 
JRST 


0 
1 1  It 

CHROUT 

0 
•  • 

CHROUT 


DDRPl  - 
DDRPK 

21871 
21872 
21873 
21874 
21875 
21876 
21877 
21878 
21879 
21880 
21881 
21882 
21883 
21 884 
21885 
21886 
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SEQ  0669 


066125 
066125 

0661 26 

0661 27 
066130 
0661 31 
066132 
0661 33 
066134 

0661 35 

0661 36 

0661 37 
066140 
066141 
066142 
066143 


261 
201 
254 
261 
201 
254 
261 
201 
254 
261 
201 
254 
037 
262 
263 


17 
00 

?? 

00 
00 
17 
00 
00 
17 
00 
00 
12 
17 
17 


0 
0 
0 
0 
0 
0 
0 


00 
00 

00 
00 
00 


0  00 


0 
0 
0 
0 
0 
0 
0 


00 
00 
GO 
00 
00 
00 
00 


000000 
000055 
066141 
000000 
000056 
066141 
000000 
000077 
066141 
000000 
000075 
066141 
000000 
000000 
000000 


.MINUS: 
.DASH: 


.PERIOD 
.QUEST: 
.EQUAL: 
CHROUT: 


PUT 
MOVE  I 
JRST 
;  PUT 
MOVE  I 
JRST 
PUT 
MOVE  I 
JRST 
PUT 
MOVE  I 
JRST 
PNTCHR 
GET 
RTN 


0 


I  i  t  t 


CHROUT 
0 


II  II 


CHROUT 
0 

I  iMl  I 

CHROUT 

0 
I  i_i  I 

CHROUT 
0 


ODRPl  - 
DDRPI4 

21887 
21888 
21889 
21890 
21891 
21892 
21893 
21894 
21895 
21896 
21897 
21898 
21899 

21900 
21901 
21902 
21903 
21904 
21905 
21906 
21907 
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SEQ  0670 


066144 
066145 
066146 
066147 
0661 50 
066151 

0661 52 

0661 53 

0661 54 
066155 


066156 
066157 
066160 
066161 
066162 


261  17  0 
201  00  0 
254  00  0 

261  17  0 
200  01  0 
037  12  0 
367  01  0 

262  17  0 

262  M   0 

263  17  0 


00  000000 
00  000060 
00  066147 
00  000001 
17  777777 
00  000000 
00  066151 
00  000001 
00  000000 
00  000000 


261  17  0  00  000000 
201  00  0  00  030242 
037  17  0  00  000000 

262  17  0  00  000000 

263  17  0  00  000000 


;HERE  ARE  THE  MULTIPLE  CHARACTER  OUTPUT  ROUTINES. 
:M   OF  REPEATS  IS  SPECIFIED  BY  ACO  ON  THE  CALL. 


MZERO:  PUT 
MOVE  I 
JRST 

MLTCHR:  PUT 
MOVE 
PNTCHR 
SOJG 
GET 
GET 
RTN 


0 
"0" 

MLTCHR 

1 

1,-1(P) 

0 


;HERE  ARE  THE  CRLF  ROUTINES 


.CRLF:  PUT 
MOVE  I 
PNTAL 
GET 

.  RTN 


0 
CRLF 
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SEQ  0671 


21908 

21909 

21910 

21911 

21912 

21913 

219U 

21915 

21916 

21917 

21918 

21919 

21920 

21921 

21922 

21923 

21924 

21925 

21926 

21927 

21928 

21929 

21930 

21931 

21932 

21933 


XLIST 
LIST 

•  /If*************************************************************** ****** 

!•*  PSDN  -  -  PRINTS  SIGNED  DECIMAL  NUMBERS 

•if****************t **************************************************** 


COMMENT  $ 


PSDN  PRINTS  THE  CONTENTS  OF  ACO  AS  A  SIGNED  DECIMAL 

NUMBER  FOLLOWED  BY  A  PERIOD.  LEADING  ZEROS  ARE 

SURPRESSED. 

$ 

XLIST 


066163 
066164 
066165 
066166 
066167 
066170 
066171 
066172 
066173 


261 
321 
037 
260 
262 
263 
260 
210 
254 


17  0  00  000000 

PSDN: 

PUT 

0 

00  0  00  066171 

JUMPL 

0, PSDNl 

15  0  00  000000 

PSDNO: 

PNTDEC 

17  0  00  066130 

GO 

.PERIOD 

17  0  00  000000 

GET 

0 

17  0  00  000000 

RTN 

17  0  00  066125 

PSDNl : 

GO 

.MINUS 

00  0  17  000000 

MOVN 

0,(P) 

00  0  00  066165 

JRST 

PSDNO 

; PR I NT  THE  NUMBER 
;rOLLOW  WITH  A  PERIOD 


;PRINT  THE  MINUS  SIGN 
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SEQ  0672 


21 934 

21935 

21936 

21937 

21938 

21939 

219A0 

219A1 

21942 

21943 

21944 

21945 

21946 

21947 

21948 

21949 

21950 

21951 

21952 

21953 

21954 

21955 

21956 

21957 

21958 

21959 

21960 

21961 

21962 

21963 

21964 

21965 

21966 

21967 

21968 

21969 

21970 

21971 

21972 

21973 

21974 

21975 

21976 

21977 


XLIST 
LIST 

)♦  POCT  -  -  OCTAL  NUMBER  PRINTER 


COMMENT  $ 


POCT  PRINTS  THE  CONTENTS  OF  ACO  AS  AN  OCTAL  NUMBER 
LEADING  ZEROS  ARE  SURPRESSED. 
FUNCTIONS  OF  AC'S  FOR  THE  ROUTINE: 
m  FUNCTION 


im: 

HOLDS  PRINT  CHAR 

W- 

DIGIT  COUNTER 

;;»:':•"■ 

A  FLAG 

.  §^' ■  '  ^ 

OCTAL  DIGIT  BYTE  POINTER 

XLIST 

066174 

261  17  0  00  000000 

POCT: 

PUT 

0 

066175 

261  17  0  00  000001 

PUT 

1 

066176 

261  17  0  00  000002 

PUT 

2 

066177 

261  17  0  00  000003 

PUT 

3 

066200 

201  01  0  00  OOOOU 

MOVE  I 

1,*D12 

066201 

400  02  0  00  OOOOCO 

SETZ 

2'      ,  ,   , 

066202 

200  03  0  00  077246 

MOVE 

3, [POINT  3,-3(P)] 

066203 

134  00  0  OC  000003 

P0CT1: 

ILDB 

0,3   , 

066204 

3i:z   02  0  00  066212 

JUMPN 

2,POCT3 

066205 

322  00  C  00  066210 

JUMPE 

0,POCT2 

066206 

201  02  0  00  000001 

MOVE  I 

2-1  , 

066207 

254  00  0  00  066212 

JRST 

P0CT3 

066210 

302  01  0  00  000001 

P0CT2: 

CAIE 

IJ 

06621 1 

254  00  0  00  066214 

JRST 

P0CT4 

066212 

271  00  0  00  000060 

P0CT3: 

ADD  I 

0,60 

066213 

037  12  0  00  000000 

PNTCHR 

066214 

367  01  0  00  066203 

P0CT4: 

SOJG 

1,P0CT1 

066215 

262  17  0  00  000003 

GET 

3 

066216 

262  17  0  00  000002 

GET 

2 

06621:^ 

262  17  0  00  000001 

GET 

1 

066^20 

262  17  0  00  000000 

GET 

0 

066221 

263  17  0  00  000000 

RTN 

.-SAVE  AC'S 


#  OF  OCTAL  DIGITS  POSSIBLE 
ZERO  THE  FLAG 
BYTE  POINTER 
GETS  NEXT  DIGIT 
JUMP  IF  FLAG  NON  ZERO 
JUMP  IF  DIGIT  IS  ZERO 
SET  THE  FLAG 
GO  AND  CONVERT 
CNT=1  ?? 
NO 

CONVERT  TO  ASCII 
PRINT  THE  CHARACTER 
;LOOP  IF  COUNT  IS  NOT  YET  ZERO 


;AND  EXIT. 


DDRPl  - 
DDRPIA 

21978 

21979 

21980 

21981 

21982 

21983 

21984 

21985 

21986 

21987 

21988 

21989 

21990 

21991 

21992 

21993 

21 994 

21995 

21996 

21997 

21998 

21999 

22000 

22001 

22002 

22003 

22004 

22005 

22006 

22007 

22008 

22009 

22010 

22011 
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XLIST 
LIST 

)*  HERE  ARE  2  TEXT  UUO  UTILITIES 


SEQ  0673 


COMMENT  $ 


THESE  UUO'S  USE  THE  UUO  E-FIELD  AS  A  POINTER  TO  TEXT 
IN  ASCI2  FORMAT.  THEY  MERELY  PRINT  THE  TEXT  IN  THE 
NORMAL  OR  FORCED  PRINTOUT  MODE. 

THE  UUO'S  MUST  BE  DEFINED  IN  THE  PROGRAMS  TITLE  FILE 
EG.     OPDEF   TEXT    C30B8]  ;PRINT  NORMAL 
OPDEF   TEXTF   [31B8]  ;PRINT  FORCED 


.•SERVICE  ROUTINE 


066222  261  17  0  00  000000 

066223  550  00  0  00  030113 

066224  037  17  0  00  000000 

066225  262  17  0  00  000000 

066226  254  00  0  00  030065 

066227  261  17  0  00  000000 

066230  53 J  00  0  00  030113 

066231  037  17  0  00  000001 

066232  262  17  0  00  000000 

066233  254  00  0  00  030065 


TEXT.: 


TEXTF. 


f 

XLIST 

LUU030=  TEXT. 
LUU031=  TEXTF 

PUT 

HRRZ 

PNTAL 

GET 

JRST 

0 

o,$svuua 

0 
UUOEXT 

PUT 

HRRZ 

PNTALF 

GET 

JRST 

0 
CSSVUUO 

0 
UUOEXT 

SAVE  ACO 

GET  MESSAGE  ADDR 
PRINT  THE  MESSAGE 
RESTORE  THE  AC 
AND  EXIT  THE  UUO 

SAVE  THE  AC 

GET  MSG  ADDR  FROM  E-FIELD 

FORCE  PRINT  THE  MESSAGE 

RESTORE  THE  AC 

AND  EXIT 


- 1 

I 
i 
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STOR 

22012 
22013 
220U 
22015 
22016 
22017 
22018 
22019 
22020 
22021 
22022 
22023 
22024 
22025 
22026 
22027 
22028 
22029 
22030 
22031 
22032 


KLM 


18-Sep-79  17:18 


077303  000000  OOOCOO 
07730A 

077504 


*ST0R*  RESERVED  STORAGE,  SEPT  18,1979 

SUBTTL  ♦STOR*  RESERVED  STORAGE,  SEPT  18,1979 

.•PROGRAM  LITERALS 

XLIST 
LIST 
ENDSLD:  0 


SEQ  0674 


.•PATCHING  AREA 


IFDEF   DEBUG, < 
PATCH:  BLOCK  DEBUG 

> 

;PROGRAM  VARIABLES 
VAR 

IFDEF   PGMEND,< 
END:    0 

END     BEGIN   > 
;Z:<GSCOTT.DDRPI>DDRPI5.MAC.23  28-Aug-85  14:06:58.  Edit  by  GSCOTT 
;Add  MSTRB 


DDRPl  - 
DDRPI5 

22033 

22034 

22035 

22036 

22037 

22038 

22039 

22040 

22041 

22042 

22043 

22044 

22045 

22046 

22047 

22048 

22049 

22050 

22051 

22052 

22053 

22054 

22055 

22056 

22057 

22058 

22059 

22060 

22061 

22062 

22063 

22064 

22065 

22066 

22067 

22068 

22069 

22070 

22071 

22072 

22073 

22074 

22075 

22076 

2207r 

22078 

22079 

220^0 

22081 
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SUBTTL  STORE  FILE  FOR  DISK  PACK  RELIABILITY  TEST 
;ED  VER  10 

;*JSR  LINKAGES  FOR  THE  CLOCK  SERVICES 


SEQ  0675 


100035  000000  000000 

100036  254  00  0  00  054145 

100037  000000  000000 

100040  254  00  0  00  054154 

100041  000  00  0  00  000000 

100042  000  00  0  00  000000 


100062 
100063 
10006'. 
1 00u66 
100070 
100071 
100072 
100073 
100074 
100075 


000000  100063 


000  00  0  00  000000 
000  00  0  00  000000 
000  00  0  00  000000 
000  00  0  00  000000 


CLKSRV:  0 

JRST    CLSRV 

CLKINT:  0 

JRST    CLSRV2 

TIWCNT:  I 
FAILTM:  Z 


.•CLOCK  SERVICE 
.•RETURN  TO  PURE  AREA 

; CLOCK  SERVICE  LINK  FOR  CHN  2 
;TIME  FOR  1  MSEC  LOOP 


100043 
1 00044 

000000 

000017 

PAKNAM: 

17 
BLOCK 

2 

100046 
10004^ 

000  00 

0  00  000000 

RETNAM: 

Z 
BLOCK 

2 

100051 

lOBLK: 

BLOCK 

2 

100053 

MSTRB: 

BLOCK 

4 

100057 
100060 
100061 

000000 
000  00 
000  00 

000007 
0  00  000000 
0  00  000000 

DIA6TB: 

7 
I 
1 

•  /(f»*»*»»»  ♦♦♦♦♦♦»*♦♦♦♦♦♦♦♦#♦♦♦♦*♦  ♦♦•♦*♦♦♦♦*♦♦*♦♦**♦♦♦♦♦**♦♦♦*♦♦♦♦♦***♦♦♦♦♦♦ 

•♦USER  MODE  BLOCK  STORAGE  AREA 

.jjf*****»*»*»»»»»**»»******»*t»**»*****»**  ♦♦*♦**•••**♦♦♦♦*♦***♦♦*•♦♦♦*♦♦*♦♦ 


;AREA  USED  FOR  't)PEN"  COMMAND 
;AREA  USED  FOR  RETRY  OPEN  COMMAND 


;MSTR  function  .MSRUS 
.-"DIAG."  FUNCTION  7 


HI   NEXT  BLOCKS  WERE  ADDED  FOR  THE  7.02  MONITOR  RELEASE. 

PNTR:  0,.DATA 

DATA:  BLOCK   1 

SAVET1:  BLOCK   2 

SAVET3:  BLOCK   2 

SYSSIZ:  BLOCK   1 

INST:  BLOCK   1 

SAVE1:  Z 

SAVE2:  Z 

SAVE3:  Z 

SAVE4:  Z 


—«»■-■. I—  'nm 


100076  A30300  000000 
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22082 
22083 
2208A 
22085 
22086 
22087 
22088 
22089 
22090 
22091 
22092 
22093 
2209A 
22095 
22096 
22097 
22098 
22099 
22100 
22101 
22102 
22103 
2210A 
22105 
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./If*********************************  **********  ***♦*******♦♦♦*♦*♦♦♦♦♦♦*♦*♦♦♦ 
•♦STORAGE  AND  COMMAND  AREA  FOR  ERROR  RECOVERY  -  RETRY  ROUTINE 

; /If*********************  *************************************************** 


SEQ  0676 


100077 
100100 
100101 
100102 
100103 


000000  000005 

000000  000024 

000000  000036 

000000  000005 

000000  000005 


RETUD:  430300,, 0 


I 


* 

♦ 
t 
I 

I 

I 


BIT  0 
BITS  3 
BITS  6 
BITS  12 
BITS  18 
BIT  24 
BIT  25 
BIT  26 
BITS  27 
BIT  29 
BITS  30 


.  t 


;BASIC  RECOVERY  WORD 

INDICATES  A  DATA  RECOVERY 
RETRY  LIMIT  FOR  POSITIONING 
•  11     RETRY  LIMIT  FOR  RECOVERY  OF  HEADERS/DATA 

-  17    DRIVE  M   BEING  PROCESSED 

-  20    DRIVE  COMMAND  FUNCTION  M 

RECOVERED  USING  ECC  CORRECTION 

RECOVERED  WITH  OFFSET 

OFFSET  NEG.  IF  SET,  POS.  IF  =  0 

-  28    OFFSET  VALUE  ARGUMENT  USED 

HEADE.*^  COMPARE  INHIBIT  USED 

-  35    RETRY  COUNT 


XHLIM:  5 

XSLIM4:  ^D20 

XSLIM6:  *D30 

PHLIM:  5 

PSLIM:  5 


;DATA  TRA,\'SFER  HARD  ERROR  LIMIT  (FATAL) 
;SOFT  ERROR  LIMIT  FOR  RP04 
;SOFT  EHROR  LIMIT  FOR  RP06 
.•POSITIONING  HARD  ERROR  LIMIT  (FATAL) 
.•POSITIONING  SOFT  ERROR  REVOVERY  LIMIT 


DDRPl  - 
DDRP15 

22106 

22107 

22108 

22109 

22110 

22111 

22112 

22113 

221U 

22115 

22116 

22117 

22118 

22119 

22120 

22121 

22122 

22123 

22124 

22125 

22126 

22127 

22128 

22129 

22130 

22131 

22132 

22133 

221 3A 

22135 

22136 

22137 

22138 

22139 

22U0 

221A1 

221A2 

22U3 

221AA 

22U5 

221A6 

221A7 

221A8 

221A9 

22150 

22151 

22152 

22153 

2215A 


RH10/RH20  -  RP0'>/05/06  -  REL 
MAC    28-Aug-85  1A:07 


lABILITV  TEST  VERSION  0.15  MACRO  Z53Bn2A2)  '5:51  28-Aug-85  Page  A 
STORE  FILE  FOR  DISK  PACK  RELIABILITY  TEST 


SEQ  0677 


10010A 
100105 
100106 
100107 
100110 
100111 
100112 
100113 
10011A 
100115 
100116 

100117 
100123 
10012A 
100130 
100131 
1001A3 
lOOlAA 
100152 
100153 
10015A 
100162 


100163 
100233 
10023A 

100235 
100331 

100332 
100560 


10056 


000010 
000010 
000002 
000002 
000002 
000002 
000002 
000002 
000  00 
000  00 
000  00 


000000 

002000 

002020 

002220 

0020A0 

0022AO 

002060 

002260 
0  00  000000 
0  00  000000 
0  00  000000 


000  00  0  00  000000 

000  00  0  00  000000 

000  00  0  00  000000 

000  00  0  00  000000 
OOC  00  0  00  000000 

000  00  0  00  000000 


000  00  0  00  000000 
000  00  0  00  000000 


000  00  0  00  000000 


000  00  0  00  000000 


RETALG:  *D8B17 

*D8B17IHCI 

2B17120IHCI 

2B17!220!HCI 

2B171A0IHCI 

2B1712A0IHCI 

2B17160IHCI 

2B171260IHCI 

Z 

z 
z 


RETRY  8  TIMES  WITH  ECC  AT  0  OFFSET 
RETRY  8  TIMES  WITH  HCI  SET  AT  0  OFFSET 


2   • 

•   "  +A00  UINCHES 

2   • 

•   ••  -AOO  UINCHES 

2   • 

•   ••  ^800  UINCHES 

2   ' 

•   "  -800  UINCHES 

2   • 

•   ••  +1200  UINCHES 

2   • 

•   ••  -1200  UINCHES 

RETQ: 


A 
A 

*D10 
6 


BLOCK 

Z 
COMRET:  BLOCK 

Z 
DSBCMD:  BLOCK 

Z 
RETHLD;  BLOCK 

Z 

Z 
RHEDBF:  BLOCK 

Z 

;* COMMAND  UUO  BUFFER 


RESERVED  FOR  EXPANSION  (IF  NECESSARY) 

RETRY  QUE  AREA 

RETRY  COMMAND  BUFFER 

AREA  FOR  THE  PRESERVED  DRIVE  PRIM  CMD 

AREA  FOR  THE  PRESERVED  MBC  2ND  CMD 

.•RESERVE  SPACE  FOR  READING  HEADERS  AND  2  DATA  WORDS 


COMBUF:  BLOCK 
CMBFND:  Z 
Z 

COMQ:   BLOCK 
COMQE:   Z 

SAVQ:   BLOCK 
SAVQE:  Z 


^DAO 


^D<3*20> 
*D<5*30> 


;MAX  OF  20  UUO  COMMANDS  ALLOWED 


;ALLOW  ENOUGH  SPACE  FOR  20  COMMANDS 
;T0  BE  QUEUED  FROM  "COMBUF"  AREA 

;ALLOW  SPACE  FOR  WAYWARD  DSB  COMMAND 
;ENTRYS  LOST  IN  THE  SHUFFLE 


•♦STACK  FOR  THE  INTERRUPT  SERVICE 


PPLIST:  BLOCK 


'DAS 


100636 

100662     000  00  0  00  000000 


•♦STORAGE   FOR  SNAPS    (DRIVE  REGISTER  READ  ROUTINE) 

SNAP:        BLOCK        *D20 
SNAPE:     Z 
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SEQ  0678 


22155 

22156 

22157 

22158 

22159 

22160 

22161 

22162 

22163 

221 6A 

22165 

22166 

22167 

22168 

22169 

22170 

22171 

22172 

22173 

22174 

22175 

22176 

22177 

22178 

22179 

22180 

22181 

22182 

22183 

22184 

22185 

22186 

22187 

22188 

22189 

22  WO 

22191 

22192 

22193 

22194 

22195 

22196 

22197 

22198 

22199 

22200 

22201 

22202 

222C3 


100663 
100664 
100665 
100666 

100667 
100670 
100671 

100672 
100702 
100712 
100722 

100730 
100731 
100732 
100733 
100734 
100735 
100736 

100737 
100737 
100737 

100740 
100/41 
100742 
1007h3 

100744 
100745 
100746 


000  00  0  00  000000 
000  00  0  00  000000 
000  00  0  00  000000 
000  00  0  OC  000000 

000  00  0  00  000000 
000  00  0  00  000000 
000  00  0  00  000000 


000  00 
OuJ  OC 
000  00 
000  00 
000  00 
000  00 
000  00 


0  00 
0  CG 


0 
0 
0 
0 
0 


00 
00 
00 
00 
00 


000000 
OOOCOO 
000000 

oocooo 

000000 
000000 
000000 


000  00  0  00  000000 

000004  061205 
000000  000177 
000  00  0  00  000000 
000  00  0  00  000000 

000  00  0  00  000000 
000  00  0  00  000000 
000  00  0  00  000000 


XLIST 


LIST 


;♦  CONTROLLER  DEPENDANT  STORAGE  AND  VARIABLES 

;/|f*********************************************  ************************ 


COMMENT  $ 


HERE  ARE  VARIABLES  FOR  THE  RHIO  AND  RH20  THAT  CONTROL 
VARIOUS  PROGRAM  FUNCTIONS  (CHANNEL  ROUTINES,  ETC.) 
$ 
XLIST 


CBASE : 
2FILL: 
JMPWD; 
MAXUD : 

RHERR 
RHM/.X 
DRMAX 


Z 
Z 
Z 
Z 

Z 
Z 
Z 


SCLP:  BLOCK 

CINIT:  BLOCK 

CADTBL:  BLOCK 

DF22FG:  BLOCK 

.CYLIJ^:  Z 


*D8 
^D8 
'^D8 
*D6 


. SURF : 
.SECT: 
.SIZE: 
.PATN: 
.BUFF: 


Z 
Z 

z 

z 
z 


.BUFEND:  Z 

C: 

CONT: 
CONTIN:  Z 


INTCPT: 


4..INTCP1 
Z 

z 


TBLKR:  Z 
TBLKW:  Z 
TSEEK:  Z 


;BASE  ADDRESS  FOR  THE  CHANNEL 

.-ZERO  FILL  OFFSET  INTO  EPT 

; CHANNEL  JUMP  COMMAND  WORD 

;MAX  M   WORDS  THE  CHANNEL  CAN  TRANSFER 

;1920.  FOR  RH20  I   8192.  FOR  RHIO 

.•CONTROLLER  ERROR  MASK 

;MAX  #  OF  MASSBUS  CONTROLLERS 

;MAX  #  OF  DRIVES  FOR  CONFIGURATION 

.•SOFTWARE  CLP  FLAGS 
.•CHANNEL  INIT  FLAG 
.•LAST  ADDR..1ST  ADDR  FOR  CCW 
.•ALLOWS  FOR  6  RHIO  CONTROLLERS 


;SIZE  OF  THE  TRANSFER 
.•DATA  PATTERN  NUMBER  USED 
;START  OF  THE  PRESENT  DATA  BUFFER 
;END  ADDRESS  OF  THE  DATA  BUFFER 


;4  WORD  BLOCK  FOR  INTERCEPT 
.•INTERCEPT  ALL  ERRORS 


; COUNT  OF 
.•COUNT  OF 
.•COUNT  OF 


TOTAL  BLK  READ 

TOTAL  BLK  W^T 

TOTAL  SYSTEM  POSITIONS 
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SEQ  0679 


22204 

22205 

22206 

22207 

22208 

22209 

22210 

22211 

22212 

22213 

22214 

22215 

22216 

22217 

22218 

22219 

22220 

22221 

22222 

22223 

22224 

22225 

22226 

22227 

22228 

22229 

22230 

22231 

22232 

22233 

22234 

22235 

22236 

22217 

<:22ZS 

22239 

22240 

22241 

22242 

22243 

22244 

22245 

22246 

222^7 

22248 

22249 

22250 

22251 

22252 

22253 

22254 

22255 

22256 


100747 


101047 


101057 


101103 
101153 

101154 
101155 

101156 
101157 


101160 
101161 
101162 
101163 

101164 
101165 

101166 
101167 
101170 
101171 
101172 

101173 
101206 


101221 


101231 
101233 
101235 
101237 
101241 


000  00  0  00  000000 

000  00  0  00  000000 
000  00  0  00  000000 

000  00  0  00  000000 
000  00  0  00  000000 


000  00  0  00  UvOOOO 
000  00  0  00  000000 
000  00  0  00  000000 
400100  000000 


000000 
000000 

121234 
070716 
765432 
.23456 
123321 


000022 
000000 

345656 
162525 
123456 
765432 
456654 


;«ASSBUS  DEVICE  STATUS  BLOCK  POINTERS  AND  STATUS  BITS  FOR  EACH 
;UNIT  ARE  STORED  IN  "DSBTBL" 


DSBTBL:  BLOCK 


^D64 


;ROOM  FOR  64(10)  DSB  HEADERS 


;«ASSBUS  CONTROLLER  STATUS  BLOCK  POINTERS 


CSBTBL:  SLOCK 


^D8 


;ROOM  FOR  8  CSB  HEADERS 


; STORAGE  FOR  THE  PROGRAM  MEMORY  "UStD"  MAP... EACH  BIT  REPRESENTS  IK  OF  MEMORY. 
;  IF  A  BIT  IS  SET,  THE  MEMORY  IT  REPRESENTS  IS  IN  USE. 

BUFMAP:  BLOCK   •D20  ;ALLOW  ENOUGH  SPACE  FOR  256. K  MAP 

.•OPERATION  SCAN  TABLE  STORAGE  FOR  WRITE/READ  DATA  TRANSFERS 


SCNTBL:  BLOCK   •D20*2 
SCNEND:  2 


SCNADD: 
SCNOLD: 

F RE COR: 
FREBUF: 


Z 
Z 

Z 
Z 


MBCLIM:  Z 

.OFSET:  Z 

.0FST1:Z 

NULL:   400100,, 0 

MAXSUR:  SURF AC 
MINCYL:  0 


.-ALLOW  FOR  20  OPERATIONS 


POINTER  INTO  THE  SCNTBL 

USED  TO  INDICATE  ALL  POINTERS  CHECKED 

FIRST  ADDRESS  AVAILABLE  FOR  TESTING 
ADDRESS  OF  START  OF  MEM  CHUNK  =  TO 
400000  VIRT  (FROM  MEMSEG) 

LIMIT  OF  MBC  UNITS  IN  USE  AT  A  TIME 
RP04/05  OFFSET  DESIRED  DURING  A  READ 
RP06  OFFSET  DESIRED  FOR  A  READ 
NULL  DATA  PATTERN 

MAX.  #  SURFACES  ON  RPOX 
;RPOX  START  CYLINDER 


.NSEC 
.NSUR 
.NCYL 
.NSIZ 
.NTIM 


121234345656 
070716162525 
765432123456 
123456765432 
123321456654 


SCRPTT:  BLOCK 
SCRPTL:  BLOCK 


•D11 
*D11 


.•THIS  TABLE  WILL  HOLD  THE  DRIVE  #  OF  THE  LAST  ONF  A  COMMAND  WAS  ISSUED  TO 
;  (BY  CMDXCT)  TO  SUPPLY  A  EXISTING  DRIVE  0   FOR  CHAN  4  SERVICE 
.SVDRV:  BLOCK   *D8 

;HERE  ARE  T?'*?  CORE  LOCATIONS  TO  STORE  THE  TIMEBASE  READINGS 

TIMSAV:  BLOCK   2 

RDTIMA:  BLOCK   2 

RDTIMB:  BLOCK   2 

RDTIMC:  BLOCK   2 

RDTIMD:  BLOCK   2 


.J 


DDRPI  - 
DDRPI5 

22257 

22258 

22259 

22260 

22261 

22262 

22263 

2226A 

22265 

22266 

22267 

22268 

22269 

22270 

22271 

22272 

22273 

22274 

22275 

22276 

22277 

22278 

22279 

22280 

22281 

22282 

22283 

22284 

22285 

22286 

22287 

22288 

22289 

22290 

22291 

22292 

22293 

22294 

22295 

22296 

22297 

22298 

22299 

22300 

22301 

22302 

22303 
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SEQ  0680 


XLIST 


101243  000000  000000 

101244  7  020  04  0  00  101241 

101245  261  17  0  00  000012 

101246  261  17  0  00  000001 

101247  7  270  24  0  00  101665 

101250  261  u  0  00  101665 

101251  2uJ  12  0  00  101671 

101252  260  17  0  00  101547 

101253  262  17  0  00  000001 

101254  262  17  0  00  000012 

101255  254  12  1  00  101243 

101256  000000  000000 

101257  7  020  04  0  00  101241 

101260  261  17  0  00  000012 

101261  261  17  0  00  000001 

101262  7  274  24  0  00  101665 

101263  261  14  0  00  101665 

101264  200  12  0  00  101672 

101265  260  17  0  00  101547 

101266  262  17  0  00  000001 

101267  262  17  0  00  000012 
101270  254  12  1  00  101256 


LIST 


./If********  *•*»♦♦**•**♦♦•♦*♦•*•»♦♦*****♦*****♦♦*********♦*  ************** 
!•*  INTERUPT  SERVICE  FOR  CHANNEL  4 

./|f»*****************************************4  ************************** 

COMMENT  $ 

ALL  DRIVE  INTERUPTS  WILL  BE  HANDELED  INITIALLY  ON  INTERRUPT 
CHANNEL  #4.  CHANNEL  4  WILL  SAVE  THE  CONTROLLER  "CONI", 
THE  CONTROLLER  DEVICE  CODE  0,   ATTENTION  SUMMARY  REGISTER 
CONTENTS,  AND  THE  INFORMATION  IN  THE  CONTROLLERS*  CONTROL 
REGISTlR(S).  further  INTERRUPT  PROCESSING  WILL  BE  DONE 
ON  INTERRUPT  LEVEL  5  BY  REQUESTING  A  SOFTWARE  INTERRUPT 
FOR  LEVEL  5  WHILE  IN  LEVEL  4. 
$ 
XLIST 

•#♦•♦***♦♦*************♦*************************************♦************ 
;*SERVICE  FOR  DRIVE/KI10  CHANNEL  4  VECTORING 

;/|f**»*****  *******************************************************  ********* 


RMOINT:  0 

DATAI 

PUT 

PUT 

CONI 

PUSH 

MOVE 

GO 

GET 

GET 

JEN 


RM1INT: 


0 

DATAI 

PUT 

PUT 

CONI 

PUSH 

MOV" 

GO 

G' 

JEN 


20,RDTIMD 

M6CN 

AC1 

RM0,CC0NI/r 

PP,CCONI 

MBCN,[<RM0>B11] 

MBCCOM 

AC1 

MBCN 

aRMOiNT 


20,RDTIMD 

MBCN 

AC1 

RM1,CC0NI 

PP, CCONI 

MBCN,C<RM1>B11] 

MBCCOM 

AC1 

MBCN 

aRMIINT 


;READ  TIMEBASE  METER 

;SAVE  MBC  tf 

;AND  AC1 

;GET  THE  CONTROLLER  STATUS 

;SAVE  IT  ON  THE  SPECIAL  STACK 

;GET  THE  MBC  NUMBER 

;D0  SOME  COMMON  PROCESSING 

.•RESTORE  ACS 

;EXIT  THE  INTERRUPT  SERVICE 
;READ  TIMEBASE  METER 


;GET  THE  CONTROLLER  STATUS 

;SAVE  IT  ON  THE  SPECIAL  STACK 

;GET  THE  MBC  NUMBER 

;D0  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 
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SEQ  0681 


22304 

22305 

101271 

000000    000000 

RM2INT:  0 

22306 

101272 

7  020  04  0  00  101241 

DATAI 

20,RDTIMD 

22307 

101273 

261   17  0  00  000012 

PUT 

M6CN 

22308 

101274 

261  17  0  00  000001 

PUT 

AC1 

22309 

101275 

7  360  24  0  00  101665 

CONI 

RM2,CC0NI 

22310 

101276 

261   14  0  00  101665 

PUSH 

PP, CCONI 

22311 

101277 

200  12  0  00  101673 

MOVE 

MBCN,C<RM2>B11] 

22312 

101300 

260  17  0  00  101547 

60 

MBCCOM 

22313 

101301 

262  17  0  00  000001 

GET 

AC1 

22314 

101302 

262  17  0  00  000012 

GET 

M8CN 

22315 
22316 
22317 

101303 

254  12  1  00  101271 

JEN 

aRM2INT 

101304 

000000    000000 

RM3INT:   0 

22318 

101305 

7  020  04  0  00  101241 

DATAI 

20,RDTIMD 

22319 

101306 

261   17  0  00  000012 

PUT 

MBCN 

22320 

101307 

261   17  0  00  000001 

PUT 

AC1 

22321 

101310 

7  364  24  0  00  101665 

CONI 

RM3,CC0NI 

22322 

101311 

261   14  0  00  101665 

PUSH 

PP,CC0NI 

22323 

101312 

200  12  0  00  101674 

MOVE 

MBCN,C<RM3>B11] 

22324 

101313 

260  17  0  00  101547 

GO 

MBCCOM 

22325 

101314 

262  17  0  00  000001 

GET 

AC1 

22326 

101315 

262  17  0  00  000012 

GET 

MBCN 

22327 
22328 
22329 

101316 

254  12  1  00  101304 

JEN 

aRM3INT 

101317 

000000    000000 

RM4INT:    0 

22330 

101320 

7  020  04  0  00  101241 

DATAI 

20,RDTIMD 

22331 

101321 

261   17  0  00  000012 

PUT 

MBCN 

22332 

101322 

261   17  0  00  000001 

PUT 

ACl 

22333 

101323 

7  370  24  0  00  101665 

CONI 

RM4,CC0NI 

22334 

101324 

2o!   14  0  00  101665 

PUSH 

PP, CCONI 

22335 

101325 

200  12  0  00  101675 

MOVE 

MBCN,[<RM4>Bin 

22336 

101326 

260  17  0  00  101547 

GO 

MBCCOM 

22337 

101327 

262  17  0  00  000001 

GET 

ACl 

22338 

101330 

262  17  0  00  000012 

GET 

MBCN 

22339 
22340 
22341 

101331 

254  12  1  00  101317 

JEN 

aRM4INT 

101332 

000000    000000 

RM5INT:   0 

22342 

101333 

7  020  04  0  00  101241 

DATAI 

20,RDTIMD 

22343 

101334 

261  17  0  00  000012 

PUT 

MBCN 

22344 

101335 

261  17  0  00  000001 

PUT 

ACl 

22345 

101336 

7  374  24  0  00  101665 

CONI 

RM5,CC0NI 

22346 

101337 

261   14  0  00  101665 

PUSH 

PP,CCONI 

22347 

101340 

200  12  0  00  101676 

MOVE 

MBCN,C<RM5>B11J 

22348 

101341 

260  17  0  00  101547 

GO 

MBCCOM 

22349 

101342 

262  17  0  00  000001 

GET 

ACl 

22350 

101343 

262  17  0  00  000012 

GET 

MBCN 

22351 

101344 

254  12  1  00  101332 

JEN 

aRM5INT 

;READ  TIMEBASE  METER 


GET  THE  CONTROLLER  STATUS 
SAVE  IT  ON  THE  SPECIAL  STACK 
GET  THE  MBC  NUMBER 
DO  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 


;READ  TIMEBASE  METER 


GET  THE  CONTROLLER  STATUS 
SAVE  IT  ON  THE  SPECIAL  STACK 
GET  THE  MBC  NUMBER 
DO  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 


;READ  TIMEBASE  METER 


GET  THE  CONTROLLER  STATUS 
SAVE  IT  ON  THE  SPECIAL  STACK 
GET  THE  MBC  NUMBER 
DO  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 


;READ  TIMEBASE  METER 


GET  THE  CONTROLLER  STATUS 
SAVE  IT  ON  THE  SPECIAL  STACK 
GET  THE  MBC  NUMBER 
DO  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 
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SEQ  0682 


22352 
22353 
22354 
22355 
22356 
22357 
22358 
22359 
22360 
22361 
22362 
22363 
2236A 
22365 
22366 
22367 
22368 
22369 
22370 
22371 
22372 
22373 
22374 
22375 
22376 
22377 
22378 
22379 
22380 
22381 
22382 
22383 
2238A 
22385 
22386 
22387 
22388 
22389 
22390 
22391 
22392 
22393 
22394 
22395 
22396 
22397 
22398 
22399 
22400 
]2401 
2402 
!2403 


101345  000000  000000 

101346  7  020  04  0  00  101241 

101347  261  17  0  00  000012 

101350  261  17  0  00  000001 

101351  7  540  24  0  00  101665 

101352  261  14  0  00  101665 

101353  200  12  0  00  101677 

101354  260  17  0  00  101547 

101355  262  17  0  00  000001 

101356  262  17  0  00  000012 

101357  254  12  1  00  101345 

101360  000000  000000 

101361  7  020  04  0  00  101241 

101362  261  17  0  00  000012 

101363  261  17  0  00  000001 

101364  7  544  24  0  00  101665 

101365  261  14  0  00  101665 

101366  200  12  0  00  101700 

101367  260  17  0  00  101547 

101370  262  17  0  00  000001 

101371  262  17  0  00  000012 

101372  254  12  1  00  101360 

101373  000000  000000 

101374  7  J20  04  0  00  101241 

101375  261  17  0  00  000012 

101376  261  17  0  00  000001 

101377  7  550  24  0  00  101665 

101400  261  14  0  00  101665 

101401  200  12  0  00  101701 

101402  260  17  0  00  101547 

101403  262  17  0  00  000001 

101404  262  17  0  00  000012 

101405  254  12  1  00  101373 

101406  000000  000000 
10U07  7  020  04  0  00  101241 

101410  261  17  0  00  000012 

101411  261  17  0  00  000001 

101412  7  554  24  0  00  101665 

101413  261  14  0  00  101665 

101414  200  12  0  00  101702 

101415  260  17  0  00  101547 

101416  262  17  0  00  000001 

101417  262  17  0  00  000012 
101420  254  12  1  00  101406 


•♦SERVICE  FOR  KLIO  CHANNEL  4  VECTORING 

;/|f************************************  ****************  **♦****♦*♦*******♦** 


;READ  TIMEBASE  METER 


RHOINT:  0 

DATAI 

20,RDTIMD 

PUT 

MBCN 

PUT 

ACI 

CONI 

RHO^CCONI 

PUSH 

PP,CCONI 

MOVE 

MBCN,C<RH0>B11] 

GO 

M6CC0M 

GET 

AC1 

GET 

MBCN 

JEN 

aRHOiNT 

RHIINT:  0 

DATAI 

20,RDTIMD 

PUT 

MBCN 

PUT 

AC1 

CONI 

RHUCCONI 

PUSH 

PP,CCONI 

MOVE 

MBCN,C<RH1>B113 

GO 

MBCCOM 

GET 

AC1 

GET 

MBCN 

JEN 

aRHlINT 

RH2INT:  0 

DATAI 

20,RDTIMD 

PUT 

MBCN 

PUT 

AC1 

CONI 

RH2,CC0NI 

PUSH 

PP,CCONI 

MOVE 

MBCN,C<RH2>B113 

GO 

MBCCOM 

GET 

AC1 

GET 

MBCN 

JEN 

aRH2INT 

RH3INT:  0 

DATAI 

20,RDTIMD 

PUT 

MBCN 

PUT 

AC1 

CONI 

RH3,CC0NI 

PUSH 

PP,CCONI 

MOVE 

MBCN,C<RH3>B11] 

GO 

MBCCOM 

GET 

AC1 

GET 

MBCN 

JEN 

aRH3INT 

GET  THE  CONTROLLER  STATUS 
SAVE  IT  ON  THE  SPECIAL  STACK 
GET  THE  MBC  DEVICE  CODE  M 
DO  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 
;READ  TIMEBASE  METER 


GET  THE  CONTROLLER  STATUS 
SAVE  IT  ON  THE  SPECIAL  STACK 
GET  THE  MBC  DEVICE  CODE  # 
DO  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 


;READ  TIMEBASE  METER 


GET  THE  CONTROLLER  STATUS 
SAVE  IT  ON  THE  SPECIAL  STACK 
GET  THE  MBC  DEVICE  CODE  # 
DO  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 


;READ  TIMEBASE  METER 


GET  THE  CONTROLLER  STATUS 
SAVE  IT  ON  THE  SPECIAL  STACK 
GET  THE  MBC  DEVICE  CODE  # 
DO  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 


'1 
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SEO  0683 


22A0A 

22A05 

22406 

22407 

22408 

22409 

22410 

22411 

22412 

22413 

22414 

22415 

22416 

22417 

22418 

22419 

22420 

22421 

22422 

22423 

22424 

22425 

22426 

22427 

22428 

22429 

22430 

22431 

22432 

22433 

22434 

22435 

22436 

22437 

22438 

22439 

22440 

22441 

22442 

22443 

22444 

22445 

22446 

22447 

22448 

22449 

22450 


101421 
101422 
101423 
101424 
101425 
101426 
101427 
101430 
101431 
101432 
101433 

101434 
101435 
101436 
101437 
101440 
101441 
101442 
101443 
101444 
101445 
101446 

101447 
101450 
101451 
101452 
101453 
101454 
101455 
101456 
101457 
101460 
101461 

101462 
10H63 
101464 
101465 
101466 
101467 
10U70 
101471 
101472 
101473 
101474 


000000  000000 

RH4INT:  0 

7  020  04  0  00  101241 

DATAI 

261  17  0  00  000012 

PUT 

261  17  0  00  000001 

PUT 

7  560  24  0  00  101665 

CONI 

261  14  0  00  101665 

PUSH 

200  12  0  00  101703 

MOVE 

260  17  0  00  101547 

GO 

262  17  0  00  000001 

GET 

262  17  0  00  000012 

GET 

254  12  1  00  101421 

JEN 

000000  000000 

RH5INT:  0 

7  020  04  0  00  101241 

DATAI 

261  17  0  00  000012 

PUT 

261  17  0  00  000001 

PUT 

7  564  24  0  00  101665 

CONI 

261  14  0  00  101665 

PUSH 

200  12  0  00  101704 

MOVE 

260  17  0  00  101547 

GO 

262  17  0  00  000001 

GET 

262  17  0  00  000012 

GET 

254  12  1  00  101434 

JEN 

000000  000000 

RH6:NT:  0 

7  020  04  0  00  101241 

DATAI 

261  17  0  00  000012 

PUT 

261  17  0  00  000001 

PUT 

7  570  24  0  00  101665 

CONI 

261  14  0  00  101665 

PUSH 

2v;J  12  0  00  101705 

MOVE 

260  17  0  00  101547 

GO 

262  17  0  00  000001 

GET 

262  17  0  00  000012 

GET 

254  12  1  00  101447 

JEN 

000000  000000 

RH7INT:  0 

7  020  04  0  00  101241 

DATAI 

261  17  0  00  000012 

PUT 

261  17  0  00  00000- 

PUT 

7  574  24  0  00  101o65 

CONI 

261  14  0  00  101665 

PUSH 

200  12  0  00  101706 
260  17  0  00  101547 

MOVE 

GO 

262  17  0  00  000001 

GET 

262  17  0  00  000012 
254  12  1  00  101462 

GET 

JEN 

20,RDTIMD 

MBCN 

ACl 

RH4,CC0NI 

PP, CCONI 

MBCN,C<RH4>B11] 

MBCCOM 

ACl 

MBCN 

aRH4INT 


20,RDTIMD 

MBCN 

ACl 

RH5,CC0NI 

PP^CCONI 

MBCN,C<RH5>B11] 

MBCCOM 

ACl 

MBCN 

aRH5lNT 


20,RDTIMD 

MBCN 

ACl 

RH6,CC0NI 

PP, CCONI 

MBCN,C<RH6>B11] 

MBCCOM 

ACl 

MBCN 

aRH6INT 


20,RDTIMD 

MBCN 

ACl 

RH7,CC0NI 

PP, CCONI 

MBCN,C<RH7>B11] 

MBCCOM 

ACl 

MBCN 

SRH7INT 


;READ  TIMEBASE  METER 

;6ET  THE  CONTROLLER  STATUS 
;SAVE  IT  ON  THE  SPECIAL  STACK 
;6ET  THE  MBC  DEVICE  CODE  tt 
;D0  SOME  COMMON  PROCESSING 

;EXIT  THE  INTERRUPT  SERVICE 

;READ  TIMEBASE  METER 


;GET  THE  CONTROLLER  STATUS 

;SAVE  IT  ON  THE  SPECIAL  STACK 

;GET  THE  MBC  DEVICE  CODE  ft 

;D0  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 


;READ  TIME  BASE  METER 


;GET  THE  CONTROLLER  STATUS 

;SAVE  IT  ON  THE  SPECIAL  STACK 

;GET  THE  MBC  DEVICE  CODE  # 

;D0  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 


;READ  TIMEBASE  METER 


;GET  THE  CONTROLLER  STATUS 

;SAVE  IT  ON  THE  SPECIAL  STACK 

;6ET  THE  MBC  DEVICE  CODE  # 

;D0  SOME  COMMON  PROCESSING 


;EXIT  THE  INTERRUPT  SERVICE 


...J 
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SEQ  0684 


22451 

22452 

22453 

22454 

22455 

22456 

22457 

22458 

22459 

22460 

22461 

22462 

22463 

22464 

22465 

22466 

22467 

22468 

22469 

22470 

22471 

22472 

22473 

22474 

22475 

22476 

22477 

22478 

22479 

22480 

22481 

22482 

22483 

22484 

22485 

22486 

22487 

22488 

22489 

22490 

22491 

22492 

22493 

22494 

22495 

22496 

22497 

22498 

22^99 

2? '^00 

22501 

22502 

22503 

22504 


101475  000000  000000 

101476  332  00  0  00  030041 

101477  7  020  04  0  00  101241 

101500  261  17  0  00  000012 

101501  261  17  0  00  000001 

101502  7  270  34  0  00  000250 

101503  254  00  0  00  101510 

101504  7  270  24  0  00  101665 

101505  261  14  0  00  101665 

101506  200  12  0  00  101671 

101507  254  00  0  00  101543 

101510  7  274  34  0  00  000250 

101511  254  00  0  00  101516 

101512  7  274  24  0  00  101665 

101513  261  14  0  00  101665 

101514  200  12  0  00  101672 

101515  254  00  0  00  101543 

101516  7  360  34  0  00  000250 

101517  254  00  0  00  101524 

101520  7  360  24  0  00  101665 

101521  261  14  0  00  101665 

101522  200  12  0  00  101673 

101523  2^"   00  0  00  101543 

101524  7  364  34  0  00  000250 

101525  254  00  0  00  101532 

101526  7  364  24  0  00  101665 

101527  261  14  0  00  101665 

101530  200  12  0  00  101674 

101531  254  00  0  00  101543 

101532  7  370  34  0  00  000250 

101533  254  00  0  00  101540 
10153^.  7  370  24  0  00  101665 
101335  261  14  0  00  101665 
.01536  200  12  0  00  101675 
101537  254  00  0  00  101543 

101540  7  374  24  0  00  101665 

101541  261  14  0  00  101665 

101542  200  12  0  00  101676 

101543  260  17  0  00  101547 

101544  262  17  0  00  000001 

101545  262  17  0  00  000012 

101546  254  12  1  00  101475 


•  /If************************************************************************ 
;*SERVICE  FOR  KA10  CHANNEL  4  INTERRUPT  SERVICING 

;#************************************************************************ 


RHKAI :  0 

SKIPE 

DATAI 

PUT 

PUT 

CONSO 

JRST 

RMOKIN:  CONI 
PUSH 
MOVE 
JRST 

RM1KIN:  CONSO 
JRST 
CONI 
PUSH 
MOVE 
JRST 


RM2KIN: 


CONSO 

JRST 

CONI 

PUSH 

MOVE 

JRST 


RM3KIN:  CONSO 
JRST 
CONI 
PUSH 
MOVE 
JRST 

RM4KIN:  CONSO 
JRST 
CONI 
PUSH 
MOVE 
JRST 


RM5KIN 


KACOM: 


CONI 
PUSH 
MOVE 

GO 
GET 
GET 
JEN 


KLFLG 

20,RDTIMD 

MBCN 

AC1 

RMO,CBOV!ATTN!DONE 

RM1KIN 

RMO,CCONI 
PP, CCONI 
MBCN,C<RM0>B113 
KACOM 

RM1,CB0V! ATTN! DONE 

RM2KIN 

RM1,CC0NI 

PP, CCQNI 

MBCN,C<RM1>B11] 

KACOM 

RM2,CB0V!ATTN!D0NE 

RM3KIN 

RM2,CC0NI 

PP, CCONI 

MBCN,[<RM2>Bin 

KACOM 

RM3,CB0V!ATTN!D0NE 

RM4KIN 

RM3,CC0NI 

PP,CCONI 

MBCN,[<RM3>B11] 

KACOM 

RM4,CB0V!ATTNID0NE 

RM5KIN 

RM4,CC0NI 

PP,CCONI 

MBCN,C<RM4>B11] 

KACOM 

RM5,CC0NI 

PP,CCONI 

MBCN,[<RM5>B11] 

M8CC0M 
AC1 
MBCN 
aRHKAl 


;KL  SYSTEM  DOING  KA  TYPE  INTERRUPTS  ? 
;YES,  READ  TIMEBASE  METER 


;ANY  KNOWN  CAUSE  OF  THE  INTERRUPT?? 
;N0  -  SEE  IF  IT  IS  NEXT  MBC  M 


GET  THE  CONTROLLER  STATUS 
SAVE  IT  ON  THE  SPECIAL  STACK 
GET  THE  MBC  DEVICE  CODE  » 
GO  TO  THE  COMMON  EXIT 

THIS  MBC  INTERRUPT? 

NO  -  TRY  THE  NEXT 

YES  -  READ  THE  MBC  STATUS 

SAVE  IT  ON  THE  SPECIAL  STACK 

GET  THE  MBC  DEVICE  CODE  # 

GO  TO  THE  COMMON  EXIT 

THIS  MBC  INTERRUPT? 

NO  -  TRY  THE  NEXT 

YES  -  READ  THE  MBC  STATUS 

SAVE  IT  ON  THE  SPECIAL  STACK 

GET  THE  MBc  DEVICE  CODE  # 

GO  TO  THE  COMMON  EXIT 

THIS  MBC  INTERRUPT? 

NO  -  TRY  THE  NEXT 

YES  -  READ  THE  MBC  STATUS 

SAVE  IT  ON  THE  SPECIAL  STACK 

GET  THE  MBC  DEVICE  CODE  # 

GO  TO  THE  COMMON  EXIT 

THIS  MBC  INTERRUPT? 

NO  -  TRY  THE  NEXT 

YES  -  READ  THE  MBC  STATUS 

SAVE  IT  ON  THE  SPECIAL  STACK 

GET  THE  MBC  DEVICE  CODE  M 

GO  TO  THE  COMT.  N  EXIT 

YES  -  READ  THE  MBC  STATUS 
SAVE  ir  ON  THE  SPECIAL  STACK 
GET  THE  MBC  DEVICE  CODE  M 


;G0  DO  THE  COMMON  THINGS 


;EXIT  THE  INTERRUPT 


.^  .i 


r 


■1 


72 


DDRPl   SUBROUTINES  (RP04/05/06  RELIABILITY) 
RPOA  CHANNEL  4  INTERRUPT  SERVICE 

CHANNEL  4  DISK   INTERRUPT  SERVICE 

I 

*♦•*•***•«*♦*♦*♦♦ 

♦  DO  A  CONI  &     * 
♦PUT  ON  SPECIAL  ♦ 

♦  STACK  * 
»*♦»♦♦♦••♦*»♦♦**♦ 

I 

♦♦♦♦♦♦♦♦•**•♦♦*** 

♦  PUT  MBCN  IN     * 

♦  LH  OF  ACQ       * 

♦  * 

♦♦♦*♦♦♦♦♦*♦♦♦***♦ 

I 

*♦♦»♦*♦♦♦♦******* 

♦  READ  ATTN       ♦ 

♦  SUMM  REG         * 

♦  FOR  DRIVE  0     * 
***************** 

I 

*********************** 

♦  PUT  ATTN  STAT   IN  RH  * 

♦  ACQ  &  SAVE  ON         * 

♦  SPECIAL  STACK         ♦ 
»♦♦**♦♦♦♦»♦♦♦♦♦*♦♦*♦»** 

I 


DECFLO  VER     00.12  12-APR-78  08:44     PAGE  13 


SEQ  0685 


SPECIAL  PUSHDOWN 
STACK 

"CCONI"  1)  MBC   CONI  AT  CHN  4   INT 

••DATTN"  2)  MBCN,,   ATTN  SUM  REG 

"CPTCR"  3)  PRIM  XFR  CONTROL  REG 

"CSTCR"  4)  SECONDARY  XFR  CONTROL  REG 


/              RHIO 

/                    ? 

/ 

\YES 

>»»»> 

1 

r* 

* 

* 

* 

r* 

_/_______________ 

\ 

******** 

*  READ 
♦REGftPUl 

♦  DUMMY 

*******4 

>i»a>«>^ 

I  NO 
*********************** 

♦  READ  PRIM  ft  2ND       * 

♦  XFR  CONTROL  REGS       ♦ 

♦  ft  PUT  ON  STACK         ♦ 
*********************** 

I 

f^_...... 

r**»»*********< 

RHIO  CONTROL 
'  ON  STACK  AND 
2ND  ON  STACK 

r*************l 
I 

/""           MBC 

/               BUSY 
/                     ? 

\YES 
\ — 
\ 

— — : 

\ 

I  NO 
t*t************** 

*  ♦ 

*  CLEAR  DONE        • 

*  • 
***************** 

1 

——  ———  —  — V 

^                           I 

*********************** 

•  REQUEST   CHAN           ♦ 

•  5   INTERRUPT           ♦ 
»                                           * 
*********************** 

I 
*********** 

••JEN         •• 
»                             *********** 

EXIT   CHN  4   SERVICE 

*****< 

•  URl 

•  REG 

* 

*****i 

A 

r*********** 

I  <""•"""- 

\N0 

[TE   A^ 
TO  CL 

k****4 
t 

'TN        • 
.EAR     • 

/                ANY 

/             ATTN  UP 
/                       ? 

\ 

******* 

luiijMMiiiawLirfwuiiiiniii' 


iMMlliillMWptfiOw 


r 
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SEQ  0686 


.,_..  J 


22506 

22507 

22508 

22509 

22510 

22511 

22512 

22513 

2251A 

22515 

22516 

22517 

22518 

22519 

22520 

22521 

22522 

22523 

2252A 

22525 

22526 

22527 

22528 

22529 

22530 

22531 

22532 

22533 

22534 

2?535 

2Z536 

22537 

22538 

22539 

225A0 

225A1 

225A2 

225A3 

225AA 

225A5 

22546 

22547 

22548 

22549 

22550 

22551 

22552 

22553 

22554 

22555 

22556 

22557 

22558 

22559 

22560 


101547 
101550 
101551 
101552 

101553 
101554 
101555 
101556 

101557 
101560 
101561 
101562 

101563 
101564 
101565 
101566 
101567 
101570 
101571 

101572 
101573 
101574 

101575 
101576 
101577 
101600 

101601 
101602 
101603 


260  17  0  00  063421 
202  01  0  00  101670 
336  00  0  00  077721 
254  00  0  00  101557 

260  17  0  00  063433 

261  14  0  00  000001 
261  14  0  00  000001 
254  00  0  00  101563 

260  17  0  00  063505 

261  14  0  00  000001 

260  17  0  00  063501 

261  14  0  00  000001 


205  01 

260  17 
334  00 
254  00 
202  01 
500  01 

261  14 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


040000 
063270 
000000 
101563 
101666 
000012 
000001 


200  01  0  00  101665 
606  01  0  00  000010 
23-  00  0  00  101601 

201  01  0  00  734054 
332  00  0  00  077722 
201  01  0  00  001454 
260  17  0  00  063522 

200  01  0  00  101666 
606  01  0  00  000377 
254  00  0  00  101607 


10160^« 

404  01 

101o05 

661  01 

101606 

260  17 

101607 

310  00 

101610 

550  01 

101611 

:;o5  01 

101612 

254  00 

101613 

402  00 

101614 

332  00 

101615 

201  01 

101616 

:60  17 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 

00 
00 
00 


0  00 


101707 
000030 
063147 
000000 
000014 
100625 
101620 
00QQ01 
077722 
000400 
063522 


101617  031  00  0  00  101710 


•♦CODE  COMMON  TO  ALL  CHANNEL  4  INTERRUPT  SERVICES 

•  /If*****  ♦»»♦*•****♦»»*  **#*♦♦»♦•♦*♦***♦*♦*♦♦»*»♦♦**♦♦»♦*♦♦*♦**♦*♦♦*•♦♦♦**♦♦* 


MBCCOM:  GO 

MOVEM 
SKIPN 
JRST 

GO 

PUSH 
PUSH 
JRST 

GO 

PUSH 
GO 
PUSH 

MOVSI 

GO 

SKIPA 

JRST 

MOVEM 

HLL 

PUSH 

MOVE 
TRNN 
JRST 

MOVE  I 
SKIPE 
MOVE  I 
GO 

MOVE 
TRNN 
JRST 

AND 
TLO 
GO 
CAM 
HRR2 
CAIGE 
JRST 
SETZM 
SKIPE 
MOVE  I 
GO 

TEXTF 
PGM  INTERRUPT 

a 


RDDIB 

AC1,DIBSAV# 

RHIO 

RDCR 

PP,AC1 

PP.ACl 

RDPTCR 
PP,AC1 
RDSTCR 
PP,AC1 

AC1,(DRAS) 
RDREG 

.-3 

AC1,DATTN# 
ACl,MeCN 
PP, ACl 

AC1,CC0NI 
ACl, DONE 
.♦5 

ACl. 734054 
RH20 

ACl, 1454 
.CONO 

AC1,DATTN 
ACl, 377 
.♦4 

AC1,C770000,J77777] 

aci,(1bi3:ibU) 

LDREG 

ACl, PP 

AC1,PPLIST**D36 
.♦6 
ACl 
PH20 
AC1,MBE 
.CONO 
tASCIZ/ 
STACK  OVERFLOW  ??? 


YES  -  READ  THE  "DIB"  REGISTER  IN  RHiO 
SAVE  THE  CONTENTS 
IS  THE  MBC  =  RHIO  ?? 
NOPE  -  MUST  BE  A  RH20 

READ  THE  RHlO  CONTROL  REGISTER 
SAVE  THE  CONTROL  REG  DATA 
AND  AGAIN 


READ  THE  RH20  PRIM  XFR  CTL  REG 
SAVE  IT  ON  THE  STACK 
READ  THE  2ND  XFR  CTL  REG 
SAVE  ON  THE  STACK  ALSO 

PREPARE  TO  READ  THE  ATTN  REGISTER 

READ  IT  NOW 

NOTHING  IF  A  FATAL  FAILURE 

READ  ERROR  -  TRY  AGAIN 

SAVE  THE  STATUS  OF  ATTENTION  REG 

GET  THE  MBC  DEVICE  CODE 

SAVE  ACl  ON  STACK 

GET  MBC  CONI  STATUS 

DONE  UP?? 

NO  -  JUMP  SOME  CODE 

CLEAR  RHIO  ERRORS  ♦  RESET  PI  CHN 
MBC  =  RH20?? 

CLEAR  RH20  ERRORS  ♦RESET  PI  CHN 
CLEAR  THE  DONE  STATUS 

GET  THE  ATTN  STATUS 
SOMEBODY  HAVE  ATTN  UP?? 
NO  -  JUMP  SOME  CODE 

STRIP  JUNK  OUT 

DONT  CLEAR  OR  REPORT  RAES 

CLEAR  THE  ATTN  REGISTER 

NO  ACTION  ON  ERROR 

GET  STACK  PTR 

STACK  OK 

YES  -  PROCEED 

NO 

MBC  =  RH20?? 

YES 

KILL  THE  MBC  INTERRUPT  SYS 


DDRPl  - 
DDRPI5 

22561 
22562 
22563 
22564 
22565 
22566 
22567 
22568 
22569 
22570 
22571 

22572 

22573 

22574 

22575 

22576 

22577 

22578 

22579 

22580 

22581 

22582 

22583 

22584 

22585 

22586 

22587 

22588 

22589 

22590 

22591 

22592 

22593 

22594 

22595 

22596 

22597 

22598 

22599 

22600 

22601 

22602 

22603 

22604 


RH10/RH2C  -  RP04/05/06  -  RELIABILITY  TEST  VERSION  0.15  MACRO  :53B(1242)  15:51  28-Aug-85  Page  13 
MAC     28-Aug-85  14:07        STORE  FILE  FOR  DISK  PACK  RELIABILITY  TEST 


SEQ  0687 


101620 
101621 
101622 
101623 

101624 
101625 
101626 
101627 
^01630 
101631 
101632 

101633 
101634 


101635 
101636 
101637 

101640 
101641 
101642 
101643 
101644 


336  00  0  00  077721 

254  00  0  00  101624 

260  17  0  00  101635 

260  17  0  00  101645 


200  01 
404  01 

261  17 
200  02 
434  02 
256  00 

262  17 


0 
0 
0 
0 
0 
0 
0 


00 
00 
00 
00 
00 
00 
00 


101670 
101720 
000002 
101721 
000012 
000002 
000002 


7  004  20  0  00  004004 
263  17  0  00  000000 


200  01  0  00  101665 
606  01  0  00  000200 
263  17  0  00  000000 

200  01  0  00  101722 
260  17  0  00  063522 
200  01  0  00  101670 
202  01  0  00  101667 
263  17  0  00  000000 


101645 
101646 
101647 
101650 
101651 
101652 
101653 
101654 
101655 
101656 
101o57 


261  17  0 

261  17  0 
260  17  0 
205  03  0 
671  03  0 
200  02  0 
434  02  0 
256  00  0 

262  17  0 

262  17  0 

263  17  0 


00  000002 
00  000003 
00  063665 

00  060000 

01  101221 
00  101723 
00  000012 
00  000002 
00  000003 
00  000002 
00  000000 


SKIPN 
JRST 
GO 
GO 

MOVE 

AND 

PUT 

MOVE 

I  OR 

XCT 

GET 

CONO 
RTN 


RH10 

OVCHK 
HACK 

AC1,DIBSAV 

AC1,C770007,J 

AC2 

AC2,[DATA0  OJJ 

AC2,MBCN 

AC2 

AC2 


;MBC  =  RHIO  ?? 

;YES  -  ALSO  LOOK  FOR  CBOV 

;D0  HACK  TO  AVOID  FALSE  ERRORS 

;GET  THE  BLIND  DATAI  INFO 
.•STRIP  IT 


GET  A  BASIC  DATAO  ARC 
ADD  IN  THE  MBC# 
DO  A  DATAO  COMMAND 


PI, REQSETIPICHN5  .-REQUEST  CHN  5  INTERRUPT 

;AND  EXIT  THE  ROUTINE 


;HERE  TO  SEE  IF  RHIO  OVER-RAN 
OVCHK: 


MOVE 
TRNN 
RTN 

MOVE 

GO 

MOVE 

MOVEM 

RTN 


AC1.CC0NI 
AC 1. CBOV 


AC1,[CB0CLRI4] 
.CONO 

AC1.DIBSAV 
AC1.DIBCH5# 


GET  THE  MBC  STATUS  AGAIN 
CBOV  INTERRUPT?? 
NO  -  GET  OUT 

YES  -  PREPARE  TO  CLEAR  IT 

CLEAR  THE  CBOV  CONDITION 

GET  THE  CONTENTS  OF  LAST  REGISTER 

SAVE  IT  FOR  CHANNEL  #5  PROCESSING 

EXIT 


.-NEED  THIS  HACK  TO  AVOID  CAUSING  FALSE  CR  CBTO  ERRORS  3Y  ADDRESSING  THE 
:  ATTN  SUMMARY  REG  BEFORE  STARTING  A  DATA  XFR. 


HACK:   PUT  AC2 

PUT  AC3 

GO  CHNSEL 

MOVSI  AC3. 60000 

TSO  AC3..SVDRV(AC1) 

MOVE  AC2,CDATaO  0.3] 

lOR  AC2.MBCN 

XCT  AC2 

GET  AC3 

GET  AC2 
RTN 


GET  CHAN  #  IN  ACI 
GET  SERIAL  #  REG 
GET  DRIVE  #-  LAST 
GET  BASIC  DATAO 
INCLUDE  RH  DEVICE 
XCT  DATAO 


ONE  ISSUED  A  COM 
CODE 
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SEQ  0688 


22605 
22606 
22607 
22608 
22609 
22610 
22611 
22612 
22613 
226U 
22615 
22616 
22617 
22618 


101660  000000  000000 

101661  254  00  0  00  054217 

101662  000000  000000 
10^663  254  00  0  00  057165 


101664  000000  000000 

030000 


NO  ERRORS  DETECTED 

PROGRAM  BREAK  IS  000000 
ABSOLUTE  BREAK  JS  101724 
CPU  TIME  USED  01:48.902 

153P  CORE  USED 


• /If*  ♦♦»*********»*»*******t****»******  «*♦*♦♦♦♦♦♦♦♦♦♦*♦*♦  ♦*♦•**♦♦♦♦♦♦♦♦♦♦*♦♦ 

[•♦INTERRUPT  LINK  FOR  CHANNEL  5  AND  6 
•if************************************************************************ 


DSKINT:  0 

JRST 

RETRY:   0 

JRST 


END: 


0 
END 


.DSKIN 
.RETRY 

BEGIN 


.•PROCESS  THE  INTERRUPT 

;G0  TO  THE  ERROR  RECOVERY  PROCEDURE 


576 


AABCLR    U99# 

AADRBK    K99# 

AALLOP    9A10# 

9419 

AAPRC1    H99# 

11411 

ABORT     1231# 

2051 

4230 

4243 

4337 

4559 

AC        108 

252# 

2011 

2013 

2022 

2023 

2956 

2957 

2958 

2959 

2960 

2961 

A766 

5018 

5020 

5021 

5022 

5023 

55:8 

5543 

5878 

5880 

5881 

5886 

5959 

6007 

6009 

6010 

6013 

6019 

6310 

6400 

6401 

6404 

6405 

6417 

6736 

7052 

7081 

7085 

7086 

7141 

7482 

7484 

7486 

7524 

7847 

7850 

8395 

8399 

8407 

8412 

8476 

8478 

8636 

8641 

8644 

8647 

8676 

8837 

9082 

9083 

9084 

9088 

9090 

9287 

9797 

9832 

9833 

9857 

9858 

9881 

10075 

10076 

10077 

10079 

10080 

10289 

10711 

10712 

10713 

10739 

10740 

10741 

10918 

10925 

10930 

10931 

10932 

11013 

11385 

11386 

11389 

11392 

11838 

11841 

12019 

12020 

12021 

12023 

12052 

12094 

12168 

U185 

12210 

12243 

12244 

12253 

12337 

12348 

12369 

12377 

12380 

12387 

12643 

12644 

12747 

12796 

13146 

13153 

13367 

13448 

13489 

13515 

13588 

13592 

13971 

13972 

13973 

13978 

13988 

14004 

14050 

14051 

14053 

14054 

14055 

14056 

14132 

14134 

14142 

K244 

14245 

14247 

14342 

14343 

14345 

14348 

14351 

14353 

14537 

14539 

14540 

14541 

14544 

14730 

14796 

14802 

14867 
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14955   1 

4956 

U957 

14958 

14959 

14961 

15054 

15055 

15056 

15057 

15058 

15060 

15074 

15075 

15076   1 

5077 

15078 

15080 

15127 

15134 

15180 

15190 

15204 

• 

15213 

15224 

15258 

15263 

15268 

15273   1 

5275 

15279 

15280 

15281 

15283 

15285 

15287 

i 

15291 

15292 

15293 

15295 

15301 

15303 

15307 

15308 

15325 

15327 

15330 

15337 

15347 

15349 

15353 

15354 

15413 

15414 

15416 

15423 

15442 

15445 

15448 

15455 

15586 

15590 

15599 

15603 

15605 

15608 

15620 

15621 

1 5675 

15678 

15681 

15685 

15694 

15699 

15702 

15703 

15934 

15935 

15940 

15941 

15942 

15946 

15952 

15953 

15990 

16025 

16029 

16071 

16072 

16073 

16077 

16081 

16124 

16126 

16132 

16155 

16212 

16215 

16224 

162^8 

16272 

16281 

16289 

16290 

16300 

16304 

16305 

16308 

16388 

16389 

16396 

16397 

16452 

16456 

16457 

16458 

16547 

16548 

16549 

16550 

16590 

16592 

16597 

16615 

16639 

16652 

16653 

16654 

16657 

16660 

16664 

16673 

16721 

16723 

16726 

16728 

16732 

16734 

16738 

16740 

16758 

16761 

16763 

16771 

16781 

16788 

16814 

16819 

17071 

17079 

17082 

17083 

17084 

17092 

17095 

17096 

17138 

17140 

17142 

17144 

17148 

17159 

17161 

17164 

17189 

17191 

17194 

17196 

17198 

17202 

17204 

17207 

17287 

17289 

17316 

17317 

17341 

17344 

17345 

17349 

17383 

17388 

17392 

17395 

17397 

17405 

17406 

17409 

17434 

17436 

17553 

17568 

17599 

17600 

17607 

17610 

17707 

17708 

17715 

17725 

17726 

17732 

17734 

17735 

17753 

17763 

17765 

17791 

17792 

17798 

17799 

17800 

17826 

17844 

17845 

17850 

17851 

17891 

17892 

17916 

17958 

17962 

17989 

17990 

17998 

17999 

18029 

18030 

18048 

18050 

18056 

18057 

18059 

18061 

18078 

18083 

18110 

18112 

18113 

18117 

1«118 

18120 

18122 

18123 

18158 

18161 

18163 

18248 

18249 

18252 

18255 

18256 

18315 

18316 

18319 

18320 

18322 

18323 

18324 

18326 

18344 

18349 

18353 

18357 

18358 

18362 

18366 

18367 

18408 

18410 

18413 

18415 

18416 

18450 

18451 

18456 

18515 

18517 

18520 

18563 

18564 

18565 

18574 

18575 

13622 

18634 

18626 

18628 

18629 

18632 

18633 

18667 

18687 

18688 

18689 

18704 

18707 

18708 

18710 

18712 

18748 

i!?750 

18751 

18759 

18765 

18798 

18809 

18817 

19092 

19094 

19103 

19111 

19118 

19127 

19137 

19150 

19171 

19174 

19184 

19185 

19186 

19187 

19188 

19194 

19203 

19204 

^9205 

19218 

19219 

19225 

19228 

19239 

20104 

20105 

2:0106 

20107 

20108 

20109 

20r9 

20124 

20137 

20144 

20151 

20156 

20160 

WzV^ 

20234 

20236 

20283 

20284 

20286 

20289 

20290 

20358 

2061 5 

20617 
22313 

20618 

20649 

2C651 

m 

20723 

20725 

22308 

22320 

22325 

22332 

22344 

22349 

22396 

22401 

22407 

22412 

22419 

22424 

22431 

22518 

llMl 

22524 

22526 

22530 

225j1 

22532 

22534 

2254S 

22551 

22552 

22556 

22567 
3332 

'P 

22580 

AC2       i08 

256# 
3349 

3008 

3009 

3329 

3334 

3347 

3351 

3357 

3358 

3360 

3361 

3366 

3391 

3392 

3394 

3395 

3396 
4275 
5704 

3401 

3402 

3404 

3434 

3435 

3436 

4271 

4279 
5706 
6418 

6432 

4289 

4843 

5469 

5471 

5472 

6023 

6220 

till 

6231 

6309 

6391 

6442 

6498 

6503 

6514 

6553 

6554 

6559 

6657 

6663 

6685 

6686 

6687 

6688 

6690 

6693 

6720 

6725 

15309 

15311 

15317 

15319 

15323 

15324 

15355 

15357 

15364 

15406 

15408 

15412 

15456 

15457 

15464 

15476 

15523 

15544 

15627 

15640 

15641 

15659 

15660 

15661 

15710 

15713 

15717 

15864 

15865 

15866 

15964 

15968 

15972 

15976 

15980 

15988 

16097 

16100 

16112 

16113 

16114 

16119 

16239 

16247 

16256 

16260 

16264 

16270 

16309 

16310 

16323 

16324 

16325 

16387 

16477 

16478 

16482 

16486 

16513 

16514 

16617 

16618 

16619 

16620 

16622 

16624 

16674 

16690 

16710 

16714 

16716 

16718 

16744 

16747 

16749 

16751 

16753 

16756 

16851 

16853 

16857 

16862 

17069 

17070 

17098 

17106 

17125 

17128 

17134 

17136 

17166 

17168 

17170 

17172 

17174 

17178 

17228 

17229 

17231 

17234 

17284 

17285 

17356 

17367 

17375 

17379 

17380 

17381 

17410 

17412 

17414 

17415 

17416 

17421 

17612 

17627 

17687 

17688 

17705 

17706 

17742 

17744 

17746 

17748 

17749 

17752 

17802 

17804 

17818 

17819 

17822 

17824 

17918 

17937 

17945 

17946 

17952 

17956 

18031 

18032 

18041 

18042 

18045 

18047 

18084 

18087 

18091 

18100 

18108 

18109 

18124 

18125 

18149 

18150 

18156 

18157 

18282 

18283 

18310 

18312 

18313 

18314 

18327 

18330 

18334 

18337 

18340 

18341 

18368 

18369 

18370 

18405 

18406 

18407 

18457 

18458 

18477 

18500 

18513 

18514 

18595 

18605 

18606 

18612 

18614 

18615 

18675 

16676 
18715 

18681 

18682 

18683 

18685 

18713 

18720 

18731 

18745 

18746 

18823 

18828 

18831 

18836 

18839 

19075 

19153 

19159 

19162 

19165 

19166 

19167 

19195 

19196 

19197 

19198 

19201 

19202 

19240 

19245 

19500 

19635 

20082 

20084 

20126 

Wi 

20129 

20132 

20135 

20136 

29257 

20274 

20276 

20278 

20282 

20361 

20363 

20364 

20464 

20466 

20467 

20726 

21699 
22365 

22284 

22289 

22296 

22301 

22360 
22443 

i^S^T, 

22384 

22389 

22448 

22460 

22502 

22512 

22517 

22535 

22538 

22540 

22543 

22544 

22547 

22581 

22584 

'^^% 

22587 

22597 

3335 

3336 

3339 

3341 

3343 

3370 

3372 

3374 

3387 

3389 

3390 

3406 

3410 

3428 

3430 

3431 

3432 

4291 

4292 

4293 

4817 

4841 

4842 

6024 

6025 

6152 

6167 

6169 

6187 

6446 

6461 

6471 

6475 

6486 

6494 

6664 

6665 

6667 

6679 

6681 

6683 

6832 

6833 

6834 

6838 

6841 

6844 

r 


SEQ  0692 


AC3 


6845 

6846 

6861 

6863 

6864 

7168 

7171 

7177 

7183 

7437 

7448 

7449 

7450 

■           , 

7699 

\ 

7981 

8000 

8001 

8025 
8577 

8036 

8501 

8502 

8507 

8523 

8527 

8531 

8533 

8536 

8544     SEO  0693  ;   j 

8567 

8569 

8571 

8580 

8581 

8587 

8639 

8640 

8641 

8653 

8659 

8664 

8674               i 

8702 

8703 

8747 

8748 

8749 

8798 

8799 

8842 

8902 

8903 

8910 

8911 

8920 

8927            ; 

8937 

8957 

9008 

9104 

9105 

9107 

9109 

9111 

9120 

9123 

9125 

9128 

9130 

9132 

9135 

9140 

9142 

9154 

9156 

9158 

9183 

9184 

9207 

9219 

9221 

9223 

9225 

9511 

9512 

9675 

9695 

9735 

9737 

9741 

9744 

9746 

9801 

9952 

9953 

10024 

10025 

10048 

10050 

10051 

10058 

10093 

10144 

10165 

10178 

10192 

10193 

10211 

10237 

10252 

102631 

10264 

10270 

10287 

10301 

10302 

10303 

10304 

10306 
10367 

10307 

10308 

10309 

10311 

10312 

103131 

10325 

: 

10332 

10333 

10350 

10355 

10356 

10359 

10395 

10436 

10455 

10503 

10504 

10580 

10597 

10598 

10599 

10600 

10601 

10602 

10603 

10604 

10605 

10606 

10607 

10608 

10609 

10612 

10645 

i 

10646 

10647 

10648 

10649 

10650 

10651 

10652 

10672 

10684 

10697 

10732 

10743 

10769 

10880 

t 

10910 

10914 

10917 

10918 

10921 

10923 

10926 

10928 

10929 

10934 

10957 

10970 

11872 

11879 

11880 

11882 

11884 

11885 

11892 

11914 

11919 

11929 

11930 

11931 

11932 

11934 

11937 

11940 

11941 

11942 

11943 

11944 

11949 

11953 

11954 

11956 

11957 

11960 

11992 

12054 

12129 

12131 

12339 

12340 

12341 

1241]! 

12415 

12483 

12485 

12534 

12541 

12582 

12622 

12644 

12663 

12670 

12672 

12675 

12688 

12693 

12694 

12701 

12709 

\mi 

12737 

12944 

13142 

13153 

13176 

13138 

13190 

13192 

13194 

13202 

13203 

13204 

13222 

13226 

13228 

13236 

13238 

13240 

13242 

13243 

13244 

13245 

13246 

13247 

13268 

13270 

M272 

13274 

13276 

13278 

13280 

13288 

13446 

13488 

13516 

13525 

13528 

13529 

13539 

13549 

13556 

13586 

13588 

13598 

13602 

13606 

13616 

13653 

13665 

13677 

13680 

13681 

13686 

13688 

13704 

13787 

13804 

13809 

13812 

13823 

13835 

13845 

13846 

13853 

13857 

13858 

13898 

13899 

13901 

13915 

13920 

14018 

14071 

14090 

14092 

14093 

14095 

14097 

14101 

14112 

14131 

14140 

14145 

14146 

14150 

14151 

14164 

14206 

14277 

14287 

14289 

14290 

14308 

14331 

14475 

14532 

14547 

14602 

14603 

14604 

14607 

14608 

14715 

14720 

14722 

14724 

14725 

14728 

14730 

14735 

\t,777 

14791 

14801 

14805 

14816 

14819 

14820 

14821 

15259 

15332 

15333 

15339 

15340 

15380 

15381 

15382 

15384 

15400 

15401 

15422 

15443 

15449 

15460 

15464 

15465 

15467 

15468 

15471 

15475 

16093 

16095 

16096 

16102 

16238 

16258 

16261 

16262 

16282 

16691 

16772 

16780 

17074 

17077 

17078 

17087 

17090 

17091 

17101 

;'104 

1710S 

17368 

17371 

17379 

17382 

17387 

17417 

17420 

17422 

17433 

17449 

17450 

17455 

17562 

17618 

18539 

18566 

18589 

18668 

18690 

18698 

18719 

18722 

18724 

18730 

18754 

18755 

18756 

18757 

18764 

18769 

18770 

18771 

18807 

19076 

19126 

19136 

19168 

19169 

19172 

19173 

19193 

19195 

19198 

20084 

20085 

20120 

20124 

20131 

20132 

20133 

20134 

20137 

20138 

20139 

20150 

20651 

20654 

20725 

22569 

22570 

22571 

ii^n 

22573 

22593 

22598 

22599 

22600 

22602 

108 

257# 

3010 

4110 

4275 

4276 

4278 

4818 

4844 

5473 

5627 

5628 

5630 

5631 

5634 

5635 

5637 

5639 

5649 

6019 

6020 

6022 

6026 

6040 

6156 

6157 

6158 

6485 

6497 

6532 

6535 

6543 

6560 

6831 

6875 

7174 

7175 

7178 

7184 

7982 

7992 

7993 

7994 

8002 

8004 

8006 
8287 

8008 

8009 

8011 

8012 

8024 

8032 

8033 

8034 

8036 

8037 

8216 

8241 

8285 

8675 

8704 

8841 

8921 

8928 

8936 

8958 

9009 

9504 

9512 

9537 

9541 

9802 

9803 

9804 

9805 

9806 

9955 

9956 

9957 

10027 

10028 

10029 

10166 

10176 

10179 

10181 

10188 

10189 

10190 

10193 

10198 

10210 

10238 

10248 

10249 

10250 

10253 

10254 

10259 

10260 

10261 

10264 

10265 

10269 

10288 

10315 

10324 

10351 

10359 

10360 

10361 

10363 

10376 

10394 

10435 

10456 

10499 

10500 

10505 

10507 

10581 

10671 

10686 

10731 

10734 

10736 

10739 

10747 

10770 

10879 

10911 

10915 

10916 

10919 

10920 

10921 

10922 

10923 

10933 

11873 

11886 

11887 

11891 

11915 

11931 

11933 

11945 

11946 
12457 

11948 

11950 

11951 

11952 

11953 

11959 

11993 

12053 

12448 

12450 

12452 

12454 

12455 

12643 

12687 
13241 

12695 

12702 

12710 

12^23 

12736 

13143 

13154 

13158 

13159 

13162 

13163 

13164 

13175 

13654 

13666 

1 3678 

13681 

13683 

13685 

13686 

13687 

13705 

13721 

13836 

13837 

13838 

13841 

13862 

13869 

1 3884 

13888 

13890 

13897 

13914 

13924 

14019 

14071 

14097 

14111 

14131 

14207 

14277 

14308 

14330 

14476 

14546 

14778 

14793 

14804 

14892 

14904 

14915 

14928 

14953 

14989 

15052 

15072 

15128 

15135 

15139 

15142 

15144 

15151 

15154 

15260 

15383 

15390 

15391 

15392 

15393 

15421 

17369 

17386 

18567 

18669 

18716 

18717 

18718 

18720 

18723 

18725 

18729 

18760 

18762 

18763 

18765            i 

18812 

20121 

20125 

20126 

20128 

20131 

2014? 

20146 

20149 

20236 

20238 

20239 

20357 

20466            I 

20468 

22594 

22596 

22597 

22601 

' 

r 


AC4 


ACS 


AC6 
AC7 


ACCEPL 

ACCEPT 

ACHK1 

ACHK2 

ACHKEX 

ACLOU 

ACPFLG 

ACPT1 

ACPT2 

ACTSEK 

ACUNSF 

AODALL 

ADDDRV 

ADJ 

ADNCHK 

ADNUn 

AORDDB 

ADRDON 

ADRSEL 

ADRSLl 

ADRSL2 

ADRSLA 

ADRSV 

ADRSV1 

ADRSV2 

AORV 

ADV 

AFOCLR 

AFODIS 

AFOENB 

AFOV 

ALGNUM 

ALLADR 


108 
8033 
9807 
10261 
10375 
10582 
10809 
13667 
108 
9812 
10377 
10805 
10877 
14037 
U328 
260# 
261  # 
13654 
13699 
14248 
4206 
2133 
11263# 
11265 
11269 
1195# 
1981 
4526# 
4466 
558# 
1161# 
9318 
9296 
18711 
4049 
9315 
7225# 
11017* 
11025 
11157 
11193 
11167* 
1 7976# 
17986 
1 798^. 
9538 
4767# 
1499* 
1499* 
1499* 
1499* 
18106* 
563* 


258* 

8034 

9958 

10262 

10376 

10670 

10812 

13706 

259* 

9959 

10379 

10806 

12638 

14038 

14477 

20363 

8960 

13655 

13700 

14271 

4472* 

4469* 

11273 

11267 

11271 

4252 
4563 
4557* 
14067 

9407* 

P340* 

1^735* 

11128 

9336* 

11017 
11104 
11164 
1 1 209* 
11173 

1 7996* 
17992 
9343* 


18106 
11376 


5474 

8035 

10030 

10266 

10378 

10690 

10816 

14020 

4728 

9960 

10380 

10808 

12661 

14039 

14536 

13625 
13656 
13703 
14282 


11272* 
1 1 276* 


18749 
11259* 


11122 

11163* 

11192* 


18001* 


6484 

8038 

10167 

10268 

10379 

10693 

10819 

14110 

4753 

9961 

10381 

10809 

12885 

14040 

14545 

13627 
13657 
13704 
14309 


6493 

6521 

6530 

6540 

6561 

8922 

8929 

8935 

8959 

9010 

10180 

10187 

10189 

10190 

191^1 

10352 

10356 

10360 

10362 

10367 

10380 

10384 

10387 

10391 

10392 

10695 

10771 

10778 

10779 

10789 

10822 

10823 

10824 

10K§ 

13144 

14208 

14329 

14526 

14779 

14796 

4758 

5479 

8923 

8924 

8930 

9962 

9963; 

10031 

10032 

10033 

10389 

10397 

10413 

10433 

10772 

10810 

10811 

10812 

10813 

10815 

12890 

12895 

12901 

12922 

13656 

14041 

14079 

14109 

14133 

14135 

13629 

13630 

13632 

13633 

13636 

13658 

13659 

13660 

13661 

13664 

13705 

13706 

13707 

13708 

13711 

14310 

14327 

4292    4390*   4390    4469    6751 


11150 


7169 
9789 
10199 
10368 
10397 
10790 
13155 
14799 
8934 
10034 
10796 
10816 
13668 
14209 


13637 
13665 
13712 


7983 

8003 

9790 

9794 

10209 

10239 

10369 

10370 

10412 

10434 

10794 

10795 

13156 

13157 

14800 

14803 

9808 

9809 

10035 

10353 

10799 

10800 

10817 

10818 

13707 

14021 

14251 

14252 

13640 
13666 
13714 


13641 
13667 
13724 


8023 
9795 
10258 
10372 
10457 
10800 
13174 
15261 
9810 
10371 
10801 
10819 
14035 
14311 


13652 
13668 
14210 


8031 
9796 
10260 
10373 
10506 
10805 
13655 
15420 
9811 
10374 
10804 
10820 
14036 
14312 


13653 
13698 
14247 


SEQ  0694 


18112   18198   18316   18322   18326   18405   18423   18428 


L 


ALLDRV 

565# 

11378 

ALTWGO 

1585# 

AMCLRB 

H99# 

AMPCLR 

U99# 

AMPV 

U99# 

ANXCLR 

U99# 

ANXM 

H99# 

ANYDRV 

9365 

9A83# 

9A92 

AOE 

977M 

AOVCLR 

1A99# 

AOVDIS 

1A99# 

AOVENB 

1A99# 

AOVFLO 

1A99# 

APAREN 

1A99# 

APARER 

1A99# 

APATD 

6753 

67790 

APATLP 

6758# 

6780 

APDCLR 

1A99# 

APDLOV 

1A99# 

APFL6 

6A96# 

6A96 

65A2 

65A8 

APR 

5A78 

8926 

9012 

901 A 

9016 

1909:; 

19176 

19177 

19179 

19180 

APWRFL 

1A99# 

ARFULL 

755# 

ARGCYL 

1A1A3 

1A168/If 

ARGEXT 

1A1A7 

1A162* 

1A169 

ARGPAT 

1A1AA# 

ARGSET 

1A012 

lA139/(f 

AROV 

1A99* 

AROVTP 

1A99# 

AROVU 

lA994f 

ASELX2 

1120A 

11216 

11220* 

ASKPAT 

2255 

2289 

2A22 

6751* 

6765 

ASKPE1 

676A# 

-773 

ASKPER 

6757 

67720 

ASKPY 

6760 

67670 

ASICPY1 

676S0 

6777 

AST 

1700# 

AT.0K1 

16082 

16089* 

AT.0K2 

16090 

16092 

16103* 

ATA 

920# 

15710 

15887 

ATA. OK 

16060 

16066# 

ATACLR 

1578A 

15903 

16069 

1661  A* 

ATAHDR 

15921 

16062 

16393 

16399 

16580* 

ATAHLT 

16005 

^ 62220 

16358 

ATAN3A 

1 5983# 

1639A 

ATANAA 

16010 

16020# 

ATAND 

1592U 

1606A 

ATAND1 

1 5937# 

15957 

16021 

16030 

16039 

ATAND2 

1 59A6# 

159A9 

ATAND3 

15950 

15959/r 

ATANDA 

159A8 

15970 

15978 

16007* 

16027 

ATAND5 

15960 

16025# 

16028 

~1 


r 


SEQ  0695 


9018   11A06   11A08   11A11   11A13   11A17   15A32   15A3A   15568 


16605 


16032 


ATANDC 

ATANDE 

ATANDP 

ATANDT 

ATANDX 

ATANP 

ATANPA 

ATANX 

ATAOK 

ATARI 

ATAP2 

ATAP3 

ATAP3A 

ATAPA 

ATAP5 

ATAP6 

ATAP6A 

ATAP6B 

ATAP7 

ATAP7A 

ATAP7B 

ATAP7C 

ATAP7D 

ATAP7E 

ATAP8 

ATAPA 

ATAPB 

ATAUND 

ATAUNX 

ATAXF2 

ATAXF3 

ATAXF4 

ATAXFR 

ATAXFX 

ATNHFG 

ATRPOS 

ATSIN 

ATTN 

ATTNEN 

ATTNHD 

ATTNSV 

AUSRIO 

AUTBAT 

AUTOV 

AUTTOT 

BATBLK 

BATENT 

BATEST 

BATINT 

BATSET 

BEGEND 

BEGIN 

BEGIN1 


16A21# 
16079 
15952* 
16106 
15939 
16A15# 
16412 
160A1# 
15919 
16305# 
16328 
16320 
163A2 
1600A 
16313 
16398 
16AA7# 
16A52/r 
16AA8 
16A75* 
16AA5 
16A79 
16A7U 
16A19 
16A33# 
16306 
16392 
16315 
16378* 
16125 
16127 
16121 
16110# 
16133 
15916 
1A99# 
1701# 
776M 
62A# 
16138 
155A1# 
1A99* 
5803# 
3671# 
6385 
6015 
61A3* 
58721 
1979 
7575 
96 
96 
1528# 


16A37 

16302 

15965 

16115 

160A5# 

16A73 

16A17# 

160A6 

16058* 

16333# 

163A0# 

163AA 

160A3 

16360# 

16A13 

16A67 
16A51 

16A93# 

16A87# 

1650A 

16A98# 

16A59 

16386# 

16396# 

16375# 

16155# 
16179# 
16135 

ir137 
16539 


5A69 
6A5# 
16165 
155A1 

5803 
3671 
6A14# 
603A 
13131 
5872 
757A# 
795ZM 
1581/r 
221 
1582 


16502 
16322# 

16300* 


16A96 

16219 

16351 

163A7# 
16051 

16AA2* 
1 6A66# 


16150 
16582# 


8908 

7A7/r 
16183 
16600 


16A5A 

16A8A 

16303 

16357 

16379 

16A01 

16A69 

16A9A 

16331 

163A8 

16355/(f 

16367 

SEQ  0696 


16370   16382   16A26   16A28   16A31   16A91 


16161   16180   1619A* 


16156   1616A 
16582   16587 


15559   22A61 

5458   12324 

16197   16318 


16175   16182   16190   16196   16208*  16464 


22469   22476   22483   22490 

17392   17804   18163 

16329   16333   16360   16375 


16470   16495   16605* 


5986    6051    7971    8836   13130   17888   18245 


6414 
6130 
17889 
5877 
7574 

2037 
222 


15451 
6143* 

18246 
5879 
7576 

205? 
224 


6143 

5880 
12879 

2055 
226 


6168 
6000 


4231 
227 


6005    6008    6009 


A244    4338    4560 
228    229    230    1446    1447    1512*  22618 


BELL 

BENTA 

BENTL 

BIS 

BLK13F 

BLKADR 

BLKCNT 

BLKL1 

BLKL2 

BLKL3 

BLKLA 

BLKLAA 

BLKLAB 

BLKLAC 

BLICL4D 

BL<LAE 

BLKL4F 

BLKLAL 

BLKL5 

BL<L6 

BLKLSI 

BLKLS5 

BLKLST 

BLKSIZ 


BMCHI 

BMCH2 

BMCH2X 

BMCH3 

BMCHSA 

BnCHEX 

BSIZE 

BUFMAP 

BUFMCH 

6UFSCN 

BUSY 

BYTEA 

BYTEC 

BYTES 

C 

CADTBL 

CALLPC 

CAPR5 

C6ASE 

CBFULL 

CBOCLR 

CBOV 

CBPAR 

CBPE 

CBTO 

CBUFPT 


170A# 
6178 
61 77# 
1499# 
8692# 
96 
69U 
5856 
5865# 
5867 
5875 
5893# 
5899# 
5904# 
5909# 
591 3# 
5918 
5886# 
5928 
5882 
5836# 
58A9 
5790 
96 
13080 
15381 
1 029A4f 
10292 
103U 
10310 
10319 
10295 
608A# 
96 
99A9 
4573 

llin 

20931 

20940* 

20848 

96 

96 

20093 

10613 

1556S# 

96 

756# 
74  5# 
774# 
791  # 
78  7# 
786# 
21593* 


6186* 
6182 

8692 
5893 
700* 
5861  # 

5872* 
5878* 


SEQ  0697 


5926* 
5960 
5937 
5887 
5859 
5855* 
5793 
549* 
13154 
15382 
10298 
10297* 
10321* 
10332* 
10330* 
10323* 
6084 
:971 
10022 
9772 
12439 
20943* 
20945 
20930* 
22192* 
3005 
20126 
10840* 
15568 
8232 

22584 
15562 


8728 
6016 


8733 
7538 


10610   10956*  12896   12902   13076   13870   13925   14078   14250   18233 


5947 

5962* 

5870 

5832* 

6242 

13238 

18099 

10305 


5951 
5977 


6259 
13240 
18139 
10335 


5955 


5958* 


6280 
13603 
18156 


7505 
14409 
18227 


7953 
14679 


10795 
14680 


11077 
14992 


11918   12918   12919   13001   13016 
15148   15334   15338   15341   15343 


6092 
6972 

10285* 
9829 

15653 


6094 
6973 

10629 
9854 

16105 


11578* 
8037 

9886 
16132 


11578 
8038 

9970 
16247 


11588   11590 
10198   10199 

10071*  10294 


11619 
10265 


10266   10385   10410   22216* 


3041 
20239 
10840 
15572 

8259 


22461 


3107 
20328 


173h4 
22469 


4788    8679    8802   16289 
20359   20360   22181* 


17687   18357   18456   18513   18563   18574 


17356   20096   20104   20134   20366   20493   22170* 


22476   22483   22490   22581 


...„.J 


CCA 

CCINH 

CCMDA 

CCMDA1 

CCMDA2 

CCMDAL 

; 

CCMDB 

CCMDER 

CCONI 

CC0NI5 

CCWI1 

I 

CCWI1A 

1 

CCWI1B 

CCWI1C 

CCUI2 

CCWI2A 

CCUI2B 

CCWI2C 

CCWINT 

1 

CCWIX 

CCUPNT 

CCWPT1 

CCWPT2 

CCyPT3 

CCWPTA 

CCUST 

CCWST1 

CCWSTF 

CCWTBL 

CDAFLG 

CDPE 

CDRDSB 

CDSB1 

CEADR 

CEBWD 

CECYL 

CEDIF 

CEGUD 

CERR 

f 

CERR1 

i 

CERR2 

CESEC 

' 

CESUR 

CEWD 

. 

CFAIL 

CFERR 

CFUI.LP 

\ 

CGEN2 

S   ' 

CHAIN 

CHECKA 

U99# 
757# 
17222* 
17226* 
17237 
17221 
17227 
17283 
22285* 
22362 
224A5 
22580 
15535* 
20683 
20692 
20690 
20715 
20696 
20704 
20730 
20742 
20634 
20686* 
17350 
20623 
20627 
20641 
20642 
20263 
20326 
20423 
20705 
14988* 
763* 
1973 
8049* 
10788* 
10789* 
10820* 
10824* 
10777* 
921* 
8600 
8609 
10806* 
10fl13* 
10796* 
16140 
16149 
14187* 
20373 
1251* 
13486 


SEQ  0698 


17280 

17245* 

17277* 

17282* 

1 7294* 

22285 

22373 

22464 

15535 

20689* 

20697* 

20715* 

20723* 

20699* 

20708* 

20740* 

20745* 

20678* 

20707 

2C606* 

20628* 

20631 

20647 

20645 

2^111 

20332* 

20^290 

21278* 

14988 

8045* 
8066 
10788 
10789 
10820 
10824 
10777 
12473 
8606 
8617* 
10806 
10813 
10796 
16148 
16174 
14334 
2OIS70 

13521* 


17400 
17254 


22286 
22374 
22465 


20633* 
20660 
20648 
20291 


10790 
10823 
10869 
10862 
10822 
13264 
8612* 

10868 
10866 
10873 
16173 
16189 


17265   17321 


22297 
22385 
22471 


22298 
22386 
22472 


22309 
22397 
22478 


22310 
22398 
22479 


22321 
22408 
22485 


22522 
22409 
22486 


22333 
22420 
22492 


22334 
22421 
22493 


22345 
22432 
22497 


22346 
22433 
22498 


22361 
22444 
22534 


15548   15576   15706   15860   16104   16597   16692   16805   17040   17353 


20711   20713  20722      20739   20753 


20664 
20662 
20666* 
20324* 


20664* 


15023   15041 


10853 
10859 


10856 
15710 


15866   15972   16029   16126   16155   16397   16458   16664   17819 


16188 
16201 


16200   16240 
16285* 


16263*  16263 


r i 

CHECKH 

13546 

13562# 

CHECKQ 

13563 

13574# 

CHECKR 

13467 

1 34 77# 

CHECKS 

13522 

13545# 

CHINIT 
CHKALT 

8357 
97 

20076# 
2440 

2456 

2467 

2480 

3002 

3117 

4105 

4765 

4981 

5065 

5100 

5141 

5183 

5218 

5258 

5304 

5342 

5417 

12760 

13344 

13371 

13459* 

13649 

13723 

CHN10 

17343 

17353# 

' 

CHNACT 

758# 

CHNCLR 

739# 

CHNER 

768# 

16697 

17354 

CHN1T1 

20093# 

CHNIT2 

20103 

20ir# 

CHNOFF 

1499# 

CHNON 

1499# 

11414 

19167 

CHNPLS 

759# 

CHNSAV 
CHNSEL 

16653# 
97 

16653 
3004 

16674 
3040 

3106 

4787 

5555 

6161 

7467 

7669 

8295 

8327 

S677 

8801 

12027 

V'  t'w*^^  ^ 

12627 

15585 

15658 

15674 

15933 

16070 

16094 

16211 

16223 

16288 

16307 

16322 

16386 

16589 

17315 
20356 

17340 
20362 

17686 
20465 

17936 
20616 

18356 
20650 

18455 
20724 

18476 
22595 

18499 

18512 

18562 

18573 

20083 

20156* 

20235 

CHNTA 

1 7348# 

17357 

CHNTST 

15895 

16767 

17340* 

CHROUT 

21867 

21870 

21874 

21877 

21880 

21883 

21884* 

CINIT 

20085 

22 180# 

CKSFE 

18993 

19008# 

CKS«ER 

1970 

18857 

1 8986* 

19041 

19132 

CKSUM 

6995 

18978# 

18978 

18986 

CKTST 

200- 

2060# 

CLCMA1 

17134# 

17145 

CLCWA2 

17137 

17139 

17144* 

CLEAR 

895# 

16657 

CLENU2 

1972 

4568# 

14232 

CLENU3 

4573# 

577 

CLENUA 

4571 

4575# 

^  ^  ^  *  w%#  ' 

CLENUP 

97 

2047 

2616 

2633 

2652 

2668 

2684 

2700 

2716 

4334 

4405 

4412 

4419 

4426 

♦,■-- 

4436 
4619 

4451 
4624 

4458 

4486 

4493 

4500 

4510 

4517 

4524 

4531 

4538 

4545 

4552 

4565* 

CLINIT 

6933# 

CLK 

1499# 

9008 

9012 

9016 

15432 

19177 

CLICCLR 

1499# 

9014 

9018 

15434 

19176 

19179 

CLKDIS 

1499# 

CLKENB 

1499# 

11411 

11413 

15434 

CLKFLG 

251# 

CLKINT 

6939 

15479 

22044* 

CLKSRV 

6^37 

15433 

22041* 

CLKU 

1499# 

CLOCKF 

1567# 

15436 

CLR2ND 

12458 

12504 

13383 

13405 

17264 

17267* 

CLRALL 

11317 

12107 

12173 

12499 

15785 

16018 

16291 

16335 

16349 

17125* 

M277 

18484 

CLRBIT 

10177* 

CLRBlk 

1867 

1975 

4628 

6290 

7008* 

7959 

CLRCMD 

97 

12756 

13329 

15595 

15723 

16145 

16170 

16187 

16205 

16346 

16429 

16461 

17216* 

SEQ  0699 


CLRCNT 
CLRDEL 
CLREXI 
CLREX2 
CLREXT 
CLRFLP 
CLRFNO 
CLRFRE 
CLRNXT 

CLRPI 

CLRSEL 

CLRTBL 

CLRUW 

CLRUD 

CLRUDX 

CLSRV 

CLSRV2 

CLSRV3 

CLSRVA 

CLSRVX 

CWFND 

CMC 

CMCODE 
CWDA 
CMDB 
CWDCOM 
CMDDAT 
CMDDN 
CMODST 
CHDER 
CMOERI 
CHDER3 
CWERS 
CRDFUL 
CH0HC1 
CHDNUM 
i  C«DP1 
!C«DP2 
'  CWP3 
CWDP3A 
, CMDPNT 
j  CMDQPT 

'CWSE1 
CWSE2 

jC«DSE3 
CMDUUO 

iCMDXi 
CHDX10 
CWX11 
CMDX1A 
CMDX1B 


16648# 

16648 

16666 

16668 

1U73# 

11473 

11500 

11508 

11601 

11621 

16665 

16673# 

16659 

16662 

16667 

16671# 

7988 

8022# 

10517 

8006# 

8014 

7995 

801 7# 

697A 

7980# 

7987# 

8018 

H606 

14612# 

7405 

9337 

9467* 

69S7# 

7084 

7192 

7999# 

8010 

8015 

8029# 

10508 

8030 

8039# 

15432# 

22042 

15442* 

22045 

1 5460* 

15461 

15472 

15466 

15471# 

15462 

15474# 

7024 

13716 

13797 

14002 

14056 

14057 

22134# 

14026 

14034# 

12622* 

12622 

12673 

13975 

14002# 

14004# 

14176 

14199 

14109# 

14125 

14137 

12035# 

12035 

12051 

13207 

13250 

13259 

64  7# 

4732 

4850 

12036 

12066# 

13846 

13978 

13991# 

14425 

1 3977# 

1 3985# 

14015 

12127# 

i<372 

14003 

14175* 

14335 

12301 

12310# 

6241 

9789 

13973* 

13973 

14004 

14023 

1 3793# 

13"'98 

13794 

1 3800# 

138074f 

13817 

13808 

13819# 

1 3784# 

14223 

97 

7026# 

7026 

14196 

14243 

14379 

18471 

18494 

12119# 

12172 

12218 

12238 

i:303 

12.35# 

12144 

12130 

12143# 

287 

13971* 

97 

MM? 

12192 

1220^ 

12258 

12294 

13275 

13327# 

13277 

13334# 

12358 

12377# 

12322 

12379 

12381 

12388 

12408# 

SEQ  0700 


14081   14099   14103   14237   14279   14294   14318   14370 


17565   17615 


14045   14059   14212   14248   14325 


14381   14386   14526   14541   14542   17931   18017   18022 


12320# 


CMDXIC 

CMDXID 

CMDXIE 

CNDX2 

CHDX2A 

CHDX3 

CMDX3A 

CM0X3B 

CHDXA 

CHDX4A 

cnoxAB 

CH0X4C 

CHDX4E 

CMDX5 

CWX6 

CHDX7 

CMOXA 

CMDXA1 

CnDXA2 

CnDXA3 

cnoxB 

CMDXBI 

CMOXC 

CHDXCF 

CWDXCL 

CMDXCT 

CHDXDP 

CWDXE1 

CHDXE2 

CHDXEX 

CHDXEY 

CWXHC 

CHDXHE 

CMDXN 

CNDXNP 

l.^DXPC 

CMDXPE 

CMDXPS 

C«DXPT 


CWDXR 

CMDXSC 

CMDXSE 

CWDXSP 

CMDXSS 

CHDXY 

C«MBCC 

CHPAD 

^••PCHK 

cMPCKl 

CMPCK2 

CHPCi<3 


12A16 
12431 
12A37 
12A53 
1 2469# 
12429 
12488 
13180 
12342 
13269 
13282 
1 3294# 
13292 
13271 
13289 
13273 
12003 
12093 
12112# 
12111 
12352# 
12351 
12390# 
1 2002# 
11995# 
6263 
12078# 
12465 
1247A 
12015* 
12018# 
12156 
12209 
12113 
12007 
12169 
12166 
12161 
97 
12202 
13731 
r996 
1228U 
12213 
12133 
12i81 
12149* 
13377* 
10611* 
9842 
9886* 
9884 
9895 


12419 

12439* 

12447* 

12463* 

12472 

12481* 

13140* 

13212* 

12410 

13279 

13291* 

13300* 
13307* 
13314* 
13321* 
1 2089* 
12103* 

12146* 

12362* 

12006 

6284 
12336 
1 3389* 
13262 
13208 
^2761 
12282 
12235 
ii147 
12025 
12230 
12208* 
12176* 

5577 
12217 
13738 
12085* 

12215 

12194* 

12203 


10611 
9878* 
9893 
9889* 
9909* 


12428* 


SEQ  0701 


13257* 
13284* 


12251 


12365 


13265 

13251 

13330 

12299* 

12264* 

12165* 

12049* 

12253* 

12256 
7027* 
12237 
13741 


12234* 
12285* 


10617 
9937 
9897 


13287 


9844   11985*  14116   14315   14357   18645 


13411* 
13296 


13303   13310   13317   13323   13336   13450 


12070 
12268 

12283 

7027 

12289 

13743 


12313 


12073   12081   12120   13343   13346   13375   13406   13436 


11998 
12300 
13776 


12002 
12454 
17561 


12004 
12500 
17619 


12084   12089   12110   12119   12158 
13359   13401   13626   13634   13638 


12168   12167 
13646   13679 


10798 

10007 

9907 


133A2 
9910 


14179 
9913 


__J 


'1 


.   ! 

CMPCKX 

CMPECK 

CMPER 

CHPER1 

CHPER2 

CMPER3 

CMPER4 

CHPER5 

CHPER6 

CHPER7 

CMPER8 

CMPER9 

CMPERS 

CMPERX 

CMPEX 

CMP6EN 

CMPWD 

CMPUDX 

9887 
1 0706* 
10696 
1 0783* 
10798* 
10808* 
10815* 
10822* 
10828* 
10833* 
10826 
10853* 
10830 
10780 
10661* 
10630 
10640 
10688* 

9915* 
10744 
10748 

10886 
10845* 

10885* 

10851 

10701 

10637* 

10681* 

10697 

10766* 

10877* 
10720 

SEQ  0702 

CMXNPC 

12045 

12108 

12174 

12333 

12345 

12354 

12364 

12384 

12392 

13374* 

CNIA 

20803 

20807* 

CNI6 

20806 

20815* 

CNITB1 

20809 

21161* 

CNITB2 

20807 

21143* 

CNOCMN 

19961 

19968* 

CNT1 

14920* 

14920 

CNTLC 

^  a  m  ^  a^  a^ 

1584* 

4  J   ^\^  M 

CNTRP 
CODE 

1499* 
61* 

2178 

2226 

2274 

2318 

2587 

2788 

3169 

3455 

3651 

4172 

4595 

4653 

4921 

V  ^^1^  *R 

5676 

5775 

10233 

10954 

11010 

11354 

11458 

119PJ 

13969 

14472 

14592 

15255 

15501 

17479 

17503 

18970 

19072 

19449 

19492 

19627 

19737 

19790 

19842 

19896 

19954 

'^'^011 

20045 

20072 

20207 

20323 

20420 

20448 

20594 

20789 

20973 

21514 

21765 

21861 

21922 

954 

21999 

22168 

22275 

COMBPT 

^  ^  ^  '  ^ 

7029 
14378 

Q794 
i'540 

14043* 
17933 

14043 
18019 

14044 
18024 

14054 
18473 

U055 
18496 

14058 

14073 

14198 

14245 

1^317 

14371 

14373 

COMBUF 

97 
13805 

6258 

13819 

6262 

14192 

6279 
14193 

6283 
14197 

6981 
14244 

6982 
22133* 

7011 

7012 

7016 

7023 

9795 

10608 

13790 

COMMA 

1693* 

COMP 

9902 

10578* 

COMPXF 

9878* 

9878 

9906 

9915 

COMQ 

97 

7025 

11997 

14195 

14233 

14234 

14242 

14343 

17128 

17161 

17191 

22137* 

COMQE 

6983 

7013 

12005 

13739 

14235 

14351 

14380 

22138* 

COMRET 

17773 

17793 

17801 

18023 

18132 

18151 

18159 

18374 

18377 

18380 

22120* 

C0N0R1 

8390* 

8395 

8399 

C0NDR2 

8385 

8404* 

8412 

1 

C0NDR3 

8400 

8414* 

CONDRV 

8i65 

8176 

8383* 

^ 

CONF10 

8081* 

8204 

: 

! 

i 

CONF20 

8098* 

8150 

8205 

1 

CONFBO 

8138* 

8239 

' 

; 

CONFDA 

8141* 

8196 

CONFDB 

8144 

8152* 

• 

CONFOC 

8136 

8155* 

CON^DD 

8156 

8167* 

C0NFG1 
C0NFG2 
CONFGA 
CONFGB 
CONFGC 
CONFGD 
CONFGE 
CONFGF 
CONFGH 
CONFIG 
CONIPT 
CONPRT 
C0NST1 
CONSTP 
CONSW 


CONT 

CONTIN 

CORIO 

C0R11 

CORCOW 

CORERR 

COREXT 

CORP10 

C0RP11 

CORPNT 

CORPX 

CORSET 

CPI5 

CPMBC 

CPOPJ 

CP0PJ1 

CPRIM 

CPRIMF 

CPRTA 

CPRTAX 

CPRTB 

CPRTB1 

CPRTBA 

CPRTBB 

CPRTBC 

CPRTBD 

CPRTBE 

CPRTC 

CPRTEX 

CPTCR5 

CPUSEL 

CPUSER 

CRCBTO 

CRLF 

CRLF2 


8087 
8107 
8083# 
8100# 
8113# 
8115 
81A2 
8U6 
8102 
1959 
3070 
7551 
16248 
16136 
1568# 
11228 
171U 
20838 
96 
221 9A# 
18719# 
18706 
18714 
18682 
18727* 
18827* 
18825 
18727 
18833 
6097 
15569* 
5583 
1588* 
1586* 
12A56 
12179* 
904^.* 
9047* 
9046 
9070 
9078 
9097* 
9104* 
9136 
9133 
9i06 
9055* 
15534* 
7124* 
7212* 
840* 
1381 
1385 


8215* 
8238* 
8090 
8111 

8134* 
8178* 
8179 
8109* 
8076* 
4802 
8438 
16256* 
16163 
2253 
11256 
17309 
21783 
13470 


18745* 
18722* 
18777* 
18778 

18835* 
18784* 
1884 5* 

7549 
15569 

6250 


12502 
12179 
9048 
9152 
9069* 
9079* 
9088* 


9140* 
9138 
9154* 
9190 
15534 
7127 


1382 
1306 


SEQ  0703 


8094 


8195* 


8270 
9030* 

16181 

2600 

11375 

17737 


8277   13398   16598   20792* 


13381 
12184 

9162 


16195  16238* 

2804    2808  4936 

14066  14181  14183 

18450  18617  20472 


9056 
14631 
20481 


9260 
14764 
20497 


10846 
15339 
20514 


10888  11071  11097 
15400  15897  16530 
20538   20621   20667 


11176  11195 
16684  17035 
20681   20799 


18869   18875   22193* 


18752   18772 


7573    8437 
15574 
6271   17239 


8442*  11436   11549 
17253*  17302   17674 


11593 
17776 


18131 


18446   18469 


13403 
13377 


17253 
13379 


17256* 
13384 


9170    9172 


9146    9151* 
15656   16110 


1688*  219C4 
1690* 


9165 
16710 


r" 
1 

^       1 

1 

1       ) 

CRYO 
CRY1 

1499* 
1499* 

SEQ  0704 

) 

1, 

CSBCLR 

8302* 

f 

i     I 

CSBCOM 

8234 

8264 

8295* 

i 

j 

CSBINT 
r«;RP 

8297 
97 

8313* 
250* 

2535 

2536 

3486 

3543 

3578 

8060 

8061 

8062 

8063 

8065 

8296 

8299 

0^   0   "V#% 

8300 

8302 

8303 

8304 

8305 

8313 

8320 

8326 

8342 

8345 

8349 

8353 

8356 

8678 

\J  ^  W  \0 

8747 

\*  ^  ^^  h» 

8879 

\^  ^  ^0  "^ 

8886 

%^  ^  ^0 

9643 

9644 

10583 

10669 

11109 

11110 

11386 

11388 

11390 

11391 

11986 

^0   »    T  1 

12040 

12060 

12078 

12080 

12096 

12097 

12180 

12182 

12186 

12188 

12189 

12190 

12191 

12194 

\          I 

12195 

12196 

12197 

12198 

12199 

12200 

12201 

12285 

12288 

12290 

12291 

12292 

12293 

12455 

! 

12457 

12501 

12503 

12522 

12554 

12556 

12558 

12561 

12567 

12571 

12573 

12575 

12596 

12598 

12600 

12603 

12609 

12613 

12615 

12617 

12926 

13039 

13049 

13167 

13169 

13171 

13172 

13196 

13198 

13200 

13201 

13202 

13205 

13214 

13216 

13218 

13219 

13230 

13232 

13234 

13235 

13248 

13367 

13368 

13369 

13402 

13404 

14601 

14604 

14605 

14609 

14614 

15518 

15632 

15659 

15668 

15670 

15671 

15672 

15953 

15954 

15956 

16071 

16089 

16091 

16095 

16208 

16209 

16278 

16292 

16293 

16427 

16430 

16460 

16462 

16463 

16466 

16700 

16804 

17017 

17238 

17240 

17256 

17257 

17258 

17259 

17267 

17268 

17269 

17270 

17291 

17349 

17564 

17573 

17574 

17580 

17616 

17665 

17666 

17699 

17709 

17757 

M777 

17833 

17844 

17891 

17896 

17935 

17971 

18011 

18012 

18033 

18055 

18056 

18108 

18110 

18122 

18124 

18160 

18200 

18282 

18317 

18329 

18413 

18418 

18420 

18431 

18433 

18475 

18498 

18503 

18504 

18505 

18506 

19587 

19699 

20123 

20142 

20143 

20147 

CSBSIZ 

332* 

8306 

CSBSTA 
CSBTBL 

8319* 
98 

2535 

5559 

5568 

6404 

6464 

6960 

6961 

6962 

7609 

7610 

7611 

8296 

8300 

\»  «#%^  •  %^^ 

8390 

8407 

8678 

9643 

11109 

11386 

11389 

12028 

12096 

12449 

13365 

13367 

14566 

14604 

15460 

15471 

15586 

15590 

15659 

15675 

15953 

16071 

16097 

16212 

16224 

16228 

16590 

16592 

17316 

17573 

17664 

17665 

17937 

18477 

18500 

18515 

20142 

22211* 

CSDCWD 

17292 

17300* 

CSFAIL 

1175* 

CSHFLG 

1747* 

CSHMEM 

1748* 

CSMBC 

17241 

17264* 

CSTCR5 

15533* 

15533 

15803 

16714 

CSTEX 

CTOD 

CTRP 

CWPE 

CWST 

CWURT 

CX1BCK 

CYCL60 

16251 
785* 
1499* 
764* 
20382 

769* 

12415* 

1741* 

1ri266 

20393 
8990 

16280* 

20395 
10109 

20422* 
10111 

CYLADR 

CYl  SEL 

DAI 

DA10 

DA11 

DA2 

DAEND 

1142* 
11792 
14993 
14999* 
1499S 
14990 
15001 

1148* 
11 £38* 
1 5000 

1 5002* 
15027* 
15004* 

15003 

15007 

15013* 

15034 

DA  I  NT 

3675* 

3675 

3757 

3762 

3779 

3956 

3973 

4040 

DALLOP 

9427* 

9434 

DATA 

6866 

6868 

22^12 

22073* 

DATA11 

4885* 

4885 

4895 

DATARG 

98 

2244 

2252 

2296 

2297 

2437 

2439 

2454 

2455 

2466 

3509 

3514 

3566 

3571 

> 

i 
i 
< 
i 

3595 

35'^^. 

3698 

3916 

4004 

6769 

14007 

14008 

14814 

14820* 

14820 

14823 

14824 

i 

1 

DATENV 

DATTN 

0ATTN5 

DAUD 

DBEBL 

DBEVNB 

DBMSK 

DBODD 

DBODDB 

DBPAR 

DBPCLR 

DBSCLK 

DBTO 

DCHNE1 

DCHNE2 

DCK 

DC<EX1 

DCKEX2 

DCLOW 

DDBADR 

DDBFND 

DDBNOK 

DDBOK 

DDB0K1 

DD60K2 

DDBOKA 

DDBOKB 

DDBOK C 

DDTEX2 

DDTLNK 

DDfSRT 

DE1 

DEBUG 

DECVER 

DELALL 

DELCHK 

DELCKA 

DELCKB 

DELDSB 

DELETE 

DELMSG 

DELTRK 

DESTCY 

DESTER 

DF22B 

0f22f 

DF22FG 

DFERR 

DFWD20 

DFWD5 

DIAGER 

DIAGMN 

DIAGTB 


1008# 
98 
98 
1A991# 
829# 
831  # 
834# 
830# 
832# 
833# 
737# 
828# 
841  # 
15862 
15872 

960# 
11923 
11917 
1196# 
7229# 
7427# 
7432 
7429 
7471 
7478 
7445 
7457 
7461 
1846 
1265# 
1526# 
04 1# 
21 3# 
7» 
11487# 
6037 
11924# 
1 1 929# 
6012 
2139 
11552 

556# 
2504 
5376 
760# 
1o52# 
20087 
16698 
94  5# 
946# 
7442 
1515# 
7439 


22530* 
15532# 
14991 


15885 
1 5896# 
1499* 
11955 
11925 

7229 

7434 

7869# 

7436# 

74794f 

7481  # 

74534f 

7463# 

7467# 

1850# 

1526 


22020 

14 

11487 

6042 


60774f 
6069 
19330* 
11099 
2514 
5379* 


20090 
16801* 


7447* 

7440 


22530  22543 
15532  15540 
14994   15022 


15542 
15027 


15718 
15:47 


15917   16002   16059   16217 
15150   15194 


16355   16621   16623 


SEQ  0705 


15894* 


11959* 
11958* 

7424 


2141 


22021 

49 

11506 

11103 


11460* 

15401 
5362* 


1547 
il606 
11912* 


11475 
5362 


11614 
15403 


11484 
5374 


541 


20369   20563   20568   20654   20658   20728   20735   20741   20749   22182* 


22064* 


r 


r 


DIBCH5 

DIBILC 

DIBSAV 

DICH5 

DICH6 

DIFF 

DIGS 

DIGI1 

D1GI2 

DIG13 

DIGIA 

DING 

DISA 

DISABL 

DISB 

DISB2 

DISB2A 

DISB2C 

DISB3 

DISB4 

DISBX 

DISC 

DISC2 

DI3D 

DISD1 

DISD2 

DISECT 

DISK 

Diswn 

DISMIS 

DISMSI 

DISMS2 

DL64 

DLT 

DMD 

DOALL 

D0C0R2 

D0C0R3 

DOCORE 

DOINST 

DOIT 

DOLLAR 

D0N1 

D0N1A 

D0N1B 

D0N1ST 

D0N2 

D0N2ND 

D0N3 

DONA 

DONS 

D0N6 


16513 

789# 
22512# 
1554A# 
1 7568# 
3021  # 
9AA# 
1106# 
1107# 
1108# 
1109# 
1237# 
18106# 
1197# 
18112Jlf 
18119 
18338 
18309 
1838A# 
18181 
18115 
18121 
18169# 
18198# 
18199 
18211 
18092 

5970 
15596* 
15588 
15597 
1561A 
9A2# 
788# 
997M 
Zt77M 
10556 
10559 
1879 
6826# 
12600 
6867 
1707* 
1 5668* 
1568^* 
15o86 
15656* 
15702* 
1565A 
15706* 
15710* 
15713* 
15720 


22587*  22587 


22512 

155AA 

17568 

3021 


16536 
18237 

18A17 
18307* 
18362* 
18315* 

18186 

182A2* 

18132* 

18A38 
18202 
1821A 
1 8096* 

930 
16220 
15595* 
15601 
156A0* 


3677 
10560* 
10562* 

1917 

7A27 
12603 

6870* 


1568A 

1569A* 

1580A 

15803* 
15733 


15723* 


22567 

15620 

17599 

3036 


18A29 
18365 


18391 
18A22 
18393 


1820A 
18219* 
181A7 
982 
16226 
15715 
1560A 


3713 


10A75 

7A31 

12609 


15756 
15697 


SEO  0706 


22586 
156A0 

30A3    3089 


18398* 
18A27 


18215* 
18291 

1036 
16229 
15721 
15606 


1081 

15786 
15611* 


3883    3890    3899    393A 


10555* 

7A37 

12613 


11A30 
1255A 
12615 


12556 
12617 


12558 
12926 


3938 


12561 
13039 


395A    A011    A027    A0A3 


12567 
130A9 


12571 
17416 


12573   12575   12596   12598 


L 


DONCLR 

DONE 

DONE 3 A 

D0NE3B 

D0NE3C 

D0NE3E 

D0NER1 

D0NER2 

D0NER3 

D0NER4 

DONERS 

DONHDR 

DONHFG 

D0NX1 

D0NX2 

DORET 

DOVRER 

DPATN 

DPATNM 

DPE 

DPR 

DROAT 

DRORAE 

DR1AT 

DR1RAE 

DR2AT 

DR2RAE 

DR3AT 

DR3RAE 

DRAAT 

DRARAE 

DR5AT 

DR5RAE 

DR6A^ 

DR6RAE 

DR7AT 

DR7RAE 

DRAES 

DRAS 

DRATTN 

DRCCA 

DRCIR1 

DRCNT 


DRCR 

DRDCA 

DRDT 

DRDTS 

DRE 

DREC1 

DREC2 


626# 
778# 
1 5860# 
1 586A# 
15867 
15767 
15669 
15683 
1570A 
15708 
15711 
15729 
15652# 
1 5783* 
15890 
17589 
641  # 
3506 
6759 
633# 
926# 
1026# 
8H4f 
1027# 
81 3# 
1028# 
81 2# 
1029# 
811# 
1030# 
81 0# 
103U 
809# 
1032* 
808# 
1033# 
807# 
656* 
858# 
6A3* 
B660 
16657* 
98 
9253 
9525 
d5A# 
15713 
865# 
861* 
859* 
7710 
8700 
871* 


749* 
8906 


1 5880* 

15882* 

1 5729* 

15696 

15790* 

15853* 

15760* 

15760 

15652 

15801 

15892 

1 7644* 

3508 
13858 
766* 
8564 


4735    4853 

8908   15549   22461   22469 


22476   22483   22490   22535 


SEQ  0707 


15763   15774*  15795   158S6 


15774 
16568 

15901* 


3563 
14151 
16702 


15790   15853   16566* 
16573   16708 


3565    3594    6761 
14751   14845* 


6768   10313   14144   14145   14819   14827* 


8218 

5471 

18330 

16669 

7559 

9336 

9629 

8503 

15946 

3022 

8512 

5466 


8245 
8906 


7879 
9346 
9660 
8592 
16077 
3046 
9163 
8741 


8278 
15554 


7886 
9356 
9663 
8685 
16452 
5462 


8805   18083   22526 


7897 

9416 

13533 

12331 

16639 

8682 


7935 
9430 

13294 
16657 
12343 


8383* 
9445 

13300 

12368 


8383 
9450 

13307 
18340 


8570    9030    9073    9181    9189    9215 
9454    9476    9508    9509    9517    9519 

13314   13321   13327   13334   15608   1S681 


12352   13184   13284 


DRECL 

DRECLR 

DRER1 

DRER2 

DRER3 

DRESSE 

DRETIP 

DREX 

DRFC 

DRIVE 


DRLA 
DRMAX 


DRMR 

DRNXLP 

DROFF 

DROPDR 
DRPALL 
DRPNT 


8589 
742# 
856# 
867# 
869# 
638# 
178A6 
634# 
860# 
98 
2525 
2888 
3398 
390A 
50A6 
5601 
6278 
7475 
8048 
8848 
9334 
9427 
9483 
9583 
9699 
10958 
11130 
11272 
12089 
13527 
14285 
15634 
15837 
16015 
16144 
16364 
16490 
17279 
17663 
18133 
18679 
19860 
S62M 
98 
9042 
11285 
B570 
8634 
864/r 
18517 
9299 
9321 
20845 


8597# 

8712 

13424 

8548 


17861* 


247* 

2530 

2900 

3468 

3921 

5078 

5689 

6304 

7532 

8217 

9030 

9335 

9432 

9485 

9585 

9792 

11024 

11132 

11277 

12090 

13528 

14326 

15656 

1S904 

io017 

16167 

16365 

16514 

17295 

17689 

18179 

19493 

20921 

4744 

1870 

9180 

13526 

8647* 
3012 

9349* 

9424* 

20882* 


SEQ  0708 


13419 
13429 


2020 

2022 

2533 

2617 

2917 

2946 

3474 

3482 

3929 

4032 

5120 

5157 

5694 

5714 

6391 

6394 

7556 

7558 

8242 

8477 

9044 

9047 

9343 

9345 

9433 

9445 

9491 

9506 

9591 

9597 

9898 

9900 

11033 

110314 

11147 

11163 

11286 

11287 

12091 

12094 

13531 

13541 

14423 

14479 

15657 

15661 

15906 

159312 

16020 

16058 

16169 

16202 

16366 

163169 

16617 

16832 

17322 

17418 

17698 

17704 

18288 

18290 

19502 

19503 

2334 

9444 

13590 


3111 


4077 

9470 

17591 


2028 

2634 

2997 

3519 

4046 

5196 

5726 

6400 

7686 

8479 

9074 

9352 

9446 

9511 

9600 

9901 

11038 

11165 

11289 

12105 

13547 

14539 

15662 

15937 

16059 

16204 

16389 

16966 

17547 

17774 

18307 

19535 


4364 

9484 

22^77M 


2190 

2653 

3014 

3522 

4048 

5232 

5834 

6411 

7687 

8571 

9079 

9357 

9451 

9514 

9602 

9905 

11039 

11167 

11382 

12170 

13558 

14635 

15735 

15938 

16060 

16310 

16390 

17060 

17586 

17833 

18375 

19536 


6392 
9507 


2239 

2669 

3081 

3527 

4075 

5278 

5990 

6423 

7690 

8631 

9097 

9379 

9452 

9526 

9603 

10614 

11042 

11169 

11560 

12397 

13745 

14691 

15779 

15941 

16061 

16311 

16410 

17062 

17587 

17834 

18389 

19537 


6433 
9573 


2291 

2336 

2685 

2701 

3083 

3112 

3539 

3574 

4076 

4079 

5295 

5319 

6060 

6081 

6502 

6586 

7747 

7879 

8632 

8633 

9104 

9113 

9384 

9392 

9467 

9469 

9548 

9551 

9609 

9630 

10615 

10616 

11056 

11089 

11170 

11172 

11568 

11569 

12417 

12421 

13974 

13982 

14797 

14947 

15781 

15796 

15986 

15987 

16066 

16067 

16317 

16325 

16418 

16433 

17130 

17132 

17590 

17591 

17954 

17970 

18435 

18437 

19538 

19548 

7514 
9596 


7522 
9628 


2337 

2717 

3183 

3624 

4081 

5365 

6144 

6787 

7882 

8635 

9179 

9408 

9471 

9557 

9631 

10650 

11091 

11174 

11575 

12475 

14029 

14996 

15798 

15995 

16068 

16326 

16435 

17135 

17633 

17989 

18447 

19629 


7616 
11034 


2339 

2814 

3198 

3823 

4082 

5393 

6156 

6789 

7884 

8676 

9183 

9410 

9473 

9558 

9641 

10691 

11107 

11259 

11776 

12477 

14034 

15014 

15803 

15997 

16073 

16336 

16442 

17165 

17650 

17998 

18449 

19636 


7766 
11038 


2347 

2837 

3226 

3829 

4084 

5562 

6197 

7423 

7909 

8770 

9186 

9417 

9474 

9562 

9648 

10802 

11114 

11261 

11987 

12629 

14088 

15138 

15810 

16001 

16074 

16338 

16471 

17195 

17652 

18028 

18480 

19637 


7880 
11130 


2370 

2860 

3344 

3843 

4675 

5586 

6205 

7469 

7912 

8778 

9216 

9418 

9476 

9563 

9661 

10913 

11125 

11263 

12034 

13413 

14211 

15374 

15814 

16007 

16112 

16347 

16475 

17216 

17661 

18070 

18482 

19672 


8230 
11170 


2521 

2868 

3367 

3896 

4951 

5588 

6257 

7470 

7933 

8784 

9311 

9425 

9478 

9574 

9682 

10915 

11127 

11270 

12059 

13523 

14266 

15516 

15833 

16008 

16142 

16362 

16488 

17217 

17662 

18072 

18518 

19742 


8257 
11270 


3915    4881    4887    4896    8693    8722    8774   12382   12396   18125   18362 


)6 


DRPNT1 
DRREG 


DRREG1 

DRREGA 

DRRELS 

DRSEL 

DRSN 

DRSR 

DRTC 

DRVCKA 

DRVCKB 

DRVCKC 

DRVCKD 

DRVCLR 

DRVDSB 

DRVNXT 

DRY 

DSBCLR 

DSBCMD 


DSBP 


20883 
98 
12383 
16026 
17A38 
17436# 
8588 
659# 
863# 
855# 
16482 
868# 
8486 
8511# 
8505 
8509 
3074 
8391 
8590 
927# 
8493# 
98 
13093 
17790 
18153 
18674 
99 
2952 
3944 
4776 
5165 
5861 
6087 
6174 
6396 
6622 
7506 
7688 
7925 
8488 
8586 
8799 
9633 
10845 
11063 
11o05 
12061 
^2222 
12248 
12482 
13636 
14479 
14507 


20887* 
8279 
12391 
16078 
17442 
17451 
8592* 
670# 
8582 
8554 
16660 

8497# 

8515 

8514 

8639* 

4806 

8408 

8625# 

8564 

12982 

13101 

17795 

18208 

22122* 

249# 

3045 

3945 

4782 

5177 

5865 

6105 

-175 

6397 

6626 

7537 

7689 

7928 

8489 

8627 

8818 

9635 

10849 

11080 

11611 

12091 

12223 

12249 

12484 

13640 

14481 

14509 


8504 
12470 
16120 
17455# 

8594 
678# 

8604 
18087 


8644# 
8663 
13434 
8476/r 
8642 
8608 

12983 
13105 
17798 
18212 

2339 

3288 

3946 

4821 

5203 

5873 

6106 

6181 

6422 

6630 

7539 

7690 

7929 

8493 

8689 

8819 

9651 

10894 

11088 

11612 

12109 

12224 

12250 

12486 

13733 

14487 

14515 


8513 
13261 
16301 


689# 

12362 
18349 


15901 
8648 
8645 

12366 

12999 
13109 
17874 
18226 

2354 

3488 

3947 

4826 

5217 

5878 

6107 

6207 

6493 

6634 

7541 

7692 

7930 

8494 

8717 

8829 

9655 

10895 

11101 

11640 

12112 

12225 

12253 

12522 

13737 

14493 

14517 


8549  8555 
'^420  13425 
1J)453      16483 


698* 
12390      12469 


8583  8605  8713  9164  12332  12344  12353  12363 
13430  15600  15682  15695  15714  15947  15969  15977 
16661       17376      17432*    18088      18331       18350       18363 


SEQ  0709 


13011 
13128 
17877 
18228 

2370 

3545 

4107 

4827 

5255 

5963 

6108 

6215 

6568 

6638 

7560 

7746 

7931 

8495 

8732 

8832 

9667 

10898 

11135 

11641 

12146 

12226 

12257 

12544 

13749 

14496 

14518 


13260       15599      15694      15968      15976      16025       16119      16300 


15967      16276       16422       16480      16648* 


12394      13266       15605       17726      18091       18353      18606 


13015 
17607 
17880 
18229 

2371 

3580 

4127 

4842 

5303 

5966 

6110 

6223 

6579 

6642 

7564 

7751 

7969 

8496 

8742 

9113 

9899 

10913 

11136 

11671 

12149 

^2227 

12264 

12585 

13752 

14498 

14519 


13017 
17672 
17883 
18235 

2373 

3743 

4129 

4843 

5335 

5969 

6112 

6228 

6590 

6646 

7565 

7753 

7970 

8497 

8753 

9118 

9901 

10931 

11324 

11674 

12155 

12228 

12281 

12780 

13754 

14499 

14520 


13021 
17673 
18029 
18242 

2491 

3777 

4130 

4860 

5341 

5973 

6114 

6235 

6594 

7474 

7566 

7757 

8054 

8498 

8756 

9148 

9904 

10958 

11569 

11845 

12157 

12229 

12299 

12795 

13756 

14500 

14521 


13024 
17675 
18097 
18269 

2502 

3791 

4134 

5064 

5372 

5996 

6116 

6239 

6598 

7477 

7567 

7759 

8055 

8499 

8757 

9609 

10616 

10959 

11570 

11886 

12160 

12234 

12302 

12802 

13759 

14501 

14522 


13055 
17705 
18136 
18272 

2547 

3870 

4140 

5086 

5375 

6001 

6118 

6252 

6602 

7479 

7569 

7761 

8056 

8500 

8784 

9611 

10618 

10961 

11579 

11922 

12165 

12236 

12304 

12981 

13767 

14502 

14523 


13071 
17779 
18138 
18275 

2823 

3907 

4142 

5093 

5416 

6007 

6126 

6268 

6606 

7481 

7570 

7884 

8057 

8519 

8785 

9612 

10699 

10965 

11583 

11924 

12167 

12242 

12306 

13302 

13770 

14503 

14524 


13077 
17781 
18141 
18278 

2874 

3909 

4143 

5099 

5846 

6025 

6133 

6273 

6610 

7494 

7571 

7885 

8483 

8546 

8787 

9615 

10706 

10969 

11598 

11929 

12210 

12245 

12308 

13309 

13772 

14504 

14637 


13079 
17783 
18145 
18335 

2905 

3942 

4147 

5127 

5848 

6032 

6147 

6305 

6614 

7497 

7572 

7901 

8484 

8552 

8791 

9618 

10817 

11056 

11600 

11952 

12214 

12246 

12310 

13316 

14040 

14505 

14640 


13081 
17787 
18148 
18372 

2932 

3943 

4769 

5140 

5855 

6077 

6172 

6394 

6618 

7503 

7687 

7905 

8485 

8558 

8795 

9631 

10825 

11058 

11603 

11985 

12216 

12247 

12312 

13632 

14412 

14506 

14644 


III  »i  I  iiii>i  iii#nMi*Liiiiiiwiiiiiii" 


r 


DSBSIZ 
DSBTBL 


DSCR 

DSEL 

DSEL2A 

DSEL2B 

DSEL2C 

DSEL2E 

DSELX1 

DSELX2 

DSELX3 

DSELXA 

DSKAD 


DSKATN 

DSKDON 

DSKINT 

DSKIO 

OSKOV 

DSKSEL 

DSKSLI 

DSKSL2 

DSKSL3 

DSKSL4 

DSKSL5 

OSKUKN 


H6A7 
15663 
163A0 
165A6 
17282 
17662 
17945 
18251 
18531 
18712 
480« 
99 
3398 
6081 
7556 
8501 
9113 
9485 
10616 
11263 
13974 
15798 
16167 
16390 
17216 
17989 
18482 
623# 
12498* 
11061 
11059 
11119 
11078 
11045 
11129 
11113 
11292 
99 
3436 
5323 
11087 
15555 
15550 
6910 
12649 
15363 
110294f 
11033# 
11035 
11106 
11141 
11037 
15557 


14652 

15664 

16343 

16778 

17284 

17668 

17958 

18252 

18532 

18750 

7562 

2337 

3896 

6144 

7558 

8571 

9183 

9511 

10691 

11287 

14029 

15814 

16169 

16410 

17217 

17998 

18518 

13374 
11065 
11118# 
11125# 
r086# 
I '145 
11151 
11116 
11302 
2818 
3997 
5369 
11111 
15560 
15652# 
15506 
12669# 
16512# 
11043 

11042# 

11135# 

11144* 

11040 

155684f 


14694 

15702 

16396 

16779 

17290 

17671 

17962 

18254 

18542 

18786 

8629 

2339 

3921 

6394 

7606 

8577 

9343 

9548 

10802 

11569 

14088 

15837 

16202 

16433 

17279 

18070 

18679 


1107U 


11316* 

11155 

11138 

11313* 

2842 

4005 

5397 

11149 

15724 


11047 
11133 

11147* 


15010 

15717 

16410 

17073 

17300 

17728 

17976 

18255 

18545 

18790 

8701 

2347 

3929 

6435 

7607 

8578 

9345 

9551 

10913 

11575 

14285 

15904 

16204 

16435 

17322 

18072 

20921 


11285* 
11142 

3109 

4100 

5839 

11182* 

15916* 


16556   22610* 


11055 
11185 


15138 

15733 

16411 

17086 

17301 

17753 

17979 

18368 

18548 

18823 

8797 

2370 

4046 

6502 

7608 

8581 

9352 

9558 

10915 

12091 

14479 

15906 

16311 

16442 

17587 

18179 


11306* 

3289 
4679 
5994 

11182 


11095 
11188 


15158 

15168 

15177 

15188 

15359 

15385 

15858 

15865 

15883 

16074 

16075 

16076 

16424 

16«»25 

16442 

16443 

16446 

16456 

17100 

17217 

17218 

17226 

17228 

17235 

17313 

17314 

17324 

17329 

17331 

17410 

17763 

17764 

17780 

17782 

17784 

17786 

18008 

18038 

18059 

18137 

18140 

18142 

18370 

18371 

1837]! 

18384 

18^?S 

18507 

18553 

18557 

18558 

18559 

18608 

18633 

8810 

8822 

8834 

2521 

2525 

2530 

3014 

3;081 

3083 

4048 

4079 

4081 

4365 

5??I 

5562 

6586 

6787 

6789 

6957 

6958 

6959 

7617 

7687 

7690 

7747 

7882 

7884 

8625 

8641 

8644 

8770 

87J§ 

8784 

9357 

9410 

9417 

9427 

9432 

9446 

9562 

95831 

9585 

9600 

9602 

9609 

10958 

11042 

11056 

11089 

11091 

11125 

12105 

12170 

12397 

12417 

12475 

12477 

14797 

14947 

14996 

15138 

15662 

15735 

15942 

15987 

15995 

16008 

16015 

16017 

16317 

163 126 

16336 

16338 

16347 

16362 

16471 

16488 

16490 

16882 

16966 

17060 

17650 

17652 

17662 

17689 

17698 

17834 

18288 

18290 

18307 

18389 

18435 

18437 

3299 

4955 

6202 

11225 


11123 
11226 


3302 

5050 

8052 

11286 


3313 

5082 

9690 

15184 


11131   11777 


3316 

5124 

10587 

15370 


3336 

5161 

10622 

17556 


15517 

15633 

15662 

16304 

16326 

16327    ! 

16457 

16541 

16543 

17245 

17246 

17247 

17415 

17563 

17617 

17788 

17812 

17850 

18144 

18146 

18172 

18508 

18509 

18510 

18681 

18699 

18704 

3112 

3344 

3367 

5586 

5588 

5714 

7470 

7475 

7532 

7912 

8483 

8489 

8848 

9044 

9104 

9451 

9471 

9473 

9631 

9699 

9901 

11127 

11167 

11169 

13528 

13592 

13898 

15779 

15781 

15796 

16074 

16142 

16144 

16364 

16366 

163169 

17062 

17130 

17132 

17918 

17954 

17970 

18447 

18449 

18480 

SEQ  0710 


3339 

5200 

10623 

17624 


3341    3392    3396 

5236    5264    5282 

10625   10627   10665 


DSKUPD 

DT7TRK 

DTALCY 

DTALDS 

DTALSU 

DTDRR 

DTE 

DIES 

DTMOVH 

DTNBA 

DTRKO 

DTRKOA 

DTRKOB 

DTRK1 

DTRK10 

DTRKU 

DTRKIB 

DTRK2 

DTRK3 

DTRKA 

DTRK4A 

DTRKAB 

DTRKAC 

DTRKAD 

DTRKAE 

DTRK5 

0TRK5A 

DTRK5B 

DTRK5C 

DTRKSD 

DTRK5E 

DTRK5F 

DTRKSG 

DTRIC5X 

DTRK6 

0TRK6A 

0TRK66 

DTR»C6C 

DTRK6D 

0TRK6E 

DTRK6F 

DTRK6G 

0TR)C6X 

0TRK7 

DTR)C7A 

DTRK8 

0TRK8A 

0TRK86 

0TRK8C 

DTRIC9 

DTR)C9A 

DTRK9B 

DTRIC9C 


1552 
1064# 
11519# 
11A70# 
1 1 520# 
1065# 
963# 
690# 
1063# 
1061# 
11A80 
1 1 502# 
11A93 
11A90 
11812 
11519* 
11539 
11535 
1 1 560# 
11528 
11567 
11580 
1159A 
11602 
1160A 
11562 
11631 
116AA 
11629 
11637 
11667# 
116A2 
11653 
11665 
11656 
11702 
1171A 
11700 
11708 
1 1 739# 
11712 
11726 
11737 
11729 
1 1 776# 
1 1  /7A 
1178A 
11788 
1 1 796# 
11791 
11803 
11810 
11816# 


11519 
11A70 
11520 
8535 
17031 
699# 


11693 
11561 
11767 


8765 


11A82   11A86# 


11505* 

11503 

11815 

11556 

115A2 

11552# 

1 1 566# 

11573 

1 1 598# 

1160U 

11605# 

11607 

11609 

11633 

116A6 

11657# 

11639 

11691 

11670# 

11678* 

I  •68A# 

11699# 

1170A 

11716 

11731# 

11710 

11760 

117A2# 

117A74f 

11753# 

1 1 773# 

11797 

1 1 783# 

1 1 790# 

1 1 792# 

11819 

1179A 

11811* 

11813# 

11829 


1 1 508# 
11825# 
11596 
115A7* 


11595* 


11610* 
11628* 
11636* 
11651* 


11762 
11773 
11811 


11790   11817 

11796 

11827 


11818 

11802* 

11828 


115A5 
1183A 


11668 
116A9 


11660*  11689 
11682 

117A0  117A5 
11707*  11719 
11721* 

1173A*  11758 

11751 


11676   11687 
11658 


11735 


11756   11765 
11732 


SEQ  0711 


DTRKX 

11622 

11779 

11798       11833* 

DTSLVP 

1066# 

DTTAPE 

1062# 

DVA 

882# 

8508 

12335       15685 

DXES 

844# 

87A6 

16819 

DXFR1 

18191 

18405* 

DXFR1A 

18A09 

18413* 

DXFR16 

18A11 

18431* 

E 2 ANAL 

16737 

1 6879* 

E2ANM 

1688A 

16924* 

,  E 3 ANAL 

167A3 

16963* 

lEALLDR 

9268 

9596* 

ECCADR 

1 8678# 

18678 

18688       18794 

ECCCOR 

1843A 

18666* 

ECCENV 

1009# 

ECCTST 

16776 

16813* 

ECHARD 

97A# 

18050 

18410 

,ECI 

1123* 

jECOMIO 

18709 

18713* 

lEcomi 

187A7 

18751* 

ECP 

18690# 

18690 

18716       18760 

;ECTA 

1683A 

16840* 

;ECTB 

168A2 

16851* 

lECTCNT 

16853 

16857 

16868* 

jECTDES 

16820 

16871* 

ECTEX 

16823 

16829 

16836       16844 

lEND 

22617* 

lENDFIX 

1827# 

ENDSLD 

18973 

22018* 

lENTDDT 

99 

1844* 

7396         9270 

jEP 

660# 

EP1 

6496# 

6555 

EP1A 

6501 

6508 

6513* 

EP2 

6521# 

r526 

iEP2A 

6525# 

iEP2B 

6524# 

6546 

EP3 

6523 

6529* 

EP3A 

6531 

6543* 

EPEX 

6525 

6548* 

lER.EIJ 

500# 

18880 

ER.FUL 

503# 

18886 

ER.ICC 

505# 

18865 

ER.IDV 

506# 

18890 

lER.OFL 

50A# 

18888 

ER.QEX 

5o:# 

18884 

lER.TLX 

)01# 

18882 

i  ER3ANM 

16968 

16990* 

ERAEX 

16921* 

16925 

16991 

:  ERBL»^ 

12993# 

12993 

13058 

ERCOM 

18936* 

18947 

EREIJ 

18881 

18904* 

ERHDR 

65U 

6564* 

ERIDV 

18891 

18944* 

SEQ  0712 


15964   16081 


18801 


16846   1685 A   16862*  16872 


13475   18878   18973   18975 


ERMORE 

EROfL 

ERQEX 

ERRPC 

ERRTLS 

ERRTOT 

ERSTOP 

ERSTR1 

ERSTR2 

ERTLX 

EXCASB 

EXCEP 

EXCLR 

EXCHEM 

EXCPFW 

EX60 

EXIOT 

EXPAND 

EXPC2 

EXPCNT 

EXPERR 

EXRNAM 

EXRSER 

EXRSRA 

FACYL 

FAILSE 

FAILTW 

FASUR 

FCHSK 

FDSB1 

FDSB2 

FDSB2A 

FDSB3 

FDSB4 

FDSBX 

FECNT 

FELI« 

FHDISK 

FILDSB 

FILLQ 

FILQA 

FILQA1 

FILQ6 

FILQX 

FILQX1 

FILQX2 

FILQXS 

FLAG 

F«BCLR 

F«BCLV 

FMT1ST 

FWT22 

FMTER 


1601# 
18889 
18885 
1572# 
1573# 
10700 
1240# 
12725 
12726 
18883 
21 0# 
767# 
738# 
K99# 
U99# 
21785 
1499# 
10443 
10488 
6660# 
10464 
20861 
20924 
20922 
3673# 
1169# 
11424 
3678# 
84  7# 
13734 
1 3748# 
13762 
13750 
1 3770# 
13740 
1868« 
5704f 
5954f 
12267 
9813 
14487# 
14493# 
1448e 
14529* 
1453^ 
14:)44f 
14482 
8321 
1974 
4079# 
36704f 
1122* 
972# 


18932* 
18887 
1859 
1860 
10707 
17115 
1 2729* 
12732* 
18909* 
1550 
15861 
17397 


21817* 

10454* 
1 0498* 

6660 
10476 
21026* 
20943 
21107* 

3673 

12026 
3678 


SEO  0713 


13765* 
13753 

13755 
1868 

19009 
597 

13731* 
9964 


14515* 
14539* 

14494 
8325 
4022 
4083 
3670 
3016 

18039 


18923* 


10888* 
18992 


16704   16801 


6673 
10517* 

21066* 

3712 

22048* 
3714 


13738*  13742 


14497 
8351 
4075* 

3995 

3114 


6709 


3722    3780    3366 


3723 
13746 


3844 
13764 


3859 
13773 


13758  13767* 

13768  13775* 

18855*  18855 

885 

10036  14080 


18990   19008   19220 


14098   14102   14136   14278   14293   14313   14474* 


14510 
15932* 


3998 
3917 


14516   14526* 
15932   15996   16011 


4024    4101 

8721   12399   18366 


16038   16041   16045 


18520 


HlA<HNiM^«fMMHiMW^^ 


FMTFLG 

3687# 

3687 

11179 

11192 

11393 

FNCTN 

692# 

701  # 

881  # 

1  FNDDRV 

110A8# 

11048 

11154 

11156 

! FNDEA1 

9829# 

9835 

98^7 

9840 

i  FN0E01 

985A# 

9860 

9862 

9866 

FNDEDX 

9845 

9855 

9868# 

FNDEN1 

9772# 

9778 

FNDEN2 

9770 

9777# 

9817 

FNDEN3 

9780# 

FNDENA 

9781 

981 6# 

FNDENA 

9773 

9816 

9824* 

FNDENB 

9827 

9832# 

FNDENC 

9830 

9842# 

FNDEMD 

9799 

9849# 

FNOENT 

6251 

6272 

9767M 

9985 

10016 

FNDENX 

981A 

981 9# 

FNDEX? 

10357 

1044U 

FNDHEX 

10432# 

10442 

10444 

FNDHLA 

10356# 

10396 

10445 

FNDHLB 

10387* 

10394 

FNDHLC 

10393 

10397# 

FNDHLD 

10390 

104044f 

FNDHOL 

2987 

4700 

9780 

10348* 

10639 

FNDNJ 

20656 

2C66U 

FORMAT 

2131 

365  3# 

4618 

FOV 

U99# 

FOVU 

U99# 

FQPE 

1AA96# 

FRDLNK 

1263# 

FREBUF 

99 

3456 

10417 

10509 

222270 

FRECOR 

99 

6085 

6096 

6951 

7039    7473 

7560    7:63 

8A88 

8627 

8630 

8700 

8796    8809 

8821    8835 

FREEZE 

560# 

14184 

FRH5C 

3900 

<907M 

FRW5C1 

39U# 

3919 

FRH5C2 

3912 

3921  # 

FRM5D 

3939 

3941 

3946# 

FRMDON 

4023 

4096# 

FRMT 

3687# 

4 

069 

4073 

FRWTO 

3691 

3 

697# 

FR«T1 

3704 

3 

709# 

FRMT1A 

3702 

3 

71 2# 

FRMT2 

371 7# 

3 

903 

3905 

FR«T3 

3732* 

3 

789 

3793 

FR«T3A 

3737 

3 

74Q# 
753# 

3786 

FRMT 38 

3/48 

3 

FRMT3C 

3746 

3 

760M 

FR«T3D 

3741 

3 

7650 

3773 

FR«T3E 

3733 

3 

783# 
788# 

FRMT3F 

3755 

3 

FRHT3G 

3744 

1 

771 

3775 

3790* 

FR«T3S 

3735 

2 

738# 

3751 

FR«T4 

3758 

3 

763 

3781 

3795* 

3855 

SEQ  0714 


7689    7990    7991    8299    8307    8445 
11581   11592   19096   19184  222260 


r 

i 
1 

1 

FRMTAA 
FRMTAB 
FRMTAC 
FRMTAD 
FRMTAE 
FRMTAF 

3800 
3811 
3809 
380A 
3796 
3850# 

3803* 
381 7# 
3826* 
3832* 
3819 

38A8 

38A0 
38A7* 

FRMTAG 

3807 

3838 

38A2 

3853* 

1 

FRMTAH 

3715 

382A 

3830 

38A5 

3857* 

1 

FRMTAJ 

3867 

387A# 

FRMTAS 

3798 

3801* 

3815 

■ 

FRMT5 

3858 

3860 

3872 

3877* 

FRMT5A 

3878 

3887* 

A033 

A0A1 

FRMT5B 

3711 

3885 

3893* 

397A 

3977 

3982 

3988    A012 

FRMT5C 

388A 

3891 

3898 

395A* 

FRMT5D 

3960 

3967* 

FRHT5F 

3957 

3975* 

FRMT6 

3955 

3989 

3991* 

FRHT6A 

A00A# 

A102 

A119 

FRHT6B 

A006 

A011* 

A092 

FRMT7 

3895 

3985 

A020* 

FRMT8 

A028 

A035* 

FRWT8A 

A036 

A039* 

FRMT9 

A026 

A0A3* 

FRMT9A 

A038 

A0A6* 

FRMTE 

3965 

3973* 

FRNTEX 

3666 

3768 

3835 

A030 

40AA 

A050 

4058*   A065 

■■        .  ■   . 

FROHCY 

2A88 

2A93 

2A96 

2511 

5357* 

5357 

5371    5404 

FROMER 

5373 

5381* 

FRTEST 

21 3C 

3A57* 

AA57 

AA99 

A551 

FRTSTO 

3A70# 

FRTST1 

3523# 

3627 

FRTST2 

3573# 

FRTST3 

3A72 

3522* 

3525 

FRTSTA 

3A98 

<502* 

FRT3T5 

3500* 

350? 

FRTST6 

3557# 

356A 

FRTST7 

3555 

3559* 

FRTSTA 

3532* 

3538 

FRTSTX 

3629# 

FRVERQ 

3683 

A063* 

FSELNK 

1262# 
3952* 

FSIZE 

3952 

3991 

FSP 

6761 

1A1AA 

U8A2* 

FVERFG 

3700* 

3700 

3707 

A025 

FXU 

lA994f 

G 

1<j37 

1887* 

G1 

1897 

1901 

1908* 

GARBAG 

1850# 

1850 

299A 

3007 

81A9 

8153 

9623   13472 

\ 

GEN2 

20253 

2026/* 

GEN3 

20275 

20289* 

■     GENBAT 

5858 

5869 

60A8 

6105* 

61A9 

621? 

8814 

I     GENCCW 

3011 

A819 

48A5 

8705 

13166 

18568 

20220* 

GENDAT 

■ 

h702 

9986 

10654 

U776* 

SEQ  0715 


4015 


4018        4051 


18634 


1 


<- 


GENU 

GENWD 

GETCPU 

GETCPX 

GETDRN 

GETKl 

GETKL 

GETQUE 

GEVC 

GEVD 

GNCW1 

GNDAT1 

6NDATX 

GNL1 

GO 

GREV 

GTQEXS 

GTQOK 

GTTAB 

GTTAB1 

HACK 

HARDER 

HARDIN 

HCD 

HCE 

HCI 

HCRCER 

HDREXT 

HDWD 

HDWD1 

HDWD2 

HDWD3 

HDUD4 

HEADSW 

HERTZ 

HGHSAV 

HISIDE 

HLPMSG 

HLPOPR 

HLTCHK 

HLTSW 

HNGXCT 

HRDINF 

HRD01 

HRD01E 

HRD01X 

HRD02 

HRD03 

HRDOA 

HRDOAB 

HRD05 

HRDOUT 

HYPEN 


20245 
10316 
1953 
2076 
2018 
2071 
2069 
12272 
790# 
843# 
20229 
14786 
K795# 
20372* 
290# 
94  3# 
13635 
13628 
7054 
7141* 
22565 
1 3028# 
5808 
1005* 
975M 
1124# 
976* 
16574 
4123 
15152 
15159 
15145 
15155 
4655 
7191 
5633* 
3214 
9276 
9439 
15584* 
15584 
12152 
5804* 
5991* 
5998 
5995* 
5987 
6003 
6010* 
6040 
6011 
5812 
1698* 


20248 
10688 
2067* 
2083* 
9340 
2078* 
2087* 
13625* 


20353* 
14791* 
14801 
20383 
880* 

13639 

13652* 

7083 

7147 

22593* 

13028 

5814 

18039 
3013 
18039 
16589* 
15143 
15157* 
15164 
15184* 
15194* 
823* 
9003 
5633 
3242 
9439* 
19264* 
15907 
16222 
12154 
5804 
6049 
6048* 
6053 
6000* 
6007* 
6Ci7 

6046* 
6051* 
5983* 


20252* 
14795 

2089 
9349 


13760 


20264 
14814* 


9373*   9546    9579 


SEO  0716 


1292* 
13642 
7140* 

13043 
6059* 

18426 
18125 
18426 

15154* 

15171* 


10117* 
5643 
3298* 


16521 

16649 

12159 

5985 

6052 


13664* 


13111   13114   13124 


22107   22108   22109   22110   22111   22112   22113 


15201 


10117   15446 
5645    5647 


17114* 

12286   12309 

6060 

6063 


12311   12367   12395   12436   12441   12459   13267   13340* 


7972 


8838 


lADBRK 

lADDR 

lADEXC 

lADSTP 

lADUSR 

lAE 

IAPRC1 

IAPRE1 

lASRTC 

lASRTE 

lASRTS 

ICNSLL 

ICNSLR 

ICUMSK 

ICWPT 

IDATAF 

IDELFG 

IDRCLR 

lEVNPR 

IFHMAN 

IINSTF 

IIOPFC 

IIOPFL 

ILC 

ILCCLR 

ILF 

IL«^C 

UlCMD 

ILR 

ILVL5 

ILVL51 

ILVL5A 

IMAINT 

IMGINK 

IMGNLO 

inCNOF 

IMGNON 

IMIPGD 

I«LAPD 

INDXER 

INHCSH 

INHPAG 

INHRET 

INHULD 

INIT 

INin 

INIT1A 

INITIB 

INIT2 

INPLP 

INRNMI 

INRNM2 

INRSR1 


U99# 

708# 

U99# 

U99# 

H99# 

986# 

1499# 

11413 

H99# 

11413 

H99# 

1A99# 

H99# 

U99# 

U99# 

8A5# 

20476 

20491* 

1499# 

2802 

3180 

3467    4939 

16103# 

16103 

16162   16194   1 

1499# 

1499# 

1499# 

1499* 

1499* 

mn 

743f 

967# 

761  # 

13281 

13441* 

966* 

15531* 

15532* 

15645 

15509 

15516* 

1499* 

H99* 

1499* 

1499* 

1499* 

1499* 

i499* 

1165* 

1248* 

1245* 

568* 

153Q8 

173^0 

561* 

13451 

195:^ 

6894* 

6994* 

6988 

6997* 

6999* 

7037 

6998 

7006* 

9252* 

9366 

9397    9403 

20867 

20989* 

20871 

20978* 

20912 

20935 

21014* 

SEQ  0717 


5687 
16274 


5833    6061   11098   11384*  11384 


9440    9463 


9354 


9569 


9586    9665 


INRSR2 

INRX1 

INRX2 

INSIDE 

INSMEM 

INST 

INT1 

INT2 

INTADR 

INT  AX 

INTAX2 

INTAX3 

INTCP1 

INTCPT 

INTDDT 

INTERR 

INTMAP 

INTR1 

INTR2 

INTR3 

INTRA 

INTREF 

INTRFG 

INTSET 

INTT1 

INTT1A 

INTT1S 

INTT2 

INTT2A 

INTT2B 

INTT2C 

INTT3 

INTT3A 

INTT3B 

INTT3C 

I NT TAB 

INTTEX 

INTTKS 

INTTST 

INTUSR 

INXCLR 

INXM 

INXSTP 

lOBLK 

lOCLR 

lOTERM 

lOTLP 
lOWAIT 

IP50HZ 
IPAREN 


20916 
20866 
20870 
3246 
1 1 367# 
6834 
3389# 
3397 
3188 
3356 
3348 
3346 
18863* 
1912 
18941 
1 8877# 
18866 
6968 
3332* 
3333 
3337 
3342 
3203 
3196# 
6908* 
3183# 
3192# 
3184# 
3186 
3190# 
3204 
3201 
3224# 
3227* 
3232 
3229 
3260# 
3258# 
3216 
2129 
6895 
1499* 
1499* 
1499* 
7010 
K99# 
2829 
14594* 
14604* 
3599 
6270 
1499* 
1499* 


20939 
209^1 
20915 
3312* 
11367 
6848 
3418 
3414* 
3386* 
3369 
3350 
3353 
22196 
1922 
22196* 
18901 
18880* 
6971* 
3340 
3355* 
3357* 
3366* 
3231 
3196 


3189 

3190 

3205 

3211* 

3219 

3256 

<233 

3236* 

3253 

3332 

3250 

3171* 

7036* 


2852 
17546 
14607 

4008 
10766 


21003* 

20934   20950* 

20938   20949* 


6850    6855 


SEQ  0718 


3376 
3352 
3400 

1923 

18907 

7004 


3393 
3364 
3408* 

18864 

18917 

8208 


6863 


3403 
3371 


6869    6876   22077* 


3405 
3373 


3407 
3375 


3410* 
3390 


3438 
3409* 


18868   18870   18871   18895   18898   18927   18928   18929   18939   18940 


11435 


3328* 
3218 


3194 

3196* 

3209 

3217 

3222* 

3234 
3251 
3256* 
3334 

3279* 
4425 


3224 


3252    3355 


3222 
3212 


3237 
3389 
4516 


3220 

3254 
3391 


3394    3414 


3430 


12528   12529   12563 


2882 
17811 

4104 
13643 


2911 
18171 

4963 
13977 


12605   13026 
2938    2977 


5058    5090 
14562*  14567 


13027   13041   22060* 
4021    4566    4689    5600 


5132 
14594 


5169    5182 


5210 


6286    6302   12498   14i78 


5244    5292    5333    5408 


IPARER 

IPRSTP 

IPWRFL 

IPWRLO 

IRQCLR 

ISPDOF 

ISPDCN 

HERAT 

ITMDIS 

ITMENB 

ITMOEN 

ITMOUT 

ITMSET 

ITRCH1 

ITRCNT 

lURITE 

JNPUD 

J0BA1 

J  OB  APR 

JOBCNI 

JOBDDT 

JOBFF 

JOBOPC 

JOBREL 

JOBREN 

JOBSA 

JOBSYM 

JOBTPC 

JOBUSY 

JOBUUO 

JOBVER 

JSYSER 

JSYSEX 

JUNK 

JUNK1 

JUNK2 

KA10 

KACOM 

KAHZ50 

KAIFLG 

KAINT 

KI10 

KIADD 

KIINT 

KL10 

KL10P0 

KLCOM 

KLFLG 

KLOLO 

KLTIMR 

KLTIMX 


K99# 
K99# 
K99# 
U99# 
U99# 
K99# 
U99# 
21U 
1499# 
U99# 
U99# 
U99# 
U99# 
1605# 
1545# 
U99# 
8233 
U99# 
K99# 
U99# 
U99# 
U99# 
U99# 
U99# 
H99# 
U99# 
H99# 
U99# 
U99# 
U99# 
H99# 
12677 

mil 

15579 
16530# 
16532 
16540 

208# 
22467 
1253# 
1562# 
821# 
207# 
8224f 
8204f 
^05# 
206# 
19114 
1563# 
8993 
1461 
5455 
5516 


19145   19151   19160 


SEO  0719 


1545 


15438 
1865 

8261 


19129 
20098 


19140 
201 36 


19141   19182 
20327  llMin 


P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 
P 


12707* 
1?735# 
i>761   15778 

16536# 
16554# 

1499 
22474   22481 

8986 

2070    5483 

1499 


15799   15854   15931   16146   16171   16185   16199   16352   16380   16402   16516 


22488 
6924 


22495   22501* 
8882    8983   11404 


11410   11412 


1499 
1499 
19123* 
2068 
8995 

5495* 
5531* 


4965 

11112 


5454 

11402 


5629    6899    6922 
12042   15371   19032 


6935    6942    8174 
19083   19231   19233 


8884    8925    8950    8982 
22457  _ 


KNTRP 

KTRP 

LAPRAL 

LAPRP1 

LAPRP2 

LAPRP3 

LAPRPA 

LAPRP5 

LAPRP6 

LAPRP7 

LAROVT 

LBT 

LCAUEN 

LCADRP 

LCASDE 

LCASLD 

LCASLO 

LCASWB 

LCASUD 

LCCAER 

LCCASD 

LCHNOF 

LCHNON 

LCIOPF 

LCNTRP 

LCNTXT 

LCNXER 

LCPAER 

LCPWRF 

LCSAER 

LCSBER 

LCSLOA 

LCSLOO 

LCTRP 

LCUSX 

LDATAF 

LDCAER 

LDCASD 

LDCR 

LDDBUF 

LDDCR 

LDEXCB 

LDIAR 

LDIOPF 

LDIRC 

LDIVRG 

LDLNK 

LDNXER 

LDPAER 

LDPWRF 

LDRAE 

LDREG 


H99# 
U99# 
U99# 
K99/r 
U99# 
U99# 
U99# 
H99# 
U99# 
H99# 
1499# 
932# 
U99# 
1A99# 
U99# 
U99# 
U99# 
H99* 
1A99# 
U99# 
1499# 
U99# 
1499# 
K99* 
K99# 
H99# 
U99# 
K99# 
U99# 
K99# 
U99# 
U99# 
U99# 
U99# 
U99# 
U99# 
U99# 
U99# 
8750 
19748* 
19852* 
1499* 
8888 
1499* 
1974/, 
8680 
1264* 
1499* 
1499* 
1499* 
19751* 
99 
8599 


SEQ  0720 


11417 
11417 


R 
F 

R 


11418 


19234 


12072       19740* 


19745* 

19747       19750 
19849* 
1515         1517 


19754* 


3017    3024 
8683    8686 


3047 
8694 


3115    3918    4888    4897    5464    5467    5476    8219    8246    8593 
8724    8743    8775    8807   12044   12371   12401   13186   13286   15609 


LDRG1 

LDRG2 

LDRGB 

LDRGB1 

LDRGC 

LDRGCC 

LDSAER 

LDSBAR 

LDSBER 

LDSTCR 

LDUSRB 

LDVECT 

LDVECX 

LDUTRG 

LEBXMH 

LEBXML 

LECAER 

LECASD 

LEIOPF 

LENXER 

LEPAER 

LEPWRF 

LESAER 

LESBER 

LEUPFW 

LEVNCD 

LEVNPA 

LEVNPD 

LEXCMP 

LFLGCL 

LFLGDS 

LFLGEN 

LFLGST 

LFP 

LFTBIT 

LHTBL1 

LHTBL2 

LINSTF 

LINT 

LIOCLR 

LIOPFE 

LIP 

LIRC 

LKNTRP 

LKTRP 

LLACBL 

LLDUSB 

LLPRCN 

LMBXMH 

LMBXML 

Lwrsiz 

LWUUO 


166A0 
19516 
19559 
19520 
19554 
19521 
19496# 
H99# 
A82A 
H99# 
4838 
1499# 
8348 
8881 
19855* 
1499# 
1499* 
1499# 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1702* 
20846 
20898 
20896 
1499* 
1499* 
1499* 
1499* 
1499* 
19845 
1499* 
U99* 
1499* 
1499* 
1499* 
1499* 
1499* 
11018 
1499* 


16658 

19523* 

19564* 

19540 

19563 

19543* 


4868 

4872 

8804 
8885 


17716   18079   18085   18126   18342   18345   18459   18521   18596   19493*  22549 


SEQ  0721 


19552* 
19571* 
19573 


8754 

8767 

8876* 
8890* 


19588 

13220 
12069 
12099 


19843* 
19846* 


20892* 
21266* 
21259* 


19848   19851   19854   19858* 


11069*  11069   11084   11085 


1  r— 


LMUUOP 
LNXMEN 
LNXnER 
LOCKC< 
LOCKFG 

LOCKIT 
LOCKIX 
LOCKMS 
LOGBLK 

LOGPNT 

LOKCOR 

LOOPER 

L0SID1 

L0SID2 

LOSIDE 

LOSPT 

L0SPT1 

L0SPT2 

LOSTBL 

LPAREN 

LPARER 

LPDOVT 

LPFWPC 

LPGFTR 

LPICH1 

LP1CH2 

LPICH3 

LPICH4 

LPICH5 

LPICH6 

LPICH7 

LPICHA 

LPICLR 

LPIIP1 

LPIIP2 

LPIIP3 

LPIIPA 

LPIIP5 

LPIIP6 

LPIIP7 

LPIOFF 

LPION 

LPNTRP 

LPRCHl 

LPRCH2 

LPRCH3 

LPRCHA 

LPRCH5 

LPRCH6 

LPRCH7 

LPRFMH 


1  A99# 
U99/lf 
H99# 
99 

8045 
7378 
10530 
10532 
99 
13073 
173A8 
7271# 
1239# 
3430* 
3431 
3211 
20478 
20516 
20519 
20523 
1499# 
1499# 
1499* 
1499# 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
K99* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 
1499* 


SEQ  0722 


9681 

2285 
11092 
10479 
10537* 
19372* 

4133 
13094 
20459* 

7271 

3433 
3438* 
3236 
20510* 
20520* 
20529* 
21286* 

19089 


11096* 
2474 
11152 
10521* 


4146 
13129 


11096 

2526 

11296 

11439 


7758 
14052 


11153   11183   11297 
2598    3181    3466 
11383*  11383 


8786   10870   10909* 
14401   14663   14695 


3668    4067 


4674 


5832    5984    6062    6197 


11102 
15379 


12532 
17797 


12635 
17884 


12800 
18155 


12990 
18231 


13013 
18244 


13057 
18279 


7377   10478   10536   10544   11438 


3427* 


I '418 


11418 


LPRFML 

LPTRP 

LPWRFE 

LPWRFL 

LR 

LREQSE 

LRQCLR 

LSADEN 

LSADRP 

LSBSEN 

LSBUSE 

LSCAER 

LSCASD 

LSECMO 

LSIOPF 

LSMODE 

LSNTRP 

LSNXER 

LSPAER 

LSPWRF 

LSSAER 

LSSBER 

LSTLST 

LSTRP 

LSTT10 

LSTT20 

LTBASH 

LTBASL 

LTRP3T 

LTRPAE 

LTRPEN 

LUSCMP 

LUUO 

LUU01 

LUU01 0 

LUU011 

LUU012 

LUU013 

LUUOU 

LUU01 5 

LUU016 

LUU017 

LUU02 

LUU020 

LUU021 

LUU022 

LUU023 

LUU024 

LUU025 

LUU026 

LUU027 

LUU03 

LUU030 


1499# 

1499# 

1499# 

1499# 

654# 

669#    686#    784/lf 

1A99# 

1A99# 

15477   15505   17634 

U99# 

U99# 

U99# 

1499# 

1A99# 

1A99# 

1499# 

1499# 

1A99# 

1A99* 

1A99# 

1A99# 

1A99# 

1A99* 

1A99# 

21A8 

19291* 

1A99# 

2152 

19320* 

21 5A 

19325* 

1A99# 

1A99* 

1A99# 

1A99* 

1A99# 

1A99# 

1A99# 

287# 

•632    1633 

1632 

1637 

1632 

1637 

1632 

1638 

1632 

1638 

1632 

1639 

1632 

1639 

1632 

1640 

1632 

1640 

1632 

1634 

1632 

1641 

1632 

1641 

1o32 

1642 

1632 

1642 

1632 

1643 

1632 

1643 

1632 

1644 

1632 

1644 

1632 

1634 

llin 

1632    1645 

r 


SEQ  0723 


r 


LUU031 

LUU032 

LUU033 

LUUOA 

LUU05 

LUU06 

LUU07 

LUUOI 

LUCER 

LWRITE 

HAGTAP 

MAPEX 

MAPNEU 

HAP01 

MAP02 

HAP03 

HAPOA 

MAP05 

MAPOUT 

HAPSOF 

MARGIN 

MASSEN 

MAXSUR 

MAXTST 

MAXUD 

HBCCLR 


neccoM 

MBCLI 
MBCLin 

necN 


NBCNUM 

MBE 

MBXER 

NBXHLT 

WCHCEL 

HCHCER 

HCHC«P 

WCHEFG 

«CHElP 


273# 
1632 
1632 
1632 
1632 
1632 
1632 
U99# 
635# 
1A99# 
596# 
5819 
100 
5787# 
5795# 
5803# 
5809 
5798 
2137 
1976 
1575* 
642# 
100 
1999# 
8162 
221 73# 
100 
8603 
18561 
22288 
22501 
8A29# 
8387 
100 
7668 
827A 
9091 
U6U 
17632 
19692 
20159 
22326 
22387 
224A2 
15935* 
o21# 
637* 
640* 
10743# 
10742 
10633 
10737# 
10739* 


1632 
1646 
1646 
1635 
1635 
1636 
1636 


912 
5822 
1653* 

5838 

6070 

5816* 

5823* 

4629 

4611* 


3806 
2020 
8168 

3003 

8681 

18572 

22300 

22511* 

8434 

8405 

248* 

7692 

8349 

9644 

14620 

17663 

19706 

20795 

22331 

22390 

22446 

15935 

4735 


10749 
10747* 
10657 
10737 


1645 


951 
5825* 
1893 

5840 


5777* 
4611 


3864 

2036 

13145 

3039 

8718 

18594 

22312 


8419 

2536 

7905 

8388 

9645 

15519 

17664 

19756 

20875 

22335 

22395 

22449 

15940 

4853 


SEO  072^ 


1047 
2990 


1182 
4704 


10170   10242   10405   10415   10423   10784   13147   19191 


4631   13126   17886 


7754 

4278 

13163 

3105 

8800 

18636 

22324 


8423 

3484 

7906 

8393 

9667 

15542 

17665 

19794 

22283 

22338 

22399 

22459 

15952 

5460 


8779 

13173 

4786 
8857 


10810 

20252 

4811 
8864* 


10919 

20254 

5457 
16287 


11711 

20257 

5489 
17685 


11743 

20259 

5571 
17714 


11861 

20261 

8064 
17755 


22235* 

20372 

8221 
18339 


20374   20380   20381 


8248 
18355 


8314 
18454 


8597 
18511 


22336   22348   22364   22376   22388   22400   22411   22423   22435   22447 


8430 

3541 

8081 

8394 

10578 

15623 

17666 

19808 

222S7 

22343 

22402 

22466 

15986 

8867 


8436 

12452 

3576 

5472 

8088 

8089 

8396 

8397 

10674 

11110 

15631 

15643 

19494 

19507 

19863 

19913 

22290 

22295 

22347 

22350 

22406 
22473 

22410 

22480 

16007 

16309 

12326 

14617 

22230* 

6113  6237  6306 

8091  8092  8093 

8398  8406  8410 

11136  11988  12058 

15807  15830  15923 

19528  19547  19566 

19959  19973  19982 

22299  22302  22307 

22359  22363  22366 

22413  22418  22^*22 

22^S7  22494  22499 

16324  16388 

17395  17804  18163   2C144   22556 


6405 

6421 

6568 

7453 

8098 

8109 

8110 

8267 

8411 

9072 

9077 

9090 

12097 

12626 

13392 

14612 

16048 

16792 

17548 

17602 

19577 

19630 

19640 

19671 

20122 

20143 

20148 

20156 

22311 

22314 

22319 

22323 

22371 

22375 

22378 

22383 

22425 

22430 

22434 

22437 

22503 

22531 

22571 

22599 

10730* 


r 


HCNVER 

MCYLCK 

WECH 
..  MECH1 

MEMLOU 
i  MEMMAP 
IWEHSIZ 

! 

\  WEMTOT 
MHDISK 
;  MHDSEL 
JHINCYL 
iniND 
IHINIT 
MINIT1 
;  MINUS 
i  MLTCHR 

irwoDE 

i  NODDVC 

i  nODDVL 

!  nODDVU 

MODE  11 

nODLNK 

nOL 

MON702 
nONCT 
MONCTL 
nONECT 
nONFLG 
nONITR 
NONRET 
NONTEN 
nONTH 
NONTYP 


nONVER 

nOTSER 

«PVU 

MRD 

nSXBBB 

nSIDIA 

nSXHBB 

nSXMNT 

nsxoFL 
nsxyiK 

WSCLK 
«SCNT 

nSTRB 

HULTTK 

«UUO 
«UUOPC 


10U# 
6# 
12550 
4207 
4222# 
100 
21 2# 
100 
1U3A 
165A# 
594# 
1167# 
22236# 
1013# 
69A9 
6969 
1697# 
21892 
8A2# 
12A7# 
14A6 
UA7 
18680# 
1266# 
923# 
2397 
12559# 
1565# 
12562# 
156A# 
681 1# 
7305# 
1566# 
7086 
1779# 
7385 
1292A 
7060# 
11 72# 
1A99# 
101U 
7717 
7707 
7713 
770'. 
7/10 
7725 
1012# 
5631# 
7670 
11060 
1A99# 
1A99# 


1A 
12591 
A221# 
A232 
1655# 
1553 
1656# 


597 


6968# 
6981  # 

21893# 


1AA6# 
1AA7* 

18680 
1512 
8561 
2791 

12559 
1899 

12562 

6883 
7305 

nSMf 
1875 
7890 
129A6 
7060 


5631 
768A 

11063 


A9 
12778* 


191A 
1915 


887 


15A8 

15A9 

18692 

15603 
70AU 

12601 
192A 

12568 


2153 

7893 

12956 

7061 


5632 
7697 

11081 


15A7 
12808 


6397 
1920 

111A 


SEO  0725 


15703 
70A1 

127A9 
1985 

1260A 


13035 

6A38 
1927 

1151 


6A67 
7987 

1185 


6950    7038    8A57    8A59   11A28   13595 

7992   10356   10359   10367   10A59   10A82   10A90   10A99 


18705   1882A 


15988 
7068 

7231 
12610 


1612A 
12793 

7302 
12927 


16305   16A99 


92AA 
130A0   13050 


7352   12669   1293A 


2396 

7899 

15336 

706A 


2A08 

7922 

15388 

7066 


2A10    25A2    2790 
10097   10A87   10521 


3126    3128    3663    70AA    70A7    7199 
105A3   10555   11020   11137   12517   12792 


563A 

7699 

11083 


7702 
1118A 


7730   22062# 
11187   11210*  11210   11366   11368 


WZERO 

NALTH 

NCH1 

NCH2 

NEyDRV 

NEXA 

NEXA1A 

NEXB 

NEXBUF 

NEXC 

NEXC1 

NEXERf 

NEXERR 

NEXEX 

NEXTST 

NHDSEL 

NOBAK 

NODRIV 


NOINT 
jNOMBCL 
jNOOP 
iNOPNT 
NOPRIV 
NORET 
NORHLD 
NOTBYT 
NOTDRV 
NULL 

Nxn 

NXMU 

NXSC1 

NXTOK 

NXTXFR 

NXXFR 

NXXfRR 

NXXFRW 

NXXL1 

OF100« 

OF20W 

OF25« 

OF400M 

OF50« 

OF800W 

OFDIR 

OFFCVL 

OFFSET 

OF  SAV 

OFSWSiC 


1010# 

20694 
7960 
4655 
4655 
1947# 

16475 
4676# 
4696# 
471 2# 
100 
4729# 
4739 
4804 
4720 
4669 
2134 
1166# 

101 
2192 
2862 
5048 

18892# 
8415 
267# 
1235# 

12815 

17647# 

13007 
6842 
8640# 

10050 
183# 
765f 
1499# 
4718# 
4859# 
4712 

'Sli 

4838« 
484  7# 
1130# 
1131# 
112?# 
1.32# 
1129# 
1133# 
1134# 
1193# 
897# 
U095# 
11 27f 


20717 
7962 
4837 
4870 
1947 

16501 
4792 
4790 
4778 
4708# 
4750 
4765# 
481 0# 
4731 
4673 
4435 

8160 
2241 
2870 
5080 

8418 
891  # 


18014# 
6855# 
8660 

10779 
H79 


'♦723 
481 6# 

4857 


13294 
14095 


20720 

12759# 

4875# 

4876# 

1982 

4812 

4780 
4708 
4752 


4797# 

4677 

4509 

12153# 
2293 
2890 

5122 

8421 


20732 
12759 


1990 


21890# 


SEO  0726 


1993    8200    9246    9368   15744   15749   15753   15997   16365   16418 


4816 
4753 


4680 
465  7# 

12153 
2609 
2902 
5159 


4840 
4759 


4794# 


12211 
2624 
2919 
5198 


12433 
2644 
2948 
5234 


13751 
2660 
2999 
5280 


2676 
3185 
5321 


2692 
3200 
5367 


2708 

2724 

274 1# 

2ei6 

2839 

3228 

3471 

3524 

3894 

4953 

5395 

5691 

5837 

5992 

6200 

8427    8437# 


12840   12847   12851#  13085 


8665 

22233# 

3500 


3532 


3557    5699   15273 


U101 


OLD 

H931# 

14931 

14936 

OWCE 

101 

1863# 

1863 

1889 

1891 

8201 

8414 

8772 

9031 

9248 

0NCE1 

1864# 

1864 

1900 

1907 

ONE SEC 

567# 

2636 

2807 

11072 

1117/ 

ONESUR 

3676# 

3676 

3724 

3822* 

3822 

ONETN 

2001  # 

2001 

2003 

OPCHD 

17892 

18283 

18294* 

OPDTST 

2126 

2276# 

OPENER 

11144 

11323# 

12822 

OP  I 

962# 

0PRDE1 

2523 

2553# 

0PRDE2 

2529 

2556# 

0PRDE3 

2550 

2559# 

0PRDR2 

2532 

2542# 

OPRDRV 

2433 

2450 

2462 

2475 

2521* 

0PRDX1 

2540# 

2554 

2557 

2360 

0PRDX2 

2538# 

2543 

2551 

OPREX 

17311 

17392* 

OPRSEL 

1249# 

2053 

4464 

9261 

OPRTO 

2291  # 

2301 

0PRT1 

22920 

2299 

0PRT2 

2294 

2301  # 

OPRVT 

2288 

2320# 

2324 

2379 

OPTIWE 

1667# 

OVCHK 

22564 

22580* 

OVRCLR 

741# 

OVRRUN 

7700 

16699 

0VT1 

2432# 

2443 

0VT2 

2429 

2450# 

0VT3 

2425 

2462* 

0VT4 

2420 

2474* 

OVTE 

2328 

?378# 

0VTE1 

2335 

J381# 

0VTE2 

2338 

2372 

2384# 

0VTE3 

2355 

2387<r 

2492 

2500 

2503 

0VTE4 

2364 

2390# 

0VTE5 

2171, 

2393# 

OVTEX 

f^\» 

2412 

2434 

2445* 

2451 

0VT«1 

2333 

2382 

2385 

2405 

0VTH2 

234  3# 

0VTH3 

2347# 

2353 

2388 

0VT«4 

2UO0 

2362 

2391 

0VT«5 

2U70 

2369 

2394 

0VT«5A 

2345 

2414# 

0VT«6 
0VT«7 

2376 

2418# 

2A220 
2^270 

0VTM8 

0VTSE3 

2398 

2407# 

0VTSE»c 

232^ 

2396# 

OVTSFG 

2340# 

2340 

2357 

2400 

0VTSK1 

2358 

2493# 

0VTSIC2 

2498# 

1896 
9250 

11196 
3828 


1910 
9367 

15340 
3978 


1950    6933    6948 
9401    9497   11399 


6987    6999    7036    7472 


SEO  0727 


2459    2463 


2470    2476    2483    2490    2518 


2403 


0VTSK3 
0VTSK4 
0VTSK5 
OVTSKT 
P 


PAG 

PAKACK 

PAKAK 

PAKINA 

PAKINF 

PAKINT 

PAKINX 

PAKNAM 


PALERS 
PALLDR 
PAR 

PARBUF 
PARC1 
PARCLR 
PARCOM 
PARCPT 
PARDAT 
PARDIS 
PAROL P 
PARE A 1 
PAREA2 
PAREA3 
PAREA4 
PAREA5 
PAREA6 
PAREA7 
PAREA8 
PARENB 
PARITY 
PARKA I 
PARKL 
PARLOG 
PARPGH 
I  PARPLP 
PARTOT 
'  PARU 
PASCNT 


2494 
2506# 
2511* 
2341 
101 
3409 
6879 
10483 
11847 
12603 
16671 
19677 
21931 
1499# 
900# 
3075 
460U 
1977 
2145 
4607 
2544 
7349 
12972 
1241# 
927c 

66U 
19097 
19223 

1499# 
19081 
19227# 
19161 

1499# 
19158 
232# 
233# 
234# 
235# 

236# 
237* 
1554# 
1555# 
1499* 
1941 
1908^. 
1 9u88* 
19099 
19152 
19149 
19164 
1499# 

101 
4473 


2502# 
2508 
2517 
2487# 
243* 
3437 
6885 
10515 
11363 
12609 
17385 
19696 
21962 
2078 
8685 
4807 
4608 
3679 
4598* 
4631* 
2546 
7351 
22054* 
1C847 
9573* 

19116* 

19230* 

19232 

19090 

19261 

19239* 

:J191* 
1543 
1544 
1541 
1542 
1554 
1555 


11414 

19074* 

19144* 

19109* 
19218* 
19184* 
19208* 

1569* 
4561 


SEQ  0728 


290 
5490 
7148 
10562 
11958 
12613 
17416 
19702 

1292 
5510 
7427 
11275 
12554 
12615 
17440 
19985 

1293 
5529 
7431 
11303 
12556 
12617 
17441 
20232 

1294 
5591 
7437 
11309 
12558 
12693 
18979 
20233 

1295 
6135 
7770 
11310 
12561 
12714 
19542 
20273 

1499* 
6724 
9385 
11356 
12567 
12926 
19552 
20^76 

16639 
15902 

15975 

16277 

16423 

16481 

16639* 

3690 
13122 

3701 

4612* 

4612 

4632 

5787 

2548 
11139 

2549 
11140 

7008 
12539 

7009 
1254? 

7248 
12545 

7251 
12546 

1587 
6732 
9393 
11360 
12571 
13039 
1Q571 
20283 


16641 
5795 


7297 
12580 


1936 
6832 
9488 
11363 
12573 
13049 
19584 
20296 


1962 
6862 
9916 
11364 
12575 
13155 
19656 
20353 


2538 

3283 

6865 

6877 

0078 

10321 

11365 

1137^ 

12596 

12598 

13468 

14433 

19662 

19665 

20354 

20396 

3408 
6878 
10430 
11380 
12600 
16250 
19667 
21894 


5818   12931 


7299 
12584 


7312 
12586 


7314    7343    7345 
12587   12803   12804 


16533   16687   17738   18618 


19243 
19131* 


19146 


14934 


19167 


1858    4218    4221    4222    4234    4235    43^9    4320 


4558 


4391         4392         4472 


PATCH 

PATUP1 

PATUP2 

PATUPD 

PCMDX 

PCRFUL 

POCHAR 

PDCHR1 

PDCNT 

PDFLG 

PDISF 

PDLOVU 

PDNUM 

PDOVTP 

PDRV 

PDRVA 

PDRVA1 

PDRVB 

PE 

PECNT 

PERIOD 

PFLGA5 

PFLG6 

PFRST 

PFSTRT 

PGFTRP 

PGM 

PGMCPU 

PGMEND 

PGMNAM 

PGMOPT 

PHLIM 

PI 


PIA 

PICHN1 

PICHN2 

PICHN3 

PICHNA 

PICHN5 

PICHN6 

PICHN7 

PICHNA 

PICLR 

PINITP 

PINITX 

PINPl 

PINP2 

PINPS 

PlOff 


108 

4112* 

4112 

3996 

13894 

646# 
6706 
6729 
6705# 
6704# 
1664# 
1499# 
6691 
1499# 
9208 
9213* 
9214* 
9212 

655# 
19082* 
1694* 
9683 
9684 
9179* 
1521* 
1499* 

925* 

1866* 

22027 

1546 

1905 

17765 

101 
11115 
13474 
15531 
19160 

627* 
1499* 
1499* 

1499* 

1499* 
1499* 

1499* 

1499* 

1h99* 

1499* 
10837 
14684* 
14638 
14645 
14633 

1499* 


22021* 
4118 
4121* 
4100* 

13913* 
4737 
6720* 
6732* 
6705 
6704 


6704* 

9211* 

9232 
9231* 
964* 
19082 

9705* 
9714* 
9179 


15699 
1866 

1884* 
19348* 
22104* 

1968 
I '401 
13480 
15536 
19181 
648* 


SEQ  0729 


15478 
17332 

11414 
11401 
14629* 
14704 
14644* 
14651* 
14690* 
1968 


13921 

12434 

6730 

6708 
6726 


9705 
9714 
9211 


15980 
1951 


4989 
11414 
13513 
15569 
19232 


5032    5538 


15505 
17634 


16551 


13928 


6727 
6728 


6738    6742 


19155   19209   19221   19230   19241 


9711 
9719 
9214 


1952 


9506    9522 


2083    6164 


9524 


7215 


9630 


9636    9638   13527 


4991 
11418 
13538 
15612 
19234 


6944 
22575 


5032 
12029 
13555 
15636 
19641 


5033 
12050 
13571 
16241 
19644 


5035 
121^4 
14564 
16249 
19650 


5502 
13341 
15376 
16280 
22575 


5504 
13349 
15435 
16650 


5538 
13352 
15477 
16676 


5539 
13370 
15478 
17332 


5541 
13389 
15505 
17634 


6944 
13462 
15511 
19147 


8202 
13465 
15513 
19151 


15435   15477 


8202   12104   13352   13389   13465   15511   15531   15612   16241   16650   19644 


PION 

PIP 

PISAV 

PKAIX 

PKFMA1 

PKFHEX 

PKFHX1 

PKFMX2 

PKFnX3 

P<FMXA 

PKFORM 

PKFRMA 

PKFRMB 

PKFRWE 

PKRD2 

PKREAD 

PKUKFM 

PL  I  ST 

PLISTE 

PLISTS 

PLLU 

PLUS 

PNTCMD 

PNTDRF 

PNTDRV 


PNTENB 

PNTEXT 

PNTFLG 

PNTINH 

PNTLPT 

PNTNAM 

PNTCTS 

PNTPOS 

PNTR 

PNTRP 

PNTSPC 

PNT2ER 

POCT 


P0CT1 

P0CT2 

P0CT3 

POCTA 

POSCWD 

POSF 

PP 


U99# 
922# 
13351 
19171# 
8720 
8778# 
8813 
882  U 
8815 
8825 
8575 
8697# 
8711 
8699 
87A0 
3029 
87U 
1733# 
1733 
1734# 
1163# 
1699# 
101 
3719 
101 
15765 
170A9 
101 
15A2# 
1662# 
1665# 
1236# 
15;1# 
6303# 
1385A 
6846 
•:499# 
1666# 
7100 
101 
13885 
18543 
21655 
21963# 
^1965 
21964 
21969 
14061 
9723# 

?01 
15613 
22421 
22551 


11414 

13370 

8728# 
8854 
881 7# 

884  U 

8834# 

8673# 

8726 

8848# 

8856/r 

8753# 

3050 

8729 

1733 

1735# 


5579 
3784 
3079 
15776 
17058 
1663# 


?303 

1 3920# 

6849 


7104 
12138 
13889 
18792 
21658 
21972 
21968# 
21967 
21972# 
14130# 

9723 
246# 
15616 
22433 


13341 
1 3464# 


8706 

8770# 

1936 


12125 

3936 

3087 

15792 

17446 

1872 


11243 


10136 
12891 
13927 
1879/ 
21690 


219704f 


9726 

6897 

15619 

22445 


14564 
13464 


8735        8858 


8739# 
1962 


13361 
8613 
4755 
1 5829/r 
17648 
11234 


10141 
12899 
14159 
18805 
21693 


9736 

7017 

22286 

22465 


15513      15536 
13474       13480 


15636       16249      16280      16676 
13513       13538       13555      13571 


SEQ  0730 


18569 


13449 
8618 
5384 
15874 
17872 
11251 


13648 
1 5806/r 
5842 
15984 
18069 
11254 


13722       13815       13833*    17670 


6491 
16013 
18260 
15453 


6578 
16034 
18267 
15456 


12506 
16084 
18486 


12887 
16408 


13090       134^3       15688       15731 
16503       16518       16607       17039 


11244       11247       11248       11249       15452 


10149* 

12915 

14654 

19579 

21956# 


130Q5 
14664 
19708 


13102 
146^2 
20527 


13106 
:4675 
20556 


13110  13842 
14699  14702 
c^0565      20570 


13863  13873  13877  13881 
14739  16558  17875  18270 
20797      20877      20886      21565 


7140        7144 
22298      223-0 


7145 
22122 
22486 


15503  15508  15512 
22334  22346  22362 
22493      22498      22517 


15532  15533  15534  15535 
22374  22386  22398  22409 
22518      22522      22524      22532 


.. ,r^w \,itiU  i»tMi»-il'*»*WIW*» 


■B«»  .tmfmn^m^* 


PPLIST 


PRETIP 
PRIPSE 
PRTDRV 
PSCIFG 
PSDN 


PSDNO 

PSDN1 

PSDRV 

PSDRV1 

PSFAIL 

PSLIM 

PSTAR. 

PTIMO 

PTIM1 

PTIW2 

PTIM3 

PTIWA 

PTIM5 

PTIM6 

PTIM7 

PTIM8 

PTIME 

PTI«ER 

PTIMOP 

PTMOA 

PTHOB 

PTMOC 

PTWOD 

PTMOE 

PTM1A 

PTMIB 

pimc 

PTM2A 
PTM2B 
PTM2C 
PTW3A 
PTM3B 
PTW3C 
PTWAA 
PT«AB 
PTM5A 
PTM5B 
PTW6A 
PTM6B 
PTM7A 
I PTM7B 
1 PTW8A 


101 
7409 
15508 
1 78A8# 
17853 
7830 
631 7# 
101 
6603 
13098 
18103 
21926# 
21925 
9513 
9525# 
773# 
17851 
294 
4948# 
4956 
5051 
5083 
5125 
5162 
5201 
5237 
5283 
2135 
291 
4938 
4952# 
4957# 
4961  # 
/,974# 
4966 
504  74f 
5056# 
5060# 
5079# 
5092# 
5094 
5121# 
5134# 
5135 
51584r 
5i71# 
5197# 
5207# 
5233# 
5246# 
5279M 
52S90 
5320# 


6897 

7413 

15512 

17858# 

7839 

6317 

3090 

6607 

13614 

18280 

21932 

21930* 

9522* 

16695 
17946 
16632* 

5044* 

5076* 

5118* 

5155* 

5194* 

5230* 

5276* 

5317* 

4241 

5454* 

5353* 

4984 


982 
4988* 
5062 

5066 

5097 

5102 

5104* 

5138 

5143 

5145* 

5175 

5184 

5215 

5220 

5253 

5249 

5301 

5306 

5339 


7017 

7428 

15613 


7846 
6330 
3094 
6611 
13801 
18788 


7069 

7438 

15616 


7857 
6448 
4359 
6615 
13813 
20553 


7072 

7488 

15619 


7075 

7493 

22147* 


7085 

7495 

22552 


7089 
7498 


7092 
7533 


7096 
7535 


7099 
7540 


7103 
7860 


7144 
7944 


7408 
15503 


SEQ  0731 


7871    7943* 


5646 

6619 

13866 

21533 


5890 

6623 

13909 

21710 


5911 

6627 

14666 

21728 


5932 

6643 

14677 

21830 


6232 
6647 
14681 
21924* 


6453 
10896 
14696 


6476 

6591 

6595 

6599 

12770 

12893 

12920 

13005 

16859 

17885 

17897 

17922 

22105* 


4444 

5386 
4999 


5026 
5068 


5106 
5147 

5186 

5222 

5265 
5259 
5308 

5346 


4923* 

5012    5036 


r 

PTM8B 

5330# 

5344 

PTMAVG 

5A31# 

5431 

5445 

5614 

^  £     ^  ^\  Aa 

1 

PTMCLR 

4961 

5056 

5085 

5126 

5164 

5205 

5242 

5285 

5328 

5402 

5430* 

^  >  ^  ^ 

^  ^  <■  ^ 

PTMCNT 

4959 

5054# 

5054 

5087 

5128 

5167 

5204 

5240 

5287 

5327 

5401 

5615 

5617 

. 

PTHCNV 

5605 

5608 

5612 

5619 

5627* 

^ 

PTMHGH 

5430# 

5430 

5441 

5442 

5604 

5610 

: 

PTHLOW 

5433# 

5433 

5443 

5444 

5607 

5611 

PTMCP2 

5359# 

5361 

i 

PTM0P3 

5370 

5388# 

5390 

!    ' 

PTMOPA 

5394# 

5414 

5421 

\         ^ 

PTM0P5 
PTHPNT 

5404# 
4983 

5419 
5027 

5067 

5104 

5146 

5185 

5221 

5260 

5307 

5345 

5420 

5600* 

; 

PTMR1 

5479# 

PTMR2 
PTMR2A 

5474 
5484 

5482# 
5487# 

1 

PTMR3 

PTMSAV 

PT0P2A 

PTRP 

PTTCW1 

5486 
4980 
5366# 
1499# 
20547 

5488# 

5025 

5377 

20558* 

5063 

5098 

5139 

5176 

5216 

5254 

5302 

5340 

5415 

5440* 

PVPAGI 
PWAIT 
PWAITX 
PUFCLR 

1760# 
4998 
5564 
1499# 

1894 
5011 
5566 

5515 
5570 

5553* 
5591* 

PWRFAL 
QFIN 

16696 
102 

16788# 
2441 

2457 

2468 

2481 

2828 

2851 

2881 

2910 

2937 

2976 

3598 

4007         4020 

4103 

4565 

4688 

4962 

5057 

5089 

5131 

5168 

5181 

5209 

5243 

5291 

5332         5407 

6269 

6285 

6289 

6301 

14082 

14100 

14104 

14177 

14280 

14295 

14342* 

14350 

14352 

OF  INI 

14348# 

( 

OF  I  NX 

14346 

14356# 

QPFLAG 

QUEST 

QXCTF 

ROOSER 

ROOTBL 

R01  TBA 

1980 
1705# 
14344# 
21066 
21066 
21108 

14186 

14344 
tn07 
21107 
2i327# 

1419U 

14349 

21602* 

21303* 

14191 
14356 

14217 

14219 

14227 

14333 

j 

R01 TBL 
R02TBL 
R03TBL 

21067 

6500 

21069 

21307/r 

21068 

21110 

21109 
21358* 

21340* 

R04TBL 
R05SER 
R05TBL 

21070 
21073 
21073 

21111 
21112 
21112 

21372* 
21652* 
21383* 

i 

R06SER 
R06TBL 

21074 
21074 

21113 
21113 

21662* 
21386* 

1 

R07SER 
R07TBL 
R10SER 
RIOTBL 

21075 

21U75 

5847 

21076 

21114 

21114 

9119 

21115 

21687* 

21395* 

9149 

21398* 

21076 

21115 

21697* 

1 
t 

R11SER 

R11TBL 

R1213C 

iR12SER 

iR12TBA 

21077 
21077 
21716 
21078 
21117 

21116 

21116 

217204f 

21117 

21413# 

21704* 
2U01* 

21714* 

SEQ  0732 


R12TBL 

R13SER 

R13TBA 

RI3TBL 

RUTBA 

RUTBL 

R15TBA 

R15TBL 

R16SER 

R16TBL 

R17SER 

R17TBL 

R20TBL 

R21TBL 

R22TBL 

R23TBL 

R2ATBL 

R25TBL 

R26TBL 

R27TBL 

R30TBL 

R31TBL 

R32TBL 

R33TBL 

R3ATBL 

R35TBL 

R36TBL 

R37TBL 

R40SER 

RAOTBL 

RAASER 

R4ATBL 

R50SER 

R50TBL 

R5ATBL 

R60TBL 

R6ATBL 

R70SER 

R70TBL 

R71SER 

R71TBL 

R72SER 

R72TBL 

R73SER 

R73T8L 

R7ASER 

R7ATBL 

R75SER 

R75TBL 

R76TBL 

R77TBL 

RADIX 

RADLSC 


21078 
21079 
21118 
21079 

6507 

6505 

6511 

6509 
21082 
21082 
21083 
21083 
21086 
21087 
21088 
21089 
21090 
21091 
21092 
21093 
21094 
21095 
21096 
21097 
21098 
21099 
21100 
21101 
210U 
210K 
21015 
21015 
21016 
21016 
21017 
21018 
21019 
21003 
21003 
21004 
21004 
21005 
21005 
21006 
21006 
21o07 
21007 
21008 
21008 
21009 
21010 
1708# 
1710# 


21408# 

21118 

21414* 

21409# 

21119 

21080 

21120 

21081 

21121 

21121 

21122 

21122 

21123 

21124 

21125 

21126 

21127 

21128 

21129 

21130 

21131 

21132 

21133 

21134 

21135 

21136 

21137 

21138 

21558# 

IMim 

21231# 

21584# 

^'235# 

21242# 

21253* 

21254# 

21516* 

21020 

21524* 

21194* 

21517* 

21191* 

21525* 

21195* 

21545* 

21021 

21551* 

21204* 

21207* 

21210* 


21718* 


21417* 
21432* 
21451* 
21461* 
21725* 
21472* 
21732* 
21475* 
21482* 
21483* 
21484* 
21485* 
21486* 
21487* 
21488* 
21489* 
21490* 
21491* 
21492* 
21493* 
21494* 
21495* 
21496* 
21497* 


21190* 


21201* 


SEQ  0733 


r' 

I 


RADLSP 

RAE 

RAECLR 

RAEEN 

RAEER 

RANDBS 

RANGE F 

RANOLD 

RCLP 

RCLPA 

RCMDQP 

RCNUn 

RCOMBP 

RC0NF6 

RCONFU 

RCTEST 

RCTSTO 

RCTSn 

RCTST2 

RCTSTX 

RCTTBL 

RCYL 

RDALC 

RDALC1 

RDALC2 

RDAT 

RDAfl 

RDAT2 

RDATA 

RDATH 

RDATHN 

RDCBUF 

RDCR 

RDD 

RDOBUF 

RDDIB 

RDHD 

RDIAR 

RDIRC1 

RDIRC2 

RDIVRG 

RDOFF 

RDPBAR 

RDPTCR 

RDRAE 

RDRDRG 

RDREG 

RDRGl 

RDRG2 

RDRG6 

RDRG61 


1709# 
775# 
61 8# 
746# 
639# 
15A3# 
3669 
11 478 
15266# 
687# 
622# 
17930 
17708 
17932 
1991 
8199 
2136 
5690# 
5716 
5689# 
5730# 
5703 
186# 
10004* 
9945 
10015 

662# 
16763 
17972 
18061# 
18C26# 
18045# 
18046 
19804* 
16816 

906# 
17021 
15543 

907# 
19798# 
19797 
19795 
19907* 
14096# 
19903# 
16818 
19796# 
19909# 
4745 
19654 
19684 
19658 
19679 


SEQ  0734 


3502 

3717 

11628 

15266 

8867 
17934 
17791 
18020* 
2138 
8207# 
4450 
5728 
5721# 
5692 

5721 
3479 
14107 
10016* 
10022# 
671* 
18787 
18034 


19802* 

'4876 

1 9800* 

17567 

8746 

19799 
19812* 


4882 
19661* 
19690* 
19664 
19688 


3512 

3721 

11643 

15270 

20144 
18015* 
18032* 
18020 
8198* 

4492 


5733* 
3532 
14299 
10023 

679* 
18791 
18038* 


18049   18055* 


3559 

3729 

11684 


18015 
18032 
18472 


3569 

3732 

11699 


18018 
18041 
18495 


3590 

3745 

11713 


18467 
18149 


5701 

3769 

11753 


18470 
18248 


5711 

3795 

11783 


18474 
18421 


15265 

3808 

11802 


18493 
18675 


15271 

3836 

11816 


18497 


15276 

3857 

11826 


15282 

3861   11472*  11472 
11839   11853 


4530    5678* 


5246 
10037 


5709   15347   15364 


8520    8553 


8559   12356   16718   16723   16728   16734   16740   16753   16758 


22516 

13189  13223 

19792*  22511 

8765  13191 

19801  19803 


13225 
19806* 


19905*  22521 


17437   19629*  ll'^ll 


19677* 
1 9696* 


„»^____„ 


RDRGC 

RDR6CC 

RDR60N 

RDSBAR 

RDSTCR 

RDTIMA 

RDTIMB 

ROT  IMC 

RDTIMD 

RDTIME 

RDXFR 

READA 

READIN 

RECAL 

RECAL1 

RECAL2 

RECAL3 

RE CLAM 

RECNT 

RECPNT 

REDLOC 

REENTR 

REGPNT 


RELIAB 

RELSE 

RELSFG 

REMOVE 

REMOVF 

REPT 


REPT1 

REPTCT 

REPTU 

REQ6 

REQ6A 

REQSET 

RESRT1 

RESRT2 

RESTOF 

RET  A 

RETA1 


19659 
19632# 
19653* 
19899# 
19901* 
22253# 
22254# 
5522 
5003 
22370 
120A3* 
U088# 
U094 
899# 
28U 
17700 
17739 
17733 
102 
17713# 
130AA 
6862 
1523# 
102 
16742 
17825 
1243# 
896# 
15596# 
67870 
5813 
102 
3182 
5171 
6412 
9001 
10354 
12447 
13800 
14562 
15471 
17423 
244# 
5391# 
162^* 
17320# 
17326 
1499# 
15984f 
1599* 
4791 
17573# 
17574 


19666*  19698   19710 


SEQ  0735 


22523 


5526 

5005 
22382 
12043 

14105* 

894* 
17713* 
1 7749* 
17755* 

4009 
17713 
13051 

6865 

8282 

16746 

17827 

11362 

8592 

15596 

11316 

5983 

245* 

3223 

5203 

6416 

9042 

10382 

12449 

13826 

14565 

15474 

17555 

1499* 

5391 

4697 

1 7332* 
5032 


4808 
17575 
1 7580* 


19509 

5016 

22394 

17566 


13307 
17750 


4576 
17734 
13059 

6881* 

9169 
16748 
18623 

13327 
15611 

6035 

293 

4077 

5204 

6433 

9180 

10383 

13490 

14141 

14566 

17126 

17572 

11383 

5400 


22255* 

5018 

22405 

17614 


5521 

5523 

22256* 

22282 

22417 

22429 

22441 

22458 

19508 

19510 

22294   22306   22318   22330   22342   22358 


9838 
17748 
13089* 


13418 
16750 
18625 

15608 
15700 

6059 

1499* 

4363 

5207 

6445 

9407 

10384 

13514 

14144 

14568 

17129 

17573 


9865 
18593* 


13423 
16755 
18627 


15981 

11488* 

2438 

4364 

5239 

6462 

9424 

10432 

13524 

14145 

14569 

17147 

17575 


9912 
18593 


13428 
16760 
20829* 


10163* 
18614 


13433 
16765 


10334 
18628 


16520 
17022 


10698   10716 


16711 
17454 


16715 
17743 


16720 
17745 


16725 
17747 


16730 
17821 


16736 
17823 


11488 

2453 

4365 

5240 

6474 

9444 

11012 

13526 

14162 

15444 

17160 

17582 


11502 

2465 

4366 

5286 

7053 

9470 

11285 

13540 

14163 

15446 

17162 

17625 


11505 

2478 

4367 

5287 

7082 

9484 

11295 

13548 

14369 

154A7 

17177 


11513 

2509 

4383 

5326 

7880 

9507 

11308 

13557 

14370 

15448 

17190 


11515 

2813 

4958 

5327 

8949 

9556 

11320 

13590 

14371 

15458 

17192 


11548 

2835 

4959 

5400 

8981 

9573 

11360 

13601 

14372 

15460 

17206 


11761 

2858 

5053 

5401 

8987 

9590 

11363 

13784 

14380 

15461 

17366 


11888 

2916 

5054 

6311 

8991 

9596 

11989 

13791 

14381 

15462 

17370 


2944 

5166 

6392 

8997 

9628 

12057 

13795 

14434 

15469 

17389 


5538    6944   15435   15478   17332   22575 


4895* 
17582 


RETALG 

RETB 

RETBAD 

RETC 

RETC1 

RETCMD 

RETCNT 

RETCX 

RETDAT 

RETEX 

RETFAL 

RETFL1 

RETFL2 

RETFLG 


RETFTL 

RETHD1 

RETHD2 

RETHD3 

RETHED 

RETHLD 

RETIP 

RETNAM 

RE TOFF 

RE  TON 

RETPOS 

RETQ 

RETQUE 

RETRY 

RETURN 

RETUD 

RETXCT 

RFIX 

RFIX1 

RHO 

RHOINT 

RH1 

RH10 


RH1INT 

RH2 

RH20 


RH2INT 

RH3 

RH3INT 

RH4 

RHAINT 


18113 

17576 

17766 

17590# 

17597 

17224 

1768A# 

17759 

17691 

17599# 

17754 

18089 

18452 

102 
13066 
17660 
17717 
18593# 
18619 
13613 
18040 
18009 
17581 
12973 

7312* 

7303 
17697# 

102 
1226S 

6912 

1530ir 
17702 
1 7808# 
17938 
18526* 
604# 

8367 
605# 
102 

8203 
12212 

8368 
606# 
102 

8076 

9071 
19499 
20546 

8369 
6070 

8370 
608# 

8371 


18319 
17587# 
17820 
17653 
1 7639* 
1 7309# 
17684 
1 7773# 
17862 
17640 
17768 
18332 
18491/r 
1956 
14175 
17661 
17724 
18630 
18629# 
18636# 
18539* 
18010 
17813 
12974 

7309 
17849 

7014 
12272* 
17635 


18323 
17592 
17828 
17947 


17758 
17789 
1 7969* 

17838 
18351 

1978 
14480 

17751* 


18014 
1 7833* 
12975 

7349* 

7015 
12305 
22613* 


18026   22087* 
1^489   18501 


3098 

8406 

22357* 

22367 

2237!; 

22375 

7389 

7458 

8216 

8238 

13179 

13748 

22369* 

22379 

223185 

22387 

4429 

4503 

8114 

8135 

12067 

12325 

19515 

19558 

20635 

20689 

22381* 

22391 

22397 

22399 

2239!;* 

22403 

22408 

22410 

22404* 

22414 

18406   22106* 

1 7856   1 7864 
17960   18490 


SEQ  0736 


17778 
18058 


17859 
18364 

11995 
15894 


18503* 
9072 


7465 

8284 

15926 


4670 

8152 

12430 

19580 

20808 


17950 
18468 

12208 
16531* 


18523   18526 
12977   13030 


12083   17775 
13/63   13771 


7508 

8285 

15928 


5459 

8241 

13160 

19582 

20864 


18062   18068* 
18502 


17894   18107   18414 


18064 
18480* 

12266 
16531 


18261   18399   18446*  18635 


12757 
16567 


12768   12773   12869 
16581   16685   16775 


12876   12952 
17232   17320 


12963   12967 
1 7596   1 7639 


18527   18529 
22057* 


18530   22124* 


17785   18021   18134   18143   18376   22118* 


22361   22363 


7511 

8322 

16693 


5470 

8286 

14616 

19634 

20868 


7658 

8338 

16815 


7390 

8287 

15552 

19653 

20895 


7664 

8384 

17019 


7460 

8331 

16271 

19683 

20897 


8077* 
8386 
17393 


7463 

8340 

16712 

20102 

20909 


8077 

8907 

20086 


7516 

8404 

16817 

20140 

20913 


8113 

9036 

20157 


7519 

8739 

17342 

20228 

20932 


8134 

9069 

22513 


7660 

8866 

17803 

20477 

20936 


8148 
10526 
22562 


7662 

8877 

18006 

20499 

22539 


8155 
12151 


8076* 

9038 

18162 

20501 

22555 


RH5 

609# 

22420 

22422 

RHSINT 

8372 

224-.  6# 

22426 

;rh6 

61 0# 

22432 

22434 

i  RH61NT 

8373 

22428# 

22438 

,RH7 

611# 

8411 

22444 

22446 

i  RH7INT 

8374 

22440# 

22450 

iRHCB 

801  # 

! RHCLR 

61 9# 

744# 

8865 

'RHCR 

797# 

RHCYL 

3725 

3756 

3760 

3778 

3871 

3874 

3983 

RHDB 

798# 

RHDFTL 

18597 

18604 

18631# 

RHEDBF 

18565 

18577 

18580 

18583 

18586 

22^270 

RHERR 

3061 

4718 

4729 

4847 

8164 

8170 

8697 

RHIA 

7990 

RHIVR 

71 5# 

RHKAI 

6908 

22456# 

22504 

RHMAX 

102 
221 76# 

1869 

6462 

7512 

7520 

776^ 

8228 

RHPBAR 

717* 

RHPTCR 

71 6# 

RHRA 

800# 

RHSBAR 

7194f 

13212 

RHSTCR 

718* 

13221 

RHSUR 

3727 

3820 

3827 

3865 

3980 

3986 

4016 

RIRC 

19900 

19902 

19904 

19906 

19908 

19911# 

RITA 

20908 

20921 # 

RITBIT 

20847 

20906# 

RITC 

2091 7» 

20926 

RLCYL 

3726 

3734 

3747 

3750 

3753 

3761 

3776 

11645 

11648 

11651 

11679 

11721 

11785 

11807 

RLSUR 

3728 
11724 

3797 
11748 

3810 
11804 

3813 

3817 

3826 

3863 

RMO 

726M 

d081 

8388 

9082 

22285 

222B7 

22461 

RMOINT 

8361 

22281 # 

22291 

RMOKIN 

22^t^M 

RMI 

727M 

8089 

8394 

22297 

22299 

22469 

22471 

RMIINT 

8362 

222910 

22303 

RHIKIN 

22^62 

22469# 

Rn2 

72S0 

8091 

8092 

8396 

8397 

22309 

22311 

Rn2INT 

8363 

22305# 

22315 

Rn2KlN 

22470 

22^760 

RM3 

7290 

22321 

22323 

22483 

22485 

22487 

RH3INT 

8364 

22iy70 

22127 

Rn3KIN 

22^7-^ 

224S3# 
22333 

RMA 

nO0 

22335 

22490 

22492 

22494 

RMAINT 

8365 

22329* 

22339 

RMAKIN 

22484 

22490* 

RMS 

731* 

8093 
2234 If 

8398 

22345 

22347 

22497 

22499 

RMS I NT 

8366 

22351 

RPfSKIN 

22491 

224974f 

RMR 

965# 

RNAn 

20835 

20859# 

SEQ  0737 


4013   11522#  11522   11654   11722   11841   11856 


8709   12463   15707   221 7 Jf 


8255   11385   12447   14565   14603   15458   17572 


11524f  11524   11727   11857 


3869  3875    3963    3967   1152U  11521 

3958  3975   11523*  11523   11701   11715 

22464  22466 

22473 

22476  22478   22480 


11630 
11718 


i 


r 


RNAMC 

RNAMI 

ROFSET 

RONLY 

RONLYO 

R0NLY1 

RONLY 2 

RPOADP 

RPOASP 

RP05DP 

RP05SP 

RP06DP 

RP06F 

RP06SP 

RPOX 

RPARAM 

RPAR«X 

RPDSF 

RPDTF 

RPFNCT 

RPPSF 

RPPSFF 

RPT1 

RPT2 

RRBAS 

RREC10 

RRECA 

RRECB 

RRECC 

RRECCT 

RRECER 

RRECEX 

RRECOV 

RRECP 

RRECR 

RRECy 

RRFAIL 

RS04 

RSOAI 

RSOAN 

RSCNT 

RSEC 

RSIZ 

RSIZA 

RSIZE 

RSIZL 

RSTART 

RSUR 

RTIW 

RTIWO 

RTNCTR 

RTNLST 


20863 

20872* 

20860 

20864* 

18315# 

18315 

18367 

212A 

2180* 

4404 

4485 

4544 

4623 

2190# 

2201 

2191# 

2197 

2193 

2201* 

1072# 

8522 

1071# 

8521 

107A# 

8526 

1073# 

8525 

1076# 

8530 

9698# 

9698 

9701 

9703 

9730 

9743 

9745 

1075# 

8529 

196# 

517 

594 

937 

969 

1003 

1050         1091 

21072 

21103 

21300 

21600 

295 

15257* 

15407 

1 5420* 

1052* 

105U 

21605 

21620* 

1093# 

1094# 

1934 

20840 

20845* 

20844 

20849* 

182# 

15268 

12947 

12972* 

13021* 

13082 

1 3038# 

13087 

1 3063# 

13123 

13127 

13132 

17842 

1 7928* 

18053 

18073 

18221 

17949* 

17959 

17905 

1 7924* 

17841 

1  ''869* 

18052 

18215 

17945* 

17941 

17952* 

17963 

■'  ■ 

17943 

1 7962* 

18257 

18266* 

197* 

595 

1000 

1043 

1088 

21045 

21085      2147J 

1069* 

8655 

1068* 

8654 
13063 

13004 

13064 

18102* 

18102 

18219 

18236 

184* 

3479 

3532 

5709 

15285 

15364 

187* 

3479 

3532 

15317 

185* 

3479 

3532 

15330 

13a00 

18098* 

18098 

189* 

15337 

1232* 

11230 

185* 

3479 

3532 

5709 

15301 

15364 

190* 

5246 

15406 

Mill 

17815* 

18094 

18175 

18354 

18387 

18607 

898* 

13321 

18078 

2143 

2148* 

SEQ  0738 


1121 


1159 


1192    1208    1217   21035 


21740 


RTP 

RUNFLf^ 

RUNGEN 

RUNGL 

RUNLST 

RUNQA 

RUNQB 

RUNQB1 

RUNQB2 

RUNQB3 

RUNQBA 

RUNQB5 

RUNQBP 

RUNQBR 

RUNQBT 

RUNQBW 

RUNQC 

RUNQUE 

RUNQX 

RUNT  I W 


RUNTMO 

RUNTH1 

RUNTW3 

RUNTP^X 

RVUNS 

SA 

SA1 

SADR1 

SA0R10 

SADR1 1 

SADR2 

SADR3 

SADRA 

SADR5 

SADR6 

SADR7 

SADR8 

SADR9 

SAMDRV 

SAMENI 

SAME NT 

SA«EX1 

SAVAC2 

SAVDR 

SAVE1 

SAVE2 

SAVE  3 

SAVEA 

SAVET1 

SAVE T 3 


1703# 
1570# 
431 7# 
4209 
2144 
14218 
14247# 
14261* 
14266* 
14271# 
14276# 
14291 
14272 
14285# 
14274 
14283 
14300 
14185 
14228 
102 
4422 
4534 
12140 
10098 
10096 
10103 
10144* 
1200* 
104 
1989 
220* 
229* 
230* 
221* 
222M 
223* 
224* 
225* 
226* 
22711 
22SS 
9247 
6127* 
6126* 
6128 
6o82* 
3674* 
6826 
6827 
6828 
6829 
6830 
6831 


SEQ  0739 


4345 
4218* 
4341* 
14222 
14319 


14297* 
14307* 

14282* 
14302* 
14305 
14205* 
14321* 
3067 
4432 
4541 
12424 
10105* 
10115* 
10113 


1837 

1993* 

1519 

1535 

1536 

'521 

1523 


14226   14232* 


14315* 


3880 

4441 

4548 

13355 


10122* 
1960* 


3887 

4447 

4554 

13399 


4096 

4454 

4615 

13416 


4225 

4460 

4620 

13491 


4238 

4476 

4625 

13986 


4317 

4482 

4633 

16594 


4324 

4489 

4799 

17816 


4356 

4496 

5574 

17870 


4395 

4506 

6314 

18858 


4401    4408    4415 

4513    4520    4527 

10091*  10833   11313 


12141 


6687 
3823 
22078* 
22079* 
22080* 
22081* 
6874 
22075* 


6710 
3829 


3843 


3902    3904 


22074# 


SAVMAP 

8A53 

8A55 

1 OAOA* 

10A0A 

1051A 

19193 

1919A 

19201 

SAVPl 

196A3# 

196A3 

19650 

SAVQ 

103 

13625 

13699 

221A0* 

SAVQE 

13630 

13712 

1A19A 

221A1* 

SAVQF 

13701 

13711* 

SAVQUE 

103 

1 3698* 

13713 

13717 

13765 

1A527 

SAVREG 

17A3A* 

17A3A 

17A36 

SAVTIM 

5023 

5AA0 

5A88 

5528 

8966* 

896 'j 

8980 

9021 

SAVTPC 

18A5# 

18A5 

SBD 

1006* 

SBINIT 

1305 

1529* 

SCXMNT 

51 5# 

SCXOPR 

51A# 

SCXWHL 
SCLP 

51 3# 
96 
2009A 

3006 
20132 

30A2 
20238 

3108 
20295 

A789 
20397 

8680 
22179* 

8803 

16290 

17688 

18358 

18A57 

1851A 

1856A 

^h  ^%  ^  ^k 

18575 

0\0%  r  ^9 

SCNADD 

103 

A  569 

A575 

7022 

8A62 

8A65 

9768 

-^777 

978A 

9800 

9825 

9832 

9350 

9857 

^  w  '  ^r^m^  m^ 

9882 

9889 

9935 

9952 

995A 

9972 

10005 

10J2A 

10026 

10072 

10079 

10169 

10176 

1020A 

102A1 

102A8 

10290 

10297 

10299 

10306 

10317 

10330 

10595 

10710 

10715 

10717 

10731 

1A2A1 

22223* 

SCNEND 
SCNOLD 

10075 
A570 

1A239 
6986 

^2221* 
7020 

7023 

9767 

9769 

9819 

982A 

9826 

98A9 

9851 

9868 

9879 

9883 

9919 

9936 

10006 

10077 

10285 

10291 

10327 

2222(^n 

^  0^  ^K^^  tf% 

SCNTBL 

103 

A  568 

698A 

6985 

7018 

7019 

7021 

S^i*^ 

8A60 

8A61 

8A6A 

8A66 

10076 

10708 

10709 

10713 

1071A 

10718 

10719 

1A236 

1A238 

1A2A0 

22220M 

SCOPE 

1622* 

SCRFUL 

6AA* 

A721 

U717 

A855 

12A32 

SCRIPT 

103 

2011 

2022 

2039 

2095* 

A275 

1213A 

1A720 

1A733 

SCRPDO 

i^lTsn 

A351 

SCRPD1 

i.27211 

t.29t. 

SCRPD2 

t,2i^n 

A279 

A287 

SCRPD3 

i.277 

A289* 

SCRPDA 

A219 

U21t, 

^296» 

A3AA 

SCRPE1 

A189 

190 

A202* 

SCRPE2 

A257 

A308* 

SCRPE3 

A261 

'4  3A7* 

SCRPE4 

A  302 

A353* 

SCRPEX 

A 199* 

A2A9 

SCRPT 

A192 

A19A 

A21i# 

SCRPTO 

A178 

A 187* 

SCRPT1 

A 188* 

SCRPT2 

A193 

(^2050 

SCRPT3 

A320* 

^528 

SCRPTA 

A32A* 

A339 

SCRPTA 

A180 

(M7» 

A313 

A35A 

SCRPTB 

A,  56* 

A266 

A  309 

SCRPTC 

A>98* 

A306 

SCRPTD 

a5oo 

A311* 

SCRPTE 

A  322* 

SCRPTL 

A258 

A267 

(*272 

A280 

A285 

A298 

A326 

A3A2 

A350 

22:A5* 

SCRPTT 

A290 

A331 

2mhf 

SCSBPA 

3A87* 

3A87 

1577 

3605 

SCSBPB 

35AA* 

35AA 

360A 

SEQ  07A0 


r 


SCYLA 

SCYLB 

SDBPE 

SDRAE 

SDRVA 

SDRVB 

SDSBPA 

SDSBPB 

SDTE 

SEARCH 

SEC1 

,SEC2 

iSECTIO 
SECT11 
SEEK 
SEKTl 
SEKTIO 
SEKT1A 
SEKT1B 
SEKT1D 
SEICT2 
SEKT2A 
SEKT2B 
SEKT2D 
SEKT3 
SEICT3A 
SEKT3B 
SEKT3C 
SEKT3D 
SEICT3L 
SEKU 
SEKUA 
SEKUB 
SEKTAL 
SEKT5 
SEICT5A 
SEKTSB 
SEKT5C 
SEKT5D 
SEKT6 
SEKT6A 
SEKT6B 
SEKT6C 
SEKT6D 
SEICT7 
SEICT7A 
SEICT7B 
SEKT7C 
SEICT7E 
SEKT7F 
SFKT8 
SEKT9 
SEKTST 


118A3# 
11 840 
16703 
762# 
3483# 
3540# 
3489# 
3546# 
17032 
901  # 
4749 
4751 
546# 
547# 
2804f 
2803# 
2792 
281 5# 
2817 
281 4# 
283U 
2838# 
2843 
2837# 
2840 
2861  # 
2863 
2871 
286C# 
28691 
2884# 
2889^ 
2891 
2901  # 
2903 
291 8# 
2922* 
2936# 
291 7# 
2940* 
294  7# 
2953 
2949 
2946# 
2983# 
2v98# 
3032 
3072 
3037 
3059 

3000 
2Q79 

:^28 


11846 
11842 
17017* 


11845# 


SEQ  0741 


3483 

3573 

3G01 

3540 

3600 

3489 

3579 

3607 

3546 

3606 

17047# 

13314 

4d64# 

4864 

4866* 

4866 

4126 

4132 

6208 

7756 

7760 

4139 

4145 

8794 

11203 

15002 

893* 

13300 

3125# 
2825 
2819 
2827 

2848 

2850# 

2850 

2854* 

2866 

286>>* 

2880* 

2880 

2878 

2898 

2900* 

i908 

2910* 

2936 

2933 

2920 

2967 
2969* 
2975* 
2975 

3118 

3053 

3078* 

3058 

3105* 

3120* 

3121* 

2790* 


8792   11054   14999   15178   15297   15390   15392 


282/* 


2973 


3061* 

4810 

3086* 


^228    4398 


44;q 


SELDON 
SELDRV 

SELECT 


SELHWL 

SELPR7 

SELPT 

SELPT1 

SELPTA 

SELSWL 

SENSE1 

SENSE2 

SENSE3 

SENSEA 

SENSES 

SENSE6 

SEQADR 

SEQDRV 

SEQGEN 

SEQHLP 

SETCHN 

SETCMD 

SETEH 

SETER1 

SETER2 

SETER3 

SETF10 

SETF11 

SETKAI 

SETMAP 

SETNUL 

SET0F1 

SET0F2 

SET0F3 

SETOFF 

SETTIM 

SETTW1 

SETJP 

SETUP1 
SETUP2 
SETUP3 
SETUPA 
SETUPX 
SETUPY 
SETVEC 
SEXCEP 
SFSTRT 
SFTOUT 
SG 


11016# 
20A6 
AA62 
103 
2861 
4952 
6199 
9533 
9178 
9506* 
9511# 
9A62 
9532 
U99# 
U99# 
U99# 
U99# 
K99# 
1A99# 
3901 
5989 
2132 
A176 
2995 
12276 
A690 
9722 
9733 
97AC 
3933 
3931 
8951 
8A63 
10019 
9687* 
970A 
9712 
906A 
69A1 
8980* 
103 
11A62 
1 1 360# 
11397* 
11A07 
11h03 
11398 
11A33# 
6921* 
16705 
1519* 
5801 
1837 


11016 
A223 
AA70 
2191 
2869 
50A7 
80A9 
95A0* 
9A97* 
9538 
9515 
9503* 
9536* 


5988 
6196 
A17A* 
A 183* 
A  709 
13676* 
A881* 
97A9* 
9752* 
9755* 
A125* 
A13b* 
9006* 
Q798 
I J0A6* 
9706 
971A* 
9721* 
9675* 
89A9* 
9022 
2182 


11A10* 
11A17* 
11A15 


17030* 

6069* 
1857* 


111A8* 
A236 
AA81 
22A0 
2889 
5079 
9687 

13552 
95A2 


111A8 
A321 
AA88 
2292 
2901 
5121 

11012* 


A363* 

AA95 

2608 

2918 

5158 


A388 

AAOO 

AA07 

AAU 

AA21 

AA31 

A505 

A512 

A519 

A526 

A533 

A5A0 

2623 

26A3 

2659 

2675 

2691 

2707 

29A7 

2998 

318A 

3199 

3227 

3A70 

5197 

5233 

5279 

5320 

5366 

539A 

AAAO 

AAA6 

AA53 

A5A7 

A557 

2723 

2815 

2838 

3523 

3893 

4676 

5690 

5836 

5991 

SEQ  07A2 


6195 
80A7 
A185 
A197 
11A00 

A88A 


80A6 
9680 

A203 
20119* 


9679 

11030* 


11023* 
11030 


11023 
11036 


11118   11369   11377 
11370   11379   11776 


10235* 
9715 
9750 

2230 


10653 
97A7 
9753 


9756 


2278    2591 


2795 


3173 


3A59    3655    A659    A925 


5680 


5779   11356* 


11A22* 


SGNCHG 
SHREG 

SHTPRT 

SKINC 

SLASH 

SLEPON 

SM10 

SHBCA 

SMBCB 

SMLUSR 

SNAP 


SNAPE 

SNAPEX 

SNAPRD 

SNAPRG 

SNAPS 

SNTRP 

SOMDRV 

SP 

SPACE 

SPARE 

SPATNA 

SPATNB 

SPCST 

SPRTA 

SPRTB 

SRANA 

SRmNB 

SRDENT 

SRTDDT 

SSECA 

SSECB 

SSELA 

SSELB 

SSIZA 

SSIZB 

SSURA 

SSURB 

STADR 

STAEXT 

START 

START1 

START2 

START3 

STARTS 

STARTS 

STARTA 


1125# 
103 
167A5 
9032 
119A# 
1706* 
7247 
1810* 
3485# 
3542# 
U99# 

103 
16076 
16744 
17030 
17822 
221 54# 
17377 
17375# 
17371# 

104 
16468 
1499# 
8534 
3506 
1695# 
1162# 
3511# 
3568* 
220 
9183* 

9185 
351 3# 
3570# 
1 0596# 
223 
3491# 
3548# 
11859* 
r854 
3497# 
3554* 
3493* 
3550# 
651 3# 
8362 
104 
1532* 
1533* 
1534* 
1535* 
1536* 
104 


13396   16596   16717* 

16752   16754   16757 

9049    9178*   9458 


7280*   7280 


3485 
3542 

8485 
16368 
16747 
17069 
17824 

1 7386* 
17384 
17371 
3071 
16493 

8653* 
3563 


3511 
3568 
1858* 
9187 
9207* 
3513 
<570 
10596 
225 
3491 
3548 
11862 
11858 
3497 
3554 
3493 
3550 
6513 
8565 
1513 


1528 


3575 
3602 

8640 
16403 
16749 
17082 
17826 

17424 

17375 
4803 
1 7366* 


3591 
3618 
1892 

13530 
3589 
3616 

10641 
1525* 
3581 
3608 

11861* 
3587 
3614 
3583 
3610 
6516 
8577* 
1888* 


16717 
16759 


7285 
3603 


12987 
16404 
16751 
17095 
18047 


17383 
12929 
17723 


12988 
16405 
16756 
17218 
18407 


15762 
18603 


10313   14838* 


3619 
1961 

3617 


1848 
3609 


3615 

3611 

6518 

19042 


11239 


1851 


1    r 


16719 
16762 


16722 
16764 


16724 
16766 


16727 
20800 


16729   16733 
20836*  20836 


16735 
21781 


16739   16741 


SEQ  0743 


12655   12745 


15664 
16424 
16761 
17312 
18605 


15857 
16443 
16777 
17327 
18622 


15864 
16477 
16821 
17379 
18624 


15868 
16498 
16827 
17420 
18626 


15869 
16716 
16833 
17725 
22153* 


15870 
16721 
16840 
17742 


15882 
16726 
16843 
17744 


15886 
16732 
16851 
17746 


15994 
16738 
16852 
17818 


15794   15855   16031   16134   16160   16179   16350   16378   16400 


6537    6544 


1967*   2049    2054    2058   18860 


r 


STATE2 

STATSA 

STATSB 

STATSC 

STATSD 

STATSE 

STATUS 

STCHN1 

STCHN2 

STCKAT 

STCKER 

STCKMS 

STCMD 

STCMD1 

STCMD2 

STEST 

STFAT1 

STFATH 

STFATL 

STMKAl 

STMKL1 

STOP  1 A 

STOP 

STORE 

STPAS1 

STPASS 

STPCM1 

STPCM2 

STPCMD 

STRE3A 

STRE5A 

STRER1 

STRER2 

STRER3 

STRER5 

STRP 

STRT 

STRTO 

STRT1 

STRT2 

STRTA 

STRTER 

STRTEX 

STRTG3 

STRTLP 

STRTNM 

STRTSW 

STSTO 

STST1 

STST1A 

STST2 

STST2A 

STST3 


7205* 
16686 
16694 
1 6707# 
16688 
16709 
10A 
201 26# 
20130 
8221 
8224 
8271 
17188# 
17194* 
17197 
2127 
19033 
19039 
1943 
9010 
3959 
9691 
625* 
688* 
4323 
4224 
17164* 
17167 
15899 
7836 
7826 
7W 
■  11 
.  18 

n 

99* 
'11 
?5 
/09 
,949 
1874 
2019 
2014 
1919* 
20r* 
2012 
1986 
2604 
2610 
2619 
2625 
2639 
2637 


1 6690* 
16702* 

16771* 
16713 
3073 
20128 
20141 
8253 
8251 
8284* 
17399 
17205 
17200 
2589* 
19035 
19044* 
19032* 
9021* 
89n6* 
96  '8* 
748* 

4357* 
4237 
17175 
17169 
16436 
7844* 
7833 
7394 
7416 
''835* 
7855* 

1922* 

1933* 

1936* 

1956* 

1877 

2021 

2029 

2015 

2017* 

1992 

2608* 

2616* 

2623* 

2633* 

2643* 

2645 


SEO  0744 


12932   15800   15896   16036   16147   16172   16186   16353   16381   16421   16684* 


16716* 

4805 

20146 

20146* 

8273* 

8266* 


17929   18^83   18492 


17204* 

4418 

r.040* 


4523 


4356*   4393    4474 


4562 


17174* 
17'  n 

i  oh2 

7824* 

7828* 


11314 

1881 

2057* 

2041 


2035* 
2615 

2630 

2650 
2652* 


7864*   7873 


13576 
1893* 
2043* 


r 


— J 


STST3A 

STST3B 

STST3C 

STST3D 

STST3E 

STST3X 

STST3Y 

SUBLNK 

SUNSF 

SURFAC 

SURSEL 

SUSETR 

SVBAS 

SVCYLA 

SVCYLB 

SVRDCT 

SVTKSA 

SUCER 

SWPNT 

SUPTAB 

SyiEXR 

SYSEON 

SYSEXR 

SYSOFF 

SYSSIZ 

T1 

T2 

13 

TA 

TAB 

TALLI 

TALLOP 

TBLK1 

TBLK2 

TBLK3 

TBLKF 

TBLKR 

TBLKU 

TCHKA 

TCOMCIC 

TCWPT 

TCWPT1 

TCWPT2 

TDAT1 

TELPAT 

TELTST 

TELTX 

TEWCYL 

TENFLG 

TESTPC 

TEXT 


2655 
2661 
2677 
2693 
2709 
2725 
2723# 
1267# 
17034 
104 
11813 
13037 
181# 
3495* 
3552# 
17435* 
18001# 
636# 
3066 
1816# 
1544# 
7232 
1517# 
72970 
6882 
681 2# 
6859 
681 3# 
681 4# 
681 5# 
1696# 
4439 
9446# 
13592# 
13593 
1 3608# 
13589# 
11372 
11373 
11231 
9552 
20479 
20540 
20543# 
664  ^# 
10d38 
5575 
14721 
10963# 
8691  # 
104 
5SM 
3134 


2659# 
2668# 
2684# 
2700# 
271 6# 
2732# 
2730 
1529 
17057# 
548# 
11852# 
1 3084# 
15263 
3495 
3552 
17435 
18001 


7221 
6826 
6860 
6827 
6828 
6829 

4446# 
Q453 
i<601 
13596 

13589 
13608 
22202M 
11241# 
9565# 
20534# 
20546# 
20557 

^^,7^,70 
10836 
14726 
10963 
8691 
1571# 
268# 
3169 


2666 
2682 
2698 
2714 


SEQ  0745 


3280   10960   11215   11876   11942   15006   15163   15313   15390   15392   22235 


3535 

3612 

17443 

18213 


3585    3613 
17449 


}797%»     17978   17996   18210 


4798   10835   14762/f  16593 


7294    7343* 


22076* 
6838 
6861 
6871 
6837 
6857 


6839 
6866 

6851 
6873 


6840 
6868 


6843 
6869 


6847    6848    6849    6850    6852 
6870    6881    6882    6883    6884 


6855    6856    6857 


6867    6872 


1 3600* 

13604 
13610 


9605 


20571 


12425 
14729 
10968 
8719 
1844 
2159 
3441 


13612   13613   22201* 
9624 


13356 
14735* 

8723 
1847 
2178 
3455 


13400   13417   13987   14710*  16538   18859*  18859 


8734 

11358 
2206 
3633 


8773 

12131 

2226 

3651 


8782 

12137 

2259 

4152 


8789 

14725 

2274 

4172 


8793 

14730 
2305 
4581 


8849 

14738 

2318 

4595 


8851 

2563 
4638 


2587 
4653 


2745 
4902 


2788 
4921 


5653 

5676 

5743 

5775 

10218 

10233 

1 

11966 

11983 

13931 

13969 

14440 

14472 

\ 

17A82 

17503 

18950 

18970 

19048 

19072 

19762 

19790 

19816 

19842 

19869 

19896 

201 64 

20207 

20307 

20323 

20408 

20420 

21501 

21514 

21743 

21765 

21836 

21861 

i 

22258 

22275 

\             TEXT. 

272 

22001* 

TEXTF. 

273 

22007* 

TICKS 

10A 

1574* 

1861 

5030 

5533 

5536 

1 

8961 

8963 

10101 

10108 

10115 

11419 

TIMCNT 

10A 

5628 

8931 

8999 

22047* 

TIMERX 

4935 

5324 

5356 

5396 

5398 

5423. 

i 

TIMIN1 

4235# 

4245 

1 

TIMING 

4208 

4234* 

TIMOUT 

105 

4995 

5508 

5557 

5565 

5567 

15679 

16098 

16101 

16213 

16216 

17317 

TIMSAV 

5004 

5006 

5017 

5021 

22252ff 

TINTFG 

1971 

2202* 

2202 

2249 

2302 

2445 

5423 

5730 

5825 

11371 

TLASTW 

20639 

20642* 

TLSTW 

20636 

20648* 

TNO 

1499# 

TNI 

1499# 

TOPWON 

721 7# 

TOTAL 

2123 

4387* 

TOTALL 

4392* 

4465 

TOTALS 

1233* 

11241 

T0TBI1 

6669* 

6674 

T0TBI2 

6670 

6676* 

T0TBI3 

6684 

6690* 

TOTBIT 

6450 

6631 

6635 

6639 

6655* 

TOTBLK 

13496 

13501 

13507 

13584* 

TOTCHK 

11015 

i'228* 

TOTCP 

6372 

6376 

6380 

6383 

6461* 

T0TCP1 

6464* 

6474 

T0TCP2 

6465 

6468 

6473* 

T0TCP3 

6476* 

T0TDA1 

6580 

6586* 

TOTDAT 

6407 

6577* 

TOTEP 

6408 

6484* 

TOTPO 
T0TP1 
T0TP2 
T0TP2A 

6313* 
6368 
6391* 
639A* 

6385* 
6412 

T0TP2B 

6395 

6398 

6411* 

T0TP2C 

6400* 

T0TP2D 

6407* 

6569 

TOTPNT 

2142 

6300* 

11238 

11255 

TOTPX 

6386 

6389 

6414* 

TOTSP 

6320 

6324 

6328 

6333 

6337 

6341 

T0TSP1 

6435* 

6445 

! 

i 
( 

ii 

T0TSP2 

6436 

6439 

6444* 

10939 
14575 
19428 
19920 
20434 
21909 


6934 
15437 


10954 
14592 
19449 
19954 
20448 
21922 


6946 
15445 


10976 
15231 
19453 
19991 
20573 
21935 


7109 


11010 

11331 

11354 

15255 

15483 

15501 

19492 

19590 

19627 

20011 

20014 

20045 

20594 

20756 

20789 

21954 

21979 

21999 

11443 
17460 
19712 
20047 
20953 
22156 


11458 
17479 
19737 
20072 
20975 
22168 


SEQ  0746 


7187    8924    8953    8957    8960 


11422 
17318 


13345 
18516 


2732    2741 


13363 
3120 


13366   15469*  15469 
3258    3629    4058 


15470 
4199 


15676 
4794 


6345 


6349 


6353    6357    6361 


6365 


6432* 


T0TSP3 

TOTST 

TRA 

TRADF 

TRANSU 

TRCFG 

TRKDEL 

TRKDLX 

TRKUND 

TRP3TP 

TRPENB 

TSEEK 

TSTALL 

TSTDRV 

TSTEND 

TSTGO 

TSTSAV 

TSX1 

TSX2 

TSX3 

TSXM1 

TSXM2 

TT 

TTDRV 

TTIDRV 

TTIHLP 

TTINUM 

TTNBRF 

TTYCON 

TTYFIL 

TTYSEL 

TTYSLl 

TTYSL2 

TTYSPD 

TU16 

TU16D 

TXTINH 

TYPBIT 

TYPCOM 

TYPEXT 

TYPHLP 

TYPID 

TYPID1 

TYPID2 

TYPIDC 

TYPIDU 

TYPSEL 

TYPWLK 

U2RDER 

U2RET 

UADRV 


6447 
4205 
658# 
1171# 
1170# 
2599 
2831 
6039 
11891# 
11889 
1499# 
1499# 
22203# 
7401 
9307# 
1999 
104 
105 
21799* 
21800 
21804 
21802 
21808 
56* 
9258 
9055 
9257 
9255* 
1754* 
555* 
1670* 
2001* 
2005* 
2009* 
1671* 
198* 
1078* 
1244* 
20682 
20524 
9347 
9262 
9291 
9285 
9631* 
9o32 
9645* 
9640 
9281 
9274 
12650 
12649* 
7542 


6449 
4388* 


2602 

2854 

6044 

11899 

1 1 897* 


6453* 


SEQ  0747 


2137* 
1999 
2008* 
21810 
21805* 
21806 
21822* 
21827* 

9267* 

9244* 

9399* 

9362 

3742 

1988 


2061 
i065 

596 

9500 
20802 
20706 
9354 
9283 
9309 
9628* 
9662 
9634 
9668 
9667* 
9462* 
9532* 
12661* 
12957 
7556* 


2603 

2884 

11825 


2618 

2912 

11870* 


2638 

2940 

18247 


2654 
2983 


2670 


2686    2702    2718    2803*   2803    2806 


2809 


9245    9279 


2044 
2008 


21809* 


9444* 


2045 
2013 


2123* 
2017 


4289 
2023 


12129 
2040 


14724   14728 
2062    2064 


12143   13509   14710   14717   14722 


9263 

9568 
380S 
2601 


7682 
2805 


11527   11638   11709 


991 

10829 

20839 

20810 

9359* 

9364* 

9331 


9661* 


1019 

10889 

21784 

20899 

9420 

9341 


10891   14632   17036   20473   20482   20498   20515   20539   20622   20668 


20918   21780* 
9435    9455 

9350    9396*   9400 


9547    9580 


7631 


UBLK 

UCHER 

UCMD20 

UCMDEX 

UCMDRD 

UCMDUT 

UCMDX3 

UCMDXA 

UCR01 

UCSEK 

UCWT1 

UDATE 

UN I ADR 

UNIBRC 

UN I BUG 

UNIDRC 

UN I DUG 

UNIHGT 

UNIMRG 

UNIMUG 

UNISGT 

UNLKIT 

UNLOAD 

UNSF 

UOLIP 

UOTRR 

UOUSR 

UPDGNT 

UPDE2A 

UPDE3A 

UPDER1 

UPDER2 

UPDER3 

UPDERR 

URDER 

URDER1 

URDER2 

URETF 

URETFl 

URETF2 

URETOK 

URETRY 

USER 


USERF 

USERON 

USETR 

USETS 

USETW 


105 
13014 
12547 
12518 
12426 
12539# 
12535 
12489 
12792# 
12554# 
12811* 
12595* 
7070 
7425# 
493# 
494# 
495# 
496# 
491  # 
497# 
498# 
492# 
10470 
892# 
96U 
1499# 
1198# 
1499# 
4108# 
17084* 
17098* 
17071* 
17072 
17085 
16768 
12565 
12872 
12925 
12870 
12956* 
12945 
12758 
12935 
105 
406S 
8i98 
11543 
13473 
1499* 
7300* 
12552 
12810 
12593 


12533* 

13033 

12588 

12622* 

12657 

12580* 
12517* 
13258 
12842 
12818 
12849 
7080* 
7425 
12554 
12596 
12556 
12598 

12558 

12600 

12561 

10543* 

13334 

17033 


4108 
17093 
17107 
17080 
1 7082* 
I '095* 
1 7069* 
12569 
12884* 
12928 
12877 
12964 
1 2949* 
12765* 
1 2944* 
1561* 
4428 
9057 
11554 
13479 

7300 
12839* 
12814* 
12846* 


12533 
13075 
12805 

12746 

12958 


12548 
13086 
12822* 

12750 


12589 
13031 
12756* 


12639   12662   12779   12801   12806   12816   12841   12848   12889 


12794   12812   12938   12968   13069 


SEQ  0748 


7433 
12571 
12613 
12573 
12615 

12575 
12617 
12567 
11427 
18458 


7476 


12603   12609   12926   13039   13049 


4117 


12665   12876* 

12934* 
12963* 


1873 

4438 

9114 

12024 

13512 


1908 

4502 

9145 

12049 

13537 


1948 

4666 

9161 

12092 

13554 


1958 

4932 

9456 

12103 

13570 


1967 

5816 

9607 

12176 

14563 


1987 

5844 

9639 

12321 

14596 


2048 

6300 

10095 

12428 

15375 


2150 

6367 

10441 

12487 

16773 


2531 

6402 

11019 

13257 

17236 


2978 

6894 

11105 

13340 

17372 


3689 

6997 

11397 

13347 

19080 


3911 

8058 

11425 

13A60 

19139 


7346   12671 


USNAP 

17373 

17405* 

USNAP1 

17411 

17416* 

17423 

USNAPA 

17407 

1"'412* 

USRASB 

209ft 

51 

USRCMP 

1499-^ 

USRCRF 

1680/ 

USRDR1 

7882;. 

^9:4 

USRDR2 

7883 

7885 

7933* 

USRDR3 

7923 

7928* 

USRDRA 

7887 

7897* 

■* 

USRDR5 

7900 

7905* 

USRDRV 

7003 

7879* 

8207    ,  ^/ 

USRDSK 

7388# 

7388 

7404    7406 

USRHDQ 

7266 

7368* 

USRHPQ 

7258 

7359* 

USRLFF 

1679# 

USRLOK 

7275 

7377* 

USRPFW 

1499* 

USRSLP 

12576 

12618 

12745* 

USRSTR 

7398 

7581* 

UST1A 

7420# 

7853 

USTER1 

7459 

7464 

7599* 

USTEX 

7403 

7544* 

USTEX1 

7549* 

7636 

USTINP 

7392# 

7547 

7867 

USTM1 

723U 

7256 

7320 

USTMIA 

7234# 

7245 

USTM1B 

7236 

7242* 

USTM1C 

7238 

7247* 

USTM1D 

7240 

7254* 

USTMIH 

7260 

7318* 

USTM2 

72620 

7264 

7324    7362 

USTM2H 

7268 

7322* 

USTM3 

7270* 

'273 

7328    7371 

USTM3H 

7277 

7326* 

USTMA 

7200 

7279* 

7282    7333    737S 

USTMAA 

72S^ 

7287* 

USTMAH 

7288 

7330* 

USTM5 

7286 

7290* 

7292    7337 

USTW5H 

7296 

7335* 

USTM6 

7302* 

7307 

7341    7347 

USTM6H 

7311 

7339* 

USTM7 

731 6# 

7353 

USTRT 

7001 

7199* 

USTRT1 

7005 

7252 

7316    7385*   759! 

USTRT3 

7^91 

7508* 

USTRT5 

7509 

7516* 

USTRT6 

7517 

7524* 

USTRT9 

7561 

7569* 

USYSNM 

704 1# 

UT20A 

7048 

7167* 

UT20A1 

7171* 

7179 

UT20A2 

7173 

7181* 

SEQ  0749 


7612    8209    9457 


UT20B 

7386 

761 6# 

UT20B0 

7623# 

7630 

UT20B1 

7629# 

7637 

UT20B5 

761 7# 

7618 

1  UT20B7 

7619 

7633# 

UT20D 

7629 

7642# 

UT20D1 

7650 

7654 

7662* 

UT20DA 

7661 

7666# 

UT20DD 

7688 

7692# 

UT20E1 

76A5 

7648 

7652 

7657 

7775* 

UT20E2 

7659 

7663 

7779* 

UT20E3 

7783# 

UT20E4 

7678 

7681 

7683 

7787* 

UT20E5 

7701 

779U 

UT20E6 

7705 

77950 

UT20E7 

7675 

77990 

UT20E8 

780A# 

UT20E9 

7708 

7808* 

UT20EA 

7711 

781 2# 

UT20EB 

77(,2 

781 6# 

UT20S2 

7770M 

UTINE 

7095M 

UTIME1 

7117 

7138 

7189* 

UTOTP 

6403 

6568# 

UUODIS 

1633# 

UUOERR 

1945 

18855# 

UUOEXT 

1589# 

13989 

14117 

22005 

22011 

UUORTN 

1590* 

UUOSKP 

15874f 

UURTER 

12607 

12611 

12664 

1 2869* 

V30UNS 

1164# 

VADDR1 

8335 

836 1# 

VADDR2 

8333 

R367# 

VALCK 

14014 

•  •367# 

VALCK1 

14396# 

VALCK2 

14390 

V.392 

14413 

14433* 

VALCKE 

14408 

14423* 

VARIAB 

557# 

2254 

2287 

4937 

8417 

VECTOR 

692 1# 

6921 

6925 

8175 

8329 

VELUNS 

1199* 

VERIFY 

3994 

4091  # 

VMFLG 

72OS0 

7208 

7210 

17413 

VONLYF 

3672* 

3672 

3703 

3877 

3940 

VSETUP 

19192 

19201* 

VV 

940# 

15990 

16478 

16486 

WAIT 

•  05 

UAIT2 

5101 

5108* 

5142 

5172 

5178 

UAITA 

89044f 

8910 

UAITEX 

8929 

8934* 

yAITIT 

1 

105 
18462 

5109 
18599 

5257 

8602 

8905 

jyAims 

3031 

3052 

4785 

8690 

8708 

!  yCLKF 

973# 

SEQ  0750 


9058 

8347   12098 


3993    4029    4031    4035    4037    4039    4066 


5211 


5219    5293    5305    5334    5343    5409 


5418 


8916*     16571       16585       17719      17810       18082      18^70      18348      18383 
8898*     18571 


UCLUNS 
UCUNS 
WEALL 
WEALLP 
UEDRV 
WEPID 
ULALL 
ULE 

ULKALL 
UONLY 
UONLYO 
W0NLY1 
UONLY 2 
UONLY 3 
U0RST1 
UPDRV 
URTAEX 
URTAL1 
URTAL2 
URTALC 
URTALE 
URTANY 
URTBA1 
URTBA3 
URTBAT 
URTBEX 
URTBTA 
URTBTB 
URTBTC 
URTCU 
URTEDR 
URTGEN 
URTLDR 
URTLOK 
URTRU 
URTXFR 
USUNS 
UTCHD 
UTCHHD 
UTD 
UTEVM 
UTHD 
XCTADR 
I XCTCMD 
I  XCTRET 
XECLR 
XFRA 
XFRCMD 
XFRSEK 
XNLIM 
XSlIMA 
XSLIW6 
YE5RET 


1173# 
1176# 
9327 
9592 
9582# 
9582 
9558# 
985# 
9324 
2125 
2239# 
22A0# 
22A2 
2238 
U9A9 
95A8# 
9965 
99A9# 
9952# 
9934# 
99A6# 
9947 
6199# 
6224# 
5823 
6201 
6223# 
6225 
6266* 
740# 
9305 
9950 
9302 
924# 
1168# 
14085 
1174# 
9020 
903# 
9044f 
846* 
905# 
12015 
105 
1780S 
o20# 
14068 
14066* 
14070# 
18061 
17956 
17952 
17645 


SEO  0751 


9590# 

9599#   9604 

9599    9607* 
9564    9575 

9556* 

2228*   4411    4537 
2248 
2246 
2248* 
2252* 
14953* 

9988* 

9977 

14124   14304 
10011 

9970*   9976 

6211    6287 

6229 

6195* 

6203    6289* 

6231*   6256 
6277 

9579* 

9971    9982* 

Q546* 

f568 

14121* 


4875   13193   13227 


13195 

12017* 

12041 

18165 

17395 

14084* 


18256 
22102* 
22103* 
1 7660* 


13229 
12017 
12066 
18381 
17804 


22101* 


12018 
13206 
18645* 
18163 


12320 
13249 


13295*  13295 


13301 


13308   13315   13322   13328   13335 


ZD 

1007# 

ZflLL 

8265 

20105 

22171# 

SSWUUO 

1785# 

SSOUTE 

1791# 

S$TAX1 

1803# 

$STAX2 

180A# 

$$TOGG 

1797# 

SSUUO 

1774# 

SACCO 

1612# 

SBEND1 

1582# 

$BEN02 

1583# 

SCHRIN 

1673# 

SCRLF 

1675# 

SDEVCH 

U99# 

SDSKUP 

1552# 

SDVCHI 

U99# 

SDVOF  F 

1669# 

SEMODE 

1550# 

$FFF 

1677# 

SIBUF 

1725# 

SINEXT 

1727# 

SINNM 

^726f^ 

$ITRHL 

1593# 

6938 

SITRX1 

1594# 

1944 

SLPAPE 

64# 
1553# 

22017 

yviAP 

inODVL 

1548# 

SMODVU 

1549# 

SOBUF 

1716# 

SONETS 

1576* 

1862 

1888 

1960 

SOUTEX 

1718# 

SOUTNM 

1717* 

SPAPER 

1499 

SPARER 

1600t 

'942 

SPNAME 

1546# 

SPSHER 

1604# 

1937 

1963 

SPVER 

1547# 

SRSRTX 

1596# 

SRSRTY 

1597# 

ISPAGI 

1616# 

SSTART 

1513# 

SSVAPR 

1614# 

19088 

19168 

19172 

19180 

SSVPAG 

1615# 

SSVPl 

1613# 

19144 

19165 

19171 

19181 

$SVUPC 

1619# 

14042 

14158 

14428 

15521   15629 

SSVUUO 

lo18# 

13972 

14006 

14155 

15520   15630 

ITABF 

1676* 

STTCHR 

U72M 

4263 

7544 

7672 

9255    9359 

STWCNT 

1668# 

2060 

3765 

3832 

6772    8178 

STYPNB 

1674# 

$U«ODE 

1551# 

SUORTX 

1591# 

1946 

SUSRHl 

i 

i 
1 

I 

( 

I 

1595# 

SEO  0752 


17550  17630  19078   19124   19134 

17549  17631  19077   19125   19135   22002   22008 

9399  9565 

8178   11530  11660  11734 


SUUOER 

$VTF 

XACTFL 
XACTUL 
ICOREC 
XCORFL 
XDISCR 
XDSKBT 
XERH11 
ZERHI2 
XERHI3 
XHPQBT 
XLOKBT 
XNSUPT 
..TX1 

..TX2 


.ACTSK 

.ADR 

.ADRDO 

.ALTB 

.AOE 

.ATN 

.BAT 


.BSYCT 

.BUFEN 
.BUFF 


4 
i 

.CADR 

i 

i 

.CALTB 

.CBASE 

\ 

.CDA 

I 

.CHNER 

.CHPAR 

.CHPAT 

.CKSUM 

.C«DLS 

i 

.CNU« 

.CO«P 

1 

.CONI 

.CONO 

.CONSO 
.CONSZ 


1592# 
1678# 
1625# 
1626# 
162A# 
1623# 
1627# 
487# 
1766# 
1767# 
1768# 
A88# 
489# 
486# 
7704# 
7736# 
7704# 
7718 
7741 
470# 
13316 
15212# 
524# 
2647 
395# 
305# 
105 
5969 
6)26 
6271 
106 
18011 
10422 
106 
6275 
10791 
15223# 
14831 

329# 
14840 

1220 
272? 
2711 
292 
330# 
S62M 

106 
20088 

106 
16675 

106 

106 


1633 


SEQ  0753 


7368 


7359 

10525 

7106 

7704 

7736 

7704 

7725# 

7742 

471 

13505 

4047 
2648 
396 
306 
478# 
5973 
6133 
7567 
31 9# 
18160 
221 90# 
i989 
7963 
1 4669 


10547 
10105 
7707# 
7739# 
7705 
7725 


7707 
7739 
77Q7M 
7726 


771 0# 
774  U 
7707 
7733# 


7710 
7741 
7708 
7733 


771 3#       7713         7717*       7717 


7725*      7725         7733#       7733 


771 0# 
7734 


5099        5140         5177        5217        5255 


7710 
7736* 

5303 


7711 
7736 

5341 


7713* 
7737 

5416 


7713 
7739* 


7714 
7739 


7717* 
7740 


7717 
7741* 


6332        6642       12795       13302 


11046 
4686 


479 
5996 
6147 
7969 

320 


3034 

9782 

14698 


11126 
4687 


3942 
6001 
6172 
7970 
11391 


3055 
10049 
14781 


11168 
14830 


3943 
6007 
6174 
8818 
13205 


3092 
10419 
16544 


14885* 

y.o 

8342 

8353 

8747 

1 5040* 

323 

6382 

I68C4 

2728 

3207 

3208 

3247 

2712 

14835 

15051* 

18972* 

331 

8356 

363 

6568 

7692 

7905 

455 

6364 

6614 

10895 

3069 

4801 

8222 

8249 

4736 

4854 

5461 

8084 

16789 

17398 

17805 

18164 

1062 

4733 

4738 

4851 

47^9 

4722 

4730 

4848 

11268 
14879* 


3944 
6105 
6175 
8819 
13248 


3097 
10584 
16548 


13202 
14836 

9667 

8319 

8104 

19562 

8710 

4856 


3945 
6106 
6181 


5855 
6107 
6215 


5861 
6108 
6223 


5865 
6110 
6228 


5873 
6112 
6235 


5878 
6114 
6239 


5963 
6116 
6252 


5966 
6118 
6268 


13368       15668       15670       15672       16091       16208       16278       16292 


3099 
10600 
16553 


3101 
10637 
22189* 


3104 
10646 


4109 
10656 


4703 
10668 


6253 
10682 


6254 

10712 


6274 
10730 


15071* 

11136 
13397 

8244 

19687 

8909 

8086 


16131       16246       16259       16651       19560 


8868 
19957* 
19978 

8101 


12327 
20145 
1 9980* 
8106 


14618 
22541 


16257 
22557 


16265 
22585 


19685       19972* 
16273       16655 


8698       12435       12440       12464       19976* 


L 


l»4IHM«|WMM««MMiip«Mi«WNM)««^  «Jfcfc#tl 


.COUNT 
.CRLF 

.CSBEN 
.CYLIN 


.DA 

.DACYL 

.DAS 

.DASEC 

.DASH 

.DATRK 

.DBPE 

.DCCA 

.DCK 

.DCR 

.DDCA 

.DDT 

.DDTS 

.DEC1 

.DEC2 

.DELPT 

.DERI 

.DER2 

.DER3 

.DFDA1 

.DFDAT 

.DFNDX 

.DFNXI 

.DFPSZ 

.DFPT1 

.DFPTY 

.DFSIZ 

.DISEC 

.DLA 

.DWR 

.DNA«F 

.DOFF 
.DPCHI 

.DPCH3 
.DPCHA 

.DPCH5 
.DPCHK 

f.DRE 

\DS8EN 


2679 
5382 
20686 
331  # 
106 
2904 
3287 
3586 
5207 
6028 
11655 
14253 
14839 
1 5009# 
343# 
1 4995# 
20884 
1 5005# 
325# 
350# 
389# 
339# 
349# 
345# 
344# 
353# 
354# 
477# 
11886 
341# 
351# 
352# 
15049 
15049 
15053# 
1 5073# 
1 5069# 
15069 
15069 
1 504 9# 
18043 
346# 
342# 
363# 
14640 

i48# 
15372 
15388# 
15336 
15389 
15348 
32  7# 
479# 


2680 

5385 

20815 

332 

2356 

2906 

3301 

362! 

5212 

6246 

11692 

14324 

14987# 

15009 

344 

14995 

21872* 

15005 

326 

351 

390 

340 

350 

346 

345 

354 

356 

478 

11924 

342 

352 

353 

15102* 

i:058 

15053 

15073 

15076 

15116* 

15078 

15056 

18078* 

347 

343 

364 

3^w 
15379* 

15396* 
15394 
15363* 
329 


14834 

19586 

20849 

8305 

2414 

2934 

3315 

3964 

5248 

7955 

11787 

14399 

15042 

15011 

15004 

15008 
6371 

6493 

480 

17976 

8519 
17979 
18681 

7572 

3907 
11952 

8717 

8552 

1 5087* 

15055 

15075 


15109* 


2547 


15400* 

15397 

6379 


14914* 

19704 

21903* 

2512 
2950 
3361 
3969 
5250 
9811 
11808 
15032 

15016 

15020 

15018 
17017 

7564 

7569 

18542 

18545 

18704 

17314 

3909 


19709   20475   20480   20483   20505   20529   20543   20620   20666   20669    SEQ  0754 


15057 
15077 


7494 


2515 
2954 
3416 
3984 
5261 
9962 
11838 
15197 

15033 

15031 

15029 


7565 

7570 

18558 

18548 

18712 

18699 

6077 


18038   18425 


15059 
15079 


7901 


2822 

2966 

3417 

4014 

5289 

10034 

11843 

15361 

15167 

15157 

15162 


7566 
7571 


18553 

18750 

18790 

6087 


2824 

2969 

3432 

5088 

5298 

10588 

11855 

15369 

15169 

15161 

15166 


8493 
8497 


18786 
11579 


2845 

2970 

3435 

5092 

5330 

10624 

11875 

17558 

15172 

15176 

15174 


2873 

2972 

3475 

5105 

5336 

10664 

11877 

17622 

15198 

15200 

15196 


2875 

3020 

3494 

5129 

5405 

11057 

11941 

17677 


2877 

3023 

3518 

5134 

5411 

11120 

11943 

22184* 


2893 
3044 
3528 
5145 
5463 
11165 
14038 


2894 

2896 

3110 

3248 

];534 

3551 

5171 

5179 

5695 

5725 

11218 

11224 

14168 

14213 

8494    8495 
15717   15858 


18823 

11583   11598 


17073 
15883 


16456   17313 


11600   11603   11605   11611   11612 


8832    9618    9651   11135   Mf24   12544   12585   1280?   U637 


8496   12522   ^^410   1^415 


.DSKAD 

381# 

382 

121S7 

12214 

12229 

14487 

14524 

17282   1/301   18532 

.DSKIN 

15503# 

155^4 

15637 

22611 

.DSN 

34  7# 

343 

5846 

8586 

9118 

15188 

.DSR 

3A0# 

341 

8558 

15702 

15865 

16304 

16396 

16457 

.DTE 

392# 

393 

.DUAL 

53  i# 

8536 

8587 

9130 

.ECH 

398# 

399 

.EQUAL 

21881 . 

.ER20 

41  i# 

412 

17086 

.ER21 

41 2# 

413 

.ER210 

421# 

422 

.ER211 

422# 

423 

.ER212 

423* 

424 

.ER213 

424# 

425 

.ER21A 

425# 

426 

.ER215 

426# 

433 

.ER22 

41 3# 

414 

.ER23 

414# 

415 

.ER2A 

41 5# 

416 

.ER25 

416# 

417 

.ER26 

417* 

418 

.ER27 

418* 

419 

.ER23 

419* 

420 

.ER29 

420* 

421 

.ER30 

433* 

434 

17100 

.ER31 

43^* 

435 

.ER310 

443* 

444 

.ER311 

444* 

445 

.ER312 

445* 

446 

.ER313 

446* 

447 

.ER3U 

447* 

448 

.ER315 

448* 

454 

.ER32 

435* 

436 

.ER33 

436* 

437 

.ER3A 

437* 

438 

.ER35 

438* 

439 

.ER36 

439* 

440 

.ER37 

440* 

441 

.ER38 

441* 

442 

.ER39 

442* 

443 

.F11 

527* 

3015 

3113 

3924 

3926 

3930 

3932 

6145    7501    8579 

•  I    WW 

10692 
18691 

10803 

10916 

11051 

12398 

14030 

14798 

14948   14997   17990 

.FER 

400* 

401 

.FHSLF 

512* 

12694 

^2722 

.FLONE 

2o12 

2613 

14833 

14903* 

.FLZRO 

2627 

2r8 

14832 

14891* 

.FWT 

532* 

3897 

3928 

4080 

.HCE 

397* 

398 

.HCRC 

396* 

397 

.HDDAT 

15149 

15203* 

.HDUD 

''5129 

15136 

15140 

15142* 

.HED10 

3697 

3914 

14841 

15125* 

SEQ  0755 


8850    8852    9140    9142 
17999   18519   18684   18686 


"*'T 


.HEDII 

.HEDA 

.HLDQ 

.HPOS 

.HRD 

.HURT 

.lAE 

.ILF 

.ILR 

.INUSE 

.IVAR 

.JB41 

.JBAPR 

.JBCNI 

.JBDDT 

.JBFF 

.JBINT 

.JBOPC 

.JBREL 

.JBREN 

.JBSA 

.JBSYh 

.JBTPC 

.JBUSY 

.JBUUO 

.JBVER 

.JEX 

.MAXCY 


.nBCER 

.MBCN 

.HINCY 

.HIMUS 

.«SRCH 

.MSRCT 

.«SRP5 
.WSRP6 
.MSRST 
.MSR'JN 
.«SRUS 
.KTCYL 
.HXBLK 
.HXSEC 

.NCYL 
.NSEC 
.NSIZ 
.NSUR 
.NTIM 
.NW6AS 


3693 
15130 
383# 
12302 
459# 
A55# 
A56# 
394# 
AOA# 
A03# 
372# 
306# 
1A99# 
1A99# 
1A99# 
1A99# 
1A99# 
1838# 
1A99# 
1A99# 
1A99# 
1A99# 
1A99# 
1A99# 
1A99# 
1A99# 
1A99# 
1A89A# 
IOC 
3791 
7757 
323# 
321# 
366# 
21871# 
7670 
7697 
"■^31 
v3A 
7737 
7702 
768A 
7698 
37U 
106 
i07 
10931 
2923 
15288 
15320 
15  30  A 
15A09 
15269 


1A8A2 
15138# 
389 
1230A 
460 
A56 
A57 
395 
All 
AOA 
37A 
307 


1A905 

106 

3870 

85A6 

32A 

322 

367 

21930 


15132# 

7931 
12306 
6360 
63AA 
6352 


12250 
83A5 


7730 


372 
370# 
369# 
10959 
2929 
1529A 
15326 
15310 
15A15 
15273# 


367# 
A130 
8785 

2536 
116A1 


:*5A1 
371 
370 
10961 
15350 
22238# 
222A1# 
22239* 


8057 
136A0 
6610 
659A 
6602 


12257 
8879 


8500 
13767 
17753 
18059 
18252 


12308 
8886 


1223A 
13770 
17763 
18255 


12236 
1AA96 
18633 


122A2   122A5   122A6 
1AA98   1A501   1A502 


122A7   122A8   122A9   12299 
1A503   1A50A   iA505 


SEQ  0756 


12310   13733   13737   137A9   13772   1AA81   1A506   1A509   172A7 


1913 

1919   10A66   10A81 


10561   11A33 


368 

A1A3 

10817 

6A05 
11671 


235A 

5086 

11058 

83A9 


2A91 

5093 

116A0 


2502 

5127 

1167A 


2823 

287A 

2905 

2932 

2952 

37A3 

3777 

5165 

5203 

5335 

5372 

5375 

7539 

7751 

118A5 

15010 

15168 

15359 

96AA   11110   12097   1A61A   17666   201A3 


12780 

A13A 

2373 

10965 

15356 


A1A7 

39A7 

10969 

222A0# 


7537    7759    8^87   11922   1AA12   1*^385 
A107    A127    A1A0    4769    6025    6207 
11929   15158   15177 


7503 


7761    8795 


r 


.OF  SET 
.0FST1 
.ONES 
.ONLN 


.OPl 
.OPR 

.OPT 
.OVR 
.PATN 


.PBAR 

.PCLP 

.PCMO 

.PE 

.PERIO 

.PIPCT 

.PKID 
.PKSN 
.POSER 

.PRIM 


.PRIOU 
.PSCN 
.PTCR 
.PUR 

.QUEST 

.RAE 

.RAN 

.RAND 

.RANLX 

.RCYL 

.RCYL2 

.RDBUF 

.RECAL 

.RETRY 

.RETWD 


.RHCON 

.R«R 

.RPOA 

.RP05 


107 
108 
14827 
525# 
9559 
16337 
391  # 
523# 
9A31 
461  # 
324# 
107 
10304 
14302 
307# 
309# 
31 0# 
401  # 
21701 
107 
16293 
364# 
356# 
535# 
17848 
107 
12264 
16425 
17786 
18510 
51 0# 
311# 
308# 
5264f 
16363 
21831 

326# 
14930* 
2663 
14929 
15318 
15349* 
10638# 
47U 
17546# 
518# 
17971 
18420 
304# 
402# 
540# 
9207 
533# 


1954 

1955 

14828 

2522 

11044 

16472 

392 

3082 

9449 

467 

325 

3510 

10311 

14749 

308 

310 

311 

402 

21875# 

320* 

16427 

365 

362 

2524 

18071 

382# 
12981 
16446 
17738 

7182 

312 

309 

<082 

16391 

218784' 

327 

14930 

2664 

14934* 

15347* 

15360 

10638 

477 

22614 

319 

18033 

18431 

305 

403 

6506 

9219 

7736 


9061 

9062 

14867* 

3082 

11266 

16489 

5563 
9472 

16700 
3567 
10586 
14817 
8060 
12191 
12188 

21927 

321 

16430 

5848 

8799 

1 1 090 

18185 

383 

13632 

16541 

17812 

12692 
12180 
12190 
7733 
16489 

6375 

14838 


10655 
5064 

8065 

18055 

18433 

332 

6510 
9225 
7741 


9744 
9746 

7483 

12171 
17061 

6788 
11264 


3592 
10605 
22188* 

8061 
13167 
12201 


11390 

16460 

6579 

9148 

12476 

18289 

389 

13754 

16546 

18137 

12721 

12186 

13196 

7736 


8326 
18056 
18475 

8302 

7526 
9633 
7916 


13902 
13900 

7733 
13529 
17220 

7733 
12171 


3593 
10648 

8062 
13169 
12455 


12040 

16462 

7497 

15780 
18392 
12109 
13756 
172^6 
18U0 


12196 

13198 

7739 


14092 
14090 

7736 
15780 
17644 

7736 
15797 


6245 
10666 

12189 
17349 
12501 


12078 

16<»63 

7925 

163U 
18481 
12112 
14493 
17228 
18142 


17259 

13230 

8507 


14289 
14287 

7739 
15797 
18180 

7739 
16016 


6767 
14010 

12195 

13402 


12080 

16466 

8829 


12146 
14499 
17235 
18144 


19587   19699 
14927* 


17580 

18108 

18498 

8320 

7529 

15742 

8527 


17699 
18110 


7733 

15815 

8533 


17709 
18122 


7741 

15823 

8626 


22231* 
22232* 

8567 
15991 
18390 

8579 
16168 


6776 
14032 

13214 

17238 


13369 

18012 

9612 


12149 
14500 
17245 
18146 


6336    6646   13309   17728   18608 


17757 
18124 


7919 

15838 

9045 


9120 
15998 
18481 

9344 
16203 


9787 
14105 

13216 

17291 


15671 

18506 

9615 


16434   17223   17278 


12165 
14507 
17246 
18172 


13232   17258   18505 
15780   15959   15992 


M777 
18200 


8523 

15846 

9105 


9132 
16016 


9353 
16337 


9864 
14121 


15954 

9655 

17323 

12167 
14515 
17668 
18368 


17833 
18282 


8533 

16883 

9109 


9184 
16168 


9355 
17061 


9411 
16203 


9413 
17131 


9447 
16314 


9415 
17835 


17256   17257   18503   18504 


15956 

1A644 

17586 

12210 
14517 
17671 
18370 


16089 

14647 

]76S; 

12223 
14519 
17780 
18371 


12224 
16340 
17782 
18373 


SEQ  0757 


9549 
16316 


9428 
18481 


9982    9984   10012   10018 
14150   14162   14264   14297 


16095   16209 


17697   17839 


12253 
16?43 
17784 
18384 


16009   16016   16203   16312   16337 


17844   17891   17896   17935 
18317   18329   18413   18^18 


8626    9045 

16967   20923 

9207    9221 


9105 


9 1 07 


9225    9633 


.RP06 


.RRBAS 

.RSOA 

.RSEC 

.RSEC2 

.RSI2 

.RSIZA 

.RSIZL 

•  RSUR 

.RSUR2 

.RTIM 

.SBAR 

.SCLP 

.SCHD 

.SCN1 

.SCN2 

.SCNAD 

.SDCE 
.SECT 


.SELAD 

.SIZAC 
.SIZE 


.SPACE 

.SPOS 

.SRD 

.SSCN 

.STCR 

.SURF 


. SVBAS 
.SVDRV 
.SyRT 
.SWRTL 

.SYSVE 
.TAB 


157A6 
53A# 
8531 
15901 
18308 
1526A 

539# 
15?74 
15287# 
15302 
15330# 
15331 
15286 
15303* 
15365 
31 2# 
3U# 
31 5# 
378# 
379# 
107 
12281 
374# 
107 
1,772 
10628 
11221 
17683 
107 
11101 
15332* 
107 
•3707 
10A20 
12917 
14790 
9228 
460# 
457# 
31 6# 
313* 
108 
3814 
7956 
11220 
15028 
15263# 
12034 
458# 
530* 
11094 
511* 
3881 


15817 
2348 
8533 

14089 

15268* 
8659 
15285* 
15298 
15317* 

15336* 

15301* 

15314 

15402 

313 

315 

316 

379 

380 

377* 

12312 

377 

2375 

4775 

10662 

11932 

22186* 

365* 

14040 

15332 

2329 

6033 

I J585 

14050 

15345 

20695 

461 

458 

318 

314 

2365 

3962 

9808 

11728 

15195 

22249* 

459 

2528 

12418 
7168 
3888 


15823 
2350 
8544 

14091 


9154 
15398 


15404 

1 5406* 

12194 

12293 

12290 

12226 

12227 

378 

13636 

10699 

2416 

4777 

11049 

14037 

366 
14652 

2404 

6243 

10598 

14106 

15363 

21823 

6356 

6340 

8063 

12199 

2415 

3971 

9959 

11766 

15315 

22597 
6348 
5715 


15840 
3345 
8626 

14286 


15740 


12197 

13171 

12457 

14521 

14522 

383 

13752 

10706 

3286 

5263 

11053 

14215 

3045 
14694 

2986 

7954 

10645 

14123 

15380 

21832 

6606 

6590 

12182 

12292 

3279 

3976 

10031 

11806 

15366 


6598 
7487 


4318'   4325 


15846 
3368 
9045 

14288 


12198 
13172 
12503 


389 
13759 
10825 
3477 
5697 
11074 
14259 

3288 
16543 

3009 

8703 

10667 

14216 

16545 

21865* 

17324 

17331 

12200 

13200 

3282 

3981 

10589 

11809 

17559 


17329 
7531 


5603 


16924 
3399 
9105 

15750 


12291 
13404 


7928 
14518 
10845 
3490 
5723 
11076 
14322 

4776 
18557 

3028 

8755 

10684 

14269 

16550 

17764 
17958 
12285 
13201 
3284 
3987 
10626 
11852 
17621 


17962 
7733 


16990 
5296 
9111 

15819 


13218 
17240 


7929 
14520 
10849 
3516 
6031 
11079 
14398 

4821 
18559 

3496 

9783 

10685 

14298 

16552 

17850 
18254 
12288 
13234 
3363 
4017 
10663 
11859 
17680 


18251 
7736 


5606    5609 


6082    7528    7529    7739 

9207    9223    9225    9633 

15823   15842   15846   16924 


7930 
17284 
10894 
3530 
6249 
11181 
15030 


7741    7749    7913 

9700   11576   13899 

16990   17919   17955 


SEQ  0758 


13219   17267   17268 


3553 

9953 

10711 

14303 

17557 

17945 

17270 
13235 
3476 
4773 
11062 
11879 
22185* 


7739 
5613 


8054 
17300 
10898 
3547 
6267 
11194 
15199 


4860    8689 


3588 

9975 

10732 

14321 

17623 


17269 

3492 

5262 

11067 

11945 


8579 
5891 


8055 
18008 

3582 

7958 

11198 

15299 


3951 
10013 
10735 
14388 
22187* 


3517 

5696 

11121 

14035 


9128 
5897 


8056 
18507 

3621 

9810 

11199 

15368 


12160 
18508 

4710 

9961 

11201 

15396 


^2222 
18509 

4768 
10033 
11205 
17560 


12225 
18531 

4771 
10590 
11209 
17620 


8732    8742    8753   10618   11088 


3992 
10025 
10736 
14402 


4699 
10055 
11086 
14674 


4783 
10309 
11916 
14701 


4825 
10372 
12914 
14783 


3529 

5724 

11166 

14214 


3549 

6030 

11212 

14256 


3584 

6041 
11214 
14323 


3622 

6247 

11217 

14396 


9550 
5902 


9561 
590? 


9584 
5912 


9601 
5971 


.TKSIZ 

.TU16 

.UNKN 

.UNSF 

.VIRG 

.WAIT 

.UC 

.WCE 

.WCF 

.WCP 

.WCSIZ 

.UDRD 

.UDWRT 

.UDXFR 

.ULE 

.WORST 

.WRTL 

.XCTQ 

.XFRER 

.ZEROS 


6536 
368# 
538# 
537# 
390# 
528# 
108 
U94A 
U944 

399# 
K954# 
U94A# 
468# 
A69# 
A67* 
393# 
2695 
529* 
380# 
536# 
17839 
14829 


6550 

369 

8664 

7530 

391 

3927 

5256 

14959 

14975* 

400 

14954 

14957 

469 

470 

468 

394 

2696 

2528 

381 

2524 

17861 

14873# 


10872 
3946 
9156 
8639 

7490 
15418* 
14968* 


20874 
4129 

15738 
9158 

8579 
15418 


4843 
4827 
4826 

3192 

5715 

12155 

11090 

17969 


6323 
6327 
4842 

3193 

7485 

12216 

12476 

18071 


21868* 
4142 

15737 
8771 


14956   14958   14960 


6622 
6626 
6319 

3213 

7726 

12228 

15780 

18190 


4782 

15754 

8853 


6634 
6638 
6618 

3215 

8569 

14523 

15905 

18289 


6032 

15821 

9135 


7506 
15823 


7753    8791 
15844   15846 


11068   11080 


SEQ  0^59 


8757 

12486 

6630 

3239 

9123 

17290 

16143 

18436 


12484 

1 349'; 

8756 

3240 
9125 

16316 
18481 


13494 

12482 

3243 
11094 


3244 
12418 


14837   14946*  15203 


M222   17278   17325   17588   17651   17690 


APRID 
BOX 


CENTER 

CFLUSH 

CHKSUM 

CINVAL 

CLOKOP 

CLRBFI 

CORE 

CURTBI 

DEVTYP 

DISK. 

DISMSZ 

DPRELS 

DROPDV 

DSKCHR 

DSKOPZ 

END'JUO 

EOPUUO 

ERJMP 

ERLOOP 

ERLP1 

ERLP2 

ERRHLT 

ERROR 

ERR0R1 

ERSTRX 

ERUUO 

EXIT 

FATAL 

FATL 

FRD36 

FRD8 

FREAD 

FSELEC 

GET 


296* 
116# 
5653 

17482 

201 64 

22258 

283* 

1417# 

292* 

1416# 

1411* 

11544 

10557 
1418* 

18913 
7369 

12656 
284* 
1378* 
7410 

12676 
1424* 
1425* 
7173 
1469* 
1470* 
1471* 
1312* 

1521S 
1478* 
1489* 

12696 
1468* 

18874 
1311* 
164* 
1453* 
145  >* 
1452* 
1451* 
1295* 
3411 
3540 
3584 
3619 
5344 
6422 
8023 
8842 
9478 
9917 

10153 

10325 


2087 

2159 

5743 

18950 

20307 


1969 

4993 
11555 


1581 
1583 
7701 


1880 
15226 


12724 

\i920 
4381 
4370 


1850 
3483 
3542 
3586 
3621 
5592 
6423 
8024 
8843 
9519 
9918 
10209 
10326 


2206 
10218 
19048 
20408 


6994 
4996 


2259 
10939 
19428 
20434 


18856 
5029 


2305 
10976 
19453 
20573 


19040 
5031 


2563 
11331 
19590 
20756 


19131 
5506 


2745 
11443 
19712 
20953 


3134 
11966 
19762 
21501 


3441 
13931 
19816 
21743 


3633 
14440 
19869 
21836 


4152 
14575 
19920 
21909 


4581 
15231 
19991 
21935 


4638 
15483 
20014 
21979 


4902 
17460 
20047 
22156 


SEQ  0760 


5509    553:    5535    5537    6947    8954    8969   11420 


4836    4859 


4964    8745   12071 


9402 
12677 


2993 
17116 


4707 
18796 


8452 
18804 


10174 
19045 


10246   10408   10427   10513   10787   10793   13151   14671 


8129 
8118 


2084 
3485 
3544 
3588 
3622 
5593 
6545 
8025 
8869 
9623 
9919 
10210 
10327 


8192 

9204 

8181 

9193 

2824 

2877 

3487 

3489 

3546 

3548 

!;590 

3592 

3623 

3624 

5649 

5723 

6557 

6558 

8026 

8149 

8890 

8911 

9693 

9694 

9936 

9943 

10211 

10212 

10382 

10432 

12834 
12823 


12863 
12852 


16795 
18994 


19005 
19012 


19023 
19247 


19106   19156   19258   20432 


2896 

3491 

3550 

3601 

4084 

5724 

6559 

8153 

8912 

9695 

10006 

10213 

10433 


2906 

3493 

3552 

3603 

4135 

5725 

6560 

8290 

8913 

9769 

10009 

10268 

10434 


2930 

3495 

3554 

3605 

4148 

5726 

6561 

8358 

8934 

9819 

10058 

10269 

10435 


2966 

3497 

3570 

3607 

4335 

6416 

6693 

8466 

8935 

9826 

10059 

10270 

10436 


2972 

3513 

3574 

3609 

4383 

6417 

6694 

8467 

8936 

9851 

10G60 

10271 

10437 


3021 

3516 

3576 

3611 

4869 

6418 

6695 

8468 

8937 

9868 

10080 

10272 

10438 


3303 

3517 

3578 

3613 

5475 

6419 

7946 

8636 

8938 

9883 

1014; 

10291 

10537 


3317 

3518 

3580 

3615 

5542 

6420 

8011 

8839 

8939 

9904 

10145 

10323 

10538 


3410 

3519 

3582 

3617 

5543 

6421 

8022 

8841 

9477 

9905 

10146 

10324 

10550 


i 


GETABZ 
GETMUD 

GETPPN 
GET TAB 
GO 


10638 

10673 

10935 

11320 

12057 

12922 

13517 

13687 

13917 

1A321 

14435 

14735 

15080 

15420 

15632 

16862 

17207 

17620 

17921 

18730 

19126 

19544 

19865 

20237 

20398 

20618 

20854 

21684 

21817 

22301 

22389 

22573 

7172 

681 7# 

12599 

7201 

7058 

290 

1973 

2278 

2480 

2700 

2882 

3002 

3053 

3i05 

3236 

3887 

4049 

4238 

4395 

4421 

4451 


10656 
10674 
10970 
11891 
12058 
12923 
13518 
13688 
13988 
14322 
14436 
14736 
15180 
15421 
15633 
16863 
17208 
17621 
17931 
18731 
19127 
19545 
19866 
20278 
20399 
20652 
20900 
21685 
21885 
22302 
22390 
22601 

/427 
12602 

7107 
291 
1974 
2289 
2481 
2707 
2889 
3003 
3062 
3106 
3242 
3888 
4096 
4241 
4398 
4422 
4453 


10661 
10717 
10971 
11892 
12059 
13173 
13539 
13689 
14013 
14323 
14544 
14754 
15181 
15422 
15634 
16918 
17386 
17622 
17933 
18732 
19128 
19546 
19917 
20289 
20400 
20670 
20919 
21694 
21897 
22313 
22401 
22602 

7430 
12608 

7114 
292 
1975 
2292 
2591 
2716 
29C1 
3004 
3066 
3115 
3246 
3893 
4103 
4317 
4400 
4425 
4454 


10662 
10718 
11256 
11893 
12060 
13174 
13540 
13708 
14076 
14324 
14545 
14766 
15190 
15423 
16061 
16921 
17387 
17623 
17957 
18758 
19133 
19547 
19966 
20297 
20401 
20671 
21521 
21702 
21898 
22314 
22402 


7436 
12612 

7142 
294 
1991 
2422 
2608 
2723 
2910 
3011 
3067 
3117 
3250 
3918 
4104 
4318 
4401 
4426 
4457 


10663 
10719 
11276 
11894 
''2061 
13175 
13541 
13724 
14109 
14325 
14546 
14802 
15191 
15424 
16066 
16954 
17388 
17624 
18018 
18867 
19134 
19548 
19969 
20298 
20402 
20672 
21542 
21711 
21906 
22325 
22412 


12554 
12614 

7206 
295 
2018 
2433 
2616 
2795 
2911 
3017 
3069 
3173 
3459 
3931 
4105 
4321 
4404 
4431 
4458 


10664 

10665 

10666 

10667 

10668 

10669 

10670 

10671 

10672 

10877 

10878 

10879 

10880 

10881 

10882 

10932 

10933 

10934     5 

11277 

11293 

11294 

11295 

11306 

11307 

11308 

11318 

11319 

11959 

11960 

11961 

11962 

12052 

12053 

12054 

12055 

12056 

12123 

12700 

12701 

12702 

12736 

12737 

12738 

12739 

12782 

13176 

13177 

13178 

13471 

13472 

13481 

13514 

13515 

13516 

13542 

13556 

13557 

13558 

13559 

13572 

13616 

13617 

13618 

13775 

13776 

13823 

13824 

13825 

13826 

13914 

13915 

13916 

14110 

14111 

14112 

14113 

14114 

14163 

14164 

14165 

14183 

14326 

14327 

14328 

14329 

14330 

14331 

14332 

14353 

14434 

14547 

14548 

14569 

14608 

14609 

14619 

14620 

14684 

14685 

14803 

14804 

14805 

14806 

14821 

14822 

14824 

14961 

15060 

15204 

15205 

15283 

15295 

15311 

15327 

15357 

15377 

15416 

15474 

15475 

15476 

15626 

15627 

15628 

15629 

15630 

15631 

16102 

16281 

16282 

16552 

16553 

16624 

16625 

16780 

16781 

16987 

17010 

17146 

17147 

17148 

17177 

17178 

17179 

17206 

17389 

17455 

17456 

17614 

17615 

17616 

17617 

17618 

17619 

17625 

17626 

17627 

17628 

17629 

17630 

17631 

17632 

17633 

18020 

18471 

18473 

18494 

18496 

18589 

18634 

18728 

18729 

18869 

18877 

18919 

18926 

18938 

18977 

19123 

19124 

19125 

19135 

19136 

19137 

19138 

19173 

19174 

19175 

19538 

19543 

19666 

19668 

19669 

19670 

19671 

19672 

19758 

19759 

19813 

19986 

20091 

20111 

20112 

20147 

20148 

20149 

20150 

20151 

20299 

20300 

20301 

20302 

20303 

20304 

20332 

20358 

20364 

20403 

20404 

20405 

20467 

20484 

20485 

20486 

20487 

20528 

20673 

20674 

20726 

20816 

20817 

20850 

20851 

20852 

20853 

21549 

21555 

21574 

21581 

21588 

21597 

21613 

21614 

21659 

IMll 

21729 

21736 

21811 

21812 

21813 

21814 

21815 

21816 

21928 

21973 

21974 

21975 

21976 

22004 

22010 

22289 

22290 

22326 

22337 

22338 

22349 

22350 

22365 

22366 

22177 

22378 

22413 

22424 

22425 

22436 

22437 

22448 

22449 

22502 

22503 

12555 

12557 

12560 

12566 

12570 

12572 

12574 

12595 

12597 

12616 

12926 

13038 

13048 

17416 

7213 

7218 

7226 

10106 

17406 

1292 

1867 

1879 

1917 

1953 

1957 

1959 

1970 

1972 

2045 

2046 

2047 

2182 

2191 

2230 

2238 

2240 

2255 

2440 

2441 

2450 

2456 

2457 

2462 

2467 

2468 

2475 

2623 

2633 

2643 

2652 

2659 

2668 

2675 

2684 

2691 

2815 

2828 

2829 

2838 

2851 

2852 

2861 

2869 

2881 

2918 

2937 

2938 

2947 

2976 

2977 

2987 

2995 

2998 

3024 

3029 

3031 

3032 

3039 

3040 

3047 

3050 

3052 

3070 

3071 

3073 

3074 

3075 

3079 

3087 

3090 

3094 

3184 

3188 

3199 

3203 

3211 

3214 

3216 

3227 

3231 

3470 

3523 

3598 

3599 

3655 

3719 

3784 

3880 

3881 

3933 

3936 

4007 

4008 

4009 

4020 

4021 

4022 

4023 

4112 

4133 

4146 

4223 

4224 

4225 

4228 

4236 

4237 

4323 

4324 

4325 

4333 

4334 

4356 

4359 

4388 

4393 

4405 

4407 

4408 

4411 

4412 

4414 

4415 

4418 

4419 

4432 

4435 

4436 

4440 

4441 

4444 

4446 

4447 

4450 

4460 

4462 

4470 

4474 

4476 

4479 

4481 

4482 

4485 

SEQ  0761 


4486 

4488 

4489 

4492 

4493 

4495 

4496 

4499 

4500 

4505 

4506 

4513 

4516 

4517 

4519 

4520 

4523 

4524 

4526 

4527 

4530 

4531 

4538 

4540 

4541 

4544 

4545 

4547 

4548 

4551 

4552 

4554 

4557 

4573 

4576 

4615 

4618 

4619 

4620 

4623 

4624 

4625 

4628 

4629 

4688 

4689 

4090 

4700 

4702 

4709 

4712 

4719 

4722 

4730 

4733 

4755 

4765 

4785 

4786 

4787 

4791 

4798 

4799 

4801 

4802 

4803 

4808 

4810 

4811 

4819 

4824 

4838 

4845 

4848 

4851 

4854 

4856 

4888 

4897 

4925 

4952 

4961 

4962 

4963 

4980 

4981 

4983 

4998 

5047 

5056 

5057 

5058 

5063 

5065 

5067 

5079 

5085 

5089 

5090 

5104 

5109 

5121 

5126 

5131 

5132 

5139 

5141 

5142 

5146 

5158 

5172 

5176 

5178 

5181 

5182 

5183 

5185 

5197 

5205 

5209 

5210 

5219 

5221 

5233 

5242 

5243 

5244 

5254 

5257 

5258 

5260 

5279 

5293 

IW 

5304 

5305 

5307 

5320 

5328 

5332 

5333 

5334 

5340 

5366 

5382 

5384 

5385 

5394 

5402 

5407 

5408 

5409 

5415 

5417 

5461 

5464 

5467 

5476 

5489 

5515 

5555 

5571 

5574 

5575 

5579 

5605 

5606 

5608 

5609 

5612 

5613 

5619 

5646 

5680 

5690 

5779 

5823 

5836 

5842 

5847 

5858 

5869 

5890 

5891 

5893 

5897 

5902 

5932 

5971 

5991 

6012 

6016 

6037 

6039 

6042 

6044 

6048 

6069 

6161 

6199 

6217 

6232 

6250 

6251 

6263 

6269 

6270 

6271 

6272 

6289 

6290 

6301 

6302 

6314 

6320 

6324 

6328 

6333 

6337 

6341 

6357 

6?61 

6365 

6372 

6376 

6380 

6383 

6407 

6408 

6450 

645]; 

6550 

6578 

6591 

6595 

6599 

6603 

6607 

6611 

6615 

6619 

6623 

^§12 

6643 

6647 

6691 

6706 

6730 

6941 

6968 

6974 

7001 

7003 

7083 

7100 

7104 

7378 

7405 

7467 

7538 

7542 

7549 

7551 

7573 

7669 

7758 

7830 

7839 

7846 

7857 

7871 

7959 

7972 

)010 

8015 

8086 

8087 

8101 

8104 

8106 

8107 

8207 

)208 

8209 

J219 

8221 

8248 

8249 

8270 

8277 

8279 

8282 

8295 

J314 

8319 

J327 

8348 

8437 

8463 

8504 

8513 

8549 

8555 

8575 

)583 

8588 

)589 

8593 

8603 

§605 

8613 

8618 

8677 

8681 

8683 

S686 

8690 

)694 

8698 

8710 

8713 

8718 

8724 

8743 

8750 

8754 

J767 

8775 

1786 

8800 

8814 

8838 

8857 

8868 

8880 

8888 

8905 

8909 

9055 

9064 

9119 

9178 

9185 

9208 

9228 

9337 

9340 

9349 

9365 

9462 

951]; 

9532 

9582 

9599 

9687 

9772 

9773 

9780 

9798 

9799 

9813 

9816 

9829 

9854 

J865 

9886 

9902 

9912 

9937 

9949 

9964 

9970 

9985 

9986 

10022 

10036 

10136 

10141 

10294 

10316 

10334 

1039]; 

10443 

10470 

10475 

10629 

10639 

^9653 

10654 

10688 

10696 

10698 

10700 

10707 

10716 

10748 

10836 

10837 

10838 

10870 

10872 

10896 

11015 

11102 

11103 

11128 

11144 

11316 

11317 

11400 

11427 

11430 

11435 

11436 

11439 

11462 

11549 

11593 

11825 

12027 

12044 

]m 

12072 

12099 

12107 

12125 
12371 

12138 

12140 

12173 

12276 

12305 

12327 

12344 

12353 

12363 

12383 

12391 

12401 

12440 

12456 

12458 

12464 

12470 

12498 

12499 

12502 

12504 

12506 

12532 

12635 

12649 

12756 

12758 

12760 

12770 

12800 

12808 

12887 

12891 

12902 

12915 

12920 

12929 

12932 

12990 

13005 

13013 

13035 

13057 

13073 

13095 

13098 

13102 

13106 

13110 

13129 

13131 

13166 

13186 

13220 

13261 

1334'» 

13355 

13356 

13361 

13371 

13374 

13381 

13383 

13397 

13398 

13399 

13^*16 

13417 

13418 

13420 

13423 

13425 

13428 

13430 

13433 

13434 

13443 

13501 

13507 

13530 

13552 

13614 

13643 

13648 

13649 

13722 

13723 

13760 

13801 

13813 

13815 

^im 

13863 

13866 

13870 

13873 

13877 

13881 

13885 

13927 

13977 

13986 

13987 

14012 

14014 

14052 

14078 

14080 
14223 

14082 

14098 

14107 

14116 

14124 

14136 

14159 

14177 

14178 

14179 

14232 

14250 

14295 

14299 

14304 

14313 

14315 

14346 

14357 

14401 

14527 

14594 

14606 

14664 

14666 

14672 

14675 

14677 

14681 

14695 

14696 

14699 

14702 

14739 

14914 

14927 

14946 

14987 

15040 

15051 

15071 

15125 

15132 

15203 

15212 

4509 

4510 

4533 

4534 

4562 

4565 

4633 

4659 

4736 

4738 

4805 

4806 

4868 

4872 

5011 

5025 

5098 

5100 

5164 

5168 

5211 

5216 

5285 

5291 

5342 

5343; 

5418 

5420 

5583 

5600 

5808 

5812 

5907 

5911 

6097 

6149 

6284 

6285 

6345 

6349 

6476 

6491 

6627 

6631 

7004 

7005 

7575 

7629 

8049 

8064 

8222 

8244 

8357 

8391 

8597 

8599 

8705 

8706 

8801 

8804 

9149 

9164 

9533 

9546 

9838 

9842 

10007 

10016 

10479 

10508 

10766 

10833 

11238 

11255 

11777 

11792 

12265 

12267 

12424 

12425 

12550 

12591 

12893 

12896 

13076 

13090 

13286 

13329 

13400 

13403 

13449 

13491 

13763 

13765 

13889 

13909 

14100 

14102 

14278 

14280 

14618 

14654 

14795 

14891 

15223 

15379 

4512 

4537 

4566 

4676 

4745 

4807 

4882 

5027 

5101 

5169 

5218 

5292 

5345 

5457 

5603 

5814 

5912 

6150 

6286 

6353 

6536 

6635 

7054 

7631 

8084 

8246 

8408 

8602 

8708 

8807 

9169 

9579 

9844 

10019 

10610 

10835 

11313 

11813 

12272 

12435 

12627 

12899 

13094 

13342 

13405 

13496 

13771 

13925 

14104 

14293 

14663 

14903 

15403 


SEQ  0762 


HALT 

HPQ 

JEN 

JRSTF 

LOCK 

nAPADR 

MAPCNK 
HAPWEM 
MAPPNT 
MAPSET 
MEMSEG 

mnzRO 

HODPCP 

HODPCU 

MSTRX 

MTROP 

NAME 

NOOP 

ODTIMX 


155A3 
15729 
15799 
15933 
16069 
16160 
16195 
16277 
16352 
16422 
16516 
16640 
16730 
16789 
17315 
17674 
17808 
17889 
18126 
18267 
18383 
18499 
18596 
18805 
19685 
20382 
20543 
20706 
20874 
21710 
22336 
22523 
226 
7360 
1299# 
22367 
1298# 
10528 
1434# 
18803 
1435* 
143U 
1437* 
1436# 
1435# 
K32# 
1444# 
1443# 
7700 
1412* 
12# 
267 
7185 


15579 
15731 
15800 
15947 
16070 
16163 
16197 
16287 
16353 
16423 
16518 
16649 
16736 
16816 
17340 
17685 
17810 
17897 
18135 
18270 
18434 
18501 
18599 
18858 
19687 
20393 
20553 
20717 
20877 
21728 
22348 
22527 
227 

15438 
22379 


2992 
19246 


8449 
1898 


4990 
14 


15584 

15585 

15760 

15761 

15853 

15854 

15967 

15969 

16078 

16084 

16165 

16170 

16199 

16201 

16288 

16291 

16360 

16375 

16429 

16436 

16520 

16538 

16651 

16655 

16737 

16742 

16818 

16859 

17348 

17350 

17686 

17714 

17811 

17816 

17922 

17929 

18155 

18164 

18279 

18280 

18446 

18454 

18511 

18512 

I860!; 

18623 

18859 

19041 

19704 

19708 

20395 

20465 

20556 

20565 

20720 

20724 

20884 

20886 

21802 

21808 

22364 

22376 

22541 

22549 

228 

229 

15479 
22391 


10510 


15506 
22403 


15595 
15762 
15855 
15975 
16094 
16171 
16205 
16301 
16378 
16453 
16551 
16658 
16743 
17021 
17376 
17716 
17821 
17936 
18165 
18331 
18455 
18521 
18625 
19132 
19709 
20475 
20570 
20732 
20899 
21823 
22388 
22557 
230 

17635 
22414 


15600 
15765 
15874 
15977 
16120 
16172 
16211 
16307 

16380 
16461 
16558 
16661 
16746 
17022 
17398 
17719 
17823 
17938 
18170 
18339 
18459 
18543 
18627 
19149 
20083 
20476 
20616 
20797 
20918 
21830 
22400 
22564 
1297* 

19129 
22426 


15609 
15774 
15895 
15984 
16131 
16174 
16222 
16318 
16381 
16468 
16571 
16675 
16748 
17032 
17399 
17723 
17825 
18040 
18171 
18342 
18462 
18561 
18636 
19152 
20088 
20478 
20620 
20810 
20941 
21831 
22411 
22565 
1602 

19140 
22438 


15658 
15776 
15896 
16013 
16134 
16179 
16223 
16322 
16386 
16470 
16585 
16698 
16750 
17034 
17437 
17743 
17827 
18052 
18215 
18345 
18469 
18562 
18645 
19158 
20145 
20479 
20634 
20815 
21533 
21832 
22423 
22585 


19182 
22450 


15674 
15778 
15899 
16018 
16136 
16181 
16246 
16329 
16393 
16480 
16589 
16703 
16755 
17039 
17446 
17745 
17841 
18069 
18231 
18348 
18476 
18568 
18711 
19161 
20235 
20480 
20650 
20835 
21565 
21927 
22435 
22595 


22291 
22504 


15682 

15784 

15901 

16026 

16138 

16183 

16257 

16333 

16399 

16481 

16593 

16705 

16760 

17049 

17454 

17747 

17870 

18079 

18233 

1835C 

18483 

18569 

18727 

19164 

20263 

20483 

20666 

20845 

21655 

21930 

22447 


15688 
15785 
15902 
16031 
16145 
16185 
16259 
16335 
16400 
16483 
16594 
16711 
16765 
17058 
17546 
17755 
17872 
18082 
18244 
18355 
18484 
18571 
18749 
19560 
20277 
20505 
20669 
20846 
21658 
22288 
22501 


15695 
15790 
15903 
16034 
16146 
16186 
16265 
16346 
16402 
16493 
16598 
16715 
16767 
17253 
17567 
17776 
17875 
18085 
18246 
18356 
18486 
18572 
18788 
19562 
20291 
20524 
20686 
20847 
21690 
22300 
22511 


15714 

15723 

15792 

15794 

15921 

15931 

16036 

16062 

16147 

16149 

16187 

16189 

16273; 

16276 

16349 

16350 

16408 

16421 

16495 

16503 

16605 

16607 

16720 

16725 

16768 

16776 

17264 

U277 

17648 

17670 

17797 

17805 

17884 

17885 

18088 

18103; 

18247 

18260 

18363; 

18381 

18489 

18492 

18573; 

18594 

18792 

18797 

19579 

19586 

20356 

20362 

20527 

20529 

20694 

20695 

20848 

20849 

21693 

21701 

22312 

22324 

22516 

22521 

SEQ  0763 


22303   22315  22127      22339   22351 


4706   10173   10245   10407   10426   10786   10792   13150   14670   15214   15225   18795 


5034 


5503    5540 


6945 


r 


PARAMS 

PBELL 

PCRL 


PCRL2 

PCRL2F 

PCRLF 


iPEEK. 
I PFORCE 

f 
I 

PGM I NT 

PJRST 

PMSG 


PWSGF 


295# 
1387# 
1381# 
5958 
13536 
16517 
17445 
1385# 
1386* 
1382# 
4478 
7550 
298# 
1389* 
2943 
1305# 
1296# 
1391# 
3091 
4416 
4528 
4940 
5576 
5942 
6316 
6369 
6593 
6707 
7599 
10843 
12886 
13067 
13441 
13843 
13980 
14665 
14753 
15752 
15927 
16085 
16415 
16835 
16901 
16938 
1698^ 
17050 
17876 
18093 
18491 
18806 
1394* 
2349 
2418 


3480 
4347 
2024 
6454 
13553 
16554 
17647 
4613 
7189 
2043 
4484 
7898 
6884 
2606 
4227 
1895 

2320 

3095 

4423 

4535 

4948 

5580 

5946 

6318 

6370 

6597 

6712 

7601 

10885 

12888 

13091 

13444 

I  <848 

13981 

1 4667 

14763 

15^55 

15929 

16139 

16417 

16845 

16904 

16940 

16983 

17059 

17879 

18096 

18540 

18814 

1902 

2351 

2423 


3501 

4349 

2027 

6477 

13852 

16559 

17817 

6315 

10535 

2075 

4491 

7938 

2621 
4240 


2605 

3096 

4433 

4542 

4949 

5789 

5950 

6322 

6374 

6601 

7214 

7914 

10890 

12892 

13096 

13492 

13855 

14154 

14673 

15510 

15764 

15930 

16166 

16476 

16855 

16906 

16942 

16985 

17447 

17882 

18104 

18541 

19120 

1918 

2360 

2427 


3533 
16537 
3068 
6492 
13913 
16595 
17869 
13089 

4305 
4498 
9151 

2641 
15732 


2620 

3100 

4442 

4549 

5044 

5797 

5954 

6326 

6378 

6605 

7234 

7917 

10892 

12894 

13099 

13497 

13860 

14157 

14676 

15570 

15766 

15985 

16184 

16487 

16856 

16908 

16944 

16992 

17452 

17890 

18174 

18544 

19208 

1926 

2367 

2487 


3558 
16790 
3078 
6534 
14160 
16602 
17871 
14740 

4330 
4508 
9364 

2657 
16512 


2640 

3730 

4448 

4555 

5076 

5850 

5962 

6331 

6381 

6609 

7242 

7920 

11299 

12900 

13103 

13503 

13864 

14187 

14678 

15571 

15777 

15989 

16198 

16515 

16860 

16910 

16946 

16994 

17598 

17893 

18259 

18547 

19211 

1931 

2378 

2498 


5247 
17047 
3103 
6552 
14703 
16606 
17901 
18588 

4397 
4515 
9659 

2673 
16566 


2656 

4071 

4455 

4616 

5118 

5853 

5965 

6335 

6409 

6613 

7243 

9108 

11300 

12906 

13107 

13534 

13867 

14634 

14682 

15580 

15793 

15999 

16285 

16519 

16871 

16912 

16948 

16996 

17649 

17899 

18268 

18576 

19224 

1983 

2381 

2506 


5700        5710 


3937 

8614 

15578 

16707 

18266 


4403 

4522 

12699 

2689 
16580 


2672 

4072 

4461 

4621 

5155 

5857 

5968 

6338 

6415 

6617 

7244 

9110 

11301 

12913 

13112 

13550 

13874 

14639 

14690 

15687 

15829 

16014 

16286 

16555 

16885 

16914 

16950 

16998 

17667 

17903 

18271 

18621 

19227 

1994 

2384 

2553 


4181 

8619 

15775 

16917 

18485 


4410 

4529 

14430 


2688 

4183 

4477 

4626 

5194 

5864 

5972 

6339 

6490 

6621 

7581 

9112 

11431 

12916 

13115 

13565 

13878 

14642 

14693 

15689 

15832 

16033 

16319 

16572 

16887 

16916 

16952 

17000 

17741 

17907 

18274 

18631 

19244 

2002 

2387 

2556 


4754 
10875 
15783 
16953 
18552 


4417 

4536 

19105 


4756 
10897 
15791 
16986 
18822 


4424 
4543 


2704 

4226 

4483 

4634 

5230 

5868 

5976 

6343 

6551 

6625 

7583 

9171 

11479 

12921 

13117 

13568 

13882 

14646 

14697 

15730 

15875 

16035 

16330 

16586 

16889 

16926 

16969 

17002 

17751 

17908 

18277 

18777 

2005 
2390 
2559 


2057 
2393 
2811 


4800 
12735 
15873 
17009 


4434 
4550 


2705        2721         2812        2834 


2720 

3065 

4239 

4357 

4490 

4497 

4668 

4672 

5276 

5317 

5883 

5884 

6204 

6210 

6347 

6351 

6577 

6581 

6629 

6633 

7585 

7587 

9518 

10094 

12505 

12507 

12936 

12949 

13353 

13357 

1];788 

13:802 

13:886 

13:891 

14649 

14651 

14700 

14716 

15734 

15739 

15880 

15889 

16042 

16047 

1633:4 

16345 

16599 

16632 

16891 

16893 

16928 

16930 

16971 

16973 

17004 

17006 

17815 

17837 

17923 

17924 

18281 

18284 

18784 

18785 

2072 
2399 
2833 


5620 
13362 
15983 
17023 


4443 
4617 


3080 

4396 

4507 

4757 

5353 

5929 

6221 

6355 

6584 

6637 

7589 

10831 

12508 

12965 

13390 

13810 

13895 

14655 

14732 

15741 

15891 

16050 

16361 

16791 

16895 

16932 

16975 

17008 

17855 

17928 

18386 

18789 

2321 
2407 
2856 


5841 
13415 
16000 
17048 


4449 
4622 


3086 

4402 

4514 

4797 

5392 

5933 

6233 

6359 

6587 

6641 

7591 

10839 

12765 

12997 

13394 

13820 

13910 

14658 

14737 

15745 

15922 

16063 

16376 

16794 

16897 

16934 

16977 

17018 

17863 

17949 

18487 

18793 

2331 
2409 
2886 


5843 
13511 
16012 
17057 


4456 
4627 


SEQ  0764 


2857        2887        2915 


3088 

4409 

4521 

4934 

5573 

5939 

6313 

6363 

6589 

6645 

7593 

10842 

12771 

13006 

13411 

13839 

13922 

14661 

14748 

15748 

15925 

16083 

16409 

16803 

16899 

16936 

16979 

17038 

17873 

18068 

18488 

18800 

2543 

2411 
2914 


PNT1 

PNT11 

PNT11F 

PNT1F 

PHJ2 

PNT2f 
PNT3 

PNT3F 

PNT4 

PNTAF 

PNT5 

PNT5F 

PNT6 

PNT6F 

PNT7 

PNT7F 

PNTA 

PNTADF 

PMTAOP 

PNTAF 

PNTAL 

PNTALF 

PNTCHF 

PNTCHR 

PNTCI 

PNTCIF 


29A2 
3767 
4063 
4353 
5810 
7167 
7319 
7387 
7804 
7864 
8288 
9122 
9160 
9637 
10549 
11516 
1168*^ 
1213^, 
1 36^  '♦ 
15806 
18904 
18946 
1347# 
1361# 
1362# 
1348# 
1349# 
14660 
135C# 
135U 
21548 
1352# 
1353# 
1354# 
1355# 
1356# 
1357# 
1358# 
1359# 
1360# 
1333# 
1364# 
1363# 
1334# 
1335# 
1i36# 
1346# 
1345# 
1343# 
15847 
1344# 
9099 
15824 


2984 

3783 

4097 

4360 

5820 

7181 

7322 

7623 

7808 

7869 

8289 

9124 

9192 

9664 

11235 

1517 

'<  '686 

12139 

]3719 

15809 

18905 

18987 

5925 


8424 
5602 

14692 
7065 
5964 

21580 
7907 
S896 

21681 

10841 
14429 


1906 
7046 

6737 

5917 

15848 

7062 

9218 

15825 


3125 

3785 

4174 

4369 

6183 

7203 

7323 

7633 

7812 

7888 

8422 

9126 

9213 

9708 

11291 

11547 

11703 

12420 

14149 

17294 

18906 

18988 

5941 


8431 
5901 
17878 
7910 
5967 

8268 

21735 


16601 
18899 


3127 

3788 

4187 

4598 

6387 

7207 

7326 

7642 

7816 

7891 

8425 

9129 

9231 

9709 

11323 

11553 

11705 

12423 

14153 

17297 

18909 

19011 

20469 


5906 

17881 

9098 

5970 

8275 


2149 
7073 

21884 
6539 

17910 
7063 
9220 


2155 
7076 

21895 
6741 

18811 
7088 
9222 


3129 

3790 

4196 

4599 

6754 

7219 

7327 

7714 

7824 

7894 

8429 

9131 

9249 

9710 

11326 

11572 

11731 

12690 

14220 

17767 

18910 

19044 

20619 


5957 

18273 

9527 

5975 

9089 


3665 
3799 
4202 
4600 
6755 

7330 

7718 

7828 

7936 

8432 

9134 

9252 

9716 

11471 

11595 

11739 

12712 

14224 

17858 

18911 

19101 

20813 


6206 
18276 

9649 
10874 


3681 

3801 

4247 

4601 

6764 

7227 

7331 

7728 

7831 

8116 

8612 

9137 

9396 

9717 

11483 

11632 

11742 

12716 

14407 

18063 

18923 

19102 

21528 


12904 
18546 
11744 
13393 


3685 

3834 

4253 

4609 

6774 

7254 

7332 

7775 

7837 

8138 

8617 

9141 

9503 

9718 

11486 

11634 

11747 

12729 

14416 

18398 

18924 

19109 

21561 


12909 
18551 
11749 
15831 


10854   18896   19226   1926, 


18842 
22009 

21971 

10127 

18819 

7091 

9224 


20701 
21683 


20737 
21905 


20752 
22003 


3694 

3847 

4254 

5354 

7042 

7262 

7335 

7779 

7840 

8180 

8856 

9143 

9523 

9749 

11491 

11657 

11750 

12732 

14419 

18453 

18925 

19110 

21612 


13414 
21536 
12422 
15924 


9646   11672   11680   15808 


20679   20698   20746   21520   21554   21587 


3705 

3850 

4282 

5359 

7056 

7270 

7336 

7783 

7844 

8195 

9037 

9144 

9536 

9752 

11494 

11662 

11755 

12851 

14422 

18892 

18932 

19113 


13447 
21568 
14424 
16049 


3709 

3853 

4296 

5388 

7071 

7279 

7339 

7787 

7848 

8266 

9039 

9147 

9540 

9755 

11498 

11667 

11764 

12871 

14427 

18893 

18933 

19116 


13851 

17296 
16793 


3718 

3854 

4308 

5791 

7074 

7290 

7340 

7791 

7851 

8269 

9041 

9155 

9614 

10489 

11510 

11670 

11833 

12878 

14787 

18894 

18934 

19117 


13983 
20495 


3736 

3882 

4311 

5799 

7080 

7304 

7361 

7795 

7855 

8273 

9060 

9157 

9617 

10494 

11512 

11673 

12122 

12880 

14788 

18897 

18944 


14636 
20512 


3738 

3889 

4348 

5806 

7095 

7318 

7370 

7799 

7858 

8276 

9121 

9159 

9620 

10531 

11514 

11678 

12127 

13574 

15618 

18900 

18945 


SEO  0765 


14657 
20536 


10132   10138   10152   13985   15836   15839   15841   15843   15845 


7098    7102    7862    7872    7903    7908    79  V 
9226    9227    9647    9650   15813   158^6   15818 


7924    9092 
15820   15822 


53 


PMcy 

PNTCWF 

PNTDCF 

PNTDEC 

PNTDS 

PNTDS»^ 

PNTHy 


PNTHWF 

PNTWGN 

PNTHSF 

PNTHSG 

PNTNM 

PNTCCF 

PNTOCS 

PNTOCT 

PNTOTF 

PNTSIX 

PNTSXF 

PSIXL 

PSIXLF 

PSIXM 


1379# 
1380# 
1372# 
1371# 
1373# 
1374# 
1367# 
18587 
20805 
i368# 
U58# 
1340# 
13?9# 
1375# 
1370# 
1369# 
1365# 
1366# 
1376# 
U752 
1377# 
12135 
1337# 
1338# 
13AU 
3091 
4416 
4528 
4940 
5576 
5942 
6316 
6369 
6593 
6707 
7600 
10843 
12886 
13068 
13442 
13844 
13980 
14665 
14753 
15752 
15927 
16085 
16415 
16835 
16901 
16938 
16981 
17050 


SEQ  0766 


1930 
5648 


3098 
18808 
20843 


7118 
9439 

9217 
3792 

19104 

2026 

20873 

4281 

14152 

13847 

1C534 

2320 

3095 

4423 

4535 

4948 

5580 

5946 

6318 

6370 

r597 

6712 

7602 

10885 

12888 

13092 

13445 

13849 

13981 

14667 

14763 

15755 

15929 

16139 

16417 

16845 

16904 

16940 

16983 

17059 


7090 
6541 


3102 
18813 
21596 


7124 
1155? 

1167*^ 
15835 

19112 
2063 

21609 
4303 

13979 

14426 

2605 

3096 

4433 

4542 

4949 

5789 

5950 

6322 

6374 

6601 

7214 

7915 

10890 

12892 

13097 

13493 

13856 

14154 

14673 

15510 

15764 

15930 

16166 

16476 

16855 

16906 

16942 

16985 

17448 


7093 
6711 


10857 
18816 


7136 


12715 
21721 

19119 
5383 

21824 
4329 


7097 
10126 


10860 
18821 


5852 
7087 


2620 

2640 

3.00 

3730 

4442 

4448 

4549 

4555 

5044 

5076 

5797 

5850 

5954 

5962 

6326 

6331 

6378 

6381 

6605 

6609 

7234 

7242 

7918 

7921 

10892 

11299 

12894 

12900 

13100 

13104 

13498 

13504 

13861 

13865 

14157 

14187 

14676 

14678 

15570 

15571 

15766 

15777 

15985 

15989 

16184 

16198 

16487 

16515 

16856 

16860 

16908 

16910 

16944 

16946 

16992 

16994 

17453 

17598 

7101 
10131 


10863 
19229 


14421   15812 


6515 
7861 


2656 

4071 

4455 

4616 

5118 

5853 

5965 

6335 

6409 

6613 

7243 

9108 

11300 

12906 

13108 

13535 

13868 

14634 

14682 

15580 

15793 

15999 

16285 

16519 

16871 

16912 

16948 

16996 

17649 


7105 
10137 


14156 
19585 


653£ 
7902 


2672 

4072 

4461 

4621 

5155 

5857 

5968 

6338 

6415 

6617 

7244 

9110 

11301 

12913 

13113 

13551 

13875 

14639 

14690 

15687 

15829 

16014 

16286 

16555 

16885 

16914 

16950 

16998 

17667 


10493 
10142 


14765 
19703 


6583 
7926 


2688 

4184 

4477 

4626 

5194 

5864 

5972 

6339 

6490 

6621 

7582 

9112 

11431 

12916 

13116 

13566 

13879 

14642 

14693 

1 5689 

15832 

16033 

16319 

16572 

16887 

16916 

16952 

17000 

17741 


14418 
10871 


15573 
20504 


13510 
7945 


2704 

4226 

4483 

4634 

5230 

5868 

5976 

6343 

6551 

6625 

7584 

9171 

11479 

12921 

13118 

13569 

13883 

14646 

14697 

15730 

15875 

16035 

16330 

16586 

16889 

16926 

16969 

17002 

17751 


19210   21700   21926 


15575   15577   18576 
20518   20542   20550 


13859 
9616 


2720 

4239 

4490 

4668 

5276 

5883 

6204 

6347 

6577 

6629 

7586 

9518 

12505 

12937 

13354 

13789 

13887 

14649 

14700 

15734 

15880 

16042 

16334 

16599 

16891 

16928 

16971 

17004 

17815 


14641 
9619 


3065 

4357 

4497 

4672 

5317 

5884 

6210 

6351 

6581 

6633 

7588 

10094 

12507 

12950 

13358 

13803 

13892 

14651 

14716 

15739 

15889 

16047 

16345 

1663: 

16893 

16930 

16973 

17006 

17837 


14648 
9653 


3080 

4396 

4507 

4757 

5353 

5929 

6221 

6355 

6584 

6637 

7590 

10831 

12508 

12966 

13391 

13811 

13896 

14655 

14732 

15741 

15891 

16050 

16361 

16791 

16895 

16932 

16975 

17008 

17855 


18581 
20560 


14718 
9658 


3086 

4402 

4514 

4797 

5392 

5933 

6233 

6359 

6587 

6641 

7592 

10839 

12766 

12998 

13395 

13821 

13911 

14658 

14737 

15745 

15922 

16063 

16376 

16794 

16897 

16934 

16977 

17018 

17863 


18584 
20685 


14734 
11325 


3088 

4409 

4521 

4934 

5573 

5939 

6313 

6363 

6589 

6645 

7594 

10842 

12772 

13007 

13412 

13840 

139?3 

14661 

14748 

15748 

15925 

16083 

16409 

16803 

16899 

16936 

16979 

17038 

17873 


54 


PSIXMF 


PSOUTX 

PSP 

PSPF 

PSTAR 

PUT 


17876 
18068 
18487 
18793 
13A2# 
23A9 
2418 
2942 
3767 
4063 
4353 
5810 
7167 
7319 
7387 
7805 
7865 
8288 
9122 
9160 
9637 
10549 
11516 
11681 
12136 
13645 
15806 
18904 
18946 
7176 
1383# 
1384# 
294# 
1294# 
2969 
3482 
3541 
3585 
4075 
5627 
6485 
8008 
8901 
9767 
1000'. 
]0i67 
10350 
10578 
10637 
10912 
11913 
12687 
13144 


17879 

18093 

18488 

18800 

1902 

2351 

2423 

2984 

3783 

4097 

4360 

5820 

7181 

7322 

7625 

7809 

7870 

8289 

9124 

9192 

9664 

11235 

11517 

11686 

12139 

13720 

15809 

18905 

18987 

10834 
9093 

'938 

3020 

3484 

3543 

3587 

4121 

5694 

6486 

8215 

8902 

9768 

10005 

10235 

10351 

10579 

10655 

10C56 

11914 

12688 

13145 


17882 

18096 

18491 

18806 

1918 

2360 

2427 

3125 

3785 

4174 

4369 

6183 

7203 

7323 

7634 

7813 

7889 

8422 

9126 

9213 

9708 

11291 

11547 

11703 

12420 

14149 

17294 

18906 

18989 

'0855 
9100 

1939 

3298 

3486 

3545 

3589 

4122 

5695 

6487 

8240 

8918 

9824 

10046 

10236 

10352 

10580 

10708 

10957 

119:5 

12689 

13459 


17890 

18104 

18540 

18814 

1926 

2367 

2487 

3127 

3788 

4187 

4598 

6387 

7207 

7326 

7643 

7817 

7892 

8425 

9129 

9231 

9709 

11323 

11553 

11705 

12423 

14153 

17297 

18909 

19011 

10858 
9116 

1940 

3312 

3488 

3547 

3591 

4125 

5696 

6488 

8442 

8919 

9825 

10047 

10237 

1035? 

10581 

10709 

11012 

11985 

12707 

13487 


17892 

18174 

18541 

19120 

1931 

2378 

2498 

3129 

5(90 

4196 

4599 

6754 

7219 

7327 

7715 

7825 

7895 

8429 

9131 

9249 

9710 

11326 

11572 

11731 

12691 

14220 

17767 

1891C 

190^4 

10861 
9654 

196^ 

3328 

3490 

3549 

3600 

4138 

5697 

6529 

8443 

8920 

9849 

10048 

10238 

10354 

10582 

10710 

11013 

11786 

12708 

13488 


17893 

18259 

18544 

19208 

1983 

2381 

2506 

3665 

3799 

4202 

4600 

6755 

7223 

7330 

7719 

7829 

7937 

8432 

9134 

9252 

9716 

11471 

11595 

11739 

12713 

14224 

17858 

18911 

19101 


1965 

3329 

3492 

3551 

1602 

4332 

6304 

6655 

8444 

8921 

9850 

10071 

10239 

10371 

10583 

10767 

11014 

11987 

12709 

13489 


17899 

18268 

18547 

19211 

1994 

2384 

2553 

3681 

3801 

4247 

4601 

6764 

7227 

7331 

7729 

7832 

8117 

8612 

9137 

9396 

9717 

11483 

11632 

11742 

12717 

14407 

18063 

18923 

19102 


10864   10865 


1966 

3386 

3494 

3553 

3604 

4363 

6305 

6656 

8476 

8922 

9879 

10091 

10285 

10454 

10584 

10768 

11228 

11988 

12710 

13490 


17903 

18271 

18576 

19224 

2002 

2387 

2556 

3685 

3834 

4253 

4609 

6774 

7254 

7332 

7776 

7838 

8139 

8617 

9141 

9503 

9718 

11486 

11634 

11747 

12730 

14416 

18398 

18924 

19109 


2067 

3387 

3496 

3569 

3606 

4839 

6306 

6657 

8673 

8923 

9880 

10092 

10286 

10455 

10585 

10769 

11259 

11989 

12778 

13523 


17907 

18274 

18621 

19227 

2005 

2390 

2559 

3694 

3847 

4254 

5354 

7042 

7262 

7335 

7780 

7841 

8180 

8856 

9143 

9523 

9749 

11491 

11657 

11750 

12733 

14419 

18455 

18925 

19110 


3502   13508 


2822 

3427 

3512 

3573 

3608 

5456 

6307 

7943 

8674 

9467 

9881 

10093 

10287 

10456 

10586 

10770 

11260 

11990 

12884 

13524 


17908 

17923 

17924 

17928 

17949 

18277 

18281 

18283 

18284 

18386     SEQ  0767 

18631 

18777 

18784 

18785 

18789 

19244 

2057 

2072 

2321 

2531 

2343 

2393 

2399 

2407 

2409 

2411 

2811 

2833 

2856 

2886 

2914 

3705 

3709 

3718 

3736 

3738 

3850 

3853 

3854 

3882 

3889 

4282 

4296 

4308 

4311 

4348            i 

5359 

5388 

5791 

5799 

5806 

7056 

7071 

7074 

7080 

7095 

7270 

7279 

7290 

7304 

7318 

7336 

7339 

7340 

7361 

7370 

7784 

7788 

7792 

7796 

7800 

7845 

7849 

7852 

7856 

7859 

8195 

8266 

8269 

8273 

8276 

9037 

9039 

9041 

9060 

9121 

9144 

9147 

9155 

9157 

9159 

9536 

9540 

9614 

9617 

9620            1 

9752 

9755 

10489 

10494 

10531            \ 

11494 

11498 

11510 

11512 

11514 

11662 

11667 

11670 

11673 

11678 

11755 

11764  , 

11833 

12122 

12127 

12851 

12871 

12878 

12880 

13575 

14422 

14427 

14787 

14788 

15618 

18892 

18893 

18894 

18897 

18900 

18932 

18933 

18934 

18944 

18945 

19113 

19116 

19117 

18579 

18582 

18585 

i 

1 

2873 

2^93 

2904 

2922 

2954 

3428 

3474 

3475 

3476 

3477 

3527 

^528 

3529 

3530 

3539            1 

3575 

3577 

3579 

3581 

3583 

3610 

3612 

3614 

3616 

3618 

5495 

5496 

5497 

5553 

5554 

6308 

6309 

6310 

6311 

6484 

7980 

7981 

7982 

7983 

7984 

8675 

8837 

8864 

8876 

8900            1 

9468 

9508 

9675 

9676 

9677 

9882 

9898 

9899 

9934 

9935 

10151 

10163 

10164 

10165 

10166 

10288 

1C289 

10290 

10348 

10349 

10457 

10458 

10523 

10524 

10546 

10587 

10588 

10589 

10590 

10591 

10771 

10772 

10909 

10910 

10911 

11870 

11871 

11872 

11873 

11912 

11991 

11992 

11993 

11994 

12121 

12885 

13140 

13U1 

13142 

13143 

13525 

13547 

13548 

13549 

13584 

13585 

13586 

13676 

13677 

13678 

13698 

13731 

13732 

13784 

13785 

13786 

:i787 

13833 

13834 

13835 

13836 

13971 

14005 

14017 

14018 

14019 

14020 

14021 

14072 

14139 

14140 

14141 

14181 

SEQ  0768 

U205 

14206 

14207 

14208 

14209 

14210 

14211 

14212 

14213 

14214 

14215 

14216 

14342 

14367 

U368 

14369 

14474 

14475 

14476 

Mii,77 

14478 

14562 

14601 

14602 

14612 

14613 

14629 

14630 

1A71A 

14715 

14747 

14762 

14776 

1^777 

14778 

14779 

14780 

14814 

14815 

14816 

14955 

15054 

1507A 

15126 

15127 

15133 

15134 

15257 

15258 

15259 

15260 

15261 

15275 

15287 

15303 

15319 

15349 

15373 

15408 

15442 

15443 

15444 

15516 

15517 

15518 

15519 

15520 

15521 

15522 

15523 

15524 

16058 

16093 

16238 

16239 

16544 

16545 

16614 

16615 

16690 

16691 

16771 

16772 

16813 

16814 

16881 

16965 

17.25 

17126 

17127 

17158 

17159 

17160 

17188 

17189 

17190 

17366 

17367 

17368 

17369 

17432 

17433 

17547 

17548 

17549 

17550 

17551 

17552 

17553 

17554 

17555 

17556 

17557 

17558 

17559 

17560 

17561 

17562 

17563 

17564 

17565 

17566 

17917 

17930 

17932 

17953 

18017 

18019 

18470 

18472 

18493 

18495 

18539 

18666 

18667 

18668 

18669 

18670 

18753 

18863 

18868 

18927 

18939 

18972 

19074 

19075 

19076 

19077 

19078 

19079 

19493 

19494 

19495 

19496 

19497 

19498 

19535 

19629 

19630 

19631 

19632 

19633 

19649 

19740 

19745 

19748 

19751 

19754 

19792 

19806 

19843 

19846 

19849 

19852 

19855 

19858 

19911 

19957 

19962 

19976 

19980 

20076 

20077 

20082 

20119 

20120 

20121 

20122 

20123 

20220 

20221 

20222 

20223 

20224 

20225 

20226 

20227 

20234 

20272 

20324 

20355 

20361 

20459 

20460 

20461 

20462 

20464 

20521 

20606 

20607 

20608 

20609 

20610 

20615 

20649 

20723 

20792 

20793 

20829 

20830 

20831 

20832 

20833 

20894 

20906 

21517 

21525 

21545 

21551 

21558 

?1577 

21584 

21593 

21602 

21603 

21652 

21662 

21663 

21687 

21697 

21704 

21714 

21718 

21725 

21732 

21780 

21786 

21787 

21788 

21789 

21790 

21791 

21865 

21868 

21872 

2^1":^ 

21878 

21881 

21890 

21893 

21903 

21924 

21956 

21957 

21958 

21959 

22001 

22007 

22283 

22284 

22295 

22296 

22307 

22308 

22319 

22320 

22331 

22332 

22343 

22344 

22359 

22360 

22371 

22Z72 

22383 

22384 

22395 

22396 

22406 

22407 

22418 

22419 

22430 

22431 

22442 

22443 

22459 

22460 

22569 

22593 

22594 

RBASE      149* 

2922 

15275 

15287 

15303 

15319 

15349 

15408 

READ      275# 

2195 

2297 

2439 

2455 

2479 

2613 

2628 

2648 

2664 

2680 

2696 

2712 

2728 

3193 

3208 

3213 

3215 

3240 

3244 

3247 

3596 

4687 

5734 

5739 

7961 

READHD     276# 

4091 

5735 

RECAL      281 

2821 

5052 

5084 

5163 

5202 

5238 

5284 

5325 

5399 

5512 

REPTLP     293# 

2201 

2248 

2301 

2442 

2458 

2469 

2482 

2517 

2827 

2850 

2880 

2936 

2975 

3222 

3256 

3627 

4083 

4790 

4982 

5026 

5066 

5184 

5220 

5259 

5306 

5344 

5419 

5728 

7147 

7934 

9048 

9187 

9419 

9434 

9453 

9475 

9492 

9515 

9564 

9604 

9662 

11290 

P451 

13532 

13817 

14148 

14377 

14385 

17145 

17175 

17205 

17384 

REPTUO    1472* 

•780 

RTN       1293# 

1589 

2085 

2151 

2156 

2203 

2250 

2256 

2303 

2446 

2540 

2733 

2742 

3063 

3076 

3084 

3121 

3130 

3259 

3290 

3304 

3318 

3412 

3630 

4059 

4085 

4098 

4136 

4149 

4200 

4361 

4384 

4574 

4578 

4635 

4795 

4849 

4873 

4890 

4899 

5110 

5424 

5434 

5446 

5491 

5545 

5594 

5621 

5650 

5731 

5826 

5995 

6078 

6098 

6119 

6131 

6136 

6146 

6151 

6184 

6188 

6291 

6424 

6451 

6455 

6478 

6562 

6648 

6696 

6713 

6739 

6743 

6770 

6790 

6975 

7002 

7006 

7030 

7143 

7149 

7552 

7577 

7771 

7777 

7781 

7785 

7789 

7793 

7797 

7801 

7806 

7810 

7814 

7818 

7939 

7947 

7974 

8027 

8039 

8053 

8059 

8210 

8291 

8359 

8469 

8595 

8610 

8615 

8620 

8637 

8751 

8768 

8844 

8870 

8891 

8899 

8914 

8917 

8940 

9004 

9059 

9065 

9209 

9229 

9369 

9376 

9386 

9390 

9394 

9479 

9489 

9493 

9498 

9501 

9520 

9528 

9608 

9610 

9613 

9622 

9696 

9820 

9869 

9920 

9988 

10020 

10061 

10081 

10147 

10150 

10154 

10214 

10273 

10328 

10399 

10439 

10522 

10539 

10545 

10551 

10558 

10563 

10675 

10883 

10899 

10936 

10972 

11257 

11278 

11304 

11311 

11321 

11328 

11426 

11440 

11496 

11531 

11550 

11663 

11844 

11848 

11860 

11864 

11895 

11963 

12062 

12277 

12509 

12680 

12683 

12703 

12740 

12774 

12783 

13378 

13385 

13482 

13519 

13543 

13560 

13573 

13619 

13650 

13662 

13669 

13690 

13709 

13725 

13777 

13827 

13918 

14166 

14354 

14358 

14437 

14549 

14570 

14597 

14610 

14621 

14686 

14712 

14741 

14755 

14767 

14807 

14825 

14895 

14897 

14907 

U918 

14921 

14932 

14937 

14951 

14962 

15025 

15061 

15081 

15182 

15192 

15206 

15217 

15228 

15425 

15826 

15849 

16283 

16294 

16534 

16560 

16569 

16583 

16603 

16608 

16626 

16633 

16642 

16677 

16782 

16802 

16806 

16864 

16880 

16919 

16922 

^MtMM' 


s 

SEEK 


SETUUO 
SIXBTZ 

SLEEP 

SPY 

SRCH 

SUSET. 

SylTCH 


TEXT 


i 


TEXTF 

TIMEX 

TIMER 

TINT 

TTALTM 

TTICHR 

TTICLR 

TTICNV 

TTIDEC 

TTINO 

TTIOCT 
TTIYES 

TTLOOK 
TTSIXB 

TTYlr^P 

TXNE 
TXNN 
TXO 
ULOAO 


16955 
17248 
18649 
19673 
20406 
20920 
21081 
21099 
21128 
21556 
21818 
1223# 
280 
2957 
5705 
7135 
1400# 
19375 
12752 
7222 
282# 
12551 
1406# 
2713 
10828 
268 
20520 
20699 
21518 
21585 
21733 
2690 
7186 
291  # 
84# 
1327# 
1320# 
1330f 
1325# 
1324Xf 
1322# 
11492 
1323# 
1321# 
112if 
15264' 
1328# 
7306 
1329# 
7703 
7712 
7732 
285* 


16964 
17260 
18733 
19760 
20427 
20942 
21086 
21100 
21129 
21575 
21825 
18647 
2513 
2959 
5737 

13991 
19376 
18937 

4997 
12592 
1984 
2729 
11229 
19574 
20525 
20702 
21526 
21594 
21827 
22558 

mioo 

969 
2180 

13466 
3772 
7866 
2323 
2073 
2344 

11499 
2332 
1903 

11495 

2006 
7392 

7706 
7716 
7735 


16988 
17271 
18740 
19814 
20488 
21009 
21087 
21101 
21130 
21582 
21833 
18650 
2516 
2961 


13992 
19377 


5010 
12809 
2050 
3197 
11361 
19581 
20537 
20710 
21529 
21604 


4972 
2228 


2352 
2507 
2419 

14225 
76^4 
2401 

14221 

4175 
8141 

7709 
7740 
7738 


17011 
17298 
18843 
19867 
20506 
21010 
21088 
21108 
21131 
21589 
21886 

2823 
2963 


13993 
19378 


5736 
13036 
2196 
3225 
14182 
19583 
20548 
20712 
21534 
21610 


4975 
2276 


2361 
5389 
2424 

7677 
2428 


4188 
9256 

7724 


17024 
17333 
18930 
19918 
20530 
21017 
21089 
21109 
21132 
21598 
21899 

2846 
2965 


13994 
19379 


5738 

2245 
3626 
18991 
19700 
20551 
20718 
21539 
21653 


4978 
2589 


3839   11688   11757 


2368 

7126 
3706 

8a33 
3682 


4256 
11474 


17041 
17346 
18942 
19970 
20544 
21018 
21090 
21110 
21133 
21615 
21907 

2847 
2971 


2286 
4229 

19705 
20554 
20721 
21541 
21656 


5061 
2793 


2489 
9721 
3720 

11525 
3695 


4283 


17051 
17351 
18980 
19975 
20675 
21019 
21091 
21111 
21134 
21660 
21929 

2865 
4957 


17063 
17355 
19010 
19987 
20687 
21020 
21092 
21119 
21135 
21686 
21977 

2876 
5130 


17099 

17117 

17149 

17180 

17390 

17457 

17925 

18524 

19189 

19199 

19206 

19212 

20113 

20152 

2015  J 

20^62 

20818 

20855 

2087  J 

20888 

21021 

21067 

2106  J 

21069 

21093 

21094 

21095 

21096 

21120 

21123 

21124 

21125 

21136 

21137 

21158 

21522 

21695 

21703 

21712 

21723 

22576 

22582 

22588 

22603 

2895 

2897 

2905 

2907 

5180 

5208 

5290 

5331 

17209 
18533 
19235 
20305 
20893 
21070 
21097 
21126 
21543 
21730 


2935 
5406 


17219 
18637 
19549 
20337 
20901 
21080 
21098 
21127 
21550 
21737 


2955 
5514 


SEQ  0769 


13995   13996   13997   13998   13999   14000   19372   19373   19374 


2298 
4242 

20429 
20558 
20733 
21540 
21665 


5096 
3171 


2499 
4610 

3710 
4602 


2614 
4336 

20463 
20561 
20738 
21552 
21688 


5137 
3457 


3740 
5792 

4064 
6756 


2629 
4463 

20470 
20566 
20747 
21559 
21691 


5174 
3653 


3803 
5800 

4248 

7235 


2635 
4558 

20474 
20614 
20794 
21562 
21698 


5214 
4657 


5355 
5807 

43^2 

7255 


2649 
5727 

20496 
20624 
20798 
21566 
21705 


5252 
4923 


5360 
5811 

5821 

7263 


2665 
8416 

20500 
20628 
20811 
21571 
21715 


5300 
5678 


11636 
9063 

j388 

7272 


2681 
8985 

20502 
20665 
20841 
21573 
21719 


5338 
5777 


11707 
9621 

7635 

7281 


2697 
9499 

20513 
20680 
20887 
21578 
21726 


54:3 
11460 


1U89 
8426 
7291 


UNLOK. 

10548 

yAIT 

105 

WRITE 

iim 

2244 

2296 

3192 

3207 

3239 

2437 
3243 


2454 
3514 


2466 

3571 


2612 
4686 


262^' 
5733 


2647 

5740 


2663 


2679    2695    2711    2121 


SEQ  ^11^ 


\ 

? 

i 

